From: Rod O. <rod...@us...> - 2008-08-19 12:47:56
|
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 |