1: /* $Header: pperror.c,v 1.1 85/03/14 17:00:12 nicklin Exp $ */ 2: 3: /* 4: * Author: Peter J. Nicklin 5: */ 6: 7: /* 8: * pperror() writes a system error message to standard error output, 9: * preceded by the name of the program and message. 10: */ 11: #include <stdio.h> 12: 13: pperror(message) 14: char *message; /* error message */ 15: { 16: extern char *PGN; /* program name */ 17: 18: fprintf(stderr, "%s: ", PGN); 19: perror(message); 20: }