mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
26 lines
922 B
C
26 lines
922 B
C
/**************************************************************************
|
|
*
|
|
* 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 */
|
|
} /****************************/
|