version 1.11, 1996/07/16 20:57:10
|
version 1.13, 1996/09/30 13:16:11
|
Line 22
|
Line 22
|
char [char] @ - ; |
char [char] @ - ; |
:noname |
:noname |
char [char] @ - postpone Literal ; |
char [char] @ - postpone Literal ; |
special: ctrl ( "<char>" -- ctrl-code ) |
interpret/compile: ctrl ( "<char>" -- ctrl-code ) |
|
|
\ command line editing 16oct94py |
\ command line editing 16oct94py |
|
|
Line 56 special: ctrl ( "<char>" -- ctrl-code )
|
Line 56 special: ctrl ( "<char>" -- ctrl-code )
|
|
|
\ history support 16oct94py |
\ history support 16oct94py |
|
|
0 Value history |
0 Value history \ history file fid |
|
|
2Variable forward^ |
2Variable forward^ |
2Variable backward^ |
2Variable backward^ |
2Variable end^ |
2Variable end^ |
|
|
: force-open ( addr len -- handle ) |
: force-open ( addr len -- fid ) |
2dup r/w open-file 0< |
2dup r/w open-file 0< |
IF drop r/w create-file throw ELSE nip nip THEN ; |
IF drop r/w create-file throw ELSE nip nip THEN ; |
|
|