[Win32forth-cvs] win32forth/src paths.f,1.14,1.15

[Jos v.d.V. <jo...@us...>]

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