| version 1.11, Wed Oct 7 18:29:38 1998 UTC | version 1.12, Sun Oct 18 23:16:51 1998 UTC | ||
|---|---|---|---|
|
|
||
| \+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; |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |