Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/6/FREAD.C

@@ -0,0 +1,52 @@
+/**************************************************************************
+*
+*			f r e a d   F u n c t i o n
+*			---------------------------
+*	Copyright 1982 by Digital Research Inc.  All rights reserved.
+*
+*	"fread" reads NI items of size SZ from stream SP and deposits them
+*	at BUFF.
+*
+*	Calling sequence:
+*		rval = fread(buff,size,nitems,stream)
+*	Where:
+*		buff -> where to read to
+*		size = number bytes in each item
+*		nitems = number bytes read/to read
+*		stream -> file
+*
+*		rval = number items successfully read
+*
+*	Edits:
+*	8-Feb-84 whf	return nitems actually read for EOF.
+*
+*****************************************************************************/
+
+#include "stdio.h"
+
+WORD	fread(buff,siz,num,sp)			/* CLEAR FUNCTION ***********/
+REG	BYTE *buff;
+	WORD siz,
+	     num;
+REG	FILE *sp;
+{
+REG	WORD jj, kk, ch;
+
+
+	for( jj=0; jj<num; jj++ )
+	    for( kk=0; kk<siz; kk++ )
+	    {
+		if( (ch = getc(sp)) == FAILURE )
+		    return(jj);			/* # items successfully read */
+		else *buff++ = ch;
+	    }
+	return(num);
+}
+*buff++ = ch;
+	    }
+	return(num);
+}
+*buff++ = ch;
+	    }
+	return(num);
+}