home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Libraries / maclibunix / perror.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-06  |  246 b   |  14 lines  |  [TEXT/R*ch]
  1. /* Perror emulator.
  2.    Public domain by Guido van Rossum, CWI, Amsterdam (July 1987). */
  3.  
  4. #include <stdio.h>
  5. #include <errno.h>
  6.  
  7. perror(str)
  8.     char *str;
  9. {
  10.     if (str != NULL)
  11.         fprintf(stderr, "%s: ", str);
  12.     fprintf(stderr, "Error %d\n", errno);
  13. }
  14.