ack/lang/cem/libcc/stdio/fprintf.c

20 lines
295 B
C
Raw Normal View History

1987-03-31 10:45:53 +00:00
/* $Header$ */
1987-01-27 15:57:55 +00:00
#include <stdio.h>
1988-04-15 14:43:19 +00:00
#include <varargs.h>
1987-01-27 15:57:55 +00:00
1988-04-15 14:43:19 +00:00
fprintf(va_alist)
va_dcl
1987-01-27 15:57:55 +00:00
{
1988-04-15 14:43:19 +00:00
FILE *file;
char *fmt;
va_list ap;
va_start(ap);
file = va_arg(ap, FILE *);
fmt = va_arg(ap, char *);
_doprnt (fmt, ap, file);
1987-01-27 15:57:55 +00:00
if ( io_testflag(file,IO_PERPRINTF) )
fflush(file);
1988-04-15 14:43:19 +00:00
va_end(ap);
1987-01-27 15:57:55 +00:00
}