| read-file ( c_addr u1 wfileid -- u2 wior ) file read_file |
read-file ( c_addr u1 wfileid -- u2 wior ) file read_file |
| /* !! fread does not guarantee enough */ |
/* !! fread does not guarantee enough */ |
| u2 = fread(c_addr, sizeof(Char), u1, (FILE *)wfileid); |
u2 = fread(c_addr, sizeof(Char), u1, (FILE *)wfileid); |
| |
if (u2>0) |
| |
gf_regetc((FILE *)wfileid); |
| wior = FILEIO(u2<u1 && ferror((FILE *)wfileid)); |
wior = FILEIO(u2<u1 && ferror((FILE *)wfileid)); |
| /* !! is the value of ferror errno-compatible? */ |
/* !! is the value of ferror errno-compatible? */ |
| if (wior) |
if (wior) |
| clearerr((FILE *)wfileid); |
clearerr((FILE *)wfileid); |
| |
|
| (read-line) ( c_addr u1 wfileid -- u2 flag u3 wior ) file paren_read_line |
(read-line) ( c_addr u1 wfileid -- u2 flag u3 wior ) file paren_read_line |
| struct Cellquad r = read_line(c_addr, u1, wfileid); |
struct Cellquad r = read_line(c_addr, u1, (FILE *)wfileid); |
| u2 = r.n1; |
u2 = r.n1; |
| flag = r.n2; |
flag = r.n2; |
| u3 = r.n3; |
u3 = r.n3; |
