[Win32forth-cvs] win32forth/src Primutil.f,1.42,1.43

[Rod O. <rod...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv18145

Modified Files:
	Primutil.f 
Log Message:
Rod: put some console words in-system and/or made internal.  More words could be put in-system to make turnkeys smaller.

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.42
retrieving revision 1.43
diff -C2 -d -r1.42 -r1.43
*** Primutil.f	17 Dec 2008 10:17:23 -0000	1.42
--- Primutil.f	19 Dec 2008 22:36:56 -0000	1.43
***************
*** 840,875 ****
                  ['] k_bye   IS bye ;
  
  : DosConsole    ( -- ) \ switch to DOS console functions
!                 ['] NOOP        IS CONSOLE
                  ['] d_Init-Console       IS INIT-CONSOLE
!                 ['] NOOP        IS INIT-SCREEN
!                 ['] d_KEY       IS KEY
!                 ['] d_KEY?      IS KEY?
!                 ['] d_ACCEPT    IS ACCEPT
!                 ['] DROP        IS PUSHKEY
!                 ['] 2DROP       IS "PUSHKEYS
!                 ['] NOOP        IS CLS
!                 ['] d_EMIT      IS EMIT
!                 ['] d_TYPE      IS TYPE
!                 ['] d_CR        IS CR
!                 ['] DROP        IS ?CR
!                 ['] 2DROP       IS GOTOXY
!                 ['] K_NOOP2     IS GETXY
!                 ['] 2DROP       IS FGBG!
!                 ['] K_NOOP1     IS FG@
!                 ['] K_NOOP1     IS BG@
!                 ['] 2DROP       IS SETCHARWH
!                 ['] K_NOOP2     IS CHARWH
!                 ['] DROP        IS SET-CURSOR
!                 ['] K_NOOP1     IS GET-CURSOR
!                 ['] K_NOOP2     IS GETCOLROW
!                 ['] K_NOOP1     IS GETROWOFF
!                 ['] K_NOOP1     IS &THE-SCREEN
                  \ reset BYE to default ( althought should have never changed)
                  ['] k_bye   IS bye ;
  
  \ defered i/o setting for various consoles
      : (NoConsoleBoot)       ( -- )  NoConsoleIO ;
! 
      : (DosConsoleBoot)      ( -- )  DosConsole init-console drop ;
  
--- 840,878 ----
                  ['] k_bye   IS bye ;
  
+ in-system
+ 
  : DosConsole    ( -- ) \ switch to DOS console functions
!                 ['] NOOP    IS CONSOLE
                  ['] d_Init-Console       IS INIT-CONSOLE
!                 ['] NOOP    IS INIT-SCREEN
!                 ['] d_KEY                IS KEY
!                 ['] d_KEY?               IS KEY?
!                 ['] d_ACCEPT             IS ACCEPT
!                 ['] DROP    IS PUSHKEY
!                 ['] 2DROP   IS "PUSHKEYS
!                 ['] NOOP    IS CLS
!                 ['] d_EMIT               IS EMIT
!                 ['] d_TYPE               IS TYPE
!                 ['] d_CR                 IS CR
!                 ['] DROP    IS ?CR
!                 ['] 2DROP   IS GOTOXY
!                 ['] K_NOOP2 IS GETXY
!                 ['] 2DROP   IS FGBG!
!                 ['] K_NOOP1 IS FG@
!                 ['] K_NOOP1 IS BG@
!                 ['] 2DROP   IS SETCHARWH
!                 ['] K_NOOP2 IS CHARWH
!                 ['] DROP    IS SET-CURSOR
!                 ['] K_NOOP1 IS GET-CURSOR
!                 ['] K_NOOP2 IS GETCOLROW
!                 ['] K_NOOP1 IS GETROWOFF
!                 ['] K_NOOP1 IS &THE-SCREEN
                  \ reset BYE to default ( althought should have never changed)
                  ['] k_bye   IS bye ;
  
+ in-application
  \ defered i/o setting for various consoles
      : (NoConsoleBoot)       ( -- )  NoConsoleIO ;
! in-system
      : (DosConsoleBoot)      ( -- )  DosConsole init-console drop ;