Blame gl/tests/perror.c

Packit Service 4684c1
/* Print a message describing error code.
Packit Service 4684c1
   Copyright (C) 2008-2020 Free Software Foundation, Inc.
Packit Service 4684c1
   Written by Bruno Haible and Simon Josefsson.
Packit Service 4684c1
Packit Service 4684c1
   This program is free software: you can redistribute it and/or modify
Packit Service 4684c1
   it under the terms of the GNU General Public License as published by
Packit Service 4684c1
   the Free Software Foundation; either version 3 of the License, or
Packit Service 4684c1
   (at your option) any later version.
Packit Service 4684c1
Packit Service 4684c1
   This program is distributed in the hope that it will be useful,
Packit Service 4684c1
   but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit Service 4684c1
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Packit Service 4684c1
   GNU General Public License for more details.
Packit Service 4684c1
Packit Service 4684c1
   You should have received a copy of the GNU General Public License
Packit Service 4684c1
   along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
Packit Service 4684c1
Packit Service 4684c1
#include <config.h>
Packit Service 4684c1
Packit Service 4684c1
/* Specification.  */
Packit Service 4684c1
#include <stdio.h>
Packit Service 4684c1
Packit Service 4684c1
#include <errno.h>
Packit Service 4684c1
#include <stdlib.h>
Packit Service 4684c1
#include <string.h>
Packit Service 4684c1
Packit Service 4684c1
#include "strerror-override.h"
Packit Service 4684c1
Packit Service 4684c1
/* Use the system functions, not the gnulib overrides in this file.  */
Packit Service 4684c1
#undef fprintf
Packit Service 4684c1
Packit Service 4684c1
void
Packit Service 4684c1
perror (const char *string)
Packit Service 4684c1
{
Packit Service 4684c1
  char stackbuf[STACKBUF_LEN];
Packit Service 4684c1
  int ret;
Packit Service 4684c1
Packit Service 4684c1
  /* Our implementation guarantees that this will be a non-empty
Packit Service 4684c1
     string, even if it returns EINVAL; and stackbuf should be sized
Packit Service 4684c1
     large enough to avoid ERANGE.  */
Packit Service 4684c1
  ret = strerror_r (errno, stackbuf, sizeof stackbuf);
Packit Service 4684c1
  if (ret == ERANGE)
Packit Service 4684c1
    abort ();
Packit Service 4684c1
Packit Service 4684c1
  if (string != NULL && *string != '\0')
Packit Service 4684c1
    fprintf (stderr, "%s: %s\n", string, stackbuf);
Packit Service 4684c1
  else
Packit Service 4684c1
    fprintf (stderr, "%s\n", stackbuf);
Packit Service 4684c1
}