Update of /cvsroot/win32forth/win32forth/src/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31416
Modified Files:
tools.f
Log Message:
allow using tools when current directory isn't where forth was built
Index: tools.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/tools.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** tools.f 20 Dec 2005 18:02:03 -0000 1.2
--- tools.f 8 Apr 2006 19:40:38 -0000 1.3
***************
*** 9,17 ****
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
--- 9,19 ----
INTERNAL
EXTERNAL \ externally available definitions start here
! create forthbase ," \program files\win32forth"
! : sysabspath ( a1 n1 -- a2 n2)
! forthbase count MakeAbsolutePath count ;
defer class-browser
:noname ( -- ) \ load the class and vocabulary browser
turnkeyed? 0=
! \in-system-ok IF s" src\Tools\ClassBrowser.f" sysabspath INCLUDED
then ; is class-browser
***************
*** 19,23 ****
:noname ( -- ) \ load the help-system
turnkeyed? 0=
! \in-system-ok IF s" Tools/HelpSystem.f" INCLUDED
THEN ; is help-system
--- 21,25 ----
:noname ( -- ) \ load the help-system
turnkeyed? 0=
! \in-system-ok IF s" src\Tools\HelpSystem.f" sysabspath INCLUDED
THEN ; is help-system
***************
*** 25,29 ****
:noname ( -- ) \ load the xref tool
turnkeyed? 0=
! \in-system-ok IF >system s" Tools/xref.f" INCLUDED system>
THEN ; is xref
--- 27,31 ----
:noname ( -- ) \ load the xref tool
turnkeyed? 0=
! \in-system-ok IF >system s" src\Tools\xref.f" sysabspath INCLUDED system>
THEN ; is xref
***************
*** 31,35 ****
:noname ( -- ) \ load the DexH tool
turnkeyed? 0=
! \in-system-ok IF >system s" Tools/w32fdexh.f" INCLUDED system>
THEN ; is dexh
--- 33,37 ----
:noname ( -- ) \ load the DexH tool
turnkeyed? 0=
! \in-system-ok IF >system s" src\Tools\w32fdexh.f" sysabspath INCLUDED system>
THEN ; is dexh
|
