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 ----
|
