static char sccsid
[] = "@(#)input.c 4.1 %G%";
return(c
==EOR ORF c
==';');
PER lastc
==SP ORF lastc
==TB
REP eof
= read(infile
,lp
,1)==0;
IF mkfault THEN
error(0); FI
PER eof
==0 ANDF
*lp
++!=EOR DONE
IF lastc
= peekc THEN peekc
=0;
ELIF lastc
= *lp THEN lp
++;
fptr
=deformat
; quote
=FALSE
;
WHILE (quote
? readchar()!=EOR
: !eol(readchar()))
DO
IF (*fptr
++ = lastc
)=='"'
IF fptr
!=deformat THEN
*fptr
++ = '\0'; FI