|
version 1.8, 2003/03/09 15:16:47
|
version 1.11, 2004/12/31 13:23:57
|
|
Line 1
|
Line 1
|
| \ ekey etc. |
\ ekey etc. |
| |
|
| \ Copyright (C) 1999,2002 Free Software Foundation, Inc. |
\ Copyright (C) 1999,2002,2003,2004 Free Software Foundation, Inc. |
| |
|
| \ This file is part of Gforth. |
\ This file is part of Gforth. |
| |
|
|
Line 117 table constant esc-sequences \ and prefi
|
Line 117 table constant esc-sequences \ and prefi
|
| create ekey-buffer 8 chars allot |
create ekey-buffer 8 chars allot |
| 2variable ekey-buffered |
2variable ekey-buffered |
| |
|
| 27 constant #esc |
[IFUNDEF] #esc 27 Constant #esc [THEN] |
| |
|
| : esc-prefix ( -- u ) |
: esc-prefix ( -- u ) |
| key? if |
key? if |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ekey.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth