Subversion Repositories tendra.SVN

Rev

Rev 2 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 7
Line 35... Line 35...
35
#ifndef CMD_OPS_H_INCLUDED
35
#ifndef CMD_OPS_H_INCLUDED
36
#define CMD_OPS_H_INCLUDED
36
#define CMD_OPS_H_INCLUDED
37
 
37
 
38
/* Operations for union COMMAND */
38
/* Operations for union COMMAND */
39
 
39
 
40
#pragma token PROC ( EXP : COMMAND : ) EXP : unsigned : TAG_cmd #
40
#pragma token PROC(EXP : COMMAND :) EXP : unsigned : TAG_cmd #
41
#pragma interface TAG_cmd
41
#pragma interface TAG_cmd
42
 
42
 
43
 
43
 
44
/* Operations for component line of union COMMAND */
44
/* Operations for component line of union COMMAND */
45
 
45
 
46
#pragma token PROC ( EXP : COMMAND : )\
46
#pragma token PROC(EXP : COMMAND :)\
47
    EXP : PTR ( int ) : cmd_line #
47
    EXP : PTR(int) : cmd_line #
48
#pragma interface cmd_line
48
#pragma interface cmd_line
49
 
49
 
50
/* Operations for field simple of union COMMAND */
50
/* Operations for field simple of union COMMAND */
51
 
51
 
52
#pragma token EXP const : unsigned : cmd_simple_tag #
52
#pragma token EXP const : unsigned : cmd_simple_tag #
53
#pragma token PROC ( EXP : COMMAND : ) EXP : int : IS_cmd_simple #
53
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_simple #
54
#pragma interface cmd_simple_tag IS_cmd_simple
54
#pragma interface cmd_simple_tag IS_cmd_simple
55
 
55
 
56
#pragma token PROC ( EXP : COMMAND : )\
56
#pragma token PROC(EXP : COMMAND :)\
57
    EXP : PTR ( string ) : cmd_simple_text #
57
    EXP : PTR(string) : cmd_simple_text #
58
#pragma interface cmd_simple_text
58
#pragma interface cmd_simple_text
59
 
59
 
60
#pragma token PROC (\
60
#pragma token PROC(\
61
	EXP : int :,\
61
	EXP : int :,\
62
	EXP : string :,\
62
	EXP : string :,\
63
	EXP lvalue : COMMAND :\
63
	EXP lvalue : COMMAND :\
64
    ) STATEMENT MAKE_cmd_simple #
64
    ) STATEMENT MAKE_cmd_simple #
65
#pragma interface MAKE_cmd_simple
65
#pragma interface MAKE_cmd_simple
66
 
66
 
67
#pragma token PROC (\
67
#pragma token PROC(\
68
	EXP lvalue : int :,\
68
	EXP lvalue : int :,\
69
	EXP lvalue : string :,\
69
	EXP lvalue : string :,\
70
	EXP : COMMAND :\
70
	EXP : COMMAND :\
71
    ) STATEMENT DECONS_cmd_simple #
71
    ) STATEMENT DECONS_cmd_simple #
72
#pragma interface DECONS_cmd_simple
72
#pragma interface DECONS_cmd_simple
73
 
73
 
74
#pragma token PROC (\
74
#pragma token PROC(\
75
	EXP : DESTROYER :,\
75
	EXP : DESTROYER :,\
76
	EXP lvalue : int :,\
76
	EXP lvalue : int :,\
77
	EXP lvalue : string :,\
77
	EXP lvalue : string :,\
78
	EXP : COMMAND :\
78
	EXP : COMMAND :\
79
    ) STATEMENT DESTROY_cmd_simple #
79
    ) STATEMENT DESTROY_cmd_simple #
Line 81... Line 81...
81
 
81
 
82
 
82
 
83
/* Operations for field compound of union COMMAND */
83
/* Operations for field compound of union COMMAND */
84
 
84
 
85
#pragma token EXP const : unsigned : cmd_compound_tag #
85
#pragma token EXP const : unsigned : cmd_compound_tag #
86
#pragma token PROC ( EXP : COMMAND : ) EXP : int : IS_cmd_compound #
86
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_compound #
87
#pragma interface cmd_compound_tag IS_cmd_compound
87
#pragma interface cmd_compound_tag IS_cmd_compound
88
 
88
 
89
#pragma token PROC ( EXP : COMMAND : )\
89
#pragma token PROC(EXP : COMMAND :)\
90
    EXP : PTR ( LIST ( COMMAND ) ) : cmd_compound_seq #
