|
|
1.1 ! root 1: /* $Header: warn.c,v 1.2 85/03/25 12:36:56 nicklin Exp $ */ ! 2: ! 3: /* ! 4: * Author: Peter J. Nicklin ! 5: */ ! 6: ! 7: /* ! 8: * warn() places an error message on the standard error output stream ! 9: * stderr. ! 10: */ ! 11: #include <stdio.h> ! 12: #include "null.h" ! 13: ! 14: extern char *PGN; /* program name */ ! 15: ! 16: warn(m) ! 17: char *m; /* warning message */ ! 18: { ! 19: if (PGN != NULL && *PGN != '\0') ! 20: fprintf(stderr, "%s: ", PGN); ! 21: fprintf(stderr, "%s\n", m); ! 22: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.