| \ Input 13feb93py |
\ Input 13feb93py |
| |
|
| \ Copyright (C) 1995,1996,1997,1999,2003,2004,2005 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1999,2003,2004,2005,2006 Free Software Foundation, Inc. |
| |
|
| \ This file is part of Gforth. |
\ This file is part of Gforth. |
| |
|
| ' noop IS everyline |
' noop IS everyline |
| |
|
| : decode ( max span addr pos1 key -- max span addr pos2 flag ) |
: decode ( max span addr pos1 key -- max span addr pos2 flag ) |
| |
\ perform action corresponding to key; addr max is the buffer, |
| |
\ addr span is the current string in the buffer, and pos1 is the |
| |
\ cursor position in the buffer. |
| everychar |
everychar |
| dup -1 = IF drop 4 THEN \ -1 is EOF |
dup -1 = IF drop 4 THEN \ -1 is EOF |
| dup #del = IF drop #bs THEN \ del is rubout |
dup #del = IF drop #bs THEN \ del is rubout |
