1 // Copyright (c) 1998-1999 Matra Datavision
2 // Copyright (c) 1999-2014 OPEN CASCADE SAS
4 // This file is part of Open CASCADE Technology software library.
6 // This library is free software; you can redistribute it and/or modify it under
7 // the terms of the GNU Lesser General Public License version 2.1 as published
8 // by the Free Software Foundation, with special exception defined in the file
9 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
10 // distribution for complete text of the license and disclaimer of any warranty.
12 // Alternatively, this file may be used under the terms of Open CASCADE
13 // commercial license or contractual agreement.
18 #include <OSD_File.hxx>
19 #include <OSD_FileIterator.hxx>
20 #include <OSD_OSDError.hxx>
21 #include <OSD_Path.hxx>
22 #include <OSD_WhoAmI.hxx>
23 #include <TCollection_AsciiString.hxx>
28 #include <sys/types.h>
29 # define NAMLEN(dirent) strlen((dirent)->d_name)
31 extern char *vmsify PARAMS ((char *name, int type));
34 /* In GNU systems, <dirent.h> defines this macro for us. */
37 # define NAMLEN(d) _D_NAMLEN(d)
40 #if (defined (POSIX) || defined (VMS) || defined (WINDOWS32)) && !defined (__GNU_LIBRARY__)
41 /* Posix does not require that the d_ino field be present, and some
42 systems do not provide it. */
43 # define REAL_DIR_ENTRY(dp) 1
44 # define FAKE_DIR_ENTRY(dp)
46 # define REAL_DIR_ENTRY(dp) (dp->d_ino != 0)
47 # define FAKE_DIR_ENTRY(dp) (dp->d_ino = 1)
50 //const OSD_WhoAmI Iam = OSD_WFileIterator;
53 OSD_FileIterator::OSD_FileIterator()
61 OSD_FileIterator::OSD_FileIterator(const OSD_Path& where,
62 const TCollection_AsciiString& Mask)
68 Initialize(where, Mask) ;
71 // For Windows NT compatibility
72 void OSD_FileIterator :: Destroy () {}
74 void OSD_FileIterator::Initialize(const OSD_Path& where,
75 const TCollection_AsciiString& Mask){
76 myFlag = Standard_False;
77 where.SystemName(myPlace);
78 if (myPlace.Length()==0) myPlace = ".";
81 closedir((DIR *)myDescr) ;
87 // Is there another file entry ?
89 Standard_Boolean OSD_FileIterator::More(){
92 myDescr = (Standard_Address) opendir(myPlace.ToCString());
93 if (myDescr) { // LD : Si repertoire inaccessible retourner False
94 myFlag = Standard_True;
96 Next(); // Now find first entry
102 // Private : See if file name matches with a mask (like "*.c")
104 static int strcmp_joker(const char *Mask,const char *Name)
108 for(p = Mask,s = Name ; *p && *p != '*' ; p++,s++)
109 if (*p != *s) return 0 ;
111 if (!*p) return !(*s) ;
112 while (*p == '*') p++ ;
115 if (strcmp_joker(p,s)) return 1 ;
120 // LD : ancienne version.
126 static int strcmp_joker(char *fileMask,char *fileName)
128 char *sauve_fileMask,*sauve_fileName;
130 int beginning = 1; // 0 if first character is a joker, otherwise 1
132 while (*fileName) { // Test end of AsciiString
134 if (*fileMask == NO_MASK) {
137 while(*fileMask == NO_MASK) fileMask++;
141 *fileName != *fileMask)
144 sauve_fileMask = fileMask; // Save strings
145 sauve_fileName = fileName;
147 else return(0); // fileMask ends with a joker
150 else { // Compare two characters
151 compare_result = *fileMask++ - *fileName++;
153 if (compare_result != 0)
155 return (compare_result); /* 1ere chaine pas de joker au debut */
156 else { // Look ahead for same string
157 fileMask = sauve_fileMask;
158 fileName = ++sauve_fileName;
160 *fileName != *fileMask)
162 sauve_fileName = fileName;
169 while(*fileMask == NO_MASK) fileMask++;
170 return(*fileMask - *fileName);
174 // Find next file entry in current directory
176 void OSD_FileIterator::Next(){
178 struct stat stat_buf;
179 myFlag = false; // Initialize to nothing found
182 myEntry = readdir((DIR *)myDescr);
184 if (!myEntry){ // No file found
185 myEntry = NULL; // Keep pointer clean
186 myFlag = Standard_False; // No more files/directory
187 closedir((DIR *)myDescr) ; // so close directory
192 if (!strcmp(((struct dirent *)myEntry)->d_name,".")) continue;
193 if (!strcmp(((struct dirent *)myEntry)->d_name,"..")) continue;
196 const TCollection_AsciiString aFullName = myPlace + "/" + ((struct dirent* )myEntry)->d_name;
197 stat(aFullName.ToCString(), &stat_buf);
198 if (S_ISREG(stat_buf.st_mode)) // LD : Ensure me it's a regular file
199 if (strcmp_joker(myMask.ToCString(), ((struct dirent *)myEntry)->d_name)){
200 // Does it follow mask ?
201 myFlag = Standard_True;
210 // Get Name of selected file
212 OSD_File OSD_FileIterator::Values(){
214 TCollection_AsciiString Name;
215 TCollection_AsciiString Ext;
216 Standard_Integer position;
218 if (myEntry) Name = ((struct dirent *)myEntry)->d_name ;
220 position = Name.Search(".");
224 Ext.Remove(1,position-1);
225 Name.Remove( position,Ext.Length());
228 thisvalue.SetValues("", "", "", "", "", Name,Ext);
229 TheIterator.SetPath (thisvalue);
231 return (TheIterator);
235 void OSD_FileIterator::Reset(){
239 Standard_Boolean OSD_FileIterator::Failed()const{
240 return( myError.Failed());
243 void OSD_FileIterator::Perror() {
248 Standard_Integer OSD_FileIterator::Error()const{
249 return( myError.Error());
254 //------------------------------------------------------------------------
255 //------------------- Windows NT sources for OSD_FileIterator -----------
256 //------------------------------------------------------------------------
261 #include <OSD_File.hxx>
262 #include <OSD_FileIterator.hxx>
263 #include <OSD_OSDError.hxx>
264 #include <OSD_Path.hxx>
265 #include <TCollection_AsciiString.hxx>
266 #include <TCollection_ExtendedString.hxx>
268 #define _FD ( ( PWIN32_FIND_DATAW )myData )
270 void _osd_wnt_set_error ( OSD_Error&, OSD_WhoAmI, ... );
272 OSD_FileIterator :: OSD_FileIterator (
273 const OSD_Path& where,
274 const TCollection_AsciiString& Mask
277 myFlag = Standard_False;
278 myHandle = INVALID_HANDLE_VALUE;
280 where.SystemName ( myPlace );
282 if ( myPlace.Length () == 0 ) myPlace = ".";
289 void OSD_FileIterator :: Destroy () {
291 if ( myData != NULL ) HeapFree ( GetProcessHeap (), 0, myData );
293 if ( myHandle != INVALID_HANDLE_VALUE )
295 FindClose ( ( HANDLE )myHandle );
297 } // end OSD_DirectoryIterator :: Destroy
299 Standard_Boolean OSD_FileIterator :: More () {
301 if ( myHandle == INVALID_HANDLE_VALUE ) {
303 TCollection_AsciiString wc = myPlace + "/" + myMask;
306 GetProcessHeap (), HEAP_GENERATE_EXCEPTIONS, sizeof ( WIN32_FIND_DATAW )
309 // make wchar_t string from UTF-8
310 TCollection_ExtendedString wcW(wc);
311 myHandle = FindFirstFileExW (wcW.ToWideString(), FindExInfoStandard, (PWIN32_FIND_DATAW)myData, FindExSearchNameMatch, NULL, 0);
313 if ( myHandle == INVALID_HANDLE_VALUE )
315 _osd_wnt_set_error ( myError, OSD_WDirectoryIterator );
319 myFlag = Standard_True;
320 myFirstCall = Standard_True;
326 } else if ( !myFlag ) {
328 FindClose ( ( HANDLE )myHandle );
329 myHandle = INVALID_HANDLE_VALUE;
335 } // end OSD_FileIterator :: More
337 void OSD_FileIterator :: Next () {
339 if ( ! myFirstCall || ( _FD -> dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY ) ) {
343 if ( !FindNextFileW ( ( HANDLE )myHandle, _FD ) ) {
345 myFlag = Standard_False;
351 } while ( ( _FD -> dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY ) );
355 myFirstCall = Standard_False;
357 } // end OSD_FileIterator :: Next
359 OSD_File OSD_FileIterator :: Values () {
362 TCollection_AsciiString aFileName
363 (TCollection_ExtendedString( (Standard_ExtString) _FD -> cFileName) );
364 TheIterator.SetPath ( OSD_Path ( aFileName ) );
368 } // end OSD_FileIterator :: Values
370 Standard_Boolean OSD_FileIterator :: Failed () const {
372 return myError.Failed ();
374 } // end OSD_FileIterator :: Failed
376 void OSD_FileIterator :: Reset () {
380 } // end OSD_FileIterator :: Reset
382 void OSD_FileIterator :: Perror () {
386 } // end OSD_FileIterator :: Perror
388 Standard_Integer OSD_FileIterator :: Error () const {
390 return myError.Error ();
392 } // end OSD_FileIterator :: Error
394 // For compatibility with UNIX version
395 OSD_FileIterator::OSD_FileIterator() {}
397 void OSD_FileIterator::Initialize(
399 const TCollection_AsciiString&){}