version 1.7, 2002/06/03 09:12:10
|
version 1.10, 2004/12/28 21:09:46
|
Line 1
|
Line 1
|
\ ekey etc. |
\ ekey etc. |
|
|
\ Copyright (C) 1999 Free Software Foundation, Inc. |
\ Copyright (C) 1999,2002,2003 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 |