1: /* $Header$ */ 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: 13: extern char *PGN; /* program name */ 14: 15: /* VARARGS1 */ 16: warn(fmt, args) 17: char *fmt; 18: { 19: if (*PGN != '\0') 20: fprintf(stderr, "%s: ", PGN); 21: _doprnt(fmt, &args, stderr); 22: putc('\n', stderr); 23: }