blob: 7bca617436ada92e8c167e9c059a680d17c07aae (
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
|
-- File: TFunction_Function.cdl
-- Created: Thu Jun 10 19:25:22 1999
-- Author: Vladislav ROMASHKO
-- <vro@flox.nnov.matra-dtv.fr>
---Copyright: Matra Datavision 1999
class Function from TFunction inherits Attribute from TDF
---Purpose: Provides the following two services
-- - a link to an evaluation driver
-- - the means of providing a link between a
-- function and an evaluation driver.
uses
GUID from Standard,
OStream from Standard,
Attribute from TDF,
RelocationTable from TDF,
DataSet from TDF,
Label from TDF
is
---Purpose: Static methods:
-- ==============
Set (myclass; L : Label from TDF)
---Purpose: Finds or Creates a function attribute on the label <L>.
-- Returns the function attribute.
returns Function from TFunction;
Set(myclass; L : Label from TDF;
DriverID : GUID from Standard)
---Purpose: Finds or Creates a function attribute on the label <L>.
-- Sets a driver ID to the function.
-- Returns the function attribute.
returns Function from TFunction;
GetID(myclass)
---Purpose: Returns the GUID for functions.
---C++: return const &
returns GUID from Standard;
--Find(myclass; L : Label from TDF;
-- F : out Function from TFunction)
---Purpose: Returns a function found on the label.
--returns Boolean from Standard;
---Purpose: Instance methods:
-- ================
Create returns mutable Function from TFunction;
GetDriverGUID (me)
---Purpose: Returns the GUID for this function's driver.
---C++: inline
---C++: return const &
returns GUID from Standard;
SetDriverGUID(me : mutable; guid : GUID from Standard);
---Purpose: Sets the driver for this function as that
-- indentified by the GUID guid.
Failed (me)
---Purpose: Returns true if the execution failed
---C++: inline
returns Boolean from Standard;
SetFailure (me : mutable; mode : Integer from Standard = 0);
---Purpose: Sets the failed index.
GetFailure (me)
---Purpose:
-- Returns an index of failure if the execution of this function failed.
-- If this integer value is 0, no failure has occurred.
---C++: inline
returns Integer from Standard;
---Purpose: Implementation of Attribute methods:
-- ===================================
ID (me)
---C++: return const &
returns GUID from Standard;
Restore (me: mutable; with : Attribute from TDF)
is virtual;
Paste (me; into : mutable Attribute from TDF;
RT : mutable RelocationTable from TDF)
is virtual;
NewEmpty(me)
returns mutable Attribute from TDF
is redefined;
References(me;
aDataSet : DataSet from TDF)
is redefined;
Dump(me; anOS : in out OStream from Standard)
returns OStream from Standard
is redefined;
---C++: return &
fields
myDriverGUID : GUID from Standard;
myFailure : Integer from Standard;
end Function;
|
