Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/clib/fputc.c

@@ -0,0 +1,28 @@
+/*****************************************************************************
+*
+*			f p u t c   F u n c t i o n
+*			---------------------------
+*	Copyright 1982 by Digital Research Inc.  All rights reserved.
+*
+*	"fputc" does the inserting of a char into a stream buffer,
+*	calling _flsbuf when the buffer fills up.
+*	Returns the character put, or FAILURE (-1) if any errors.
+*
+*	Calling sequence:
+*		ret=fputc(ch,s)
+*	Where:
+*		ch = the char to put
+*		s -> the stream (FILE *)
+*		ret= ch or FAILURE
+*
+*****************************************************************************/
+#include <stdio.h>
+WORD fputc(ch,s)				/*			    */
+REG	BYTE ch;				/* char to put		    */
+REG	FILE *s;				/* stream to put it to	    */
+{						/****************************/
+	if( --(s->_cnt) >= 0 )			/* if there's room in buf   */
+		return(((WORD)(*s->_ptr++ = ch)) & 0377);/*   put it!	    */
+	else	return(_flsbuf(ch,s));		/* o.w. flush & put	    */
+						/****************************/
+}