[Win32forth-cvs] win32forth-stc/src/console CONSOLE.F,1.1,1.2

[Alex M. <ale...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7404/src/console

Modified Files:
	CONSOLE.F 
Log Message:
arm: remove caps-xxx functions to ansfile
optimise case statements
reorder kernel source (minor)

Index: CONSOLE.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/console/CONSOLE.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** CONSOLE.F	23 Sep 2006 10:18:34 -0000	1.1
--- CONSOLE.F	13 May 2007 21:39:26 -0000	1.2
***************
*** 10,13 ****
--- 10,33 ----
  cr .( Loading... Console I/O Part 1)
  
+ 
+ library w32fconsole.dll
+ 1 proc k_fpushkey
+ 0 proc c_sizestate
+ 4 proc c_mark
+ 
+ : x_sizestate   ( -- state )     call c_sizestate ;
+ 
+ : x_markconsole ( startline startcol endline endcol -- )
+                 call c_mark drop ;
+ 
+ defer pushkey      ' drop    is pushkey
+ defer "pushkeys    ' 2drop   is "pushkeys
+ defer shiftmask    ' k_noop1 is shiftmask
+ defer sizestate    ' x_sizestate    is sizestate
+ defer markconsole  ' x_markconsole  is markconsole
+ defer &the-screen  ' k_noop1 is &the-screen
+ defer charwh       ' k_noop2 is charwh
+ defer setcharwh    ' 2drop   is setcharwh
+ 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \       get console window handle