90
    EXP : PTR(LIST(COMMAND)) : cmd_compound_seq #
91
#pragma interface cmd_compound_seq
91
#pragma interface cmd_compound_seq
92
 
92
 
93
#pragma token PROC (\
93
#pragma token PROC(\
94
	EXP : int :,\
94
	EXP : int :,\
95
	EXP : LIST ( COMMAND ) :,\
95
	EXP : LIST(COMMAND) :,\
96
	EXP lvalue : COMMAND :\
96
	EXP lvalue : COMMAND :\
97
    ) STATEMENT MAKE_cmd_compound #
97
    ) STATEMENT MAKE_cmd_compound #
98
#pragma interface MAKE_cmd_compound
98
#pragma interface MAKE_cmd_compound
99
 
99
 
100
#pragma token PROC (\
100
#pragma token PROC(\
101
	EXP lvalue : int :,\
101
	EXP lvalue : int :,\
102
	EXP lvalue : LIST ( COMMAND ) :,\
102
	EXP lvalue : LIST(COMMAND) :,\
103
	EXP : COMMAND :\
103
	EXP : COMMAND :\
104
    ) STATEMENT DECONS_cmd_compound #
104
    ) STATEMENT DECONS_cmd_compound #
105
#pragma interface DECONS_cmd_compound
105
#pragma interface DECONS_cmd_compound
106
 
106
 
107
#pragma token PROC (\
107
#pragma token PROC(\
108
	EXP : DESTROYER :,\
108
	EXP : DESTROYER :,\
109
	EXP lvalue : int :,\
109
	EXP lvalue : int :,\
110
	EXP lvalue : LIST ( COMMAND ) :,\
110
	EXP lvalue : LIST(COMMAND) :,\
111
	EXP : COMMAND :\
111
	EXP : COMMAND :\
112
    ) STATEMENT DESTROY_cmd_compound #
112
    ) STATEMENT DESTROY_cmd_compound #
113
#pragma interface DESTROY_cmd_compound
113
#pragma interface DESTROY_cmd_compound
114
 
114
 
115
 
115
 
116
/* Operations for field loop of union COMMAND */
116
/* Operations for field loop of union COMMAND */
117
 
117
 
118
#pragma token EXP const : unsigned : cmd_loop_tag #
118
#pragma token EXP const : unsigned : cmd_loop_tag #
119
#pragma token PROC ( EXP : COMMAND : ) EXP : int : IS_cmd_loop #
119
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_loop #
120
#pragma interface cmd_loop_tag IS_cmd_loop
120
#pragma interface cmd_loop_tag IS_cmd_loop
121
 
121
 
122
#pragma token PROC ( EXP : COMMAND : )\
122
#pragma token PROC(EXP : COMMAND :)\
123
    EXP : PTR ( string ) : cmd_loop_control #
123
    EXP : PTR(string) : cmd_loop_control #
124
#pragma interface cmd_loop_control
124
#pragma interface cmd_loop_control
125
 
125
 
126
#pragma token PROC ( EXP : COMMAND : )\
126
#pragma token PROC(EXP : COMMAND :)\
127
    EXP : PTR ( COMMAND ) : cmd_loop_body #
127
    EXP : PTR(COMMAND) : cmd_loop_body #
128
#pragma interface cmd_loop_body
128
#pragma interface cmd_loop_body
129
 
129
 
130
#pragma token PROC (\
130
#pragma token PROC(\
131
	EXP : int :,\
131
	EXP : int :,\
132
	EXP : string :,\
132
	EXP : string :,\
133
	EXP : COMMAND :,\
133
	EXP : COMMAND :,\
134
	EXP lvalue : COMMAND :\
134
	EXP lvalue : COMMAND :\
135
    ) STATEMENT MAKE_cmd_loop #
135
    ) STATEMENT MAKE_cmd_loop #
136
#pragma interface MAKE_cmd_loop
136
#pragma interface MAKE_cmd_loop
137
 
137
 
138
#pragma token PROC (\
138
#pragma token PROC(\
139
	EXP lvalue : int :,\
139
	EXP lvalue : int :,\
140
	EXP lvalue : string :,\
140
	EXP lvalue : string :,\
141
	EXP lvalue : COMMAND :,\
141
	EXP lvalue : COMMAND :,\
142
	EXP : COMMAND :\
142
	EXP : COMMAND :\
