blob: 42429241cf1370dbc442d9532604cb8120ca6eb6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
--Copyright: Matra Datavision 1992,1993
-- File: OSD_DirectoryIterator.cdl
-- Created: May 18 1992
-- Author: Stephan GARNAUD
-- <sga@sparc4>
-- Updated: J.P. TIRAULT August 1993
-- All methods are static methods.
class DirectoryIterator from OSD
---Purpose: Manages a breadth-only search for sub-directories in the specified
-- Path.
-- There is no specific order of results.
uses Directory, Path, Error, AsciiString from TCollection
raises OSDError
is
Create returns DirectoryIterator ;
---WARNING! : This method is not implemented on Windows NT System
---Purpose: Instantiates Object as empty Iterator;
---Level: Public
Create (where : Path ; Mask : AsciiString) returns DirectoryIterator;
---Purpose: Instantiates Object as Iterator.
-- Wild-card "*" can be used in Mask the same way it
-- is used by unix shell for file names
---Level: Public
Destroy ( me : out );
---C++: alias ~
-- Only implemented on Windows NT
Initialize (me : in out ; where : Path ; Mask : AsciiString) is static;
---WARNING! : This method is not implemented on Windows NT System
---Purpose: Initializes the current File Directory
---Level: Public
More (me : in out) returns Boolean is static;
---Purpose: Returns TRUE if other items are found while
-- using the 'Tree' method.
---Level: Public
Next (me : in out) is static;
---Purpose: Sets the iterator to the next item.
-- Returns the item value corresponding to the current
-- position of the iterator.
---Level: Public
Values (me : in out) returns Directory is static;
---Purpose: Returns the next item found .
---Level: Public
Failed (me) returns Boolean is static;
---Purpose: Returns TRUE if an error occurs
---Level: Public
Reset (me : in out) is static;
---Purpose: Resets error counter to zero
---Level: Public
Perror (me : in out)
---Purpose: Raises OSD_Error
---Level: Public
raises OSDError is static;
Error (me) returns Integer is static;
---Purpose: Returns error number if 'Failed' is TRUE.
---Level: Public
fields
TheIterator : Directory; -- The iterator item
myFlag : Integer;
myMask : AsciiString;
myPlace : AsciiString;
myDescr : Address ; -- unused by Windows NT code
myEntry : Address ; -- unused by Windows NT code
myInit : Integer ; -- unused by Windows NT code
myError : Error;
myHandle : Integer; -- Windows NT specific
myData : Address; -- Windows NT specific
myFirstCall : Boolean; -- Windows NT specific
end DirectoryIterator from OSD;
|