work/bootstrap/gec17.c
EIF_CHARACTER_8 eif_file_lh(FILE *f) {
	int c;

	errno = 0;
	c = getc(f);
	if (c == EOF && ferror(f))
		eise_io("FILE: error when reading a character ahead.");

	if (c != EOF && EOF == ungetc(c, f))
		eise_io("FILE: error when reading a character ahead.");

	return (EIF_CHARACTER_8) (c == EOF ? (char) 0 : (char) c);
}
/*
 * Look ahead one character. If EOF, return 0.
 */
Look ahead one character. If EOF, return 0.
Look ahead one character . If EOF return 0 .
EIF_CHARACTER_8 eif_file_lh(FILE *f) {
	int c;
	errno = 0;
	c = getc(f);
	if (c == EOF && ferror(f))
		eise_io("FILE: error when reading a character ahead.");
	if (c != EOF && EOF == ungetc(c, f))
		eise_io("FILE: error when reading a character ahead.");
	return (EIF_CHARACTER_8) (c == EOF ? (char) 0 : (char) c);
}
EIF_CHARACTER_8 eif_file_lh ( FILE * f ) { int c ; errno = 0 ; c = getc ( f ) ; if ( c == EOF && ferror ( f ) ) eise_io ( " " ) ; if ( c != EOF && EOF == ungetc ( c , f ) ) eise_io ( " " ) ; return ( EIF_CHARACTER_8 ) ( c == EOF ? ( char ) 0 : ( char ) c ) ; }
Look ahead one character.
Look ahead one character .