Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
kcc-4/lib/stdio/fwrite.c
There are 7 other files named fwrite.c in the archive. Click here to see a list.
/*
* FWRITE - binary write
*
* Copyright (C) 1986 by Ian Macky, SRI International
*/
#include "stdio.h"
int fwrite(ptr, size_of_ptr, count, f)
char *ptr;
unsigned size_of_ptr;
int count;
FILE *f;
{
int number_of_bytes;
if (!_writeable(f) || size_of_ptr < 1 || count < 1)
return 0;
else {
number_of_bytes = count * size_of_ptr;
while (number_of_bytes--)
putc(*ptr++, f);
return count;
}
}