Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
kccdist/lib/stdio/perror.c
There are 13 other files named perror.c in the archive. Click here to see a list.
/*
** PERROR.C
** Currently only handles value in errno.
** Could be extended to handle OS errors.
*/
#include "stdio.h"
#include "string.h" /* For strerror() */
#include "errno.h" /* For errno */
void
perror(s)
char *s;
{
char *p;
if (s && *s) fputs(s, stderr);
fputs(": ", stderr);
p = strerror(errno);
if (p) fprintf(stderr, "%s\n", p);
else fprintf(stderr, "No string for error # %d\n", errno);
}