Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv29030/src
Modified Files:
paths.f
Log Message:
Jos:The Old version aborted at non existing directory's is a path. This version skips non existig directory's in a path and continues with the next directory. There were no problems with WinEd SciEd SciEditMdi. And no new problems with Win32ForthIde.
Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** paths.f 20 Jul 2006 19:39:20 -0000 1.14
--- paths.f 22 Jul 2006 16:54:58 -0000 1.15
***************
*** 155,172 ****
begin dup>r searchpath$ place searchpath$ +null
searchpath$ 2 + c@ ascii : = \ Test for another volume
! if searchpath$ char+
! $current-dir! not abort" $current-dir!" \ set current dir to the search path
! then
! 0 \ file component
! path-file$ \ found file name buffer
! max-path \ size of buffer
! defextz$ \ file extension
! filename$ \ file name
! searchpath$ char+ \ search path
! call SearchPath
! 0<> if path-file$ zcount false \ path not found
! current$ char+ $current-dir!
! not abort" $current-dir!" \ restore current dir
! r>drop exit \ clear the retun stack and exit
then
r>
--- 155,173 ----
begin dup>r searchpath$ place searchpath$ +null
searchpath$ 2 + c@ ascii : = \ Test for another volume
! if searchpath$ char+ $current-dir! \ 0 fails, then try next
! else true
! then
! if 0 \ file component
! path-file$ \ found file name buffer
! max-path \ size of buffer
! defextz$ \ file extension
! filename$ \ file name
! searchpath$ char+ \ search path
! call SearchPath
! 0<> if path-file$ zcount false \ path found
! current$ char+ $current-dir!
! not abort" $current-dir!" \ restore current dir
! r>drop exit \ clear the retun stack and exit
! then
then
r>
***************
*** 356,358 ****
then ;
! MODULE
--- 357,359 ----
then ;
! MODULE
|
