Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8301/win32forth/src/console
Modified Files:
Console2.f LINEEDIT.F
Log Message:
gah:Added ACTION-OF (per F200X) and made DEFER@ a (temporary) deprecated synonym. Replaced defer@ by action-of (accept in 486asm). Added DEFER!. Support for extension queries (partial) added to environment.f
Index: Console2.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/Console2.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Console2.f 13 May 2006 20:32:07 -0000 1.5
--- Console2.f 28 Sep 2006 10:16:48 -0000 1.6
***************
*** 197,201 ****
\ ------------------------------------------------------------------------------
! defer@ accept value defaultAccept
: _basic-forth-io ( -- ) \ reset to Forth IO words
--- 197,201 ----
\ ------------------------------------------------------------------------------
! action-of accept value defaultAccept
: _basic-forth-io ( -- ) \ reset to Forth IO words
Index: LINEEDIT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/LINEEDIT.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** LINEEDIT.F 24 Sep 2006 08:18:24 -0000 1.7
--- LINEEDIT.F 28 Sep 2006 10:16:48 -0000 1.8
***************
*** 372,377 ****
\ f1 = false for canceled with ESC
: lineeditor ( x y a1 n1 --- f1 ) \ Edit line in a1
! defer@ _le-quit >r ['] _lequit is _le-quit
! defer@ _le-LF >r ['] noop is _le-LF
0 to editpos
<ledit>
--- 372,377 ----
\ f1 = false for canceled with ESC
: lineeditor ( x y a1 n1 --- f1 ) \ Edit line in a1
! action-of _le-quit >r ['] _lequit is _le-quit
! action-of _le-LF >r ['] noop is _le-LF
0 to editpos
<ledit>
***************
*** 461,466 ****
: _laccept ( a1 n1 -- n2 ) \ line editor version of ACCEPT
! defer@ _le-up >r
! defer@ _le-down >r
['] __laccept catch \ -- f1
r> is _le-down \ restore these functions
--- 461,466 ----
: _laccept ( a1 n1 -- n2 ) \ line editor version of ACCEPT
! action-of _le-up >r
! action-of _le-down >r
['] __laccept catch \ -- f1
r> is _le-down \ restore these functions
|