143
    ) STATEMENT DECONS_cmd_loop #
143
    ) STATEMENT DECONS_cmd_loop #
144
#pragma interface DECONS_cmd_loop
144
#pragma interface DECONS_cmd_loop
145
 
145
 
146
#pragma token PROC (\
146
#pragma token PROC(\
147
	EXP : DESTROYER :,\
147
	EXP : DESTROYER :,\
148
	EXP lvalue : int :,\
148
	EXP lvalue : int :,\
149
	EXP lvalue : string :,\
149
	EXP lvalue : string :,\
150
	EXP lvalue : COMMAND :,\
150
	EXP lvalue : COMMAND :,\
151
	EXP : COMMAND :\
151
	EXP : COMMAND :\
Line 154... Line 154...
154
 
154
 
155
 
155
 
156
/* Operations for field cond of union COMMAND */
156
/* Operations for field cond of union COMMAND */
157
 
157
 
158
#pragma token EXP const : unsigned : cmd_cond_tag #
158
#pragma token EXP const : unsigned : cmd_cond_tag #
159
#pragma token PROC ( EXP : COMMAND : ) EXP : int : IS_cmd_cond #
159
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_cond #
160
#pragma interface cmd_cond_tag IS_cmd_cond
160
#pragma interface cmd_cond_tag IS_cmd_cond
161
 
161
 
162
#pragma token PROC ( EXP : COMMAND : )\
162
#pragma token PROC(EXP : COMMAND :)\
163
    EXP : PTR ( string ) : cmd_cond_control #
163
    EXP : PTR(string) : cmd_cond_control #
164
#pragma interface cmd_cond_control
164
#pragma interface cmd_cond_control
165
 
165
 
166
#pragma token PROC ( EXP : COMMAND : )\
166
#pragma token PROC(EXP : COMMAND :)\
167
    EXP : PTR ( COMMAND ) : cmd_cond_true_code #
167
    EXP : PTR(COMMAND) : cmd_cond_true_code #
168
#pragma interface cmd_cond_true_code
168
#pragma interface cmd_cond_true_code
169
 
169
 
170
#pragma token PROC ( EXP : COMMAND : )\
170
#pragma token PROC(EXP : COMMAND :)\
171
    EXP : PTR ( COMMAND ) : cmd_cond_false_code #
171
    EXP : PTR(COMMAND) : cmd_cond_false_code #
172
#pragma interface cmd_cond_false_code
172
#pragma interface cmd_cond_false_code
173
 
173
 
174
#pragma token PROC (\
174
#pragma token PROC(\
175
	EXP : int :,\
175
	EXP : int :,\
176
	EXP : string :,\
176
	EXP : string :,\
177
	EXP : COMMAND :,\
177
	EXP : COMMAND :,\
178
	EXP : COMMAND :,\
178
	EXP : COMMAND :,\
179
	EXP lvalue : COMMAND :\
179
	EXP lvalue : COMMAND :\
180
    ) STATEMENT MAKE_cmd_cond #
180
    ) STATEMENT MAKE_cmd_cond #
181
#pragma interface MAKE_cmd_cond
181
#pragma interface MAKE_cmd_cond
182
 
182
 
183
#pragma token PROC (\
183
#pragma token PROC(\
184
	EXP lvalue : int :,\
184
	EXP lvalue : int :,\
185
	EXP lvalue : string :,\
185
	EXP lvalue : string :,\
186
	EXP lvalue : COMMAND :,\
186
	EXP lvalue : COMMAND :,\
187
	EXP lvalue : COMMAND :,\
187
	EXP lvalue : COMMAND :,\
188
	EXP : COMMAND :\
188
	EXP : COMMAND :\
189
    ) STATEMENT DECONS_cmd_cond #
189
    ) STATEMENT DECONS_cmd_cond #
190
#pragma interface DECONS_cmd_cond
190
#pragma interface DECONS_cmd_cond
191
 
191
 
192
#pragma token PROC (\
192
#pragma token PROC(\
193
	EXP : DESTROYER :,\
193
	EXP : DESTROYER :,\
194
	EXP lvalue : int :,\
194
	EXP lvalue : int :,\
195
	EXP lvalue : string :,\
195
	EXP lvalue : string :,\
196
	EXP lvalue : COMMAND :,\
196
	EXP lvalue : COMMAND :,\
197
	EXP lvalue : COMMAND :,\
197
	EXP lvalue : COMMAND :,\