akaros/tools/compilers/gcc-glibc/glibc-2.19-akaros/sysdeps/akaros/perror.c
<<
>>
Prefs
   1/* Copyright (C) 1991-1993,1997,1998,2000-2005,2011
   2   Free Software Foundation, Inc.
   3   This file is part of the GNU C Library.
   4
   5   The GNU C Library is free software; you can redistribute it and/or
   6   modify it under the terms of the GNU Lesser General Public
   7   License as published by the Free Software Foundation; either
   8   version 2.1 of the License, or (at your option) any later version.
   9
  10   The GNU C Library is distributed in the hope that it will be useful,
  11   but WITHOUT ANY WARRANTY; without even the implied warranty of
  12   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13   Lesser General Public License for more details.
  14
  15   You should have received a copy of the GNU Lesser General Public
  16   License along with the GNU C Library; if not, write to the Free
  17   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  18   02111-1307 USA.  */
  19
  20/* Modified for Akaros to print errstr() */
  21
  22#include <errno.h>
  23#include <stdio.h>
  24#include <string.h>
  25#include <unistd.h>
  26#include <wchar.h>
  27#include "libioP.h"
  28
  29static void
  30perror_internal (FILE *fp, const char *s, int errnum, char *ros_errstr)
  31{
  32  char buf[1024];
  33  const char *colon, *comma;
  34  const char *errstring;
  35
  36  if (s == NULL || *s == '\0')
  37    s = colon = "";
  38  else
  39    colon = ": ";
  40
  41  /* ros_errstr should never be 0, but just in case. */
  42  if (ros_errstr == NULL || *ros_errstr == '\0')
  43    ros_errstr = comma = "";
  44  else
  45    comma = ", ";
  46
  47  errstring = __strerror_r (errnum, buf, sizeof buf);
  48
  49  (void) __fxprintf(fp, "%s%s%s%s%s\n", s, colon, errstring, comma, ros_errstr);
  50}
  51
  52
  53/* Print a line on stderr consisting of the text in S, a colon, a space,
  54   a message describing the meaning of the contents of `errno' and a newline.
  55   If S is NULL or "", the colon and space are omitted.  */
  56void
  57perror (const char *s)
  58{
  59  int errnum = errno;
  60  char errstr_save[MAX_ERRSTR_LEN + 1];
  61  FILE *fp;
  62  int fd = -1;
  63  strncpy(errstr_save, errstr(), MAX_ERRSTR_LEN);
  64  errstr_save[MAX_ERRSTR_LEN] = '\0';
  65
  66  /* The standard says that 'perror' must not change the orientation
  67     of the stream.  What is supposed to happen when the stream isn't
  68     oriented yet?  In this case we'll create a new stream which is
  69     using the same underlying file descriptor.  */
  70  if (__builtin_expect (_IO_fwide (stderr, 0) != 0, 1)
  71      || (fd = fileno (stderr)) == -1
  72      || (fd = __dup (fd)) == -1
  73      || (fp = fdopen (fd, "w+")) == NULL)
  74    {
  75      if (__builtin_expect (fd != -1, 0))
  76        __close (fd);
  77
  78      /* Use standard error as is.  */
  79      perror_internal (stderr, s, errnum, errstr_save);
  80    }
  81  else
  82    {
  83      /* We don't have to do any special hacks regarding the file
  84         position.  Since the stderr stream wasn't used so far we just
  85         write to the descriptor.  */
  86      perror_internal (fp, s, errnum, errstr_save);
  87
  88      if (_IO_ferror_unlocked (fp))
  89        stderr->_flags |= _IO_ERR_SEEN;
  90
  91      /* Close the stream.  */
  92      fclose (fp);
  93    }
  94}
  95libc_hidden_def (perror)
  96