ack/lang/cem/libcc/stdio/fwrite.c
1994-06-24 14:02:31 +00:00

25 lines
344 B
C

/* $Id$ */
#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);
}