[Win32forth-cvs] win32forth/src paths.f,1.26,1.27

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

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv29586/win32forth/src

Modified Files:
	paths.f 
Log Message:
gah:Corrected full-path to use the local path instead of the global search-path

Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** paths.f	25 Sep 2006 11:44:34 -0000	1.26
--- paths.f	23 Nov 2006 10:53:16 -0000	1.27
***************
*** 90,98 ****
  \ ** Use win32forth\src\Compat\OldPaths.f for the old functionality. \n
  \ ** Words like first-path" and next-path" are now able to handle
! \ ** each path separate without saving and restoring a path-ptr.
  
  path: search-path
  \ *G search-path defines the path buffer for Forth.\n Applications that let Forth
! \ ** compile should not change it in a way that Forth is not able too compile.
  
  : next-path"    ( path -- a1 n1  )
--- 90,98 ----
  \ ** Use win32forth\src\Compat\OldPaths.f for the old functionality. \n
  \ ** Words like first-path" and next-path" are now able to handle
! \ ** each path separately without saving and restoring a path-ptr.
  
  path: search-path
  \ *G search-path defines the path buffer for Forth.\n Applications that let Forth
! \ ** compile should not change it in a way that Forth is not able to compile.
  
  : next-path"    ( path -- a1 n1  )
***************
*** 172,176 ****
                  MAX_PATH 1+ LocalAlloc: current$
                  current-dir$ count current$ place current$ +null \ save current dir
!                 search-path first-path"
                  begin   dup>r searchpath$ place searchpath$ +null
                          searchpath$  volume-indication?   \ Test for another volume
--- 172,176 ----
                  MAX_PATH 1+ LocalAlloc: current$
                  current-dir$ count current$ place current$ +null \ save current dir
!                 path first-path"
                  begin   dup>r searchpath$ place searchpath$ +null
                          searchpath$  volume-indication?   \ Test for another volume
***************
*** 192,196 ****
                          then
                          r>
!                 while   searchpath$ off search-path next-path"
                  repeat  a1 n1 path-file$ place path-file$ count true   \ return input file and error flag
                  current$ char+ $current-dir! not abort" $current-dir!" \ restore current dir
--- 192,196 ----
                          then
                          r>
!                 while   searchpath$ off path next-path"
                  repeat  a1 n1 path-file$ place path-file$ count true   \ return input file and error flag
                  current$ char+ $current-dir! not abort" $current-dir!" \ restore current dir