blob: 42c93b43192650c6d0013f69d8128b918b97be14 (
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
|
-- File: Materials_MaterialsDictionary.cdl
-- Created: Mon Jan 18 10:55:43 1993
-- Author: Gilles DEBARBOUILLE
-- <gde@bravox>
---Copyright: Matra Datavision 1993
class MaterialsDictionary from Materials
---Purpose: This class creates a dictionary of materials.
inherits
Transient
uses
OStream from Standard,
HAsciiString from TCollection,
MaterialsSequence from Materials,
Material from Materials
raises
NoSuchObject from Standard
is
Create returns mutable MaterialsDictionary from Materials;
---Level: Internal
---Purpose: Returns a MaterialsDictionary object which contains
-- the sequence of all the materials the user wants to
-- consider.
Material(me ; amaterial : CString from Standard) returns Material from Materials
raises NoSuchObject from Standard
---Level: Internal
---Purpose: Retrieves from the dictionary the object material with
-- <amaterial> as name. If <amaterial> does not exist in
-- the dictionary an exeption is raised.
is static;
ExistMaterial(me ; aName : CString from Standard) returns Boolean from Standard;
---Purpose: True if the materialofname aName exists ...
NumberOfMaterials(me) returns Integer from Standard
---Level: Internal
---Purpose: Returns the number of materials previously stored in
-- the dictionary.
is static;
Material(me ; anindex : Integer from Standard) returns Material from Materials
---Level: Internal
---Purpose: This method used with the previous one, allow the
-- exploration of all the dictionary. It returns a
-- Material instance.
is static;
UpToDate(me) returns Boolean from Standard
---Level: Internal
---Purpose: Returns true if there has been no modification of the
-- file Materials.dat since the creation of the dictionary
-- object, false otherwise.
is static;
Dump(me ; astream : in out OStream from Standard )
---Level: Internal
---Purpose: Useful for debugging.
is static;
fields
thefilename : HAsciiString from TCollection;
thetime : Time from Standard;
thematerialssequence : MaterialsSequence from Materials;
end MaterialsDictionary;
|