version 1.16, 1998/12/08 22:02:49
|
version 1.17, 1998/12/11 22:54:27
|
Line 1369 n=1;
|
Line 1369 n=1;
|
: |
: |
1 ; |
1 ; |
|
|
\+os |
|
|
|
key-file wfileid -- n gforth paren_key_file |
key-file wfileid -- n gforth paren_key_file |
|
#ifdef HAS_FILE |
fflush(stdout); |
fflush(stdout); |
n = key((FILE*)wfileid); |
n = key((FILE*)wfileid); |
|
#else |
|
n = key(stdin); |
|
#endif |
|
|
key?-file wfileid -- n facility key_q_file |
key?-file wfileid -- n facility key_q_file |
|
#ifdef HAS_FILE |
fflush(stdout); |
fflush(stdout); |
n = key_query((FILE*)wfileid); |
n = key_query((FILE*)wfileid); |
|
#else |
|
n = key_query(stdin); |
|
#endif |
|
|
|
\+os |
|
|
stdin -- wfileid gforth |
stdin -- wfileid gforth |
wfileid = (Cell)stdin; |
wfileid = (Cell)stdin; |
Line 1596 write-file c_addr u1 wfileid -- wior fil
|
Line 1604 write-file c_addr u1 wfileid -- wior fil
|
clearerr((FILE *)wfileid); |
clearerr((FILE *)wfileid); |
} |
} |
|
|
|
\+ |
|
|
emit-file c wfileid -- wior gforth emit_file |
emit-file c wfileid -- wior gforth emit_file |
|
#ifdef HAS_FILE |
wior = FILEIO(putc(c, (FILE *)wfileid)==EOF); |
wior = FILEIO(putc(c, (FILE *)wfileid)==EOF); |
if (wior) |
if (wior) |
clearerr((FILE *)wfileid); |
clearerr((FILE *)wfileid); |
|
#else |
|
putc(c, stdout); |
|
#endif |
|
|
\+ |
|
\+file |
\+file |
|
|
flush-file wfileid -- wior file-ext flush_file |
flush-file wfileid -- wior file-ext flush_file |
Line 2073 UP=up=(char *)a_addr;
|
Line 2086 UP=up=(char *)a_addr;
|
: |
: |
up ! ; |
up ! ; |
Variable UP |
Variable UP |
|
|