Upload

Digital Research

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

@@ -0,0 +1,48 @@
+/***********************************************************************
+*
+*			f g e t s   F u n c t i o n
+*			---------------------------
+*	Copyright 1982 by Digital Research Inc.  All rights reserved.
+*
+*	"fgets" reads a string from a stream file (up to n-1 chars), and 
+*	returns pointer s (NULLPTR on end of file).  The newline at the
+*	end of line is included, NOT replaced, and the string is terminated
+*	by a NULL.
+*
+*	Calling sequence:
+*		addr = fgets(saddr,n,stream)
+*	Where:
+*		saddr -> where the string is to go (no bounds check)
+*		n     = max # chars (inc. NULL) for saddr (assumed > 0)
+*		stream-> where to get from
+*		addr  = saddr if all ok, NULLPTR o.w.
+*
+*****************************************************************************/
+
+#include "stdio.h"
+
+BYTE *	fgets(str,maxc,sp)			/* CLEAR FUNCTION ***********/
+REG	BYTE *str;				/* string save area	    */
+REG	WORD maxc;				/* max size of string	    */
+REG	FILE *sp;				/* where to get from	    */
+{						/****************************/
+	REG WORD c;				/* char to test for eof	    */
+	REG BYTE *sav;				/* sav pointer for return   */
+	sav = str;				/* remember this	    */
+	while( --maxc > 0  &&			/* while there's still room */
+						/*   for getc and NULL	    */
+		(c=getc(sp)) != FAILURE )	/*   and read_char ok	    */
+	{					/*			    */
+	    *str++ = c;				/*   store it		    */
+	    if( c == '\n' )			/*   if end of line	    */
+		break;				/*     stop the presses	    */
+	}					/*			    */
+	*str = NULL;				/* clean up string	    */
+	if(c == FAILURE)			/* if not cool		    */
+	    	return(NULLPTR);		/*   then tell them so	    */
+	return(sav);				/* tell them is cool	    */
+}						/****************************/
+* tell them is cool	    */
+}						/****************************/
+* tell them is cool	    */
+}						/****************************/