blob: 6591b601d52d95a82480e987e5c047549de7d66e (
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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
-- File: Dynamic_DynamicInstance.cdl
-- Created: Fri Jan 22 11:41:34 1993
-- Author: Gilles DEBARBOUILLE
-- <gde@bravox>
---Copyright: Matra Datavision 1993
class DynamicInstance from Dynamic
inherits
TShared from MMgt
---Purpose: A dynamic instance is a reference to the dynamic
-- class and a sequence of parameters which is the
-- complete listing of all the parameters of all the
-- inherited classes.
uses
CString from Standard,
Integer from Standard,
Real from Standard,
DynamicClass from Dynamic,
Parameter from Dynamic,
ParameterNode from Dynamic
is
Create returns mutable DynamicInstance from Dynamic;
---Level: Internal
---Purpose: Creates an empty instance of this class.
Parameter(me : mutable ; aparameter : any Parameter from Dynamic)
---Level: Internal
---Purpose: Adds <aparameter> to the sequence of parameters of
-- <me>.
is static;
Parameter(me ; aninstance : mutable DynamicInstance from Dynamic)
---Level: Internal
---Purpose: Adds all the parameters of <me>, to the sequence of
-- parameters of <aninstance>.
is static;
Parameter(me ; aparameter : CString from Standard; avalue : Integer from Standard)
---Level: Public
---Purpose: Puts the integer value <avalue> into the parameter
-- object identified by the string <aparameter>.
is static;
Parameter(me ; aparameter : CString from Standard ; avalue : Real from Standard)
---Level: Public
---Purpose: Puts the real value <avalue> into the parameter
-- object identified by the string <aparameter>.
is static;
Parameter(me ; aparameter : CString from Standard; avalue : CString from Standard)
---Level: Public
---Purpose: Puts the string <avalue> into the parameter
-- object identified by the string <aparameter>.
is static;
Parameter(me ; aparameter : CString from Standard; avalue : any DynamicInstance from Dynamic)
---Level: Public
---Purpose: Puts the dynamic instance <avalue> into the parameter
-- object identified by the string <aparameter>.
is static;
Parameter(me ; aparameter : CString from Standard) returns any Parameter from Dynamic
---Level: Public
---Purpose: Searches and returns the parameter object identified
-- by the string <aparameter>.
is static;
Class(me : mutable ; aclass : any DynamicClass from Dynamic)
---Level: Internal
---Purpose: Sets the reference of the class.
is static;
Execute(me ; amethod : CString from Standard)
---Level: Public
---Purpose: Calls the method identified by the string <amethod>.
is static;
fields
thedynamicclass : DynamicClass from Dynamic;
thefirstparameternode : ParameterNode from Dynamic;
end ;
|
