Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17341
Modified Files:
Dc.f Debug.f Primutil.f REGISTRY.F
Log Message:
Rod: removed some unnecessary deferred I/O words for the new console
Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** Primutil.f 18 Aug 2008 10:59:55 -0000 1.30
--- Primutil.f 19 Aug 2008 12:47:52 -0000 1.31
***************
*** 627,631 ****
new-chain unload-chain \ chain of things to de-initialize
new-chain forth-io-chain \ chain of things to to to restore forth-io
! new-chain ledit-chain \ line editor function key chain
new-chain reset-stack-chain \ chain for stack reset
--- 627,631 ----
new-chain unload-chain \ chain of things to de-initialize
new-chain forth-io-chain \ chain of things to to to restore forth-io
! \ new-chain ledit-chain \ line editor function key chain
new-chain reset-stack-chain \ chain for stack reset
Index: Dc.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** Dc.f 20 Apr 2008 13:46:22 -0000 1.15
--- Dc.f 19 Aug 2008 12:47:52 -0000 1.16
***************
*** 1427,1431 ****
: 4print ( -- )
four-page fprint single-page ;
!
80 value MAXCONCOLS
80 value conscols
--- 1427,1431 ----
: 4print ( -- )
four-page fprint single-page ;
! ((
80 value MAXCONCOLS
80 value conscols
***************
*** 1464,1468 ****
0 getrowoff rows +
#print-screen ;
!
INTERNAL
--- 1464,1468 ----
0 getrowoff rows +
#print-screen ;
! ))
INTERNAL
Index: Debug.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Debug.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** Debug.f 19 Aug 2008 03:55:24 -0000 1.18
--- Debug.f 19 Aug 2008 12:47:52 -0000 1.19
***************
*** 492,497 ****
normal-console
forth-io
! ['] x_key is key
! ['] x_key? is key?
16 to left-margin
-16 to indent
--- 492,497 ----
normal-console
forth-io
! \ ['] x_key is key
! \ ['] x_key? is key?
16 to left-margin
-16 to indent
***************
*** 501,506 ****
['] noop is cr
['] drop is ?cr
! ['] x_key is key
! ['] X_key? is key?
['] noop is cls
['] noop is page
--- 501,506 ----
['] noop is cr
['] drop is ?cr
! \ ['] x_key is key
! \ ['] X_key? is key?
['] noop is cls
['] noop is page
***************
*** 565,572 ****
then ." --> "
?dbg-cont \ are we doing continuous steps
! IF x_key? \ did user press a key
! IF _mkey drop \ then discard it
false to ?dbg-cont \ stop continuous
! _mkey upc \ and wait for next command
ELSE ip @ @
dup ['] UNNEST = \ if at UNNEST
--- 565,572 ----
then ." --> "
?dbg-cont \ are we doing continuous steps
! IF key? \ did user press a key
! IF key drop \ then discard it
false to ?dbg-cont \ stop continuous
! key upc \ and wait for next command
ELSE ip @ @
dup ['] UNNEST = \ if at UNNEST
***************
*** 575,583 ****
nip
IF false to ?dbg-cont \ stop continuous
! _mkey upc \ and wait for next command
ELSE 0x0D \ else just do an 'enter'
THEN
THEN
! ELSE _mkey upc \ not continuous, get a key
THEN
CASE
--- 575,583 ----
nip
IF false to ?dbg-cont \ stop continuous
! key upc \ and wait for next command
ELSE 0x0D \ else just do an 'enter'
THEN
THEN
! ELSE key upc \ not continuous, get a key
THEN
CASE
Index: REGISTRY.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/REGISTRY.F,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** REGISTRY.F 25 Sep 2005 06:17:54 -0000 1.8
--- REGISTRY.F 19 Aug 2008 12:47:52 -0000 1.9
***************
*** 202,206 ****
INTERNAL
!
:noname ( -- ) \ Write the current version into the registry.
\ Needed by the w32fConsole.dll to find the right
--- 202,206 ----
INTERNAL
! ((
:noname ( -- ) \ Write the current version into the registry.
\ Needed by the w32fConsole.dll to find the right
***************
*** 210,214 ****
RegSetString \ dadr dlen vadr vlen sadr slen
PROGREG-INIT ; is INIT-CONSOLE-REG
!
MODULE
--- 210,214 ----
RegSetString \ dadr dlen vadr vlen sadr slen
PROGREG-INIT ; is INIT-CONSOLE-REG
! ))
MODULE
|
