[Win32forth-cvs] win32forth/src/tools dump.f,NONE,1.1 tools.f,NONE,1.1

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

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