Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23088/win32forth/src
Modified Files:
paths.f
Log Message:
gah:Removed conditional code (since NEW$ now works properly). plus minor doc changes
Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** paths.f 3 Aug 2006 12:26:24 -0000 1.21
--- paths.f 4 Aug 2006 09:52:10 -0000 1.22
***************
*** 1,3 ****
! \ $Id$ Ed_FileStack.f
\ *D doc\
--- 1,3 ----
! \ $Id$
\ *D doc\
***************
*** 80,84 ****
: path-source ( path-ptr - 2variable_path-source )
\ *G Path-source points to a substring in a path. \n
! \ ** Path-source returns this adres.
2 cells- ;
--- 80,84 ----
: path-source ( path-ptr - 2variable_path-source )
\ *G Path-source points to a substring in a path. \n
! \ ** Path-source returns this adress.
2 cells- ;
***************
*** 122,127 ****
then r>drop ;
! : "fpath+ ( a1 n1 path-ptr -- )
! \ *G Append a directory to a path.
path-ptr "path+ ;
--- 122,127 ----
then r>drop ;
! : "fpath+ ( a1 n1 -- )
! \ *G Append a directory to the Forth path.
path-ptr "path+ ;
***************
*** 193,200 ****
: program-path-init ( -- )
! \ *G Initialize the Forth directory search path list.
path-ptr off \ clear path list
! [ winver win98 = ] [if] s" ."
! [else] s" %CURRENTDIR%" [then] "fpath+
s" %FORTHDIR%" "fpath+
s" %APPDIR%" "fpath+
--- 193,200 ----
: program-path-init ( -- )
! \ *G Initialize the Forth directory search path list. Automatically done at program
! \ *G initialization and when Paths.f is loaded.
path-ptr off \ clear path list
! s" %CURRENTDIR%" "fpath+
s" %FORTHDIR%" "fpath+
s" %APPDIR%" "fpath+
***************
*** 202,206 ****
s" src" "fpath+
s" src\lib" "fpath+
! \ s" src\tools" "fpath+ \ this is causing problems when compiling the IDE...
s" src\gdi" "fpath+ \ GDI class library
s" src\res" "fpath+
--- 202,206 ----
s" src" "fpath+
s" src\lib" "fpath+
! \ s" src\tools" "fpath+ \ this is causing problems when compiling the IDE...
s" src\gdi" "fpath+ \ GDI class library
s" src\res" "fpath+
***************
*** 274,278 ****
: FindRelativePath ( a1 n1 path-ptr - a2 n2 )
! \ *G Returns a releative path for file a1 n1 in path-ptr ( first part ). \n
\ ** n2=0 means not in search path.
dup>r reset-path-source
--- 274,278 ----
: FindRelativePath ( a1 n1 path-ptr - a2 n2 )
! \ *G Returns a relative path for file a1 n1 in path-ptr ( first part ). \n
\ ** n2=0 means not in search path.
dup>r reset-path-source
***************
*** 355,358 ****
--- 355,361 ----
then r>drop ;
+ synonym Require needs
+ \ *G Forth 200X name for needs.
+
in-application
***************
*** 362,366 ****
: "file-clip" { adr len limit \ temp$ pre -- 'adr 'len }
\ *G Clip filename to limit.
! MAX-PATH LocalAlloc: temp$
limit 20 max to limit \ must be at east 16
limit 20 - 2 / 6 + to pre \ balance start and end
--- 365,369 ----
: "file-clip" { adr len limit \ temp$ pre -- 'adr 'len }
\ *G Clip filename to limit.
! new$ to temp$ \ so string isn't de-allocated on exit
limit 20 max to limit \ must be at east 16
limit 20 - 2 / 6 + to pre \ balance start and end
|
