blob: a75654d850bd6975dce15737691d6b392348d7cf (
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
|
-- File: Dynamic_MethodDefinition.cdl
-- Created: Fri Jan 22 11:41:34 1993
-- Author: Gilles DEBARBOUILLE
-- <gde@bravox>
---Copyright: Matra Datavision 1993
deferred class MethodDefinition from Dynamic
inherits
Method from Dynamic
---Purpose: This inherited class is for describing the
-- definition of a method. This definition is
-- composed by its name which is readable by the type
-- function and a collection of variables which
-- defines the signature of the method definition in
-- term of arguments passed to the function and also
-- the useful internal or constant variables if the
-- function is a composite method. This class is also
-- a deferred class and can not be used directly
-- because it is necessary to specify if the method
-- is compiled, interpreted or composite.
uses
CString from Standard,
OStream from Standard,
HAsciiString from TCollection,
AsciiString from TCollection,
Parameter from Dynamic,
ModeEnum from Dynamic
is
Initialize(aname : CString from Standard);
---Level: Internal
---Purpose: Creates a MethodDefinition with <aname> as type.
Type(me) returns AsciiString from TCollection
---Level: Advanced
---Purpose: Returns the name of the method definition.
is redefined;
AddVariable(me : mutable ; aparameter : Parameter from Dynamic ;
amode : ModeEnum from Dynamic ;
agroup : Boolean = Standard_False)
---Level: Advanced
---Purpose: Adds a new variable created from the parameter
-- <aparameter>, which defines the name of the variable
-- its type and if necessary its default value, the mode
-- <amode> which precise if it is an in, out, inout,
-- internal or constant variable and the flag <agroup>
-- for accepting a set of homogeneous variables. with
-- the parameter value <aparameter>.
is static;
Dump(me ; astream : in out OStream from Standard)
---Level: Internal
---Purpose: Useful for debugging.
is redefined;
fields
thename : HAsciiString from TCollection;
end MethodDefinition;
|