d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Tests for EOF returned by stdio routines need the full int width.

Browse source
This commit is contained in:
keie 1985-01-21 23:53:41 +00:00
parent 682e5d9b8a
commit d4a597912f
1 changed files with 14 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lang/basic/lib/read.c
View file

@ -6,14 +6,14 @@
_readln()
{
char c;
register int c;
while( (c=fgetc(_chanrd)) != EOF && c!= '\n')
;
}
readskip()
{
char c;
register int c;
#ifdef DEBUG
printf("readskip\n");
#endif
@ -73,6 +73,7 @@ _readstr(s)
String **s;
{
char buffer[1024];
register int kar ;
char *c;
#ifdef DEBUG
@ -80,17 +81,18 @@ String **s;
#endif
_asschn();
c= buffer;
*c= fgetc(_chanrd);
while(isspace(*c) && *c!= EOF)
*c= fgetc(_chanrd);
if( *c== '"')
kar= fgetc(_chanrd);
while(isspace(kar) && kar!= EOF)
kar= fgetc(_chanrd);
*c=kar ;
if( kar== '"')
{
/* read quoted string */
#ifdef DEBUG
printf("qouted string\n");
#endif
while( (*c= fgetc(_chanrd)) != '"' && *c!= EOF ) c++;
ungetc(*c,_chanrd);
while ( (kar= fgetc(_chanrd)) != EOF && kar!='"' ) *c++ = kar ;
ungetc(kar,_chanrd);
*c=0;
}else
if( isalpha(*c))
@ -100,10 +102,10 @@ String **s;
#ifdef DEBUG
printf("non-qouted string\n");
#endif
while( (*c= fgetc(_chanrd)) != ',' && *c!= EOF &&
!isspace(*c) && *c!='\n')
c++;
ungetc(*c,_chanrd);
while( (kar= fgetc(_chanrd)) != ',' && kar!= EOF &&
!isspace(kar) && kar!='\n')
*c++= kar ;
ungetc(kar,_chanrd);
*c=0;
}else{
if( ferror(_chanrd)) error(29);