version 1.58, 2000/08/22 18:15:38
|
version 1.59, 2000/09/09 20:32:58
|
Line 1646 wior = FILEIO(u2<u1 && ferror((FILE *)wf
|
Line 1646 wior = FILEIO(u2<u1 && ferror((FILE *)wf
|
if (wior) |
if (wior) |
clearerr((FILE *)wfileid); |
clearerr((FILE *)wfileid); |
|
|
read-line ( c_addr u1 wfileid -- u2 flag wior ) file read_line |
(read-line) ( c_addr u1 wfileid -- u2 flag wior u3 ) file read_line |
#if 1 |
#if 1 |
Cell c; |
Cell c; |
flag=-1; |
flag=-1; |
|
u3=0; |
for(u2=0; u2<u1; u2++) |
for(u2=0; u2<u1; u2++) |
{ |
{ |
c = getc((FILE *)wfileid); |
c = getc((FILE *)wfileid); |
|
u3++; |
if (c=='\n') break; |
if (c=='\n') break; |
if (c=='\r') { |
if (c=='\r') { |
if ((c = getc((FILE *)wfileid))!='\n') |
if ((c = getc((FILE *)wfileid))!='\n') |
ungetc(c,(FILE *)wfileid); |
ungetc(c,(FILE *)wfileid); |
|
else |
|
u3++; |
break; |
break; |
} |
} |
if (c==EOF) { |
if (c==EOF) { |