Files
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

49 lines
1.8 KiB
C
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/***********************************************************************
*
* 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 */
} /****************************/