[Win32forth-cvs] win32forth/src/lib SUB_DIRS.F,1.9,1.10

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv9245

Modified Files:
	SUB_DIRS.F 
Log Message:
Jos, Added sub_dir_access for more flexibility. 
An application can now decide what right should be used.

Index: SUB_DIRS.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/SUB_DIRS.F,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** SUB_DIRS.F	11 Jul 2010 02:34:01 -0000	1.9
--- SUB_DIRS.F	9 Sep 2011 11:16:09 -0000	1.10
***************
*** 11,14 ****
--- 11,18 ----
  \ July 4th, 2003 - 17:28 Changed for use in WinEd 2.21.00 - dbu
  
+ \ September 9th, 2011 Added sub_dir_access.
+ \ Using FILE_READ_ATTRIBUTES in it is faster and can be used when you do not need to open a file.
+ \ R/O is needed for the IDE or WinEd
+ 
  IN-APPLICATION
  
***************
*** 31,34 ****
--- 35,39 ----
  
  2variable mask-source
+ R/O value sub_dir_access
  
  : next-mask"    ( -- a1 n1 )            \ get the next path from dir list
***************
*** 47,51 ****
          name-buf +place                 \ append filename
          open-file?
!         if      name-buf count r/o open-file 0=     \ open the file
                  IF      to search-hndl              \ store file handle
                          process-1file               \ process it
--- 52,56 ----
          name-buf +place                 \ append filename
          open-file?
!         if      name-buf count sub_dir_access open-file 0=     \ open the file
                  IF      to search-hndl              \ store file handle
                          process-1file               \ process it