char id_fgetc[] = "@(#)fgetc_.c 1.4";
* get a character from a logical unit bypassing formatted I/O
* ierror = fgetc (unit, char)
* char will return a character from logical unit
* ierror will be 0 if successful; a system error code otherwise.
#include "../libI77/fiodefs.h"
#include "../libI77/f_errno.h"
extern unit units
[]; /* logical units table from iolib */
long *u
; char *c
; long clen
;
if (*u
< 0 || *u
>= MXUNIT
)
return((long)(errno
=F_ERUNIT
));
return((long)(errno
=F_ERNOPEN
));
if (lu
->uwrt
&& ! nowreading(lu
))
if ((i
= getc (lu
->ufd
)) < 0)