compilers/linux86-0.16.17/libc/error/perror.c

   1
   2 #include <errno.h>
   3
   4 void
   5 perror(str)
   6 __const char * str;
   7 {
   8    register char * ptr;
   9    if(str)
  10    {
  11       write(2, str, strlen(str));
  12       write(2, ": ", 2);
  13    }
  14    else write(2, "perror: ", 8);
  15
  16    ptr = strerror(errno);
  17    write(2, ptr, strlen(ptr));
  18    write(2, "\n", 1);
  19 }