Return to prim CVS log | Up to [gforth] / gforth |
version 1.11, 1998/10/07 18:29:38 | version 1.12, 1998/10/18 23:16:51 |
---|---|
Line 1371 n=1; | Line 1371 n=1; |
\+has? os [IF] | \+has? os [IF] |
(key) -- n gforth paren_key | key-file wfileid -- n gforth paren_key_file |
fflush(stdout); | fflush(stdout); |
/* !! noecho */ | n = key((FILE*)wfileid); |
n = key(); | |
key? -- n facility key_q | key?-file wfileid -- n facility key_q_file |
fflush(stdout); | fflush(stdout); |
n = key_query; | n = key_query((FILE*)wfileid); |
stdin -- wfileid gforth | |
wfileid = (Cell)stdin; | |
stdout -- wfileid gforth | stdout -- wfileid gforth |
wfileid = (Cell)stdout; | wfileid = (Cell)stdout; |