[Win32forth-cvs] win32forth/src paths.f,1.21,1.22

[George H. <geo...@us...>]

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