[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.21,1.22

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31814/src/kernel

Modified Files:
	fkernel.f 
Log Message:
- Marked >BOLD , >NORM and set-font as depreacted (they don't work anyway)
- Marked SP>COL as depreacted (use COL instead)
- Removed >BOLD and >NORM from the files
- Removed the supporting code for WinEd's internal console window.
- Moved then code for communication between WinEd/SciEdit from Mapfile.f into EditorIO.f.
- Moved some code around in the files to minimize the file dependencices (there can more done...)
- Marked the xxx-pointer words in ScrnCtrl.f as depreacted (use the xxx-cursor words from utils.f) instead.

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** fkernel.f	19 Aug 2005 16:08:11 -0000	1.21
--- fkernel.f	29 Aug 2005 15:56:28 -0000	1.22
***************
*** 5624,5628 ****
                  ['] START/STOP CATCH ;
  
! : KWORDS        ( -- )
                  CR CONTEXT @
                  DUP VOC#THREADS >R
--- 5624,5628 ----
                  ['] START/STOP CATCH ;
  
! : KWORDS        ( -- ) \ simple version of words
                  CR CONTEXT @
                  DUP VOC#THREADS >R
***************
*** 5638,5664 ****
  IN-APPLICATION
  
- : +NO-WRAP      ( a1 n1 -- a2 ) \ add n1 to a1, limit to address 0xFFFFFFFF
-                                 \ don't allow wrap around to address zero
-                 0 TUCK D+ -1 0 DMIN DROP ;
- 
- IN-SYSTEM
- 
- DEFER DUMPC@ ' C@ IS DUMPC@ \ added as seen in Version 3.5 fkernel.f for
-                             \ cf32 port (Samstag, August 13 2005 dbu)
- 
- : DUMP          ( adr len -- )  ( hex byte format with ascii )
-                 OVER +NO-WRAP DUP ROT
-                 ?DO     CR I 8 h.R ."  | "
-                         I 16 +NO-WRAP OVER UMIN I
-                         2dup
-                         DO      I DUMPC@ H.2 space I J 7 + = IF SPACE THEN
-                         LOOP    2DUP -  16 OVER - 3 *  SWAP 8 < -  SPACES ." |"
-                         DO      I DUMPC@ EMIT.
-                         LOOP    ." |" NUF? ?LEAVE
-                         SCREENDELAY MS          \ slow down output
-             16 +LOOP    DROP    ;
- 
- IN-APPLICATION
- 
  #version# constant version#
  #build#   constant build#
--- 5638,5641 ----