Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/clib/fputn.c

@@ -0,0 +1,42 @@
+/************************************************************************
+*
+*			f p u t n   F u n c t i o n
+*			---------------------------
+*	Copyright 1983 by Digital Research Inc.  All rights reserved.
+*
+*	'fputn()' writes 'n' chars to a buffered file.  It optimizes
+*	for 'non-buffered' (_IONBUF) output.
+*
+*	Calling sequence:
+*		rv = fputn(cp,n,stream)
+*	Where:
+*		cp -> chars to be put
+*		n  =  num chars to be put
+*		stream -> where its going (FILE *)
+*		rv = SUCCESS if write ok, FAILURE (-1 WORD) o.w.
+*
+*****************************************************************************/
+
+#include "stdio.h"
+
+WORD	fputn(buf,num,sp)			/* CLEAR FUNCTION ***********/
+REG	BYTE *buf;				/* chars to be written	    */
+REG	WORD num;				/* num chars to be written  */
+REG	FILE *sp;				/* stream to write to	    */
+{						/****************************/
+	if( sp->_flag & _IONBUF )		/* Non-buffered file?	    */
+	{					/*			    */
+		sp->_cnt = 0;			/* Always force to zero	    */
+		if(num!=write(sp->_fd,buf,num))	/* try to write		    */
+		{				/*  no good		    */
+			sp->_flag |= _IOERR;	/* mark this file	    */
+			return FAILURE;		/* and complain		    */
+		}				/*			    */
+		return SUCCESS;			/*			    */
+	}					/****************************/
+						/*			    */
+	while(num--)				/* Buffered output	    */
+		if( FAILURE==fputc(*buf++,sp))	/* try to put in buf	    */
+			return FAILURE;		/*  no good		    */
+	return SUCCESS;				/* everything a-ok	    */
+}						/****************************/