Update of /cvsroot/win32forth/win32forth/src/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31814/src/tools
Added Files:
dump.f tools.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.
--- NEW FILE: dump.f ---
\ $Id: dump.f,v 1.1 2005/08/29 15:56:28 dbu_de Exp $
\ DUMP.f
\ Moved here from fkernel.f
\ Sonntag, August 28 2005 dbu
cr .( Loading HEX dump utility)
anew -dump.f
INTERNAL
EXTERNAL
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
MODULE
--- NEW FILE: tools.f ---
\ $Id: tools.f,v 1.1 2005/08/29 15:56:28 dbu_de Exp $
\ Tools.f
\ Moved here from ConsoleMenu.f
\ Sonntag, August 28 2005 dbu
anew -tools.f
INTERNAL
EXTERNAL \ externally available definitions start here
defer class-browser
:noname ( -- ) \ load the class and vocabulary browser
turnkeyed? 0=
\in-system-ok IF s" Tools/ClassBrowser.f" INCLUDED
then ; is class-browser
defer help-system
:noname ( -- ) \ load the help-system
turnkeyed? 0=
\in-system-ok IF s" Tools/HelpSystem.f" INCLUDED
THEN ; is help-system
defer xref
:noname ( -- ) \ load the xref tool
turnkeyed? 0=
\in-system-ok IF >system s" Tools/xref.f" INCLUDED system>
THEN ; is xref
MODULE
|
