Upload

Digital Research

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

@@ -0,0 +1,25 @@
+/**************************************************************************
+*
+*			f g e t c   F u n c t i o n
+*			---------------------------
+*	Copyright 1982 by Digital Research Inc.  All rights reserved.
+*
+*	Function "fgetc" does the yanking of a char out of the stream.
+*
+*	Calling sequence:
+*		ch = fgetc(s)
+*	Where:
+*		ch = a (WORD) character (-1 on EOF)
+*		s -> a stream file (FILE *)
+*
+*****************************************************************************/
+#include <stdio.h>
+WORD fgetc(s)					/****************************/
+REG	FILE *s;				/* stream pointer	    */
+{						/****************************/
+	EXTERN WORD _filbuf();			/* use this when we run shrt*/
+	if( --s->_cnt >= 0 )			/* any chars left in buf?   */
+	    return(((WORD) *s->_ptr++) & 0377);	/* return & advance ptr ifso*/
+	else					/*			    */
+	    return( _filbuf(s) );		/* o.w. whatever happens    */
+}						/****************************/