Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
kcc-6/lib/stdio/perror.c
There are 13 other files named perror.c in the archive. Click here to see a list.
/*
** PERROR - Print error message
**
** (c) Copyright Ken Harrenstien 1989
**
** 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 */
#if __STDC__
#define CONST const
#else
#define CONST
#endif
void
perror(s)
CONST 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);
}