b311480e |
1 | -- Created on: 1992-06-22 |
2 | -- Created by: Gilles DEBARBOUILLE |
3 | -- Copyright (c) 1992-1999 Matra Datavision |
973c2be1 |
4 | -- Copyright (c) 1999-2014 OPEN CASCADE SAS |
b311480e |
5 | -- |
973c2be1 |
6 | -- This file is part of Open CASCADE Technology software library. |
b311480e |
7 | -- |
d5f74e42 |
8 | -- This library is free software; you can redistribute it and/or modify it under |
9 | -- the terms of the GNU Lesser General Public License version 2.1 as published |
973c2be1 |
10 | -- by the Free Software Foundation, with special exception defined in the file |
11 | -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT |
12 | -- distribution for complete text of the license and disclaimer of any warranty. |
b311480e |
13 | -- |
973c2be1 |
14 | -- Alternatively, this file may be used under the terms of Open CASCADE |
15 | -- commercial license or contractual agreement. |
7fd59977 |
16 | |
17 | deferred class FuzzyDefinitionsDictionary from Dynamic |
18 | |
19 | inherits |
20 | |
21 | TShared from MMgt |
22 | |
23 | ---Purpose: This class groups in a dictionary all of the |
24 | -- various definitions of an object. It also allows |
25 | -- the sharing of the same definition by more than |
26 | -- one FuzzyInstance to preserve a global coherence |
27 | -- and also to manage the memory. To use this class |
28 | -- an inheritance is necessary with perhaps the |
29 | -- overload of the Switch method if the parameter |
30 | -- types are not of the type BooleanParameter, |
31 | -- IntegerParameter, RealParameter and |
32 | -- StringParameter. |
33 | |
34 | uses |
35 | |
36 | OStream from Standard, |
37 | Integer from Standard, |
38 | Boolean from Standard, |
39 | CString from Standard, |
40 | HAsciiString from TCollection, |
41 | Parameter from Dynamic, |
42 | SequenceOfFuzzyDefinitions from Dynamic, |
43 | FuzzyClass from Dynamic |
44 | |
45 | is |
46 | |
47 | Initialize; |
48 | |
49 | ---Level: Internal |
50 | |
51 | ---Purpose: Deferred constructor of the class. |
52 | |
53 | Creates(me : mutable ; afilename : CString from Standard) |
54 | |
55 | ---Level: Internal |
56 | |
57 | ---Purpose: Starting with a file named <afilename>, fills the |
58 | -- dictionary with all the wishes definitions. |
59 | |
60 | is static; |
61 | |
62 | Switch(me ; aname , atype , avalue : CString from Standard) |
63 | |
64 | ---Level: Internal |
65 | |
66 | ---Purpose: This virtual method allows the user to add recognition |
67 | -- of its own parameters when reading the file to fill |
68 | -- the dictionary. |
69 | |
70 | returns Parameter from Dynamic |
71 | |
72 | is virtual; |
73 | |
74 | Definition(me ; atype : CString from Standard |
75 | ; adefinition : out FuzzyClass from Dynamic) returns Boolean from Standard |
76 | |
77 | ---Level: Public |
78 | |
79 | ---Purpose: Returns from the dictionary in the out variable |
80 | -- <adefinition> a reference to the right instance of the |
81 | -- definition identified by its type <atype>. The method |
82 | -- returns true if the definition exist, false otherwise. |
83 | |
84 | is static; |
85 | |
86 | UpToDate(me) returns Boolean from Standard |
87 | |
88 | ---Level: Advanced |
89 | |
90 | ---Purpose: Returns true if there has been no modification of the |
91 | -- file fuzzyclasses.dat since the creation of the |
92 | -- dictionary object, false otherwise. |
93 | |
94 | is static; |
95 | |
96 | NumberOfDefinitions(me) returns Integer from Standard |
97 | |
98 | ---Level: Public |
99 | |
100 | ---Purpose: Returns the number of definitions stored in the |
101 | -- dictionary. |
102 | |
103 | is static; |
104 | |
105 | Definition(me ; anindex : Integer from Standard) returns any FuzzyClass from Dynamic |
106 | |
107 | ---Level: Public |
108 | |
109 | ---Purpose: Returns a reference on the definition identified by |
110 | -- the index <anidex>. |
111 | |
112 | is static; |
113 | |
114 | Dump(me ; astream : in out OStream from Standard) |
115 | |
116 | ---Level: Internal |
117 | |
118 | ---Purpose: Useful for debugging. |
119 | |
120 | is static; |
121 | |
122 | fields |
123 | |
124 | thefilename : HAsciiString from TCollection; |
6c3e4c29 |
125 | thetime : Time from Standard; |
126 | thesequenceoffuzzydefinitions : SequenceOfFuzzyDefinitions from Dynamic; |
7fd59977 |
127 | |
128 | end FuzzyDefinitionsDictionary; |