blob: 915970f55737f52724c96f2c0549f06bac581dd1 (
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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
-- File: Draw_Interpretor.cdl
-- Created: Thu Feb 23 16:59:40 1995
-- Author: Remi LEQUETTE
-- <rle@bravox>
---Copyright: Matra Datavision 1995
class Interpretor from Draw
---Purpose: Provides an encapsulation of the TCL interpretor
-- to define Draw commands.
uses
PInterp from Draw,
CommandFunction from Draw,
AsciiString from TCollection,
ExtendedString from TCollection
is
Create returns Interpretor from Draw;
Init(me : in out);
Add(me : in out; Command : CString;
Help : CString;
Function : CommandFunction from Draw;
Group : CString = "User Commands");
---Purpose: Creates a new command with name <Command>, help
-- string <Help> in group <Group>.
-- <Function> implement the function.
Add(me : in out; Command : CString;
Help : CString;
FileName : CString ;
Function : CommandFunction from Draw;
Group : CString = "User Commands");
---Purpose: Creates a new command with name <Command>, help
-- string <Help> in group <Group>. <Function>
-- implement the function.
-- <FileName> is the name of the file that contains
-- the implementation of the command
--
Remove(me : in out; Command : CString)
returns Boolean;
---Purpose: Removes <Command>, returns true if success (the
-- command existed).
--
-- The result
--
Result(me) returns CString;
Reset(me : in out);
---Purpose: Resets the result to empty string
Append(me : in out; Result : CString) returns Interpretor from Draw;
---Purpose: Appends to the result
---C++: return &
---C++: alias operator<<
Append(me : in out; Result : AsciiString from TCollection)
returns Interpretor from Draw;
---Purpose: Appends to the result
---C++: return &
---C++: alias operator<<
Append(me : in out; Result : ExtendedString from TCollection)
returns Interpretor from Draw;
---Purpose: Appends to the result
---C++: return &
---C++: alias operator<<
Append(me : in out; Result : Integer) returns Interpretor from Draw;
---Purpose: Appends to the result
---C++: return &
---C++: alias operator<<
Append(me : in out; Result : Real) returns Interpretor from Draw;
---Purpose: Appends to the result
---C++: return &
---C++: alias operator<<
Append(me : in out; Result : SStream) returns Interpretor from Draw;
---Purpose: Appends to the result
---C++: return &
---C++: alias operator<<
AppendElement(me : in out; Result : CString);
---Purpose: Appends to the result the string as a list element
--
-- Interpetation
--
Eval(me : in out; Script : CString)
returns Integer;
---Purpose: Eval the script and returns OK = 0, ERROR = 1
RecordAndEval(me : in out; Script : CString; Flags : Integer = 0)
returns Integer;
---Purpose: Eval the script and returns OK = 0, ERROR = 1
-- Store the script in the history record.
EvalFile(me : in out; FileName : CString)
returns Integer;
---Purpose: Eval the content on the file and returns status
Complete(myclass; Script : CString) returns Boolean;
---Purpose: Returns True if the script is complete, no pending
-- closing braces. (})
Destroy(me : in out);
---C++: alias ~
--
-- Access to Tcl_Interp
--
Create(anInterp : PInterp from Draw)
returns Interpretor from Draw;
Set(me : in out; anInterp : PInterp from Draw);
Interp (me) returns PInterp from Draw;
fields
isAllocated : Boolean from Standard;
myInterp : PInterp from Draw;
end Interpretor;
|
