ack/lang/cem/libcc/stdio/fwrite.c
1987-03-31 10:45:53 +00:00

25 lines
348 B
C

/* $Header$ */
#include <stdio.h>
fwrite(ptr, size, count, file)
unsigned size, count;
register char *ptr;
register FILE *file;
{
unsigned s;
unsigned ndone = 0;
if (size)
while ( ndone < count ) {
s = size;
do {
putc(*ptr++, file);
if (ferror(file))
return(ndone);
}
while (--s);
ndone++;
}
return(ndone);
}