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