ack/lang/cem/libcc/stdio/fprintf.c
1988-04-25 16:17:29 +00:00

21 lines
295 B
C

/* $Header$ */
#include <stdio.h>
#include <varargs.h>
fprintf(va_alist)
va_dcl
{
va_list ap;
va_start(ap);
{
FILE *file = va_arg(ap, FILE *);
char *fmt = va_arg(ap, char *);
_doprnt (fmt, ap, file);
if ( io_testflag(file,IO_PERPRINTF) )
fflush(file);
}
va_end(ap);
}