home *** CD-ROM | disk | FTP | other *** search
- #include <varargs.h>
- #include <stdio.h>
-
- extern char *myname();
- extern void format();
-
- extern FILE *outfp;
-
- static
- int
- warning_putc(c)
- int c;
- {
- putc(c, outfp);
- }
-
- /*
- * "warning(printf_like_format, printf_like_arg, ...);"
- */
- void
- warning(va_alist)
- va_dcl
- {
- register char *cp;
- va_list ap;
-
- fprintf(outfp, "%s: warning: ", myname());
- va_start(ap);
- format(warning_putc, &ap);
- va_end(ap);
- fprintf(outfp, ".\n");
- }
-