Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102/clib/fwrite.c

@@ -0,0 +1,35 @@
+/**************************************************************************
+*
+*			f w r i t e   F u n c t i o n
+*			-----------------------------
+*	Copyright 1982 by Digital Research Inc.  All rights reserved.
+*
+*	"fwrite" writes NI items of size SZ from memory at BUFF into stream
+*	SP.
+*
+*	Calling sequence:
+*		nitems = fwrite(buff,size,nitems,stream)
+*	Where:
+*		buff -> where to write from
+*		size = number bytes in each item
+*		nitems = number bytes written/to write
+*		stream -> file
+*
+*	nitems is set to 0 if an error occurs (including EOF).
+*
+*****************************************************************************/
+#include <stdio.h>
+WORD fwrite(buff,sz,ni,sp)
+REG	BYTE *buff;
+	WORD sz,
+	     ni;
+REG	FILE *sp;
+{
+REG	WORD jj, kk;
+
+	for( jj=0; jj<ni; jj++ )
+	    for( kk=0; kk<sz; kk++ )
+		if( fputc(*buff++,sp) == FAILURE ) /* used for side effects */
+		    return(ZERO);
+	return(ni);
+}