Update of /cvsroot/win32forth/win32forth/src/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6784
Modified Files:
tools.f
Log Message:
use prepend<home>\ so tools can be used from outside build directory
Index: tools.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/tools.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** tools.f 8 Apr 2006 19:40:38 -0000 1.3
--- tools.f 11 Apr 2006 17:37:02 -0000 1.4
***************
*** 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
--- 9,16 ----
INTERNAL
EXTERNAL \ externally available definitions start here
defer class-browser
:noname ( -- ) \ load the class and vocabulary browser
turnkeyed? 0=
! \in-system-ok IF s" src\Tools\ClassBrowser.f" Prepend<home>\ INCLUDED
then ; is class-browser
***************
*** 21,25 ****
:noname ( -- ) \ load the help-system
turnkeyed? 0=
! \in-system-ok IF s" src\Tools\HelpSystem.f" sysabspath INCLUDED
THEN ; is help-system
--- 18,22 ----
:noname ( -- ) \ load the help-system
turnkeyed? 0=
! \in-system-ok IF s" src\Tools\HelpSystem.f" Prepend<home>\ INCLUDED
THEN ; is help-system
***************
*** 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
--- 24,28 ----
:noname ( -- ) \ load the xref tool
turnkeyed? 0=
! \in-system-ok IF >system s" src\Tools\xref.f" Prepend<home>\ INCLUDED system>
THEN ; is xref
***************
*** 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
--- 30,34 ----
:noname ( -- ) \ load the DexH tool
turnkeyed? 0=
! \in-system-ok IF >system s" src\Tools\w32fdexh.f" Prepend<home>\ INCLUDED system>
THEN ; is dexh
|
