?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2015-06-12 Basile Starynkevitch <basile@starynkevitch.net>
[official-gcc.git] / gcc / melt / generated / warmelt-modes+03.cc
blob7fee521f8f50e7c02414ed7e940e0603644111d9
1 /* GCC MELT GENERATED C++ FILE warmelt-modes+03.cc - DO NOT EDIT - see http://gcc-melt.org/ */
2 /* secondary MELT generated C++ file of rank #3 */
3 #include "melt-run.h"
4
5
6 /* used hash from melt-run.h when compiling this file: */
7 MELT_EXTERN const char meltrun_used_md5_melt_f3[] = MELT_RUN_HASHMD5 /* from melt-run.h */;
8
9
10 /**** warmelt-modes+03.cc declarations ****/
11 /**** MELT GENERATED DECLARATIONS for warmelt-modes ** DO NOT EDIT ; see gcc-melt.org ****/
12
13 /****++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
14 ***
15 Copyright (C) 2011 - 2015 Free Software Foundation, Inc.
16 Contributed by Basile Starynkevitch <basile@starynkevitch.net>
17
18 This file is part of GCC.
19
20 GCC is free software; you can redistribute it and/or modify
21 it under the terms of the GNU General Public License as published by
22 the Free Software Foundation; either version 3, or (at your option)
23 any later version.
24
25 GCC is distributed in the hope that it will be useful,
26 but WITHOUT ANY WARRANTY; without even the implied warranty of
27 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
28 GNU General Public License for more details.
29
30 You should have received a copy of the GNU General Public License
31 along with GCC; see the file COPYING3. If not see
32 <http://www.gnu.org/licenses/>.
33 ***
34 ----------------------------------------------------------------****/
35
36
37 /** ordinary MELT module meltbuild-sources/warmelt-modes**/
38 #define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usualmodule*/
39
40
41
42 class Melt_InitialClassyFrame_WARMELTmiMODES_h197312044; // forward declaration fromline 6691
43 typedef Melt_InitialClassyFrame_WARMELTmiMODES_h197312044 Melt_InitialFrame;
44 /**** no MELT module variables ****/
45
46 /*** 4 MELT called hook declarations ***/
47
48 /*declare MELT called hook #0 HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER **/
49 MELT_EXTERN melt_ptr_t melthook_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_PREVENV, const char* meltinp1_MODULNAME);
50
51 /*declare MELT called hook #1 HOOK_POLL_INPUTS **/
52 MELT_EXTERN void melthook_HOOK_POLL_INPUTS (melt_ptr_t melthookdatap, long meltinp0_DELAYMS);
53
54 /*declare MELT called hook #2 HOOK_SYMBOL_IMPORTER **/
55 MELT_EXTERN melt_ptr_t melthook_HOOK_SYMBOL_IMPORTER (melt_ptr_t melthookdatap, const char* meltinp0_SYMNAMESTR, const char* meltinp1_MODULENAMESTR, melt_ptr_t meltinp2_PARENV);
56
57 /*declare MELT called hook #3 HOOK_VALUE_EXPORTER **/
58 MELT_EXTERN void melthook_HOOK_VALUE_EXPORTER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_SYM, melt_ptr_t meltinp1_VAL, melt_ptr_t meltinp2_CONTENV);
59
60 /*** end of 4 MELT called hook declarations ***/
61
62 /*** no extra MELT c-headers ***/
63
64
65
66
67 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_WARMELTmiMODES_INSTALL_MELT_MODE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
68
69
70
71
72 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_WARMELTmiMODES_RUNFILE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
73
74
75
76
77 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_WARMELTmiMODES_RUNDEBUG_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
78
79
80
81
82 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_WARMELTmiMODES_EVAL_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
83
84
85
86
87 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_WARMELTmiMODES_EVALFILE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
88
89
90
91
92 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_WARMELTmiMODES_REPL_PROCESSOR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
93
94
95
96
97 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_WARMELTmiMODES_REPL_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
98
99
100
101
102 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_WARMELTmiMODES_LAMBDA_cl1(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
103
104
105
106
107 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_WARMELTmiMODES_LAMBDA_cl2(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
108
109
110
111
112 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_WARMELTmiMODES_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
113
114
115
116
117 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_WARMELTmiMODES_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
118
119
120
121
122 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_WARMELTmiMODES_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
123
124
125
126
127 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
128
129
130
131
132 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
133
134
135
136
137 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_WARMELTmiMODES_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
138
139
140
141
142 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_WARMELTmiMODES_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
143
144
145
146
147 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_WARMELTmiMODES_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
148
149
150
151
152 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
153
154
155
156
157 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
158
159
160
161
162 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
163
164
165
166
167 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
168
169
170
171
172 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
173
174
175
176
177 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_WARMELTmiMODES_LAMBDA_cl9(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
178
179
180
181
182 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
183
184
185
186
187 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_WARMELTmiMODES_LAMBDA_cl10(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
188
189
190
191
192 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
193
194
195
196
197 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_WARMELTmiMODES_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
198
199
200
201
202 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_WARMELTmiMODES_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
203
204
205
206
207 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_WARMELTmiMODES_LAMBDA_cl13(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
208
209
210
211
212 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_WARMELTmiMODES_LAMBDA_cl14(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
213
214
215
216
217 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
218
219
220
221
222 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
223
224
225
226
227 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_WARMELTmiMODES_LAMBDA_cl15(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
228
229
230
231
232 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
233
234
235
236
237 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
238
239
240
241
242 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_WARMELTmiMODES_LAMBDA_cl16(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
243
244
245
246
247 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
248
249
250
251
252 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_WARMELTmiMODES_LAMBDA_cl17(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
253
254
255
256
257 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
258
259
260
261
262 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_WARMELTmiMODES_LAMBDA_cl18(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
263
264
265
266
267 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
268
269
270
271
272 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_WARMELTmiMODES_LAMBDA_cl19(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
273
274
275
276
277 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
278
279
280
281
282 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
283
284
285
286
287 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
288
289
290
291
292 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_WARMELTmiMODES_HELP_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
293
294
295
296
297 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_WARMELTmiMODES_NOP_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
298
299
300
301
302 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_WARMELTmiMODES_OUTPUT_FOR_RUNTIME(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
303
304
305
306
307 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
308
309
310
311
312 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_GTY(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
313
314
315
316
317 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
318
319
320
321
322 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_CLONING_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
323
324
325
326
327 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_SCANNING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
328
329
330
331
332 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PARAM(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
333
334
335
336
337 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_COD2CTYPE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
338
339
340
341
342 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAG2STR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
343
344
345
346
347 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_BOXINGFUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
348
349
350
351
352 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAPFUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
353
354
355
356
357 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
358
359
360
361
362 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
363
364
365
366
367 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_WARMELTmiMODES_RUNTYPESUPPORT_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
368
369
370
371
372 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_WARMELTmiMODES_TRANSLATE_TO_FLAVORED_MODULE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
373
374
375
376
377 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_WARMELTmiMODES_TRANSLATETOMODULE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
378
379
380
381
382 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_WARMELTmiMODES_TRANSLATEDEBUG_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
383
384
385
386
387 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_WARMELTmiMODES_TRANSLATEQUICKLY_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
388
389
390
391
392 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_WARMELTmiMODES_TRANSLATEOPTIMIZED_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
393
394
395
396
397 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
398
399
400
401
402 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
403
404
405
406
407 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_WARMELTmiMODES_LAMBDA_cl20(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
408
409
410
411
412 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
413
414
415
416
417 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_WARMELTmiMODES_LAMBDA_cl21(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
418
419
420
421
422 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
423
424
425
426
427 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
428
429
430
431
432 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
433
434
435
436
437 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_);
438
439
440 MELT_EXTERN MELT_LOW_OPTIMIZATION void* melt_start_this_module (void*); /*mandatory start of module*/
441
442 MELT_EXTERN const char melt_module_is_gpl_compatible[];
443
444 /*declare opaque initial frame: */
445
446 typedef Melt_InitialClassyFrame_WARMELTmiMODES_h197312044 /*opaqueinitialclassy*/ meltinitial_frame_t;
447
448
449 /* define different names when debugging or not */
450 #if MELT_HAVE_DEBUG
451 MELT_EXTERN const char meltmodule_WARMELTmiMODES__melt_have_debug_enabled[];
452 #define melt_have_debug_string meltmodule_WARMELTmiMODES__melt_have_debug_enabled
453 #else /*!MELT_HAVE_DEBUG*/
454 MELT_EXTERN const char meltmodule_WARMELTmiMODES__melt_have_debug_disabled[];
455 #define melt_have_debug_string meltmodule_WARMELTmiMODES__melt_have_debug_disabled
456 #endif /*!MELT_HAVE_DEBUG*/
457
458
459
460 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_0 (meltinitial_frame_t*, char*); //declare
461
462 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_1 (meltinitial_frame_t*, char*); //declare
463
464 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_2 (meltinitial_frame_t*, char*); //declare
465
466 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_3 (meltinitial_frame_t*, char*); //declare
467
468 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_4 (meltinitial_frame_t*, char*); //declare
469
470 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_5 (meltinitial_frame_t*, char*); //declare
471
472 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_6 (meltinitial_frame_t*, char*); //declare
473
474 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_7 (meltinitial_frame_t*, char*); //declare
475
476 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_8 (meltinitial_frame_t*, char*); //declare
477
478 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_9 (meltinitial_frame_t*, char*); //declare
479
480 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_10 (meltinitial_frame_t*, char*); //declare
481
482 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t*, char*); //declare
483
484 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_12 (meltinitial_frame_t*, char*); //declare
485
486 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_13 (meltinitial_frame_t*, char*); //declare
487
488
489
490 /**** warmelt-modes+03.cc implementations ****/
491
492
493
494
495 melt_ptr_t MELT_MODULE_VISIBILITY
496 meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
497 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
498 {
499 long current_blocklevel_signals_meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD_melt = melt_blocklevel_signals;
500
501 #if MELT_HAVE_DEBUG
502 static long melt_call_counter__;
503 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
504 #undef meltcallcount
505 #define meltcallcount melt_thiscallcounter__
506 #else
507 #undef meltcallcount
508 #define meltcallcount 0L
509 #endif
510 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
511
512 /* start of frame for routine meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD fromline 1752 */
513
514 /** start of frame for meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD of CLASS_PROCROUTINEOBJ from 1555**/
515
516 /*curframdeclclassy*/ class MeltFrame_meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD// fromline 1568
517 : public Melt_CallFrameWithValues<32>
518 {
519 public: /* fromline 1572*/
520 long mcfr_varnum[20];
521 /*classy others*/
522 const char* loc_CSTRING__o0;
523 const char* loc_CSTRING__o1;
524 long _meltsparel;
525 void melt_mark_stuff (void)
526 {
527 } /*end melt_mark_stuff*/
528 virtual void melt_mark_ggc_data (void)
529 {
530 melt_mark_values ();
531 melt_mark_stuff ();
532 }; /*end melt_mark_ggc_data*/
533 MeltFrame_meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD(meltclosure_ptr_t clos) //the closure constructor fromline 1630
534 : Melt_CallFrameWithValues<32> (
535 #if ENABLE_CHECKING /*fromline 1634*/
536 __FILE__, __LINE__,
537 #endif /* ENABLE_CHECKING fromline 1638*/
538 sizeof(MeltFrame_meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD), clos) {};
539 MeltFrame_meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD() //the constructor fromline 1642
540 : Melt_CallFrameWithValues<32> (
541 #if ENABLE_CHECKING /*fromline 1646*/
542 __FILE__, __LINE__,
543 #endif /* ENABLE_CHECKING fromline 1650*/
544 sizeof(MeltFrame_meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD)) {};
545 #if ENABLE_CHECKING /*fromline 1654*/
546 MeltFrame_meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD(const char*fil, int lin) //the constructor fromline 1656
547 : Melt_CallFrameWithValues<32> (fil,lin, sizeof(MeltFrame_meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD)) {};
548 MeltFrame_meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
549 : Melt_CallFrameWithValues<32> (fil,lin, sizeof(MeltFrame_meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD), clos) {};
550 #endif /* ENABLE_CHECKING fromline 1666*/
551
552 }; // end class MeltFrame_meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD
553
554
555 /** end of frame for meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD fromline 1697**/
556
557 /* end of frame for routine meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD fromline 1756 */
558
559 /* classy proc frame meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD */
560 MeltFrame_meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD
561 meltfram__ /*declfrastruct fromline 1780*/
562 /*classyprocarg meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD fromline 1785*/
563 #if ENABLE_CHECKING
564 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
565 #else /*ENABLE_CHECKING */
566 (meltclosp_) /* fromline 1793*/
567 #endif /*ENABLE_CHECKING */
568
569 ;
570 #define meltframe meltfram__
571
572 melt_trace_start("TRANSLATEFILE_DOCMD", meltcallcount);
573 /*use arguments*/
574 (void) meltclosp_;
575 (void)meltfirstargp_;
576 (void)meltxargdescr_;
577 (void)meltxargtab_;
578 (void)meltxresdescr_;
579 (void)meltxrestab_;
580 /*getargs*/
581
582 /*getarg#0*/
583 MELT_LOCATION("warmelt-modes.melt:4615:/ getarg");
584 /*_.CMD__V2*/
585 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
586
587 /*getarg#1*/
588 /*^getarg*/
589 if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
590 /*_.MODULDATA__V3*/
591 meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
592 gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL);
593
594 ;
595 goto meltlab_endgetargs;
596 meltlab_endgetargs:
597 ;
598 /*body*/
599 /*^block*/
600 /*anyblock*/
601 {
602
603
604 {
605 MELT_LOCATION("warmelt-modes.melt:4616:/ locexp");
606 debugeputs(( "starting translatefile_docmd"));
607 }
608 ;
609
610 #if MELT_HAVE_DEBUG
611 MELT_LOCATION("warmelt-modes.melt:4617:/ cppif.then");
612 /*^block*/
613 /*anyblock*/
614 {
615
616
617 {
618 /*^locexp*/
619 /*melt_increment_dbgcounter*/
620 #if MELT_HAVE_DEBUG
621 melt_dbgcounter++;
622 #endif
623 ;
624 }
625 ;
626
627 MELT_CHECK_SIGNAL();
628 ;
629 /*_#MELT_NEED_DBG__L1*/
630 meltfnum[0] =
631 /*MELT_NEED_DBG*/
632 #if MELT_HAVE_DEBUG
633 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
634 #else
635 0 /* no melt_need_dbg */
636 #endif /*MELT_HAVE_DEBUG*/
637 ;;
638 MELT_LOCATION("warmelt-modes.melt:4617:/ cond");
639 /*cond*/
640 if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
641 {
642 /*^cond.then*/
643 /*^block*/
644 /*anyblock*/
645 {
646
647 /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
648 /* for melt_callcount */
649 #if MELT_HAVE_DEBUG && defined (meltcallcount)
650 meltcallcount /* melt_callcount debugging */
651 #else
652 0L /* melt_callcount without debug */
653 #endif /* MELT_HAVE_DEBUG melt_callcount */
654 ;;
655
656 MELT_CHECK_SIGNAL();
657 ;
658 MELT_LOCATION("warmelt-modes.melt:4617:/ apply");
659 /*apply*/
660 {
661 union meltparam_un argtab[7];
662 memset(&argtab, 0, sizeof(argtab));
663 /*^apply.arg*/
664 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
665 /*^apply.arg*/
666 argtab[1].meltbp_cstring = "warmelt-modes.melt";
667 /*^apply.arg*/
668 argtab[2].meltbp_long = 4617;
669 /*^apply.arg*/
670 argtab[3].meltbp_cstring = "start translatefile_docmd cmd=";
671 /*^apply.arg*/
672 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CMD__V2*/ meltfptr[1];
673 /*^apply.arg*/
674 argtab[5].meltbp_cstring = " moduldata=";
675 /*^apply.arg*/
676 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2];
677 /*_.MELT_DEBUG_FUN__V5*/
678 meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
679 }
680 ;
681 /*_._IF___V4*/
682 meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];;
683 /*epilog*/
684
685 MELT_LOCATION("warmelt-modes.melt:4617:/ clear");
686 /*clear*/ /*_#MELT_CALLCOUNT__L2*/
687 meltfnum[1] = 0 ;
688 /*^clear*/
689 /*clear*/ /*_.MELT_DEBUG_FUN__V5*/
690 meltfptr[4] = 0 ;
691 }
692 ;
693 }
694 else /*^cond.else*/
695 {
696
697 /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;;
698 }
699 ;
700
701 {
702 MELT_LOCATION("warmelt-modes.melt:4617:/ locexp");
703 /*void*/
704 (void)0;
705 }
706 ;
707 /*^quasiblock*/
708
709
710 /*epilog*/
711
712 /*^clear*/
713 /*clear*/ /*_#MELT_NEED_DBG__L1*/
714 meltfnum[0] = 0 ;
715 /*^clear*/
716 /*clear*/ /*_._IF___V4*/
717 meltfptr[3] = 0 ;
718 }
719
720 #else /*MELT_HAVE_DEBUG*/
721 /*^cppif.else*/
722 /*^block*/
723 /*anyblock*/
724 {
725
726
727 {
728 /*^locexp*/
729 /*void*/(void)0;
730 }
731 ;
732 /*epilog*/
733 }
734
735 #endif /*MELT_HAVE_DEBUG*/
736 ;
737 MELT_LOCATION("warmelt-modes.melt:4618:/ quasiblock");
738
739
740 /*_.PARMODENV__V7*/
741 meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);;
742
743 MELT_CHECK_SIGNAL();
744 ;
745 MELT_LOCATION("warmelt-modes.melt:4620:/ cond");
746 /*cond*/
747 if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/
748 {
749 /*^cond.then*/
750 /*_.CURENV__V8*/ meltfptr[7] = /*_.MODULDATA__V3*/ meltfptr[2];;
751 }
752 else
753 {
754 MELT_LOCATION("warmelt-modes.melt:4620:/ cond.else");
755
756 /*_.CURENV__V8*/
757 meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);;
758 }
759 ;
760 /*^compute*/
761 /*_?*/
762 meltfram__.loc_CSTRING__o0 =
763 melt_argument( "arg");;
764 /*^compute*/
765 /*_.INARG__V9*/
766 meltfptr[8] =
767 (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o0)));;
768 /*^compute*/
769 /*_?*/
770 meltfram__.loc_CSTRING__o1 =
771 melt_argument( "output");;
772 /*^compute*/
773 /*_.OUTARG__V10*/
774 meltfptr[9] =
775 (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o1)));;
776
777 #if MELT_HAVE_DEBUG
778 MELT_LOCATION("warmelt-modes.melt:4624:/ cppif.then");
779 /*^block*/
780 /*anyblock*/
781 {
782
783
784 {
785 /*^locexp*/
786 /*melt_increment_dbgcounter*/
787 #if MELT_HAVE_DEBUG
788 melt_dbgcounter++;
789 #endif
790 ;
791 }
792 ;
793
794 MELT_CHECK_SIGNAL();
795 ;
796 /*_#MELT_NEED_DBG__L3*/
797 meltfnum[1] =
798 /*MELT_NEED_DBG*/
799 #if MELT_HAVE_DEBUG
800 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
801 #else
802 0 /* no melt_need_dbg */
803 #endif /*MELT_HAVE_DEBUG*/
804 ;;
805 MELT_LOCATION("warmelt-modes.melt:4624:/ cond");
806 /*cond*/
807 if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/
808 {
809 /*^cond.then*/
810 /*^block*/
811 /*anyblock*/
812 {
813
814 /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] =
815 /* for melt_callcount */
816 #if MELT_HAVE_DEBUG && defined (meltcallcount)
817 meltcallcount /* melt_callcount debugging */
818 #else
819 0L /* melt_callcount without debug */
820 #endif /* MELT_HAVE_DEBUG melt_callcount */
821 ;;
822
823 MELT_CHECK_SIGNAL();
824 ;
825 MELT_LOCATION("warmelt-modes.melt:4624:/ apply");
826 /*apply*/
827 {
828 union meltparam_un argtab[11];
829 memset(&argtab, 0, sizeof(argtab));
830 /*^apply.arg*/
831 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L4*/ meltfnum[0];
832 /*^apply.arg*/
833 argtab[1].meltbp_cstring = "warmelt-modes.melt";
834 /*^apply.arg*/
835 argtab[2].meltbp_long = 4624;
836 /*^apply.arg*/
837 argtab[3].meltbp_cstring = "translatefile_docmd inarg=";
838 /*^apply.arg*/
839 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.INARG__V9*/ meltfptr[8];
840 /*^apply.arg*/
841 argtab[5].meltbp_cstring = " outarg=";
842 /*^apply.arg*/
843 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V10*/ meltfptr[9];
844 /*^apply.arg*/
845 argtab[7].meltbp_cstring = " parmodenv=";
846 /*^apply.arg*/
847 argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.PARMODENV__V7*/ meltfptr[3];
848 /*^apply.arg*/
849 argtab[9].meltbp_cstring = " initial_environment=";
850 /*^apply.arg*/
851 argtab[10].meltbp_aptr = (melt_ptr_t*) &(/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);
852 /*_.MELT_DEBUG_FUN__V12*/
853 meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
854 }
855 ;
856 /*_._IF___V11*/
857 meltfptr[10] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];;
858 /*epilog*/
859
860 MELT_LOCATION("warmelt-modes.melt:4624:/ clear");
861 /*clear*/ /*_#MELT_CALLCOUNT__L4*/
862 meltfnum[0] = 0 ;
863 /*^clear*/
864 /*clear*/ /*_.MELT_DEBUG_FUN__V12*/
865 meltfptr[11] = 0 ;
866 }
867 ;
868 }
869 else /*^cond.else*/
870 {
871
872 /*_._IF___V11*/ meltfptr[10] = /*reallynil*/ NULL ;;
873 }
874 ;
875
876 {
877 MELT_LOCATION("warmelt-modes.melt:4624:/ locexp");
878 /*void*/
879 (void)0;
880 }
881 ;
882 /*^quasiblock*/
883
884
885 /*epilog*/
886
887 /*^clear*/
888 /*clear*/ /*_#MELT_NEED_DBG__L3*/
889 meltfnum[1] = 0 ;
890 /*^clear*/
891 /*clear*/ /*_._IF___V11*/
892 meltfptr[10] = 0 ;
893 }
894
895 #else /*MELT_HAVE_DEBUG*/
896 /*^cppif.else*/
897 /*^block*/
898 /*anyblock*/
899 {
900
901
902 {
903 /*^locexp*/
904 /*void*/(void)0;
905 }
906 ;
907 /*epilog*/
908 }
909
910 #endif /*MELT_HAVE_DEBUG*/
911 ;
912
913 #if MELT_HAVE_DEBUG
914 MELT_LOCATION("warmelt-modes.melt:4627:/ cppif.then");
915 /*^block*/
916 /*anyblock*/
917 {
918
919
920 MELT_CHECK_SIGNAL();
921 ;
922 /*_#IS_A__L5*/
923 meltfnum[0] =
924 melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V8*/ meltfptr[7]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[4])));;
925 MELT_LOCATION("warmelt-modes.melt:4627:/ cond");
926 /*cond*/
927 if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/
928 {
929 /*^cond.then*/
930 /*_._IFELSE___V14*/ meltfptr[10] = (/*nil*/NULL);;
931 }
932 else
933 {
934 MELT_LOCATION("warmelt-modes.melt:4627:/ cond.else");
935
936 /*^block*/
937 /*anyblock*/
938 {
939
940
941 MELT_CHECK_SIGNAL();
942 ;
943 /*^apply*/
944 /*apply*/
945 {
946 union meltparam_un argtab[4];
947 memset(&argtab, 0, sizeof(argtab));
948 /*^apply.arg*/
949 argtab[0].meltbp_cstring = "check curenv";
950 /*^apply.arg*/
951 argtab[1].meltbp_cstring = "warmelt-modes.melt";
952 /*^apply.arg*/
953 argtab[2].meltbp_long = 4627;
954 /*^apply.arg*/
955 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7];
956 /*_.MELT_ASSERT_FAILURE_FUN__V15*/
957 meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
958 }
959 ;
960 /*_._IFELSE___V14*/
961 meltfptr[10] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];;
962 /*epilog*/
963
964 MELT_LOCATION("warmelt-modes.melt:4627:/ clear");
965 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/
966 meltfptr[14] = 0 ;
967 }
968 ;
969 }
970 ;
971 /*_.IFCPP___V13*/
972 meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[10];;
973 /*epilog*/
974
975 MELT_LOCATION("warmelt-modes.melt:4627:/ clear");
976 /*clear*/ /*_#IS_A__L5*/
977 meltfnum[0] = 0 ;
978 /*^clear*/
979 /*clear*/ /*_._IFELSE___V14*/
980 meltfptr[10] = 0 ;
981 }
982
983 #else /*MELT_HAVE_DEBUG*/
984 /*^cppif.else*/
985 /*_.IFCPP___V13*/ meltfptr[11] = (/*nil*/NULL);
986 #endif /*MELT_HAVE_DEBUG*/
987 ;
988 MELT_LOCATION("warmelt-modes.melt:4628:/ quasiblock");
989
990
991
992 MELT_CHECK_SIGNAL();
993 ;
994 /*_#IS_STRING__L6*/
995 meltfnum[1] =
996 (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V10*/ meltfptr[9])) == MELTOBMAG_STRING);;
997 MELT_LOCATION("warmelt-modes.melt:4629:/ cond");
998 /*cond*/
999 if (/*_#IS_STRING__L6*/ meltfnum[1]) /*then*/
1000 {
1001 /*^cond.then*/
1002 /*^block*/
1003 /*anyblock*/
1004 {
1005
1006 /*_.MAKE_STRING_WITHOUT_SUFFIX__V18*/ meltfptr[17] =
1007 /*make_string_without_suffix*/
1008 (meltgc_new_string_without_suffix ((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])),
1009 melt_string_str ((melt_ptr_t)(/*_.OUTARG__V10*/ meltfptr[9])),
1010 ( ".cc"))) ;;
1011 /*^compute*/
1012 /*_.BASNAM__V17*/
1013 meltfptr[10] = /*_.MAKE_STRING_WITHOUT_SUFFIX__V18*/ meltfptr[17];;
1014 /*epilog*/
1015
1016 MELT_LOCATION("warmelt-modes.melt:4629:/ clear");
1017 /*clear*/ /*_.MAKE_STRING_WITHOUT_SUFFIX__V18*/
1018 meltfptr[17] = 0 ;
1019 }
1020 ;
1021 }
1022 else /*^cond.else*/
1023 {
1024
1025 /*^block*/
1026 /*anyblock*/
1027 {
1028
1029
1030 MELT_CHECK_SIGNAL();
1031 ;
1032 /*_#IS_STRING__L7*/
1033 meltfnum[0] =
1034 (melt_magic_discr((melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8])) == MELTOBMAG_STRING);;
1035 MELT_LOCATION("warmelt-modes.melt:4632:/ cond");
1036 /*cond*/
1037 if (/*_#IS_STRING__L7*/ meltfnum[0]) /*then*/
1038 {
1039 /*^cond.then*/
1040 /*^block*/
1041 /*anyblock*/
1042 {
1043
1044
1045 MELT_CHECK_SIGNAL();
1046 ;
1047 /*_#STRING_SUFFIXED__L8*/
1048 meltfnum[7] =
1049 /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.INARG__V9*/ meltfptr[8], ".melt"));;
1050 /*^compute*/
1051 /*_#NOT__L9*/
1052 meltfnum[8] =
1053 (!(/*_#STRING_SUFFIXED__L8*/ meltfnum[7]));;
1054 MELT_LOCATION("warmelt-modes.melt:4633:/ cond");
1055 /*cond*/
1056 if (/*_#NOT__L9*/ meltfnum[8]) /*then*/
1057 {
1058 /*^cond.then*/
1059 /*^block*/
1060 /*anyblock*/
1061 {
1062
1063
1064 {
1065 MELT_LOCATION("warmelt-modes.melt:4634:/ locexp");
1066 warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "MELT translated input file without .melt suffix"),
1067 melt_string_str((melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8])));
1068 }
1069 ;
1070 /*epilog*/
1071 }
1072 ;
1073 } /*noelse*/
1074 ;
1075 /*_.MAKE_STRING_NAKEDBASENAME__V20*/
1076 meltfptr[19] =
1077 (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])),
1078 melt_string_str((melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]))));;
1079 MELT_LOCATION("warmelt-modes.melt:4632:/ quasiblock");
1080
1081
1082 /*_.PROGN___V21*/
1083 meltfptr[20] = /*_.MAKE_STRING_NAKEDBASENAME__V20*/ meltfptr[19];;
1084 /*^compute*/
1085 /*_._IFELSE___V19*/
1086 meltfptr[17] = /*_.PROGN___V21*/ meltfptr[20];;
1087 /*epilog*/
1088
1089 MELT_LOCATION("warmelt-modes.melt:4632:/ clear");
1090 /*clear*/ /*_#STRING_SUFFIXED__L8*/
1091 meltfnum[7] = 0 ;
1092 /*^clear*/
1093 /*clear*/ /*_#NOT__L9*/
1094 meltfnum[8] = 0 ;
1095 /*^clear*/
1096 /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V20*/
1097 meltfptr[19] = 0 ;
1098 /*^clear*/
1099 /*clear*/ /*_.PROGN___V21*/
1100 meltfptr[20] = 0 ;
1101 }
1102 ;
1103 }
1104 else /*^cond.else*/
1105 {
1106
1107 /*^block*/
1108 /*anyblock*/
1109 {
1110
1111
1112 MELT_CHECK_SIGNAL();
1113 ;
1114 MELT_LOCATION("warmelt-modes.melt:4638:/ apply");
1115 /*apply*/
1116 {
1117 union meltparam_un argtab[3];
1118 memset(&argtab, 0, sizeof(argtab));
1119 /*^apply.arg*/
1120 argtab[0].meltbp_cstring = "invalid translatefile mode, arg $1 output $2";
1121 /*^apply.arg*/
1122 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.INARG__V9*/ meltfptr[8];
1123 /*^apply.arg*/
1124 argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V10*/ meltfptr[9];
1125 /*_.ERROR_AT__V22*/
1126 meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1127 }
1128 ;
1129 MELT_LOCATION("warmelt-modes.melt:4640:/ quasiblock");
1130
1131
1132 /*_._RETVAL___V1*/
1133 meltfptr[0] = /*reallynil*/ NULL ;;
1134
1135 {
1136 MELT_LOCATION("warmelt-modes.melt:4640:/ locexp");
1137 /*ochecknores compilobj_nrep_return*/
1138 #if MELT_HAVE_DEBUG
1139 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
1140 melt_warn_for_no_expected_secondary_results();
1141 /* we warned when secondary results are expected but not returned. */
1142 #endif /*MELT_HAVE_DEBUG*/
1143 ;
1144 }
1145 ;
1146 /*^finalreturn*/
1147 ;
1148 /*finalret*/
1149 goto meltlabend_rout ;
1150 MELT_LOCATION("warmelt-modes.melt:4637:/ quasiblock");
1151
1152
1153 /*_.PROGN___V24*/
1154 meltfptr[23] = /*_.RETURN___V23*/ meltfptr[20];;
1155 /*^compute*/
1156 /*_._IFELSE___V19*/
1157 meltfptr[17] = /*_.PROGN___V24*/ meltfptr[23];;
1158 /*epilog*/
1159
1160 MELT_LOCATION("warmelt-modes.melt:4632:/ clear");
1161 /*clear*/ /*_.ERROR_AT__V22*/
1162 meltfptr[19] = 0 ;
1163 /*^clear*/
1164 /*clear*/ /*_.RETURN___V23*/
1165 meltfptr[20] = 0 ;
1166 /*^clear*/
1167 /*clear*/ /*_.PROGN___V24*/
1168 meltfptr[23] = 0 ;
1169 }
1170 ;
1171 }
1172 ;
1173 /*_.BASNAM__V17*/
1174 meltfptr[10] = /*_._IFELSE___V19*/ meltfptr[17];;
1175 /*epilog*/
1176
1177 MELT_LOCATION("warmelt-modes.melt:4629:/ clear");
1178 /*clear*/ /*_#IS_STRING__L7*/
1179 meltfnum[0] = 0 ;
1180 /*^clear*/
1181 /*clear*/ /*_._IFELSE___V19*/
1182 meltfptr[17] = 0 ;
1183 }
1184 ;
1185 }
1186 ;
1187
1188 #if MELT_HAVE_DEBUG
1189 MELT_LOCATION("warmelt-modes.melt:4643:/ cppif.then");
1190 /*^block*/
1191 /*anyblock*/
1192 {
1193
1194
1195 {
1196 /*^locexp*/
1197 /*melt_increment_dbgcounter*/
1198 #if MELT_HAVE_DEBUG
1199 melt_dbgcounter++;
1200 #endif
1201 ;
1202 }
1203 ;
1204
1205 MELT_CHECK_SIGNAL();
1206 ;
1207 /*_#MELT_NEED_DBG__L10*/
1208 meltfnum[7] =
1209 /*MELT_NEED_DBG*/
1210 #if MELT_HAVE_DEBUG
1211 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
1212 #else
1213 0 /* no melt_need_dbg */
1214 #endif /*MELT_HAVE_DEBUG*/
1215 ;;
1216 MELT_LOCATION("warmelt-modes.melt:4643:/ cond");
1217 /*cond*/
1218 if (/*_#MELT_NEED_DBG__L10*/ meltfnum[7]) /*then*/
1219 {
1220 /*^cond.then*/
1221 /*^block*/
1222 /*anyblock*/
1223 {
1224
1225 /*_#MELT_CALLCOUNT__L11*/ meltfnum[8] =
1226 /* for melt_callcount */
1227 #if MELT_HAVE_DEBUG && defined (meltcallcount)
1228 meltcallcount /* melt_callcount debugging */
1229 #else
1230 0L /* melt_callcount without debug */
1231 #endif /* MELT_HAVE_DEBUG melt_callcount */
1232 ;;
1233
1234 MELT_CHECK_SIGNAL();
1235 ;
1236 MELT_LOCATION("warmelt-modes.melt:4643:/ apply");
1237 /*apply*/
1238 {
1239 union meltparam_un argtab[5];
1240 memset(&argtab, 0, sizeof(argtab));
1241 /*^apply.arg*/
1242 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[8];
1243 /*^apply.arg*/
1244 argtab[1].meltbp_cstring = "warmelt-modes.melt";
1245 /*^apply.arg*/
1246 argtab[2].meltbp_long = 4643;
1247 /*^apply.arg*/
1248 argtab[3].meltbp_cstring = "translatefile_mode basnam";
1249 /*^apply.arg*/
1250 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V17*/ meltfptr[10];
1251 /*_.MELT_DEBUG_FUN__V26*/
1252 meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1253 }
1254 ;
1255 /*_._IF___V25*/
1256 meltfptr[19] = /*_.MELT_DEBUG_FUN__V26*/ meltfptr[20];;
1257 /*epilog*/
1258
1259 MELT_LOCATION("warmelt-modes.melt:4643:/ clear");
1260 /*clear*/ /*_#MELT_CALLCOUNT__L11*/
1261 meltfnum[8] = 0 ;
1262 /*^clear*/
1263 /*clear*/ /*_.MELT_DEBUG_FUN__V26*/
1264 meltfptr[20] = 0 ;
1265 }
1266 ;
1267 }
1268 else /*^cond.else*/
1269 {
1270
1271 /*_._IF___V25*/ meltfptr[19] = /*reallynil*/ NULL ;;
1272 }
1273 ;
1274
1275 {
1276 MELT_LOCATION("warmelt-modes.melt:4643:/ locexp");
1277 /*void*/
1278 (void)0;
1279 }
1280 ;
1281 /*^quasiblock*/
1282
1283
1284 /*epilog*/
1285
1286 /*^clear*/
1287 /*clear*/ /*_#MELT_NEED_DBG__L10*/
1288 meltfnum[7] = 0 ;
1289 /*^clear*/
1290 /*clear*/ /*_._IF___V25*/
1291 meltfptr[19] = 0 ;
1292 }
1293
1294 #else /*MELT_HAVE_DEBUG*/
1295 /*^cppif.else*/
1296 /*^block*/
1297 /*anyblock*/
1298 {
1299
1300
1301 {
1302 /*^locexp*/
1303 /*void*/(void)0;
1304 }
1305 ;
1306 /*epilog*/
1307 }
1308
1309 #endif /*MELT_HAVE_DEBUG*/
1310 ;
1311
1312 MELT_CHECK_SIGNAL();
1313 ;
1314 /*_#STRING_DYNLOADED_SUFFIXED__L12*/
1315 meltfnum[0] =
1316 /*string_dynloaded_suffixed:*/ (melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V17*/ meltfptr[10],
1317 MELT_DYNLOADED_SUFFIX));;
1318 MELT_LOCATION("warmelt-modes.melt:4644:/ cond");
1319 /*cond*/
1320 if (/*_#STRING_DYNLOADED_SUFFIXED__L12*/ meltfnum[0]) /*then*/
1321 {
1322 /*^cond.then*/
1323 /*_#OR___L13*/ meltfnum[8] = /*_#STRING_DYNLOADED_SUFFIXED__L12*/ meltfnum[0];;
1324 }
1325 else
1326 {
1327 MELT_LOCATION("warmelt-modes.melt:4644:/ cond.else");
1328
1329 /*^block*/
1330 /*anyblock*/
1331 {
1332
1333 /*_#STRING_SUFFIXED__L14*/ meltfnum[7] =
1334 /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V17*/ meltfptr[10], ".melt"));;
1335 MELT_LOCATION("warmelt-modes.melt:4644:/ cond");
1336 /*cond*/
1337 if (/*_#STRING_SUFFIXED__L14*/ meltfnum[7]) /*then*/
1338 {
1339 /*^cond.then*/
1340 /*_#OR___L15*/ meltfnum[14] = /*_#STRING_SUFFIXED__L14*/ meltfnum[7];;
1341 }
1342 else
1343 {
1344 MELT_LOCATION("warmelt-modes.melt:4644:/ cond.else");
1345
1346 /*^block*/
1347 /*anyblock*/
1348 {
1349
1350 /*_#STRING_SUFFIXED__L16*/ meltfnum[15] =
1351 /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V17*/ meltfptr[10], ".o"));;
1352 MELT_LOCATION("warmelt-modes.melt:4644:/ cond");
1353 /*cond*/
1354 if (/*_#STRING_SUFFIXED__L16*/ meltfnum[15]) /*then*/
1355 {
1356 /*^cond.then*/
1357 /*_#OR___L17*/ meltfnum[16] = /*_#STRING_SUFFIXED__L16*/ meltfnum[15];;
1358 }
1359 else
1360 {
1361 MELT_LOCATION("warmelt-modes.melt:4644:/ cond.else");
1362
1363 /*^block*/
1364 /*anyblock*/
1365 {
1366
1367 /*_#STRING_SUFFIXED__L18*/ meltfnum[17] =
1368 /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V17*/ meltfptr[10], ".c"));;
1369 MELT_LOCATION("warmelt-modes.melt:4644:/ cond");
1370 /*cond*/
1371 if (/*_#STRING_SUFFIXED__L18*/ meltfnum[17]) /*then*/
1372 {
1373 /*^cond.then*/
1374 /*_#OR___L19*/ meltfnum[18] = /*_#STRING_SUFFIXED__L18*/ meltfnum[17];;
1375 }
1376 else
1377 {
1378 MELT_LOCATION("warmelt-modes.melt:4644:/ cond.else");
1379
1380 /*^block*/
1381 /*anyblock*/
1382 {
1383
1384 /*_#STRING_SUFFIXED__L20*/ meltfnum[19] =
1385 /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V17*/ meltfptr[10], ".cc"));;
1386 /*^compute*/
1387 /*_#OR___L19*/
1388 meltfnum[18] = /*_#STRING_SUFFIXED__L20*/ meltfnum[19];;
1389 /*epilog*/
1390
1391 MELT_LOCATION("warmelt-modes.melt:4644:/ clear");
1392 /*clear*/ /*_#STRING_SUFFIXED__L20*/
1393 meltfnum[19] = 0 ;
1394 }
1395 ;
1396 }
1397 ;
1398 /*_#OR___L17*/
1399 meltfnum[16] = /*_#OR___L19*/ meltfnum[18];;
1400 /*epilog*/
1401
1402 MELT_LOCATION("warmelt-modes.melt:4644:/ clear");
1403 /*clear*/ /*_#STRING_SUFFIXED__L18*/
1404 meltfnum[17] = 0 ;
1405 /*^clear*/
1406 /*clear*/ /*_#OR___L19*/
1407 meltfnum[18] = 0 ;
1408 }
1409 ;
1410 }
1411 ;
1412 /*_#OR___L15*/
1413 meltfnum[14] = /*_#OR___L17*/ meltfnum[16];;
1414 /*epilog*/
1415
1416 MELT_LOCATION("warmelt-modes.melt:4644:/ clear");
1417 /*clear*/ /*_#STRING_SUFFIXED__L16*/
1418 meltfnum[15] = 0 ;
1419 /*^clear*/
1420 /*clear*/ /*_#OR___L17*/
1421 meltfnum[16] = 0 ;
1422 }
1423 ;
1424 }
1425 ;
1426 /*_#OR___L13*/
1427 meltfnum[8] = /*_#OR___L15*/ meltfnum[14];;
1428 /*epilog*/
1429
1430 MELT_LOCATION("warmelt-modes.melt:4644:/ clear");
1431 /*clear*/ /*_#STRING_SUFFIXED__L14*/
1432 meltfnum[7] = 0 ;
1433 /*^clear*/
1434 /*clear*/ /*_#OR___L15*/
1435 meltfnum[14] = 0 ;
1436 }
1437 ;
1438 }
1439 ;
1440 /*^cond*/
1441 /*cond*/
1442 if (/*_#OR___L13*/ meltfnum[8]) /*then*/
1443 {
1444 /*^cond.then*/
1445 /*^block*/
1446 /*anyblock*/
1447 {
1448
1449
1450 MELT_CHECK_SIGNAL();
1451 ;
1452 MELT_LOCATION("warmelt-modes.melt:4650:/ apply");
1453 /*apply*/
1454 {
1455 union meltparam_un argtab[2];
1456 memset(&argtab, 0, sizeof(argtab));
1457 /*^apply.arg*/
1458 argtab[0].meltbp_cstring = "tranlatefile mode needs a base name $1 without suffix";
1459 /*^apply.arg*/
1460 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V17*/ meltfptr[10];
1461 /*_.ERROR_AT__V28*/
1462 meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1463 }
1464 ;
1465 MELT_LOCATION("warmelt-modes.melt:4652:/ quasiblock");
1466
1467
1468 /*_._RETVAL___V1*/
1469 meltfptr[0] = /*reallynil*/ NULL ;;
1470
1471 {
1472 MELT_LOCATION("warmelt-modes.melt:4652:/ locexp");
1473 /*ochecknores compilobj_nrep_return*/
1474 #if MELT_HAVE_DEBUG
1475 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
1476 melt_warn_for_no_expected_secondary_results();
1477 /* we warned when secondary results are expected but not returned. */
1478 #endif /*MELT_HAVE_DEBUG*/
1479 ;
1480 }
1481 ;
1482 /*^finalreturn*/
1483 ;
1484 /*finalret*/
1485 goto meltlabend_rout ;
1486 MELT_LOCATION("warmelt-modes.melt:4649:/ quasiblock");
1487
1488
1489 /*_.PROGN___V30*/
1490 meltfptr[19] = /*_.RETURN___V29*/ meltfptr[20];;
1491 /*^compute*/
1492 /*_._IF___V27*/
1493 meltfptr[23] = /*_.PROGN___V30*/ meltfptr[19];;
1494 /*epilog*/
1495
1496 MELT_LOCATION("warmelt-modes.melt:4644:/ clear");
1497 /*clear*/ /*_.ERROR_AT__V28*/
1498 meltfptr[17] = 0 ;
1499 /*^clear*/
1500 /*clear*/ /*_.RETURN___V29*/
1501 meltfptr[20] = 0 ;
1502 /*^clear*/
1503 /*clear*/ /*_.PROGN___V30*/
1504 meltfptr[19] = 0 ;
1505 }
1506 ;
1507 }
1508 else /*^cond.else*/
1509 {
1510
1511 /*_._IF___V27*/ meltfptr[23] = /*reallynil*/ NULL ;;
1512 }
1513 ;
1514
1515 MELT_CHECK_SIGNAL();
1516 ;
1517 MELT_LOCATION("warmelt-modes.melt:4654:/ apply");
1518 /*apply*/
1519 {
1520 union meltparam_un argtab[2];
1521 memset(&argtab, 0, sizeof(argtab));
1522 /*^apply.arg*/
1523 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V17*/ meltfptr[10];
1524 /*^apply.arg*/
1525 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7];
1526 /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V31*/
1527 meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1528 }
1529 ;
1530
1531 MELT_CHECK_SIGNAL();
1532 ;
1533 MELT_LOCATION("warmelt-modes.melt:4655:/ quasiblock");
1534
1535
1536 /*_._RETVAL___V1*/
1537 meltfptr[0] = (/*!konst_8_TRUE*/ meltfrout->tabval[8]);;
1538
1539 {
1540 MELT_LOCATION("warmelt-modes.melt:4655:/ locexp");
1541 /*ochecknores compilobj_nrep_return*/
1542 #if MELT_HAVE_DEBUG
1543 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
1544 melt_warn_for_no_expected_secondary_results();
1545 /* we warned when secondary results are expected but not returned. */
1546 #endif /*MELT_HAVE_DEBUG*/
1547 ;
1548 }
1549 ;
1550 /*^finalreturn*/
1551 ;
1552 /*finalret*/
1553 goto meltlabend_rout ;
1554 /*_.LET___V16*/
1555 meltfptr[14] = /*_.RETURN___V32*/ meltfptr[20];;
1556
1557 MELT_LOCATION("warmelt-modes.melt:4628:/ clear");
1558 /*clear*/ /*_#IS_STRING__L6*/
1559 meltfnum[1] = 0 ;
1560 /*^clear*/
1561 /*clear*/ /*_.BASNAM__V17*/
1562 meltfptr[10] = 0 ;
1563 /*^clear*/
1564 /*clear*/ /*_#STRING_DYNLOADED_SUFFIXED__L12*/
1565 meltfnum[0] = 0 ;
1566 /*^clear*/
1567 /*clear*/ /*_#OR___L13*/
1568 meltfnum[8] = 0 ;
1569 /*^clear*/
1570 /*clear*/ /*_._IF___V27*/
1571 meltfptr[23] = 0 ;
1572 /*^clear*/
1573 /*clear*/ /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V31*/
1574 meltfptr[17] = 0 ;
1575 /*^clear*/
1576 /*clear*/ /*_.RETURN___V32*/
1577 meltfptr[20] = 0 ;
1578 /*_.LET___V6*/
1579 meltfptr[4] = /*_.LET___V16*/ meltfptr[14];;
1580
1581 MELT_LOCATION("warmelt-modes.melt:4618:/ clear");
1582 /*clear*/ /*_.PARMODENV__V7*/
1583 meltfptr[3] = 0 ;
1584 /*^clear*/
1585 /*clear*/ /*_.CURENV__V8*/
1586 meltfptr[7] = 0 ;
1587 /*^clear*/
1588 /*clear*/ /*_?*/
1589 meltfram__.loc_CSTRING__o0 = 0 ;
1590 /*^clear*/
1591 /*clear*/ /*_.INARG__V9*/
1592 meltfptr[8] = 0 ;
1593 /*^clear*/
1594 /*clear*/ /*_?*/
1595 meltfram__.loc_CSTRING__o1 = 0 ;
1596 /*^clear*/
1597 /*clear*/ /*_.OUTARG__V10*/
1598 meltfptr[9] = 0 ;
1599 /*^clear*/
1600 /*clear*/ /*_.IFCPP___V13*/
1601 meltfptr[11] = 0 ;
1602 /*^clear*/
1603 /*clear*/ /*_.LET___V16*/
1604 meltfptr[14] = 0 ;
1605
1606 MELT_CHECK_SIGNAL();
1607 ;
1608 MELT_LOCATION("warmelt-modes.melt:4615:/ quasiblock");
1609
1610
1611 /*_._RETVAL___V1*/
1612 meltfptr[0] = /*_.LET___V6*/ meltfptr[4];;
1613
1614 {
1615 MELT_LOCATION("warmelt-modes.melt:4615:/ locexp");
1616 /*ochecknores compilobj_nrep_return*/
1617 #if MELT_HAVE_DEBUG
1618 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
1619 melt_warn_for_no_expected_secondary_results();
1620 /* we warned when secondary results are expected but not returned. */
1621 #endif /*MELT_HAVE_DEBUG*/
1622 ;
1623 }
1624 ;
1625 /*^finalreturn*/
1626 ;
1627 /*finalret*/
1628 goto meltlabend_rout ;
1629 /*epilog*/
1630
1631 /*^clear*/
1632 /*clear*/ /*_.LET___V6*/
1633 meltfptr[4] = 0 ;
1634 }
1635
1636 ;
1637 goto meltlabend_rout;
1638 meltlabend_rout:
1639 melt_trace_end("TRANSLATEFILE_DOCMD", meltcallcount);
1640 melt_blocklevel_signals = current_blocklevel_signals_meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD_melt;
1641 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
1642 #undef meltcallcount
1643 #undef meltfram__
1644 #undef MELTFRAM_NBVARNUM
1645 #undef MELTFRAM_NBVARPTR
1646 } /*end meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD*/
1647
1648
1649
1650
1651
1652
1653 melt_ptr_t MELT_MODULE_VISIBILITY
1654 meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
1655 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
1656 {
1657 long current_blocklevel_signals_meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD_melt = melt_blocklevel_signals;
1658
1659 #if MELT_HAVE_DEBUG
1660 static long melt_call_counter__;
1661 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
1662 #undef meltcallcount
1663 #define meltcallcount melt_thiscallcounter__
1664 #else
1665 #undef meltcallcount
1666 #define meltcallcount 0L
1667 #endif
1668 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
1669
1670 /* start of frame for routine meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD fromline 1752 */
1671
1672 /** start of frame for meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD of CLASS_PROCROUTINEOBJ from 1555**/
1673
1674 /*curframdeclclassy*/ class MeltFrame_meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD// fromline 1568
1675 : public Melt_CallFrameWithValues<40>
1676 {
1677 public: /* fromline 1572*/
1678 long mcfr_varnum[19];
1679 /*classy others*/
1680 const char* loc_CSTRING__o0;
1681 const char* loc_CSTRING__o1;
1682 const char* loc_CSTRING__o2;
1683 long _meltsparel;
1684 void melt_mark_stuff (void)
1685 {
1686 } /*end melt_mark_stuff*/
1687 virtual void melt_mark_ggc_data (void)
1688 {
1689 melt_mark_values ();
1690 melt_mark_stuff ();
1691 }; /*end melt_mark_ggc_data*/
1692 MeltFrame_meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD(meltclosure_ptr_t clos) //the closure constructor fromline 1630
1693 : Melt_CallFrameWithValues<40> (
1694 #if ENABLE_CHECKING /*fromline 1634*/
1695 __FILE__, __LINE__,
1696 #endif /* ENABLE_CHECKING fromline 1638*/
1697 sizeof(MeltFrame_meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD), clos) {};
1698 MeltFrame_meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD() //the constructor fromline 1642
1699 : Melt_CallFrameWithValues<40> (
1700 #if ENABLE_CHECKING /*fromline 1646*/
1701 __FILE__, __LINE__,
1702 #endif /* ENABLE_CHECKING fromline 1650*/
1703 sizeof(MeltFrame_meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD)) {};
1704 #if ENABLE_CHECKING /*fromline 1654*/
1705 MeltFrame_meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD(const char*fil, int lin) //the constructor fromline 1656
1706 : Melt_CallFrameWithValues<40> (fil,lin, sizeof(MeltFrame_meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD)) {};
1707 MeltFrame_meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
1708 : Melt_CallFrameWithValues<40> (fil,lin, sizeof(MeltFrame_meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD), clos) {};
1709 #endif /* ENABLE_CHECKING fromline 1666*/
1710
1711 }; // end class MeltFrame_meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD
1712
1713
1714 /** end of frame for meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD fromline 1697**/
1715
1716 /* end of frame for routine meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD fromline 1756 */
1717
1718 /* classy proc frame meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD */
1719 MeltFrame_meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD
1720 meltfram__ /*declfrastruct fromline 1780*/
1721 /*classyprocarg meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD fromline 1785*/
1722 #if ENABLE_CHECKING
1723 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
1724 #else /*ENABLE_CHECKING */
1725 (meltclosp_) /* fromline 1793*/
1726 #endif /*ENABLE_CHECKING */
1727
1728 ;
1729 #define meltframe meltfram__
1730
1731 melt_trace_start("TRANSLATEINIT_DOCMD", meltcallcount);
1732 /*use arguments*/
1733 (void) meltclosp_;
1734 (void)meltfirstargp_;
1735 (void)meltxargdescr_;
1736 (void)meltxargtab_;
1737 (void)meltxresdescr_;
1738 (void)meltxrestab_;
1739 /*getargs*/
1740
1741 /*getarg#0*/
1742 MELT_LOCATION("warmelt-modes.melt:4670:/ getarg");
1743 /*_.CMD__V2*/
1744 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
1745
1746 /*getarg#1*/
1747 /*^getarg*/
1748 if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
1749 /*_.MODULDATA__V3*/
1750 meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
1751 gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL);
1752
1753 ;
1754 goto meltlab_endgetargs;
1755 meltlab_endgetargs:
1756 ;
1757 /*body*/
1758 /*^block*/
1759 /*anyblock*/
1760 {
1761
1762
1763 #if MELT_HAVE_DEBUG
1764 MELT_LOCATION("warmelt-modes.melt:4671:/ cppif.then");
1765 /*^block*/
1766 /*anyblock*/
1767 {
1768
1769
1770 {
1771 /*^locexp*/
1772 /*melt_increment_dbgcounter*/
1773 #if MELT_HAVE_DEBUG
1774 melt_dbgcounter++;
1775 #endif
1776 ;
1777 }
1778 ;
1779
1780 MELT_CHECK_SIGNAL();
1781 ;
1782 /*_#MELT_NEED_DBG__L1*/
1783 meltfnum[0] =
1784 /*MELT_NEED_DBG*/
1785 #if MELT_HAVE_DEBUG
1786 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
1787 #else
1788 0 /* no melt_need_dbg */
1789 #endif /*MELT_HAVE_DEBUG*/
1790 ;;
1791 MELT_LOCATION("warmelt-modes.melt:4671:/ cond");
1792 /*cond*/
1793 if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
1794 {
1795 /*^cond.then*/
1796 /*^block*/
1797 /*anyblock*/
1798 {
1799
1800 /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
1801 /* for melt_callcount */
1802 #if MELT_HAVE_DEBUG && defined (meltcallcount)
1803 meltcallcount /* melt_callcount debugging */
1804 #else
1805 0L /* melt_callcount without debug */
1806 #endif /* MELT_HAVE_DEBUG melt_callcount */
1807 ;;
1808
1809 MELT_CHECK_SIGNAL();
1810 ;
1811 MELT_LOCATION("warmelt-modes.melt:4671:/ apply");
1812 /*apply*/
1813 {
1814 union meltparam_un argtab[9];
1815 memset(&argtab, 0, sizeof(argtab));
1816 /*^apply.arg*/
1817 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
1818 /*^apply.arg*/
1819 argtab[1].meltbp_cstring = "warmelt-modes.melt";
1820 /*^apply.arg*/
1821 argtab[2].meltbp_long = 4671;
1822 /*^apply.arg*/
1823 argtab[3].meltbp_cstring = "start translateinit_mode cmd=";
1824 /*^apply.arg*/
1825 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CMD__V2*/ meltfptr[1];
1826 /*^apply.arg*/
1827 argtab[5].meltbp_cstring = " moduldata=";
1828 /*^apply.arg*/
1829 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2];
1830 /*^apply.arg*/
1831 argtab[7].meltbp_cstring = " initial_environment=";
1832 /*^apply.arg*/
1833 argtab[8].meltbp_aptr = (melt_ptr_t*) &(/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[1]);
1834 /*_.MELT_DEBUG_FUN__V5*/
1835 meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1836 }
1837 ;
1838 /*_._IF___V4*/
1839 meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];;
1840 /*epilog*/
1841
1842 MELT_LOCATION("warmelt-modes.melt:4671:/ clear");
1843 /*clear*/ /*_#MELT_CALLCOUNT__L2*/
1844 meltfnum[1] = 0 ;
1845 /*^clear*/
1846 /*clear*/ /*_.MELT_DEBUG_FUN__V5*/
1847 meltfptr[4] = 0 ;
1848 }
1849 ;
1850 }
1851 else /*^cond.else*/
1852 {
1853
1854 /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;;
1855 }
1856 ;
1857
1858 {
1859 MELT_LOCATION("warmelt-modes.melt:4671:/ locexp");
1860 /*void*/
1861 (void)0;
1862 }
1863 ;
1864 /*^quasiblock*/
1865
1866
1867 /*epilog*/
1868
1869 /*^clear*/
1870 /*clear*/ /*_#MELT_NEED_DBG__L1*/
1871 meltfnum[0] = 0 ;
1872 /*^clear*/
1873 /*clear*/ /*_._IF___V4*/
1874 meltfptr[3] = 0 ;
1875 }
1876
1877 #else /*MELT_HAVE_DEBUG*/
1878 /*^cppif.else*/
1879 /*^block*/
1880 /*anyblock*/
1881 {
1882
1883
1884 {
1885 /*^locexp*/
1886 /*void*/(void)0;
1887 }
1888 ;
1889 /*epilog*/
1890 }
1891
1892 #endif /*MELT_HAVE_DEBUG*/
1893 ;
1894 MELT_LOCATION("warmelt-modes.melt:4673:/ quasiblock");
1895
1896
1897 /*_.RLIST__V7*/
1898 meltfptr[3] =
1899 (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));;
1900 /*^compute*/
1901 /*_?*/
1902 meltfram__.loc_CSTRING__o0 =
1903 melt_argument( "arg");;
1904 /*^compute*/
1905 /*_?*/
1906 meltfram__.loc_CSTRING__o1 =
1907 melt_argument( "arglist");;
1908
1909 MELT_CHECK_SIGNAL();
1910 ;
1911 MELT_LOCATION("warmelt-modes.melt:4677:/ cond");
1912 /*cond*/
1913 if (/*_?*/ meltfram__.loc_CSTRING__o0) /*then*/
1914 {
1915 /*^cond.then*/
1916 /*^block*/
1917 /*anyblock*/
1918 {
1919
1920 MELT_LOCATION("warmelt-modes.melt:4678:/ quasiblock");
1921
1922
1923 /*_.PROGARGSTR__V10*/
1924 meltfptr[9] =
1925 (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o0)));;
1926
1927 MELT_CHECK_SIGNAL();
1928 ;
1929 /*^compute*/
1930 /*_#STRING_SUFFIXED__L3*/
1931 meltfnum[1] =
1932 /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.PROGARGSTR__V10*/ meltfptr[9], ".melt"));;
1933 /*^compute*/
1934 /*_#NOT__L4*/
1935 meltfnum[0] =
1936 (!(/*_#STRING_SUFFIXED__L3*/ meltfnum[1]));;
1937 MELT_LOCATION("warmelt-modes.melt:4680:/ cond");
1938 /*cond*/
1939 if (/*_#NOT__L4*/ meltfnum[0]) /*then*/
1940 {
1941 /*^cond.then*/
1942 /*^block*/
1943 /*anyblock*/
1944 {
1945
1946
1947 {
1948 MELT_LOCATION("warmelt-modes.melt:4681:/ locexp");
1949 warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "MELT translated initial file without .melt suffix"),
1950 melt_string_str((melt_ptr_t)(/*_.PROGARGSTR__V10*/ meltfptr[9])));
1951 }
1952 ;
1953 /*epilog*/
1954 }
1955 ;
1956 } /*noelse*/
1957 ;
1958 /*_.LET___V9*/
1959 meltfptr[8] = /*_.PROGARGSTR__V10*/ meltfptr[9];;
1960
1961 MELT_LOCATION("warmelt-modes.melt:4678:/ clear");
1962 /*clear*/ /*_.PROGARGSTR__V10*/
1963 meltfptr[9] = 0 ;
1964 /*^clear*/
1965 /*clear*/ /*_#STRING_SUFFIXED__L3*/
1966 meltfnum[1] = 0 ;
1967 /*^clear*/
1968 /*clear*/ /*_#NOT__L4*/
1969 meltfnum[0] = 0 ;
1970 /*_.INARG__V8*/
1971 meltfptr[7] = /*_.LET___V9*/ meltfptr[8];;
1972 /*epilog*/
1973
1974 MELT_LOCATION("warmelt-modes.melt:4677:/ clear");
1975 /*clear*/ /*_.LET___V9*/
1976 meltfptr[8] = 0 ;
1977 }
1978 ;
1979 }
1980 else /*^cond.else*/
1981 {
1982
1983 /*^block*/
1984 /*anyblock*/
1985 {
1986
1987
1988 MELT_CHECK_SIGNAL();
1989 ;
1990 MELT_LOCATION("warmelt-modes.melt:4684:/ cond");
1991 /*cond*/
1992 if (/*_?*/ meltfram__.loc_CSTRING__o1) /*then*/
1993 {
1994 /*^cond.then*/
1995 /*^block*/
1996 /*anyblock*/
1997 {
1998
1999 /*_.MAKE_STRINGCONST__V12*/ meltfptr[8] =
2000 (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o1)));;
2001 /*^compute*/
2002 /*_.SPLIT_STRING_COMMA__V13*/
2003 meltfptr[12] =
2004 meltgc_new_split_string (melt_string_str ((melt_ptr_t) /*_.MAKE_STRINGCONST__V12*/ meltfptr[8]), ',', (melt_ptr_t) (/*!DISCR_STRING*/ meltfrout->tabval[3]));;
2005 /*^compute*/
2006 /*_._IFELSE___V11*/
2007 meltfptr[9] = /*_.SPLIT_STRING_COMMA__V13*/ meltfptr[12];;
2008 /*epilog*/
2009
2010 MELT_LOCATION("warmelt-modes.melt:4684:/ clear");
2011 /*clear*/ /*_.MAKE_STRINGCONST__V12*/
2012 meltfptr[8] = 0 ;
2013 /*^clear*/
2014 /*clear*/ /*_.SPLIT_STRING_COMMA__V13*/
2015 meltfptr[12] = 0 ;
2016 }
2017 ;
2018 }
2019 else /*^cond.else*/
2020 {
2021
2022 /*^block*/
2023 /*anyblock*/
2024 {
2025
2026
2027 MELT_CHECK_SIGNAL();
2028 ;
2029 MELT_LOCATION("warmelt-modes.melt:4688:/ apply");
2030 /*apply*/
2031 {
2032 union meltparam_un argtab[3];
2033 memset(&argtab, 0, sizeof(argtab));
2034 /*^apply.arg*/
2035 argtab[0].meltbp_cstring = "invalid arg $1 or arglist $2 to translateinit mode";
2036 /*^apply.arg*/
2037 argtab[1].meltbp_cstring = /*_?*/ meltfram__.loc_CSTRING__o0;
2038 /*^apply.arg*/
2039 argtab[2].meltbp_cstring = /*_?*/ meltfram__.loc_CSTRING__o1;
2040 /*_.ERROR_AT__V14*/
2041 meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
2042 }
2043 ;
2044 MELT_LOCATION("warmelt-modes.melt:4689:/ quasiblock");
2045
2046
2047 /*_._RETVAL___V1*/
2048 meltfptr[0] = /*reallynil*/ NULL ;;
2049
2050 {
2051 MELT_LOCATION("warmelt-modes.melt:4689:/ locexp");
2052 /*ochecknores compilobj_nrep_return*/
2053 #if MELT_HAVE_DEBUG
2054 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
2055 melt_warn_for_no_expected_secondary_results();
2056 /* we warned when secondary results are expected but not returned. */
2057 #endif /*MELT_HAVE_DEBUG*/
2058 ;
2059 }
2060 ;
2061 /*^finalreturn*/
2062 ;
2063 /*finalret*/
2064 goto meltlabend_rout ;
2065 MELT_LOCATION("warmelt-modes.melt:4687:/ quasiblock");
2066
2067
2068 /*_.PROGN___V16*/
2069 meltfptr[15] = /*_.RETURN___V15*/ meltfptr[12];;
2070 /*^compute*/
2071 /*_._IFELSE___V11*/
2072 meltfptr[9] = /*_.PROGN___V16*/ meltfptr[15];;
2073 /*epilog*/
2074
2075 MELT_LOCATION("warmelt-modes.melt:4684:/ clear");
2076 /*clear*/ /*_.ERROR_AT__V14*/
2077 meltfptr[8] = 0 ;
2078 /*^clear*/
2079 /*clear*/ /*_.RETURN___V15*/
2080 meltfptr[12] = 0 ;
2081 /*^clear*/
2082 /*clear*/ /*_.PROGN___V16*/
2083 meltfptr[15] = 0 ;
2084 }
2085 ;
2086 }
2087 ;
2088 /*_.INARG__V8*/
2089 meltfptr[7] = /*_._IFELSE___V11*/ meltfptr[9];;
2090 /*epilog*/
2091
2092 MELT_LOCATION("warmelt-modes.melt:4677:/ clear");
2093 /*clear*/ /*_._IFELSE___V11*/
2094 meltfptr[9] = 0 ;
2095 }
2096 ;
2097 }
2098 ;
2099 /*_?*/
2100 meltfram__.loc_CSTRING__o2 =
2101 melt_argument( "output");;
2102 /*^compute*/
2103 /*_.OUTARG__V17*/
2104 meltfptr[8] =
2105 (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o2)));;
2106
2107 MELT_CHECK_SIGNAL();
2108 ;
2109 /*^compute*/
2110 /*_#IS_STRING__L5*/
2111 meltfnum[1] =
2112 (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V17*/ meltfptr[8])) == MELTOBMAG_STRING);;
2113 MELT_LOCATION("warmelt-modes.melt:4692:/ cond");
2114 /*cond*/
2115 if (/*_#IS_STRING__L5*/ meltfnum[1]) /*then*/
2116 {
2117 /*^cond.then*/
2118 /*_.BASNAM__V18*/ meltfptr[12] = /*_.OUTARG__V17*/ meltfptr[8];;
2119 }
2120 else
2121 {
2122 MELT_LOCATION("warmelt-modes.melt:4692:/ cond.else");
2123
2124 /*^block*/
2125 /*anyblock*/
2126 {
2127
2128
2129 MELT_CHECK_SIGNAL();
2130 ;
2131 /*_#IS_STRING__L6*/
2132 meltfnum[0] =
2133 (melt_magic_discr((melt_ptr_t)(/*_.INARG__V8*/ meltfptr[7])) == MELTOBMAG_STRING);;
2134 MELT_LOCATION("warmelt-modes.melt:4693:/ cond");
2135 /*cond*/
2136 if (/*_#IS_STRING__L6*/ meltfnum[0]) /*then*/
2137 {
2138 /*^cond.then*/
2139 /*^block*/
2140 /*anyblock*/
2141 {
2142
2143 /*_.MAKE_STRING_NAKEDBASENAME__V20*/ meltfptr[9] =
2144 (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])),
2145 melt_string_str((melt_ptr_t)(/*_.INARG__V8*/ meltfptr[7]))));;
2146 /*^compute*/
2147 /*_._IFELSE___V19*/
2148 meltfptr[15] = /*_.MAKE_STRING_NAKEDBASENAME__V20*/ meltfptr[9];;
2149 /*epilog*/
2150
2151 MELT_LOCATION("warmelt-modes.melt:4693:/ clear");
2152 /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V20*/
2153 meltfptr[9] = 0 ;
2154 }
2155 ;
2156 }
2157 else /*^cond.else*/
2158 {
2159
2160 /*^block*/
2161 /*anyblock*/
2162 {
2163
2164
2165 MELT_CHECK_SIGNAL();
2166 ;
2167 MELT_LOCATION("warmelt-modes.melt:4695:/ apply");
2168 /*apply*/
2169 {
2170 union meltparam_un argtab[3];
2171 memset(&argtab, 0, sizeof(argtab));
2172 /*^apply.arg*/
2173 argtab[0].meltbp_cstring = "invalid translateinit mode inarg $1 outarg $2";
2174 /*^apply.arg*/
2175 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.INARG__V8*/ meltfptr[7];
2176 /*^apply.arg*/
2177 argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V17*/ meltfptr[8];
2178 /*_.ERROR_AT__V21*/
2179 meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2180 }
2181 ;
2182 MELT_LOCATION("warmelt-modes.melt:4696:/ quasiblock");
2183
2184
2185 /*_._RETVAL___V1*/
2186 meltfptr[0] = /*reallynil*/ NULL ;;
2187
2188 {
2189 MELT_LOCATION("warmelt-modes.melt:4696:/ locexp");
2190 /*ochecknores compilobj_nrep_return*/
2191 #if MELT_HAVE_DEBUG
2192 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
2193 melt_warn_for_no_expected_secondary_results();
2194 /* we warned when secondary results are expected but not returned. */
2195 #endif /*MELT_HAVE_DEBUG*/
2196 ;
2197 }
2198 ;
2199 /*^finalreturn*/
2200 ;
2201 /*finalret*/
2202 goto meltlabend_rout ;
2203 MELT_LOCATION("warmelt-modes.melt:4694:/ quasiblock");
2204
2205
2206 /*_.PROGN___V23*/
2207 meltfptr[22] = /*_.RETURN___V22*/ meltfptr[21];;
2208 /*^compute*/
2209 /*_._IFELSE___V19*/
2210 meltfptr[15] = /*_.PROGN___V23*/ meltfptr[22];;
2211 /*epilog*/
2212
2213 MELT_LOCATION("warmelt-modes.melt:4693:/ clear");
2214 /*clear*/ /*_.ERROR_AT__V21*/
2215 meltfptr[9] = 0 ;
2216 /*^clear*/
2217 /*clear*/ /*_.RETURN___V22*/
2218 meltfptr[21] = 0 ;
2219 /*^clear*/
2220 /*clear*/ /*_.PROGN___V23*/
2221 meltfptr[22] = 0 ;
2222 }
2223 ;
2224 }
2225 ;
2226 /*_.BASNAM__V18*/
2227 meltfptr[12] = /*_._IFELSE___V19*/ meltfptr[15];;
2228 /*epilog*/
2229
2230 MELT_LOCATION("warmelt-modes.melt:4692:/ clear");
2231 /*clear*/ /*_#IS_STRING__L6*/
2232 meltfnum[0] = 0 ;
2233 /*^clear*/
2234 /*clear*/ /*_._IFELSE___V19*/
2235 meltfptr[15] = 0 ;
2236 }
2237 ;
2238 }
2239 ;
2240
2241 #if MELT_HAVE_DEBUG
2242 MELT_LOCATION("warmelt-modes.melt:4699:/ cppif.then");
2243 /*^block*/
2244 /*anyblock*/
2245 {
2246
2247
2248 {
2249 /*^locexp*/
2250 /*melt_increment_dbgcounter*/
2251 #if MELT_HAVE_DEBUG
2252 melt_dbgcounter++;
2253 #endif
2254 ;
2255 }
2256 ;
2257
2258 MELT_CHECK_SIGNAL();
2259 ;
2260 /*_#MELT_NEED_DBG__L7*/
2261 meltfnum[0] =
2262 /*MELT_NEED_DBG*/
2263 #if MELT_HAVE_DEBUG
2264 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
2265 #else
2266 0 /* no melt_need_dbg */
2267 #endif /*MELT_HAVE_DEBUG*/
2268 ;;
2269 MELT_LOCATION("warmelt-modes.melt:4699:/ cond");
2270 /*cond*/
2271 if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/
2272 {
2273 /*^cond.then*/
2274 /*^block*/
2275 /*anyblock*/
2276 {
2277
2278 /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] =
2279 /* for melt_callcount */
2280 #if MELT_HAVE_DEBUG && defined (meltcallcount)
2281 meltcallcount /* melt_callcount debugging */
2282 #else
2283 0L /* melt_callcount without debug */
2284 #endif /* MELT_HAVE_DEBUG melt_callcount */
2285 ;;
2286
2287 MELT_CHECK_SIGNAL();
2288 ;
2289 MELT_LOCATION("warmelt-modes.melt:4699:/ apply");
2290 /*apply*/
2291 {
2292 union meltparam_un argtab[5];
2293 memset(&argtab, 0, sizeof(argtab));
2294 /*^apply.arg*/
2295 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[7];
2296 /*^apply.arg*/
2297 argtab[1].meltbp_cstring = "warmelt-modes.melt";
2298 /*^apply.arg*/
2299 argtab[2].meltbp_long = 4699;
2300 /*^apply.arg*/
2301 argtab[3].meltbp_cstring = "translateinit_mode basnam=";
2302 /*^apply.arg*/
2303 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V18*/ meltfptr[12];
2304 /*_.MELT_DEBUG_FUN__V25*/
2305 meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2306 }
2307 ;
2308 /*_._IF___V24*/
2309 meltfptr[9] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[21];;
2310 /*epilog*/
2311
2312 MELT_LOCATION("warmelt-modes.melt:4699:/ clear");
2313 /*clear*/ /*_#MELT_CALLCOUNT__L8*/
2314 meltfnum[7] = 0 ;
2315 /*^clear*/
2316 /*clear*/ /*_.MELT_DEBUG_FUN__V25*/
2317 meltfptr[21] = 0 ;
2318 }
2319 ;
2320 }
2321 else /*^cond.else*/
2322 {
2323
2324 /*_._IF___V24*/ meltfptr[9] = /*reallynil*/ NULL ;;
2325 }
2326 ;
2327
2328 {
2329 MELT_LOCATION("warmelt-modes.melt:4699:/ locexp");
2330 /*void*/
2331 (void)0;
2332 }
2333 ;
2334 /*^quasiblock*/
2335
2336
2337 /*epilog*/
2338
2339 /*^clear*/
2340 /*clear*/ /*_#MELT_NEED_DBG__L7*/
2341 meltfnum[0] = 0 ;
2342 /*^clear*/
2343 /*clear*/ /*_._IF___V24*/
2344 meltfptr[9] = 0 ;
2345 }
2346
2347 #else /*MELT_HAVE_DEBUG*/
2348 /*^cppif.else*/
2349 /*^block*/
2350 /*anyblock*/
2351 {
2352
2353
2354 {
2355 /*^locexp*/
2356 /*void*/(void)0;
2357 }
2358 ;
2359 /*epilog*/
2360 }
2361
2362 #endif /*MELT_HAVE_DEBUG*/
2363 ;
2364
2365 MELT_CHECK_SIGNAL();
2366 ;
2367 /*_#STRING_DYNLOADED_SUFFIXED__L9*/
2368 meltfnum[7] =
2369 /*string_dynloaded_suffixed:*/ (melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V18*/ meltfptr[12],
2370 MELT_DYNLOADED_SUFFIX));;
2371 MELT_LOCATION("warmelt-modes.melt:4700:/ cond");
2372 /*cond*/
2373 if (/*_#STRING_DYNLOADED_SUFFIXED__L9*/ meltfnum[7]) /*then*/
2374 {
2375 /*^cond.then*/
2376 /*_#OR___L10*/ meltfnum[0] = /*_#STRING_DYNLOADED_SUFFIXED__L9*/ meltfnum[7];;
2377 }
2378 else
2379 {
2380 MELT_LOCATION("warmelt-modes.melt:4700:/ cond.else");
2381
2382 /*^block*/
2383 /*anyblock*/
2384 {
2385
2386 /*_#STRING_SUFFIXED__L11*/ meltfnum[10] =
2387 /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V18*/ meltfptr[12], ".melt"));;
2388 MELT_LOCATION("warmelt-modes.melt:4700:/ cond");
2389 /*cond*/
2390 if (/*_#STRING_SUFFIXED__L11*/ meltfnum[10]) /*then*/
2391 {
2392 /*^cond.then*/
2393 /*_#OR___L12*/ meltfnum[11] = /*_#STRING_SUFFIXED__L11*/ meltfnum[10];;
2394 }
2395 else
2396 {
2397 MELT_LOCATION("warmelt-modes.melt:4700:/ cond.else");
2398
2399 /*^block*/
2400 /*anyblock*/
2401 {
2402
2403 /*_#STRING_SUFFIXED__L13*/ meltfnum[12] =
2404 /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V18*/ meltfptr[12], ".c"));;
2405 MELT_LOCATION("warmelt-modes.melt:4700:/ cond");
2406 /*cond*/
2407 if (/*_#STRING_SUFFIXED__L13*/ meltfnum[12]) /*then*/
2408 {
2409 /*^cond.then*/
2410 /*_#OR___L14*/ meltfnum[13] = /*_#STRING_SUFFIXED__L13*/ meltfnum[12];;
2411 }
2412 else
2413 {
2414 MELT_LOCATION("warmelt-modes.melt:4700:/ cond.else");
2415
2416 /*^block*/
2417 /*anyblock*/
2418 {
2419
2420 /*_#STRING_SUFFIXED__L15*/ meltfnum[14] =
2421 /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V18*/ meltfptr[12], ".cc"));;
2422 /*^compute*/
2423 /*_#OR___L14*/
2424 meltfnum[13] = /*_#STRING_SUFFIXED__L15*/ meltfnum[14];;
2425 /*epilog*/
2426
2427 MELT_LOCATION("warmelt-modes.melt:4700:/ clear");
2428 /*clear*/ /*_#STRING_SUFFIXED__L15*/
2429 meltfnum[14] = 0 ;
2430 }
2431 ;
2432 }
2433 ;
2434 /*_#OR___L12*/
2435 meltfnum[11] = /*_#OR___L14*/ meltfnum[13];;
2436 /*epilog*/
2437
2438 MELT_LOCATION("warmelt-modes.melt:4700:/ clear");
2439 /*clear*/ /*_#STRING_SUFFIXED__L13*/
2440 meltfnum[12] = 0 ;
2441 /*^clear*/
2442 /*clear*/ /*_#OR___L14*/
2443 meltfnum[13] = 0 ;
2444 }
2445 ;
2446 }
2447 ;
2448 /*_#OR___L10*/
2449 meltfnum[0] = /*_#OR___L12*/ meltfnum[11];;
2450 /*epilog*/
2451
2452 MELT_LOCATION("warmelt-modes.melt:4700:/ clear");
2453 /*clear*/ /*_#STRING_SUFFIXED__L11*/
2454 meltfnum[10] = 0 ;
2455 /*^clear*/
2456 /*clear*/ /*_#OR___L12*/
2457 meltfnum[11] = 0 ;
2458 }
2459 ;
2460 }
2461 ;
2462 /*^cond*/
2463 /*cond*/
2464 if (/*_#OR___L10*/ meltfnum[0]) /*then*/
2465 {
2466 /*^cond.then*/
2467 /*^block*/
2468 /*anyblock*/
2469 {
2470
2471
2472 MELT_CHECK_SIGNAL();
2473 ;
2474 MELT_LOCATION("warmelt-modes.melt:4705:/ apply");
2475 /*apply*/
2476 {
2477 union meltparam_un argtab[2];
2478 memset(&argtab, 0, sizeof(argtab));
2479 /*^apply.arg*/
2480 argtab[0].meltbp_cstring = "tranlateinit mode needs a base name $1 without suffix";
2481 /*^apply.arg*/
2482 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V18*/ meltfptr[12];
2483 /*_.ERROR_AT__V27*/
2484 meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2485 }
2486 ;
2487 MELT_LOCATION("warmelt-modes.melt:4707:/ quasiblock");
2488
2489
2490 /*_._RETVAL___V1*/
2491 meltfptr[0] = /*reallynil*/ NULL ;;
2492
2493 {
2494 MELT_LOCATION("warmelt-modes.melt:4707:/ locexp");
2495 /*ochecknores compilobj_nrep_return*/
2496 #if MELT_HAVE_DEBUG
2497 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
2498 melt_warn_for_no_expected_secondary_results();
2499 /* we warned when secondary results are expected but not returned. */
2500 #endif /*MELT_HAVE_DEBUG*/
2501 ;
2502 }
2503 ;
2504 /*^finalreturn*/
2505 ;
2506 /*finalret*/
2507 goto meltlabend_rout ;
2508 MELT_LOCATION("warmelt-modes.melt:4704:/ quasiblock");
2509
2510
2511 /*_.PROGN___V29*/
2512 meltfptr[9] = /*_.RETURN___V28*/ meltfptr[21];;
2513 /*^compute*/
2514 /*_._IF___V26*/
2515 meltfptr[22] = /*_.PROGN___V29*/ meltfptr[9];;
2516 /*epilog*/
2517
2518 MELT_LOCATION("warmelt-modes.melt:4700:/ clear");
2519 /*clear*/ /*_.ERROR_AT__V27*/
2520 meltfptr[15] = 0 ;
2521 /*^clear*/
2522 /*clear*/ /*_.RETURN___V28*/
2523 meltfptr[21] = 0 ;
2524 /*^clear*/
2525 /*clear*/ /*_.PROGN___V29*/
2526 meltfptr[9] = 0 ;
2527 }
2528 ;
2529 }
2530 else /*^cond.else*/
2531 {
2532
2533 /*_._IF___V26*/ meltfptr[22] = /*reallynil*/ NULL ;;
2534 }
2535 ;
2536
2537 MELT_CHECK_SIGNAL();
2538 ;
2539 /*^compute*/
2540 /*_#IS_STRING__L16*/
2541 meltfnum[14] =
2542 (melt_magic_discr((melt_ptr_t)(/*_.INARG__V8*/ meltfptr[7])) == MELTOBMAG_STRING);;
2543 MELT_LOCATION("warmelt-modes.melt:4710:/ cond");
2544 /*cond*/
2545 if (/*_#IS_STRING__L16*/ meltfnum[14]) /*then*/
2546 {
2547 /*^cond.then*/
2548 /*^block*/
2549 /*anyblock*/
2550 {
2551
2552 /*_.READ_FILE__V31*/ meltfptr[21] =
2553 (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.INARG__V8*/ meltfptr[7])), (char*)0));;
2554
2555 MELT_CHECK_SIGNAL();
2556 ;
2557 MELT_LOCATION("warmelt-modes.melt:4711:/ apply");
2558 /*apply*/
2559 {
2560 union meltparam_un argtab[1];
2561 memset(&argtab, 0, sizeof(argtab));
2562 /*^apply.arg*/
2563 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.READ_FILE__V31*/ meltfptr[21];
2564 /*_.LIST_APPEND2LIST__V32*/
2565 meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.RLIST__V7*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2566 }
2567 ;
2568 /*_._IFELSE___V30*/
2569 meltfptr[15] = /*_.LIST_APPEND2LIST__V32*/ meltfptr[9];;
2570 /*epilog*/
2571
2572 MELT_LOCATION("warmelt-modes.melt:4710:/ clear");
2573 /*clear*/ /*_.READ_FILE__V31*/
2574 meltfptr[21] = 0 ;
2575 /*^clear*/
2576 /*clear*/ /*_.LIST_APPEND2LIST__V32*/
2577 meltfptr[9] = 0 ;
2578 }
2579 ;
2580 }
2581 else /*^cond.else*/
2582 {
2583
2584 /*^block*/
2585 /*anyblock*/
2586 {
2587
2588
2589 MELT_CHECK_SIGNAL();
2590 ;
2591 /*_#IS_LIST__L17*/
2592 meltfnum[12] =
2593 (melt_magic_discr((melt_ptr_t)(/*_.INARG__V8*/ meltfptr[7])) == MELTOBMAG_LIST);;
2594 MELT_LOCATION("warmelt-modes.melt:4712:/ cond");
2595 /*cond*/
2596 if (/*_#IS_LIST__L17*/ meltfnum[12]) /*then*/
2597 {
2598 /*^cond.then*/
2599 /*^block*/
2600 /*anyblock*/
2601 {
2602
2603 MELT_LOCATION("warmelt-modes.melt:4714:/ quasiblock");
2604
2605
2606 /*^newclosure*/
2607 /*newclosure*/ /*_.LAMBDA___V35*/
2608 meltfptr[34] =
2609 (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ meltfrout->tabval[11])), (1));
2610 ;
2611 /*^putclosedv*/
2612 /*putclosv*/
2613 melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V35*/ meltfptr[34])) == MELTOBMAG_CLOSURE);
2614 melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V35*/ meltfptr[34])));
2615 ((meltclosure_ptr_t)/*_.LAMBDA___V35*/ meltfptr[34])->tabval[0] = (melt_ptr_t)(/*_.RLIST__V7*/ meltfptr[3]);
2616 ;
2617 /*_.LAMBDA___V34*/
2618 meltfptr[9] = /*_.LAMBDA___V35*/ meltfptr[34];;
2619
2620 MELT_CHECK_SIGNAL();
2621 ;
2622 MELT_LOCATION("warmelt-modes.melt:4713:/ apply");
2623 /*apply*/
2624 {
2625 union meltparam_un argtab[1];
2626 memset(&argtab, 0, sizeof(argtab));
2627 /*^apply.arg*/
2628 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V34*/ meltfptr[9];
2629 /*_.LIST_EVERY__V36*/
2630 meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.INARG__V8*/ meltfptr[7]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2631 }
2632 ;
2633 /*_._IFELSE___V33*/
2634 meltfptr[21] = /*_.LIST_EVERY__V36*/ meltfptr[35];;
2635 /*epilog*/
2636
2637 MELT_LOCATION("warmelt-modes.melt:4712:/ clear");
2638 /*clear*/ /*_.LAMBDA___V34*/
2639 meltfptr[9] = 0 ;
2640 /*^clear*/
2641 /*clear*/ /*_.LIST_EVERY__V36*/
2642 meltfptr[35] = 0 ;
2643 }
2644 ;
2645 }
2646 else /*^cond.else*/
2647 {
2648
2649 /*_._IFELSE___V33*/ meltfptr[21] = /*reallynil*/ NULL ;;
2650 }
2651 ;
2652 /*^compute*/
2653 /*_._IFELSE___V30*/
2654 meltfptr[15] = /*_._IFELSE___V33*/ meltfptr[21];;
2655 /*epilog*/
2656
2657 MELT_LOCATION("warmelt-modes.melt:4710:/ clear");
2658 /*clear*/ /*_#IS_LIST__L17*/
2659 meltfnum[12] = 0 ;
2660 /*^clear*/
2661 /*clear*/ /*_._IFELSE___V33*/
2662 meltfptr[21] = 0 ;
2663 }
2664 ;
2665 }
2666 ;
2667
2668 #if MELT_HAVE_DEBUG
2669 MELT_LOCATION("warmelt-modes.melt:4723:/ cppif.then");
2670 /*^block*/
2671 /*anyblock*/
2672 {
2673
2674
2675 {
2676 /*^locexp*/
2677 /*melt_increment_dbgcounter*/
2678 #if MELT_HAVE_DEBUG
2679 melt_dbgcounter++;
2680 #endif
2681 ;
2682 }
2683 ;
2684
2685 MELT_CHECK_SIGNAL();
2686 ;
2687 /*_#MELT_NEED_DBG__L18*/
2688 meltfnum[13] =
2689 /*MELT_NEED_DBG*/
2690 #if MELT_HAVE_DEBUG
2691 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
2692 #else
2693 0 /* no melt_need_dbg */
2694 #endif /*MELT_HAVE_DEBUG*/
2695 ;;
2696 MELT_LOCATION("warmelt-modes.melt:4723:/ cond");
2697 /*cond*/
2698 if (/*_#MELT_NEED_DBG__L18*/ meltfnum[13]) /*then*/
2699 {
2700 /*^cond.then*/
2701 /*^block*/
2702 /*anyblock*/
2703 {
2704
2705 /*_#MELT_CALLCOUNT__L19*/ meltfnum[10] =
2706 /* for melt_callcount */
2707 #if MELT_HAVE_DEBUG && defined (meltcallcount)
2708 meltcallcount /* melt_callcount debugging */
2709 #else
2710 0L /* melt_callcount without debug */
2711 #endif /* MELT_HAVE_DEBUG melt_callcount */
2712 ;;
2713
2714 MELT_CHECK_SIGNAL();
2715 ;
2716 MELT_LOCATION("warmelt-modes.melt:4723:/ apply");
2717 /*apply*/
2718 {
2719 union meltparam_un argtab[5];
2720 memset(&argtab, 0, sizeof(argtab));
2721 /*^apply.arg*/
2722 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L19*/ meltfnum[10];
2723 /*^apply.arg*/
2724 argtab[1].meltbp_cstring = "warmelt-modes.melt";
2725 /*^apply.arg*/
2726 argtab[2].meltbp_long = 4723;
2727 /*^apply.arg*/
2728 argtab[3].meltbp_cstring = "after read translateinit_mode rlist=";
2729 /*^apply.arg*/
2730 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RLIST__V7*/ meltfptr[3];
2731 /*_.MELT_DEBUG_FUN__V38*/
2732 meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2733 }
2734 ;
2735 /*_._IF___V37*/
2736 meltfptr[9] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[35];;
2737 /*epilog*/
2738
2739 MELT_LOCATION("warmelt-modes.melt:4723:/ clear");
2740 /*clear*/ /*_#MELT_CALLCOUNT__L19*/
2741 meltfnum[10] = 0 ;
2742 /*^clear*/
2743 /*clear*/ /*_.MELT_DEBUG_FUN__V38*/
2744 meltfptr[35] = 0 ;
2745 }
2746 ;
2747 }
2748 else /*^cond.else*/
2749 {
2750
2751 /*_._IF___V37*/ meltfptr[9] = /*reallynil*/ NULL ;;
2752 }
2753 ;
2754
2755 {
2756 MELT_LOCATION("warmelt-modes.melt:4723:/ locexp");
2757 /*void*/
2758 (void)0;
2759 }
2760 ;
2761 /*^quasiblock*/
2762
2763
2764 /*epilog*/
2765
2766 /*^clear*/
2767 /*clear*/ /*_#MELT_NEED_DBG__L18*/
2768 meltfnum[13] = 0 ;
2769 /*^clear*/
2770 /*clear*/ /*_._IF___V37*/
2771 meltfptr[9] = 0 ;
2772 }
2773
2774 #else /*MELT_HAVE_DEBUG*/
2775 /*^cppif.else*/
2776 /*^block*/
2777 /*anyblock*/
2778 {
2779
2780
2781 {
2782 /*^locexp*/
2783 /*void*/(void)0;
2784 }
2785 ;
2786 /*epilog*/
2787 }
2788
2789 #endif /*MELT_HAVE_DEBUG*/
2790 ;
2791
2792 MELT_CHECK_SIGNAL();
2793 ;
2794 MELT_LOCATION("warmelt-modes.melt:4725:/ apply");
2795 /*apply*/
2796 {
2797 union meltparam_un argtab[1];
2798 memset(&argtab, 0, sizeof(argtab));
2799 /*^apply.arg*/
2800 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V18*/ meltfptr[12];
2801 /*_.COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR__V39*/
2802 meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.RLIST__V7*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2803 }
2804 ;
2805
2806 {
2807 MELT_LOCATION("warmelt-modes.melt:4728:/ locexp");
2808 melt_garbcoll((10000), MELT_NEED_FULL);
2809 }
2810 ;
2811
2812 MELT_CHECK_SIGNAL();
2813 ;
2814 MELT_LOCATION("warmelt-modes.melt:4729:/ quasiblock");
2815
2816
2817 /*_._RETVAL___V1*/
2818 meltfptr[0] = (/*!konst_13_TRUE*/ meltfrout->tabval[13]);;
2819
2820 {
2821 MELT_LOCATION("warmelt-modes.melt:4729:/ locexp");
2822 /*ochecknores compilobj_nrep_return*/
2823 #if MELT_HAVE_DEBUG
2824 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
2825 melt_warn_for_no_expected_secondary_results();
2826 /* we warned when secondary results are expected but not returned. */
2827 #endif /*MELT_HAVE_DEBUG*/
2828 ;
2829 }
2830 ;
2831 /*^finalreturn*/
2832 ;
2833 /*finalret*/
2834 goto meltlabend_rout ;
2835 /*_.LET___V6*/
2836 meltfptr[4] = /*_.RETURN___V40*/ meltfptr[35];;
2837
2838 MELT_LOCATION("warmelt-modes.melt:4673:/ clear");
2839 /*clear*/ /*_.RLIST__V7*/
2840 meltfptr[3] = 0 ;
2841 /*^clear*/
2842 /*clear*/ /*_?*/
2843 meltfram__.loc_CSTRING__o0 = 0 ;
2844 /*^clear*/
2845 /*clear*/ /*_?*/
2846 meltfram__.loc_CSTRING__o1 = 0 ;
2847 /*^clear*/
2848 /*clear*/ /*_.INARG__V8*/
2849 meltfptr[7] = 0 ;
2850 /*^clear*/
2851 /*clear*/ /*_?*/
2852 meltfram__.loc_CSTRING__o2 = 0 ;
2853 /*^clear*/
2854 /*clear*/ /*_.OUTARG__V17*/
2855 meltfptr[8] = 0 ;
2856 /*^clear*/
2857 /*clear*/ /*_#IS_STRING__L5*/
2858 meltfnum[1] = 0 ;
2859 /*^clear*/
2860 /*clear*/ /*_.BASNAM__V18*/
2861 meltfptr[12] = 0 ;
2862 /*^clear*/
2863 /*clear*/ /*_#STRING_DYNLOADED_SUFFIXED__L9*/
2864 meltfnum[7] = 0 ;
2865 /*^clear*/
2866 /*clear*/ /*_#OR___L10*/
2867 meltfnum[0] = 0 ;
2868 /*^clear*/
2869 /*clear*/ /*_._IF___V26*/
2870 meltfptr[22] = 0 ;
2871 /*^clear*/
2872 /*clear*/ /*_#IS_STRING__L16*/
2873 meltfnum[14] = 0 ;
2874 /*^clear*/
2875 /*clear*/ /*_._IFELSE___V30*/
2876 meltfptr[15] = 0 ;
2877 /*^clear*/
2878 /*clear*/ /*_.COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR__V39*/
2879 meltfptr[21] = 0 ;
2880 /*^clear*/
2881 /*clear*/ /*_.RETURN___V40*/
2882 meltfptr[35] = 0 ;
2883
2884 MELT_CHECK_SIGNAL();
2885 ;
2886 MELT_LOCATION("warmelt-modes.melt:4670:/ quasiblock");
2887
2888
2889 /*_._RETVAL___V1*/
2890 meltfptr[0] = /*_.LET___V6*/ meltfptr[4];;
2891
2892 {
2893 MELT_LOCATION("warmelt-modes.melt:4670:/ locexp");
2894 /*ochecknores compilobj_nrep_return*/
2895 #if MELT_HAVE_DEBUG
2896 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
2897 melt_warn_for_no_expected_secondary_results();
2898 /* we warned when secondary results are expected but not returned. */
2899 #endif /*MELT_HAVE_DEBUG*/
2900 ;
2901 }
2902 ;
2903 /*^finalreturn*/
2904 ;
2905 /*finalret*/
2906 goto meltlabend_rout ;
2907 /*epilog*/
2908
2909 /*^clear*/
2910 /*clear*/ /*_.LET___V6*/
2911 meltfptr[4] = 0 ;
2912 }
2913
2914 ;
2915 goto meltlabend_rout;
2916 meltlabend_rout:
2917 melt_trace_end("TRANSLATEINIT_DOCMD", meltcallcount);
2918 melt_blocklevel_signals = current_blocklevel_signals_meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD_melt;
2919 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
2920 #undef meltcallcount
2921 #undef meltfram__
2922 #undef MELTFRAM_NBVARNUM
2923 #undef MELTFRAM_NBVARPTR
2924 } /*end meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD*/
2925
2926
2927
2928
2929
2930
2931 melt_ptr_t MELT_MODULE_VISIBILITY
2932 meltrout_69_WARMELTmiMODES_LAMBDA_cl20(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
2933 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
2934 {
2935 long current_blocklevel_signals_meltrout_69_WARMELTmiMODES_LAMBDA_cl20_melt = melt_blocklevel_signals;
2936
2937 #if MELT_HAVE_DEBUG
2938 static long melt_call_counter__;
2939 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
2940 #undef meltcallcount
2941 #define meltcallcount melt_thiscallcounter__
2942 #else
2943 #undef meltcallcount
2944 #define meltcallcount 0L
2945 #endif
2946 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
2947
2948 /* start of frame for routine meltrout_69_WARMELTmiMODES_LAMBDA_cl20 fromline 1752 */
2949
2950 /** start of frame for meltrout_69_WARMELTmiMODES_LAMBDA_cl20 of CLASS_PROCROUTINEOBJ from 1555**/
2951
2952 /*curframdeclclassy*/ class MeltFrame_meltrout_69_WARMELTmiMODES_LAMBDA_cl20// fromline 1568
2953 : public Melt_CallFrameWithValues<14>
2954 {
2955 public: /* fromline 1572*/
2956 long mcfr_varnum[4];
2957 /*classy others*/
2958 long _meltsparel;
2959 void melt_mark_stuff (void)
2960 {
2961 } /*end melt_mark_stuff*/
2962 virtual void melt_mark_ggc_data (void)
2963 {
2964 melt_mark_values ();
2965 melt_mark_stuff ();
2966 }; /*end melt_mark_ggc_data*/
2967 MeltFrame_meltrout_69_WARMELTmiMODES_LAMBDA_cl20(meltclosure_ptr_t clos) //the closure constructor fromline 1630
2968 : Melt_CallFrameWithValues<14> (
2969 #if ENABLE_CHECKING /*fromline 1634*/
2970 __FILE__, __LINE__,
2971 #endif /* ENABLE_CHECKING fromline 1638*/
2972 sizeof(MeltFrame_meltrout_69_WARMELTmiMODES_LAMBDA_cl20), clos) {};
2973 MeltFrame_meltrout_69_WARMELTmiMODES_LAMBDA_cl20() //the constructor fromline 1642
2974 : Melt_CallFrameWithValues<14> (
2975 #if ENABLE_CHECKING /*fromline 1646*/
2976 __FILE__, __LINE__,
2977 #endif /* ENABLE_CHECKING fromline 1650*/
2978 sizeof(MeltFrame_meltrout_69_WARMELTmiMODES_LAMBDA_cl20)) {};
2979 #if ENABLE_CHECKING /*fromline 1654*/
2980 MeltFrame_meltrout_69_WARMELTmiMODES_LAMBDA_cl20(const char*fil, int lin) //the constructor fromline 1656
2981 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_69_WARMELTmiMODES_LAMBDA_cl20)) {};
2982 MeltFrame_meltrout_69_WARMELTmiMODES_LAMBDA_cl20(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
2983 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_69_WARMELTmiMODES_LAMBDA_cl20), clos) {};
2984 #endif /* ENABLE_CHECKING fromline 1666*/
2985
2986 }; // end class MeltFrame_meltrout_69_WARMELTmiMODES_LAMBDA_cl20
2987
2988
2989 /** end of frame for meltrout_69_WARMELTmiMODES_LAMBDA_cl20 fromline 1697**/
2990
2991 /* end of frame for routine meltrout_69_WARMELTmiMODES_LAMBDA_cl20 fromline 1756 */
2992
2993 /* classy proc frame meltrout_69_WARMELTmiMODES_LAMBDA_cl20 */
2994 MeltFrame_meltrout_69_WARMELTmiMODES_LAMBDA_cl20
2995 meltfram__ /*declfrastruct fromline 1780*/
2996 /*classyprocarg meltrout_69_WARMELTmiMODES_LAMBDA_cl20 fromline 1785*/
2997 #if ENABLE_CHECKING
2998 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
2999 #else /*ENABLE_CHECKING */
3000 (meltclosp_) /* fromline 1793*/
3001 #endif /*ENABLE_CHECKING */
3002
3003 ;
3004 #define meltframe meltfram__
3005
3006 melt_trace_start("LAMBDA_cl20", meltcallcount);
3007 /*use arguments*/
3008 (void) meltclosp_;
3009 (void)meltfirstargp_;
3010 (void)meltxargdescr_;
3011 (void)meltxargtab_;
3012 (void)meltxresdescr_;
3013 (void)meltxrestab_;
3014 /*getargs*/
3015
3016 /*getarg#0*/
3017 MELT_LOCATION("warmelt-modes.melt:4714:/ getarg");
3018 /*_.CURARG__V2*/
3019 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
3020 ;
3021 goto meltlab_endgetargs;
3022 meltlab_endgetargs:
3023 ;
3024 /*body*/
3025 /*^block*/
3026 /*anyblock*/
3027 {
3028
3029
3030 MELT_CHECK_SIGNAL();
3031 ;
3032 MELT_LOCATION("warmelt-modes.melt:4715:/ apply");
3033 /*apply*/
3034 {
3035 union meltparam_un argtab[2];
3036 memset(&argtab, 0, sizeof(argtab));
3037 /*^apply.arg*/
3038 argtab[0].meltbp_cstring = "translateinit reading from file $1";
3039 /*^apply.arg*/
3040 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURARG__V2*/ meltfptr[1];
3041 /*_.INFORM_AT__V3*/
3042 meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!INFORM_AT*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3043 }
3044 ;
3045 MELT_LOCATION("warmelt-modes.melt:4716:/ quasiblock");
3046
3047
3048 /*_.CUREAD__V5*/
3049 meltfptr[4] =
3050 (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1])), (char*)0));;
3051
3052 #if MELT_HAVE_DEBUG
3053 MELT_LOCATION("warmelt-modes.melt:4718:/ cppif.then");
3054 /*^block*/
3055 /*anyblock*/
3056 {
3057
3058
3059 MELT_CHECK_SIGNAL();
3060 ;
3061 /*_#IS_LIST__L1*/
3062 meltfnum[0] =
3063 (melt_magic_discr((melt_ptr_t)((/*~RLIST*/ meltfclos->tabval[0]))) == MELTOBMAG_LIST);;
3064 MELT_LOCATION("warmelt-modes.melt:4718:/ cond");
3065 /*cond*/
3066 if (/*_#IS_LIST__L1*/ meltfnum[0]) /*then*/
3067 {
3068 /*^cond.then*/
3069 /*_._IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);;
3070 }
3071 else
3072 {
3073 MELT_LOCATION("warmelt-modes.melt:4718:/ cond.else");
3074
3075 /*^block*/
3076 /*anyblock*/
3077 {
3078
3079
3080 MELT_CHECK_SIGNAL();
3081 ;
3082 /*^apply*/
3083 /*apply*/
3084 {
3085 union meltparam_un argtab[4];
3086 memset(&argtab, 0, sizeof(argtab));
3087 /*^apply.arg*/
3088 argtab[0].meltbp_cstring = "check rlist";
3089 /*^apply.arg*/
3090 argtab[1].meltbp_cstring = "warmelt-modes.melt";
3091 /*^apply.arg*/
3092 argtab[2].meltbp_long = 4718;
3093 /*^apply.arg*/
3094 argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*~RLIST*/ meltfclos->tabval[0]);
3095 /*_.MELT_ASSERT_FAILURE_FUN__V8*/
3096 meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3097 }
3098 ;
3099 /*_._IFELSE___V7*/
3100 meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];;
3101 /*epilog*/
3102
3103 MELT_LOCATION("warmelt-modes.melt:4718:/ clear");
3104 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/
3105 meltfptr[7] = 0 ;
3106 }
3107 ;
3108 }
3109 ;
3110 /*_.IFCPP___V6*/
3111 meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];;
3112 /*epilog*/
3113
3114 MELT_LOCATION("warmelt-modes.melt:4718:/ clear");
3115 /*clear*/ /*_#IS_LIST__L1*/
3116 meltfnum[0] = 0 ;
3117 /*^clear*/
3118 /*clear*/ /*_._IFELSE___V7*/
3119 meltfptr[6] = 0 ;
3120 }
3121
3122 #else /*MELT_HAVE_DEBUG*/
3123 /*^cppif.else*/
3124 /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL);
3125 #endif /*MELT_HAVE_DEBUG*/
3126 ;
3127
3128 #if MELT_HAVE_DEBUG
3129 MELT_LOCATION("warmelt-modes.melt:4719:/ cppif.then");
3130 /*^block*/
3131 /*anyblock*/
3132 {
3133
3134
3135 MELT_CHECK_SIGNAL();
3136 ;
3137 /*_#IS_LIST_OR_NULL__L2*/
3138 meltfnum[0] =
3139 ((/*_.CUREAD__V5*/ meltfptr[4]) == NULL
3140 || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.CUREAD__V5*/ meltfptr[4])) == MELTOBMAG_LIST));;
3141 MELT_LOCATION("warmelt-modes.melt:4719:/ cond");
3142 /*cond*/
3143 if (/*_#IS_LIST_OR_NULL__L2*/ meltfnum[0]) /*then*/
3144 {
3145 /*^cond.then*/
3146 /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);;
3147 }
3148 else
3149 {
3150 MELT_LOCATION("warmelt-modes.melt:4719:/ cond.else");
3151
3152 /*^block*/
3153 /*anyblock*/
3154 {
3155
3156
3157 MELT_CHECK_SIGNAL();
3158 ;
3159 /*^apply*/
3160 /*apply*/
3161 {
3162 union meltparam_un argtab[4];
3163 memset(&argtab, 0, sizeof(argtab));
3164 /*^apply.arg*/
3165 argtab[0].meltbp_cstring = "check curead";
3166 /*^apply.arg*/
3167 argtab[1].meltbp_cstring = "warmelt-modes.melt";
3168 /*^apply.arg*/
3169 argtab[2].meltbp_long = 4719;
3170 /*^apply.arg*/
3171 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CUREAD__V5*/ meltfptr[4];
3172 /*_.MELT_ASSERT_FAILURE_FUN__V11*/
3173 meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3174 }
3175 ;
3176 /*_._IFELSE___V10*/
3177 meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];;
3178 /*epilog*/
3179
3180 MELT_LOCATION("warmelt-modes.melt:4719:/ clear");
3181 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/
3182 meltfptr[10] = 0 ;
3183 }
3184 ;
3185 }
3186 ;
3187 /*_.IFCPP___V9*/
3188 meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];;
3189 /*epilog*/
3190
3191 MELT_LOCATION("warmelt-modes.melt:4719:/ clear");
3192 /*clear*/ /*_#IS_LIST_OR_NULL__L2*/
3193 meltfnum[0] = 0 ;
3194 /*^clear*/
3195 /*clear*/ /*_._IFELSE___V10*/
3196 meltfptr[6] = 0 ;
3197 }
3198
3199 #else /*MELT_HAVE_DEBUG*/
3200 /*^cppif.else*/
3201 /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL);
3202 #endif /*MELT_HAVE_DEBUG*/
3203 ;
3204
3205 #if MELT_HAVE_DEBUG
3206 MELT_LOCATION("warmelt-modes.melt:4720:/ cppif.then");
3207 /*^block*/
3208 /*anyblock*/
3209 {
3210
3211
3212 {
3213 /*^locexp*/
3214 /*melt_increment_dbgcounter*/
3215 #if MELT_HAVE_DEBUG
3216 melt_dbgcounter++;
3217 #endif
3218 ;
3219 }
3220 ;
3221
3222 MELT_CHECK_SIGNAL();
3223 ;
3224 /*_#MELT_NEED_DBG__L3*/
3225 meltfnum[0] =
3226 /*MELT_NEED_DBG*/
3227 #if MELT_HAVE_DEBUG
3228 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
3229 #else
3230 0 /* no melt_need_dbg */
3231 #endif /*MELT_HAVE_DEBUG*/
3232 ;;
3233 MELT_LOCATION("warmelt-modes.melt:4720:/ cond");
3234 /*cond*/
3235 if (/*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then*/
3236 {
3237 /*^cond.then*/
3238 /*^block*/
3239 /*anyblock*/
3240 {
3241
3242 /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] =
3243 /* for melt_callcount */
3244 #if MELT_HAVE_DEBUG && defined (meltcallcount)
3245 meltcallcount /* melt_callcount debugging */
3246 #else
3247 0L /* melt_callcount without debug */
3248 #endif /* MELT_HAVE_DEBUG melt_callcount */
3249 ;;
3250
3251 MELT_CHECK_SIGNAL();
3252 ;
3253 MELT_LOCATION("warmelt-modes.melt:4720:/ apply");
3254 /*apply*/
3255 {
3256 union meltparam_un argtab[5];
3257 memset(&argtab, 0, sizeof(argtab));
3258 /*^apply.arg*/
3259 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L4*/ meltfnum[3];
3260 /*^apply.arg*/
3261 argtab[1].meltbp_cstring = "warmelt-modes.melt";
3262 /*^apply.arg*/
3263 argtab[2].meltbp_long = 4720;
3264 /*^apply.arg*/
3265 argtab[3].meltbp_cstring = "translateinit_mode curead=";
3266 /*^apply.arg*/
3267 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUREAD__V5*/ meltfptr[4];
3268 /*_.MELT_DEBUG_FUN__V13*/
3269 meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3270 }
3271 ;
3272 /*_._IF___V12*/
3273 meltfptr[10] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[6];;
3274 /*epilog*/
3275
3276 MELT_LOCATION("warmelt-modes.melt:4720:/ clear");
3277 /*clear*/ /*_#MELT_CALLCOUNT__L4*/
3278 meltfnum[3] = 0 ;
3279 /*^clear*/
3280 /*clear*/ /*_.MELT_DEBUG_FUN__V13*/
3281 meltfptr[6] = 0 ;
3282 }
3283 ;
3284 }
3285 else /*^cond.else*/
3286 {
3287
3288 /*_._IF___V12*/ meltfptr[10] = /*reallynil*/ NULL ;;
3289 }
3290 ;
3291
3292 {
3293 MELT_LOCATION("warmelt-modes.melt:4720:/ locexp");
3294 /*void*/
3295 (void)0;
3296 }
3297 ;
3298 /*^quasiblock*/
3299
3300
3301 /*epilog*/
3302
3303 /*^clear*/
3304 /*clear*/ /*_#MELT_NEED_DBG__L3*/
3305 meltfnum[0] = 0 ;
3306 /*^clear*/
3307 /*clear*/ /*_._IF___V12*/
3308 meltfptr[10] = 0 ;
3309 }
3310
3311 #else /*MELT_HAVE_DEBUG*/
3312 /*^cppif.else*/
3313 /*^block*/
3314 /*anyblock*/
3315 {
3316
3317
3318 {
3319 /*^locexp*/
3320 /*void*/(void)0;
3321 }
3322 ;
3323 /*epilog*/
3324 }
3325
3326 #endif /*MELT_HAVE_DEBUG*/
3327 ;
3328
3329 MELT_CHECK_SIGNAL();
3330 ;
3331 MELT_LOCATION("warmelt-modes.melt:4721:/ apply");
3332 /*apply*/
3333 {
3334 union meltparam_un argtab[1];
3335 memset(&argtab, 0, sizeof(argtab));
3336 /*^apply.arg*/
3337 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREAD__V5*/ meltfptr[4];
3338 /*_.LIST_APPEND2LIST__V14*/
3339 meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[3])), (melt_ptr_t)((/*~RLIST*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3340 }
3341 ;
3342 /*_.LET___V4*/
3343 meltfptr[3] = /*_.LIST_APPEND2LIST__V14*/ meltfptr[6];;
3344
3345 MELT_LOCATION("warmelt-modes.melt:4716:/ clear");
3346 /*clear*/ /*_.CUREAD__V5*/
3347 meltfptr[4] = 0 ;
3348 /*^clear*/
3349 /*clear*/ /*_.IFCPP___V6*/
3350 meltfptr[5] = 0 ;
3351 /*^clear*/
3352 /*clear*/ /*_.IFCPP___V9*/
3353 meltfptr[7] = 0 ;
3354 /*^clear*/
3355 /*clear*/ /*_.LIST_APPEND2LIST__V14*/
3356 meltfptr[6] = 0 ;
3357
3358 MELT_CHECK_SIGNAL();
3359 ;
3360 MELT_LOCATION("warmelt-modes.melt:4714:/ quasiblock");
3361
3362
3363 /*_._RETVAL___V1*/
3364 meltfptr[0] = /*_.LET___V4*/ meltfptr[3];;
3365
3366 {
3367 MELT_LOCATION("warmelt-modes.melt:4714:/ locexp");
3368 /*ochecknores compilobj_nrep_return*/
3369 #if MELT_HAVE_DEBUG
3370 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
3371 melt_warn_for_no_expected_secondary_results();
3372 /* we warned when secondary results are expected but not returned. */
3373 #endif /*MELT_HAVE_DEBUG*/
3374 ;
3375 }
3376 ;
3377 /*^finalreturn*/
3378 ;
3379 /*finalret*/
3380 goto meltlabend_rout ;
3381 /*epilog*/
3382
3383 /*^clear*/
3384 /*clear*/ /*_.INFORM_AT__V3*/
3385 meltfptr[2] = 0 ;
3386 /*^clear*/
3387 /*clear*/ /*_.LET___V4*/
3388 meltfptr[3] = 0 ;
3389 }
3390
3391 ;
3392 goto meltlabend_rout;
3393 meltlabend_rout:
3394 melt_trace_end("LAMBDA_cl20", meltcallcount);
3395 melt_blocklevel_signals = current_blocklevel_signals_meltrout_69_WARMELTmiMODES_LAMBDA_cl20_melt;
3396 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
3397 #undef meltcallcount
3398 #undef meltfram__
3399 #undef MELTFRAM_NBVARNUM
3400 #undef MELTFRAM_NBVARPTR
3401 } /*end meltrout_69_WARMELTmiMODES_LAMBDA_cl20*/
3402
3403
3404
3405
3406
3407
3408 melt_ptr_t MELT_MODULE_VISIBILITY
3409 meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
3410 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
3411 {
3412 long current_blocklevel_signals_meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED_melt = melt_blocklevel_signals;
3413
3414 #if MELT_HAVE_DEBUG
3415 static long melt_call_counter__;
3416 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
3417 #undef meltcallcount
3418 #define meltcallcount melt_thiscallcounter__
3419 #else
3420 #undef meltcallcount
3421 #define meltcallcount 0L
3422 #endif
3423 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
3424
3425 /* start of frame for routine meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED fromline 1752 */
3426
3427 /** start of frame for meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED of CLASS_PROCROUTINEOBJ from 1555**/
3428
3429 /*curframdeclclassy*/ class MeltFrame_meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED// fromline 1568
3430 : public Melt_CallFrameWithValues<56>
3431 {
3432 public: /* fromline 1572*/
3433 long mcfr_varnum[30];
3434 /*classy others*/
3435 const char* loc_CSTRING__o0;
3436 const char* loc_CSTRING__o1;
3437 const char* loc_CSTRING__o2;
3438 long _meltsparel;
3439 void melt_mark_stuff (void)
3440 {
3441 } /*end melt_mark_stuff*/
3442 virtual void melt_mark_ggc_data (void)
3443 {
3444 melt_mark_values ();
3445 melt_mark_stuff ();
3446 }; /*end melt_mark_ggc_data*/
3447 MeltFrame_meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED(meltclosure_ptr_t clos) //the closure constructor fromline 1630
3448 : Melt_CallFrameWithValues<56> (
3449 #if ENABLE_CHECKING /*fromline 1634*/
3450 __FILE__, __LINE__,
3451 #endif /* ENABLE_CHECKING fromline 1638*/
3452 sizeof(MeltFrame_meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED), clos) {};
3453 MeltFrame_meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED() //the constructor fromline 1642
3454 : Melt_CallFrameWithValues<56> (
3455 #if ENABLE_CHECKING /*fromline 1646*/
3456 __FILE__, __LINE__,
3457 #endif /* ENABLE_CHECKING fromline 1650*/
3458 sizeof(MeltFrame_meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED)) {};
3459 #if ENABLE_CHECKING /*fromline 1654*/
3460 MeltFrame_meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED(const char*fil, int lin) //the constructor fromline 1656
3461 : Melt_CallFrameWithValues<56> (fil,lin, sizeof(MeltFrame_meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED)) {};
3462 MeltFrame_meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
3463 : Melt_CallFrameWithValues<56> (fil,lin, sizeof(MeltFrame_meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED), clos) {};
3464 #endif /* ENABLE_CHECKING fromline 1666*/
3465
3466 }; // end class MeltFrame_meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED
3467
3468
3469 /** end of frame for meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED fromline 1697**/
3470
3471 /* end of frame for routine meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED fromline 1756 */
3472
3473 /* classy proc frame meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED */
3474 MeltFrame_meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED
3475 meltfram__ /*declfrastruct fromline 1780*/
3476 /*classyprocarg meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED fromline 1785*/
3477 #if ENABLE_CHECKING
3478 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
3479 #else /*ENABLE_CHECKING */
3480 (meltclosp_) /* fromline 1793*/
3481 #endif /*ENABLE_CHECKING */
3482
3483 ;
3484 #define meltframe meltfram__
3485
3486 melt_trace_start("TRANSLATEINIT_FLAVORED", meltcallcount);
3487 /*use arguments*/
3488 (void) meltclosp_;
3489 (void)meltfirstargp_;
3490 (void)meltxargdescr_;
3491 (void)meltxargtab_;
3492 (void)meltxresdescr_;
3493 (void)meltxrestab_;
3494 /*getargs*/
3495
3496 /*getarg#0*/
3497 MELT_LOCATION("warmelt-modes.melt:4745:/ getarg");
3498 /*_.FLAVOR__V2*/
3499 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
3500 ;
3501 goto meltlab_endgetargs;
3502 meltlab_endgetargs:
3503 ;
3504 /*body*/
3505 /*^block*/
3506 /*anyblock*/
3507 {
3508
3509 MELT_LOCATION("warmelt-modes.melt:4746:/ quasiblock");
3510
3511
3512 /*_.RLIST__V4*/
3513 meltfptr[3] =
3514 (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[0]))));;
3515 /*^compute*/
3516 /*_?*/
3517 meltfram__.loc_CSTRING__o0 =
3518 melt_argument( "arg");;
3519 /*^compute*/
3520 /*_?*/
3521 meltfram__.loc_CSTRING__o1 =
3522 melt_argument( "arglist");;
3523
3524 MELT_CHECK_SIGNAL();
3525 ;
3526 MELT_LOCATION("warmelt-modes.melt:4750:/ cond");
3527 /*cond*/
3528 if (/*_?*/ meltfram__.loc_CSTRING__o0) /*then*/
3529 {
3530 /*^cond.then*/
3531 /*^block*/
3532 /*anyblock*/
3533 {
3534
3535 MELT_LOCATION("warmelt-modes.melt:4751:/ quasiblock");
3536
3537
3538 /*_.PROGARGSTR__V7*/
3539 meltfptr[6] =
3540 (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[1])), (/*_?*/ meltfram__.loc_CSTRING__o0)));;
3541
3542 MELT_CHECK_SIGNAL();
3543 ;
3544 /*^compute*/
3545 /*_#STRING_SUFFIXED__L1*/
3546 meltfnum[0] =
3547 /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.PROGARGSTR__V7*/ meltfptr[6], ".melt"));;
3548 /*^compute*/
3549 /*_#NOT__L2*/
3550 meltfnum[1] =
3551 (!(/*_#STRING_SUFFIXED__L1*/ meltfnum[0]));;
3552 MELT_LOCATION("warmelt-modes.melt:4753:/ cond");
3553 /*cond*/
3554 if (/*_#NOT__L2*/ meltfnum[1]) /*then*/
3555 {
3556 /*^cond.then*/
3557 /*^block*/
3558 /*anyblock*/
3559 {
3560
3561
3562 {
3563 MELT_LOCATION("warmelt-modes.melt:4754:/ locexp");
3564 warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "MELT translated initial file without .melt suffix"),
3565 melt_string_str((melt_ptr_t)(/*_.PROGARGSTR__V7*/ meltfptr[6])));
3566 }
3567 ;
3568 /*epilog*/
3569 }
3570 ;
3571 } /*noelse*/
3572 ;
3573 /*_.LET___V6*/
3574 meltfptr[5] = /*_.PROGARGSTR__V7*/ meltfptr[6];;
3575
3576 MELT_LOCATION("warmelt-modes.melt:4751:/ clear");
3577 /*clear*/ /*_.PROGARGSTR__V7*/
3578 meltfptr[6] = 0 ;
3579 /*^clear*/
3580 /*clear*/ /*_#STRING_SUFFIXED__L1*/
3581 meltfnum[0] = 0 ;
3582 /*^clear*/
3583 /*clear*/ /*_#NOT__L2*/
3584 meltfnum[1] = 0 ;
3585 /*_.INARG__V5*/
3586 meltfptr[4] = /*_.LET___V6*/ meltfptr[5];;
3587 /*epilog*/
3588
3589 MELT_LOCATION("warmelt-modes.melt:4750:/ clear");
3590 /*clear*/ /*_.LET___V6*/
3591 meltfptr[5] = 0 ;
3592 }
3593 ;
3594 }
3595 else /*^cond.else*/
3596 {
3597
3598 /*^block*/
3599 /*anyblock*/
3600 {
3601
3602
3603 MELT_CHECK_SIGNAL();
3604 ;
3605 MELT_LOCATION("warmelt-modes.melt:4757:/ cond");
3606 /*cond*/
3607 if (/*_?*/ meltfram__.loc_CSTRING__o1) /*then*/
3608 {
3609 /*^cond.then*/
3610 /*^block*/
3611 /*anyblock*/
3612 {
3613
3614 /*_.MAKE_STRINGCONST__V9*/ meltfptr[5] =
3615 (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[1])), (/*_?*/ meltfram__.loc_CSTRING__o1)));;
3616 /*^compute*/
3617 /*_.SPLIT_STRING_COMMA__V10*/
3618 meltfptr[9] =
3619 meltgc_new_split_string (melt_string_str ((melt_ptr_t) /*_.MAKE_STRINGCONST__V9*/ meltfptr[5]), ',', (melt_ptr_t) (/*!DISCR_STRING*/ meltfrout->tabval[1]));;
3620 /*^compute*/
3621 /*_._IFELSE___V8*/
3622 meltfptr[6] = /*_.SPLIT_STRING_COMMA__V10*/ meltfptr[9];;
3623 /*epilog*/
3624
3625 MELT_LOCATION("warmelt-modes.melt:4757:/ clear");
3626 /*clear*/ /*_.MAKE_STRINGCONST__V9*/
3627 meltfptr[5] = 0 ;
3628 /*^clear*/
3629 /*clear*/ /*_.SPLIT_STRING_COMMA__V10*/
3630 meltfptr[9] = 0 ;
3631 }
3632 ;
3633 }
3634 else /*^cond.else*/
3635 {
3636
3637 /*^block*/
3638 /*anyblock*/
3639 {
3640
3641
3642 MELT_CHECK_SIGNAL();
3643 ;
3644 MELT_LOCATION("warmelt-modes.melt:4761:/ apply");
3645 /*apply*/
3646 {
3647 union meltparam_un argtab[3];
3648 memset(&argtab, 0, sizeof(argtab));
3649 /*^apply.arg*/
3650 argtab[0].meltbp_cstring = "invalid arg $1 or arglist $2 to translateinitmodule mode";
3651 /*^apply.arg*/
3652 argtab[1].meltbp_cstring = /*_?*/ meltfram__.loc_CSTRING__o0;
3653 /*^apply.arg*/
3654 argtab[2].meltbp_cstring = /*_?*/ meltfram__.loc_CSTRING__o1;
3655 /*_.ERROR_AT__V11*/
3656 meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
3657 }
3658 ;
3659 MELT_LOCATION("warmelt-modes.melt:4764:/ quasiblock");
3660
3661
3662 /*_._RETVAL___V1*/
3663 meltfptr[0] = /*reallynil*/ NULL ;;
3664
3665 {
3666 MELT_LOCATION("warmelt-modes.melt:4764:/ locexp");
3667 /*ochecknores compilobj_nrep_return*/
3668 #if MELT_HAVE_DEBUG
3669 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
3670 melt_warn_for_no_expected_secondary_results();
3671 /* we warned when secondary results are expected but not returned. */
3672 #endif /*MELT_HAVE_DEBUG*/
3673 ;
3674 }
3675 ;
3676 /*^finalreturn*/
3677 ;
3678 /*finalret*/
3679 goto meltlabend_rout ;
3680 MELT_LOCATION("warmelt-modes.melt:4760:/ quasiblock");
3681
3682
3683 /*_.PROGN___V13*/
3684 meltfptr[12] = /*_.RETURN___V12*/ meltfptr[9];;
3685 /*^compute*/
3686 /*_._IFELSE___V8*/
3687 meltfptr[6] = /*_.PROGN___V13*/ meltfptr[12];;
3688 /*epilog*/
3689
3690 MELT_LOCATION("warmelt-modes.melt:4757:/ clear");
3691 /*clear*/ /*_.ERROR_AT__V11*/
3692 meltfptr[5] = 0 ;
3693 /*^clear*/
3694 /*clear*/ /*_.RETURN___V12*/
3695 meltfptr[9] = 0 ;
3696 /*^clear*/
3697 /*clear*/ /*_.PROGN___V13*/
3698 meltfptr[12] = 0 ;
3699 }
3700 ;
3701 }
3702 ;
3703 /*_.INARG__V5*/
3704 meltfptr[4] = /*_._IFELSE___V8*/ meltfptr[6];;
3705 /*epilog*/
3706
3707 MELT_LOCATION("warmelt-modes.melt:4750:/ clear");
3708 /*clear*/ /*_._IFELSE___V8*/
3709 meltfptr[6] = 0 ;
3710 }
3711 ;
3712 }
3713 ;
3714 /*_?*/
3715 meltfram__.loc_CSTRING__o2 =
3716 melt_argument( "output");;
3717 /*^compute*/
3718 /*_.OUTARG__V14*/
3719 meltfptr[5] =
3720 (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[1])), (/*_?*/ meltfram__.loc_CSTRING__o2)));;
3721
3722 MELT_CHECK_SIGNAL();
3723 ;
3724 /*^compute*/
3725 /*_#IS_STRING__L3*/
3726 meltfnum[0] =
3727 (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V14*/ meltfptr[5])) == MELTOBMAG_STRING);;
3728 MELT_LOCATION("warmelt-modes.melt:4767:/ cond");
3729 /*cond*/
3730 if (/*_#IS_STRING__L3*/ meltfnum[0]) /*then*/
3731 {
3732 /*^cond.then*/
3733 /*_.BASNAM__V15*/ meltfptr[9] = /*_.OUTARG__V14*/ meltfptr[5];;
3734 }
3735 else
3736 {
3737 MELT_LOCATION("warmelt-modes.melt:4767:/ cond.else");
3738
3739 /*^block*/
3740 /*anyblock*/
3741 {
3742
3743
3744 MELT_CHECK_SIGNAL();
3745 ;
3746 /*_#IS_STRING__L4*/
3747 meltfnum[1] =
3748 (melt_magic_discr((melt_ptr_t)(/*_.INARG__V5*/ meltfptr[4])) == MELTOBMAG_STRING);;
3749 MELT_LOCATION("warmelt-modes.melt:4768:/ cond");
3750 /*cond*/
3751 if (/*_#IS_STRING__L4*/ meltfnum[1]) /*then*/
3752 {
3753 /*^cond.then*/
3754 /*^block*/
3755 /*anyblock*/
3756 {
3757
3758 /*_.MAKE_STRING_NAKEDBASENAME__V17*/ meltfptr[6] =
3759 (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[1])),
3760 melt_string_str((melt_ptr_t)(/*_.INARG__V5*/ meltfptr[4]))));;
3761 /*^compute*/
3762 /*_._IFELSE___V16*/
3763 meltfptr[12] = /*_.MAKE_STRING_NAKEDBASENAME__V17*/ meltfptr[6];;
3764 /*epilog*/
3765
3766 MELT_LOCATION("warmelt-modes.melt:4768:/ clear");
3767 /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V17*/
3768 meltfptr[6] = 0 ;
3769 }
3770 ;
3771 }
3772 else /*^cond.else*/
3773 {
3774
3775 /*^block*/
3776 /*anyblock*/
3777 {
3778
3779
3780 MELT_CHECK_SIGNAL();
3781 ;
3782 MELT_LOCATION("warmelt-modes.melt:4770:/ apply");
3783 /*apply*/
3784 {
3785 union meltparam_un argtab[3];
3786 memset(&argtab, 0, sizeof(argtab));
3787 /*^apply.arg*/
3788 argtab[0].meltbp_cstring = "invalid translateinitmodule mode arg $1 output $2";
3789 /*^apply.arg*/
3790 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.INARG__V5*/ meltfptr[4];
3791 /*^apply.arg*/
3792 argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V14*/ meltfptr[5];
3793 /*_.ERROR_AT__V18*/
3794 meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3795 }
3796 ;
3797 MELT_LOCATION("warmelt-modes.melt:4771:/ quasiblock");
3798
3799
3800 /*_._RETVAL___V1*/
3801 meltfptr[0] = /*reallynil*/ NULL ;;
3802
3803 {
3804 MELT_LOCATION("warmelt-modes.melt:4771:/ locexp");
3805 /*ochecknores compilobj_nrep_return*/
3806 #if MELT_HAVE_DEBUG
3807 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
3808 melt_warn_for_no_expected_secondary_results();
3809 /* we warned when secondary results are expected but not returned. */
3810 #endif /*MELT_HAVE_DEBUG*/
3811 ;
3812 }
3813 ;
3814 /*^finalreturn*/
3815 ;
3816 /*finalret*/
3817 goto meltlabend_rout ;
3818 MELT_LOCATION("warmelt-modes.melt:4769:/ quasiblock");
3819
3820
3821 /*_.PROGN___V20*/
3822 meltfptr[19] = /*_.RETURN___V19*/ meltfptr[18];;
3823 /*^compute*/
3824 /*_._IFELSE___V16*/
3825 meltfptr[12] = /*_.PROGN___V20*/ meltfptr[19];;
3826 /*epilog*/
3827
3828 MELT_LOCATION("warmelt-modes.melt:4768:/ clear");
3829 /*clear*/ /*_.ERROR_AT__V18*/
3830 meltfptr[6] = 0 ;
3831 /*^clear*/
3832 /*clear*/ /*_.RETURN___V19*/
3833 meltfptr[18] = 0 ;
3834 /*^clear*/
3835 /*clear*/ /*_.PROGN___V20*/
3836 meltfptr[19] = 0 ;
3837 }
3838 ;
3839 }
3840 ;
3841 /*_.BASNAM__V15*/
3842 meltfptr[9] = /*_._IFELSE___V16*/ meltfptr[12];;
3843 /*epilog*/
3844
3845 MELT_LOCATION("warmelt-modes.melt:4767:/ clear");
3846 /*clear*/ /*_#IS_STRING__L4*/
3847 meltfnum[1] = 0 ;
3848 /*^clear*/
3849 /*clear*/ /*_._IFELSE___V16*/
3850 meltfptr[12] = 0 ;
3851 }
3852 ;
3853 }
3854 ;
3855
3856 #if MELT_HAVE_DEBUG
3857 MELT_LOCATION("warmelt-modes.melt:4774:/ cppif.then");
3858 /*^block*/
3859 /*anyblock*/
3860 {
3861
3862
3863 {
3864 /*^locexp*/
3865 /*melt_increment_dbgcounter*/
3866 #if MELT_HAVE_DEBUG
3867 melt_dbgcounter++;
3868 #endif
3869 ;
3870 }
3871 ;
3872
3873 MELT_CHECK_SIGNAL();
3874 ;
3875 /*_#MELT_NEED_DBG__L5*/
3876 meltfnum[1] =
3877 /*MELT_NEED_DBG*/
3878 #if MELT_HAVE_DEBUG
3879 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
3880 #else
3881 0 /* no melt_need_dbg */
3882 #endif /*MELT_HAVE_DEBUG*/
3883 ;;
3884 MELT_LOCATION("warmelt-modes.melt:4774:/ cond");
3885 /*cond*/
3886 if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/
3887 {
3888 /*^cond.then*/
3889 /*^block*/
3890 /*anyblock*/
3891 {
3892
3893 /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] =
3894 /* for melt_callcount */
3895 #if MELT_HAVE_DEBUG && defined (meltcallcount)
3896 meltcallcount /* melt_callcount debugging */
3897 #else
3898 0L /* melt_callcount without debug */
3899 #endif /* MELT_HAVE_DEBUG melt_callcount */
3900 ;;
3901
3902 MELT_CHECK_SIGNAL();
3903 ;
3904 MELT_LOCATION("warmelt-modes.melt:4774:/ apply");
3905 /*apply*/
3906 {
3907 union meltparam_un argtab[7];
3908 memset(&argtab, 0, sizeof(argtab));
3909 /*^apply.arg*/
3910 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[5];
3911 /*^apply.arg*/
3912 argtab[1].meltbp_cstring = "warmelt-modes.melt";
3913 /*^apply.arg*/
3914 argtab[2].meltbp_long = 4774;
3915 /*^apply.arg*/
3916 argtab[3].meltbp_cstring = "translateinitmodule_flavored basnam=";
3917 /*^apply.arg*/
3918 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V15*/ meltfptr[9];
3919 /*^apply.arg*/
3920 argtab[5].meltbp_cstring = " flavor=";
3921 /*^apply.arg*/
3922 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.FLAVOR__V2*/ meltfptr[1];
3923 /*_.MELT_DEBUG_FUN__V22*/
3924 meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3925 }
3926 ;
3927 /*_._IF___V21*/
3928 meltfptr[6] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[18];;
3929 /*epilog*/
3930
3931 MELT_LOCATION("warmelt-modes.melt:4774:/ clear");
3932 /*clear*/ /*_#MELT_CALLCOUNT__L6*/
3933 meltfnum[5] = 0 ;
3934 /*^clear*/
3935 /*clear*/ /*_.MELT_DEBUG_FUN__V22*/
3936 meltfptr[18] = 0 ;
3937 }
3938 ;
3939 }
3940 else /*^cond.else*/
3941 {
3942
3943 /*_._IF___V21*/ meltfptr[6] = /*reallynil*/ NULL ;;
3944 }
3945 ;
3946
3947 {
3948 MELT_LOCATION("warmelt-modes.melt:4774:/ locexp");
3949 /*void*/
3950 (void)0;
3951 }
3952 ;
3953 /*^quasiblock*/
3954
3955
3956 /*epilog*/
3957
3958 /*^clear*/
3959 /*clear*/ /*_#MELT_NEED_DBG__L5*/
3960 meltfnum[1] = 0 ;
3961 /*^clear*/
3962 /*clear*/ /*_._IF___V21*/
3963 meltfptr[6] = 0 ;
3964 }
3965
3966 #else /*MELT_HAVE_DEBUG*/
3967 /*^cppif.else*/
3968 /*^block*/
3969 /*anyblock*/
3970 {
3971
3972
3973 {
3974 /*^locexp*/
3975 /*void*/(void)0;
3976 }
3977 ;
3978 /*epilog*/
3979 }
3980
3981 #endif /*MELT_HAVE_DEBUG*/
3982 ;
3983
3984 MELT_CHECK_SIGNAL();
3985 ;
3986 /*_#STRING_DYNLOADED_SUFFIXED__L7*/
3987 meltfnum[5] =
3988 /*string_dynloaded_suffixed:*/ (melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V15*/ meltfptr[9],
3989 MELT_DYNLOADED_SUFFIX));;
3990 MELT_LOCATION("warmelt-modes.melt:4775:/ cond");
3991 /*cond*/
3992 if (/*_#STRING_DYNLOADED_SUFFIXED__L7*/ meltfnum[5]) /*then*/
3993 {
3994 /*^cond.then*/
3995 /*_#OR___L8*/ meltfnum[1] = /*_#STRING_DYNLOADED_SUFFIXED__L7*/ meltfnum[5];;
3996 }
3997 else
3998 {
3999 MELT_LOCATION("warmelt-modes.melt:4775:/ cond.else");
4000
4001 /*^block*/
4002 /*anyblock*/
4003 {
4004
4005 /*_#STRING_SUFFIXED__L9*/ meltfnum[8] =
4006 /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V15*/ meltfptr[9], ".melt"));;
4007 MELT_LOCATION("warmelt-modes.melt:4775:/ cond");
4008 /*cond*/
4009 if (/*_#STRING_SUFFIXED__L9*/ meltfnum[8]) /*then*/
4010 {
4011 /*^cond.then*/
4012 /*_#OR___L10*/ meltfnum[9] = /*_#STRING_SUFFIXED__L9*/ meltfnum[8];;
4013 }
4014 else
4015 {
4016 MELT_LOCATION("warmelt-modes.melt:4775:/ cond.else");
4017
4018 /*^block*/
4019 /*anyblock*/
4020 {
4021
4022 /*_#STRING_SUFFIXED__L11*/ meltfnum[10] =
4023 /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V15*/ meltfptr[9], ".c"));;
4024 MELT_LOCATION("warmelt-modes.melt:4775:/ cond");
4025 /*cond*/
4026 if (/*_#STRING_SUFFIXED__L11*/ meltfnum[10]) /*then*/
4027 {
4028 /*^cond.then*/
4029 /*_#OR___L12*/ meltfnum[11] = /*_#STRING_SUFFIXED__L11*/ meltfnum[10];;
4030 }
4031 else
4032 {
4033 MELT_LOCATION("warmelt-modes.melt:4775:/ cond.else");
4034
4035 /*^block*/
4036 /*anyblock*/
4037 {
4038
4039 /*_#STRING_SUFFIXED__L13*/ meltfnum[12] =
4040 /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V15*/ meltfptr[9], ".cc"));;
4041 /*^compute*/
4042 /*_#OR___L12*/
4043 meltfnum[11] = /*_#STRING_SUFFIXED__L13*/ meltfnum[12];;
4044 /*epilog*/
4045
4046 MELT_LOCATION("warmelt-modes.melt:4775:/ clear");
4047 /*clear*/ /*_#STRING_SUFFIXED__L13*/
4048 meltfnum[12] = 0 ;
4049 }
4050 ;
4051 }
4052 ;
4053 /*_#OR___L10*/
4054 meltfnum[9] = /*_#OR___L12*/ meltfnum[11];;
4055 /*epilog*/
4056
4057 MELT_LOCATION("warmelt-modes.melt:4775:/ clear");
4058 /*clear*/ /*_#STRING_SUFFIXED__L11*/
4059 meltfnum[10] = 0 ;
4060 /*^clear*/
4061 /*clear*/ /*_#OR___L12*/
4062 meltfnum[11] = 0 ;
4063 }
4064 ;
4065 }
4066 ;
4067 /*_#OR___L8*/
4068 meltfnum[1] = /*_#OR___L10*/ meltfnum[9];;
4069 /*epilog*/
4070
4071 MELT_LOCATION("warmelt-modes.melt:4775:/ clear");
4072 /*clear*/ /*_#STRING_SUFFIXED__L9*/
4073 meltfnum[8] = 0 ;
4074 /*^clear*/
4075 /*clear*/ /*_#OR___L10*/
4076 meltfnum[9] = 0 ;
4077 }
4078 ;
4079 }
4080 ;
4081 /*^cond*/
4082 /*cond*/
4083 if (/*_#OR___L8*/ meltfnum[1]) /*then*/
4084 {
4085 /*^cond.then*/
4086 /*^block*/
4087 /*anyblock*/
4088 {
4089
4090
4091 MELT_CHECK_SIGNAL();
4092 ;
4093 MELT_LOCATION("warmelt-modes.melt:4780:/ apply");
4094 /*apply*/
4095 {
4096 union meltparam_un argtab[2];
4097 memset(&argtab, 0, sizeof(argtab));
4098 /*^apply.arg*/
4099 argtab[0].meltbp_cstring = "tranlateinitmodule_flavored mode needs a base name $1 without suffix";
4100 /*^apply.arg*/
4101 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V15*/ meltfptr[9];
4102 /*_.ERROR_AT__V24*/
4103 meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4104 }
4105 ;
4106 MELT_LOCATION("warmelt-modes.melt:4782:/ quasiblock");
4107
4108
4109 /*_._RETVAL___V1*/
4110 meltfptr[0] = /*reallynil*/ NULL ;;
4111
4112 {
4113 MELT_LOCATION("warmelt-modes.melt:4782:/ locexp");
4114 /*ochecknores compilobj_nrep_return*/
4115 #if MELT_HAVE_DEBUG
4116 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
4117 melt_warn_for_no_expected_secondary_results();
4118 /* we warned when secondary results are expected but not returned. */
4119 #endif /*MELT_HAVE_DEBUG*/
4120 ;
4121 }
4122 ;
4123 /*^finalreturn*/
4124 ;
4125 /*finalret*/
4126 goto meltlabend_rout ;
4127 MELT_LOCATION("warmelt-modes.melt:4779:/ quasiblock");
4128
4129
4130 /*_.PROGN___V26*/
4131 meltfptr[6] = /*_.RETURN___V25*/ meltfptr[18];;
4132 /*^compute*/
4133 /*_._IF___V23*/
4134 meltfptr[19] = /*_.PROGN___V26*/ meltfptr[6];;
4135 /*epilog*/
4136
4137 MELT_LOCATION("warmelt-modes.melt:4775:/ clear");
4138 /*clear*/ /*_.ERROR_AT__V24*/
4139 meltfptr[12] = 0 ;
4140 /*^clear*/
4141 /*clear*/ /*_.RETURN___V25*/
4142 meltfptr[18] = 0 ;
4143 /*^clear*/
4144 /*clear*/ /*_.PROGN___V26*/
4145 meltfptr[6] = 0 ;
4146 }
4147 ;
4148 }
4149 else /*^cond.else*/
4150 {
4151
4152 /*_._IF___V23*/ meltfptr[19] = /*reallynil*/ NULL ;;
4153 }
4154 ;
4155
4156 MELT_CHECK_SIGNAL();
4157 ;
4158 /*^compute*/
4159 /*_#IS_STRING__L14*/
4160 meltfnum[12] =
4161 (melt_magic_discr((melt_ptr_t)(/*_.INARG__V5*/ meltfptr[4])) == MELTOBMAG_STRING);;
4162 MELT_LOCATION("warmelt-modes.melt:4785:/ cond");
4163 /*cond*/
4164 if (/*_#IS_STRING__L14*/ meltfnum[12]) /*then*/
4165 {
4166 /*^cond.then*/
4167 /*^block*/
4168 /*anyblock*/
4169 {
4170
4171 /*_.READ_FILE__V28*/ meltfptr[18] =
4172 (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.INARG__V5*/ meltfptr[4])), (char*)0));;
4173
4174 MELT_CHECK_SIGNAL();
4175 ;
4176 MELT_LOCATION("warmelt-modes.melt:4786:/ apply");
4177 /*apply*/
4178 {
4179 union meltparam_un argtab[1];
4180 memset(&argtab, 0, sizeof(argtab));
4181 /*^apply.arg*/
4182 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.READ_FILE__V28*/ meltfptr[18];
4183 /*_.LIST_APPEND2LIST__V29*/
4184 meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.RLIST__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4185 }
4186 ;
4187 /*_._IFELSE___V27*/
4188 meltfptr[12] = /*_.LIST_APPEND2LIST__V29*/ meltfptr[6];;
4189 /*epilog*/
4190
4191 MELT_LOCATION("warmelt-modes.melt:4785:/ clear");
4192 /*clear*/ /*_.READ_FILE__V28*/
4193 meltfptr[18] = 0 ;
4194 /*^clear*/
4195 /*clear*/ /*_.LIST_APPEND2LIST__V29*/
4196 meltfptr[6] = 0 ;
4197 }
4198 ;
4199 }
4200 else /*^cond.else*/
4201 {
4202
4203 /*^block*/
4204 /*anyblock*/
4205 {
4206
4207
4208 MELT_CHECK_SIGNAL();
4209 ;
4210 /*_#IS_LIST__L15*/
4211 meltfnum[10] =
4212 (melt_magic_discr((melt_ptr_t)(/*_.INARG__V5*/ meltfptr[4])) == MELTOBMAG_LIST);;
4213 MELT_LOCATION("warmelt-modes.melt:4787:/ cond");
4214 /*cond*/
4215 if (/*_#IS_LIST__L15*/ meltfnum[10]) /*then*/
4216 {
4217 /*^cond.then*/
4218 /*^block*/
4219 /*anyblock*/
4220 {
4221
4222 MELT_LOCATION("warmelt-modes.melt:4789:/ quasiblock");
4223
4224
4225 /*^newclosure*/
4226 /*newclosure*/ /*_.LAMBDA___V32*/
4227 meltfptr[31] =
4228 (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ meltfrout->tabval[10])), (1));
4229 ;
4230 /*^putclosedv*/
4231 /*putclosv*/
4232 melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V32*/ meltfptr[31])) == MELTOBMAG_CLOSURE);
4233 melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V32*/ meltfptr[31])));
4234 ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ meltfptr[31])->tabval[0] = (melt_ptr_t)(/*_.RLIST__V4*/ meltfptr[3]);
4235 ;
4236 /*_.LAMBDA___V31*/
4237 meltfptr[6] = /*_.LAMBDA___V32*/ meltfptr[31];;
4238
4239 MELT_CHECK_SIGNAL();
4240 ;
4241 MELT_LOCATION("warmelt-modes.melt:4788:/ apply");
4242 /*apply*/
4243 {
4244 union meltparam_un argtab[1];
4245 memset(&argtab, 0, sizeof(argtab));
4246 /*^apply.arg*/
4247 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V31*/ meltfptr[6];
4248 /*_.LIST_EVERY__V33*/
4249 meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.INARG__V5*/ meltfptr[4]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4250 }
4251 ;
4252 /*_._IFELSE___V30*/
4253 meltfptr[18] = /*_.LIST_EVERY__V33*/ meltfptr[32];;
4254 /*epilog*/
4255
4256 MELT_LOCATION("warmelt-modes.melt:4787:/ clear");
4257 /*clear*/ /*_.LAMBDA___V31*/
4258 meltfptr[6] = 0 ;
4259 /*^clear*/
4260 /*clear*/ /*_.LIST_EVERY__V33*/
4261 meltfptr[32] = 0 ;
4262 }
4263 ;
4264 }
4265 else /*^cond.else*/
4266 {
4267
4268 /*_._IFELSE___V30*/ meltfptr[18] = /*reallynil*/ NULL ;;
4269 }
4270 ;
4271 /*^compute*/
4272 /*_._IFELSE___V27*/
4273 meltfptr[12] = /*_._IFELSE___V30*/ meltfptr[18];;
4274 /*epilog*/
4275
4276 MELT_LOCATION("warmelt-modes.melt:4785:/ clear");
4277 /*clear*/ /*_#IS_LIST__L15*/
4278 meltfnum[10] = 0 ;
4279 /*^clear*/
4280 /*clear*/ /*_._IFELSE___V30*/
4281 meltfptr[18] = 0 ;
4282 }
4283 ;
4284 }
4285 ;
4286
4287 #if MELT_HAVE_DEBUG
4288 MELT_LOCATION("warmelt-modes.melt:4800:/ cppif.then");
4289 /*^block*/
4290 /*anyblock*/
4291 {
4292
4293
4294 {
4295 /*^locexp*/
4296 /*melt_increment_dbgcounter*/
4297 #if MELT_HAVE_DEBUG
4298 melt_dbgcounter++;
4299 #endif
4300 ;
4301 }
4302 ;
4303
4304 MELT_CHECK_SIGNAL();
4305 ;
4306 /*_#MELT_NEED_DBG__L16*/
4307 meltfnum[11] =
4308 /*MELT_NEED_DBG*/
4309 #if MELT_HAVE_DEBUG
4310 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
4311 #else
4312 0 /* no melt_need_dbg */
4313 #endif /*MELT_HAVE_DEBUG*/
4314 ;;
4315 MELT_LOCATION("warmelt-modes.melt:4800:/ cond");
4316 /*cond*/
4317 if (/*_#MELT_NEED_DBG__L16*/ meltfnum[11]) /*then*/
4318 {
4319 /*^cond.then*/
4320 /*^block*/
4321 /*anyblock*/
4322 {
4323
4324 /*_#MELT_CALLCOUNT__L17*/ meltfnum[8] =
4325 /* for melt_callcount */
4326 #if MELT_HAVE_DEBUG && defined (meltcallcount)
4327 meltcallcount /* melt_callcount debugging */
4328 #else
4329 0L /* melt_callcount without debug */
4330 #endif /* MELT_HAVE_DEBUG melt_callcount */
4331 ;;
4332
4333 MELT_CHECK_SIGNAL();
4334 ;
4335 MELT_LOCATION("warmelt-modes.melt:4800:/ apply");
4336 /*apply*/
4337 {
4338 union meltparam_un argtab[5];
4339 memset(&argtab, 0, sizeof(argtab));
4340 /*^apply.arg*/
4341 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L17*/ meltfnum[8];
4342 /*^apply.arg*/
4343 argtab[1].meltbp_cstring = "warmelt-modes.melt";
4344 /*^apply.arg*/
4345 argtab[2].meltbp_long = 4800;
4346 /*^apply.arg*/
4347 argtab[3].meltbp_cstring = "after read translateinitmodule_flavored rlist=";
4348 /*^apply.arg*/
4349 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RLIST__V4*/ meltfptr[3];
4350 /*_.MELT_DEBUG_FUN__V35*/
4351 meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4352 }
4353 ;
4354 /*_._IF___V34*/
4355 meltfptr[6] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[32];;
4356 /*epilog*/
4357
4358 MELT_LOCATION("warmelt-modes.melt:4800:/ clear");
4359 /*clear*/ /*_#MELT_CALLCOUNT__L17*/
4360 meltfnum[8] = 0 ;
4361 /*^clear*/
4362 /*clear*/ /*_.MELT_DEBUG_FUN__V35*/
4363 meltfptr[32] = 0 ;
4364 }
4365 ;
4366 }
4367 else /*^cond.else*/
4368 {
4369
4370 /*_._IF___V34*/ meltfptr[6] = /*reallynil*/ NULL ;;
4371 }
4372 ;
4373
4374 {
4375 MELT_LOCATION("warmelt-modes.melt:4800:/ locexp");
4376 /*void*/
4377 (void)0;
4378 }
4379 ;
4380 /*^quasiblock*/
4381
4382
4383 /*epilog*/
4384
4385 /*^clear*/
4386 /*clear*/ /*_#MELT_NEED_DBG__L16*/
4387 meltfnum[11] = 0 ;
4388 /*^clear*/
4389 /*clear*/ /*_._IF___V34*/
4390 meltfptr[6] = 0 ;
4391 }
4392
4393 #else /*MELT_HAVE_DEBUG*/
4394 /*^cppif.else*/
4395 /*^block*/
4396 /*anyblock*/
4397 {
4398
4399
4400 {
4401 /*^locexp*/
4402 /*void*/(void)0;
4403 }
4404 ;
4405 /*epilog*/
4406 }
4407
4408 #endif /*MELT_HAVE_DEBUG*/
4409 ;
4410
4411 MELT_CHECK_SIGNAL();
4412 ;
4413 MELT_LOCATION("warmelt-modes.melt:4803:/ apply");
4414 /*apply*/
4415 {
4416 union meltparam_un argtab[2];
4417 memset(&argtab, 0, sizeof(argtab));
4418 /*^apply.arg*/
4419 argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL;
4420 /*^apply.arg*/
4421 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V15*/ meltfptr[9];
4422 /*_.COMPILE_LIST_SEXPR__V36*/
4423 meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!COMPILE_LIST_SEXPR*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.RLIST__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4424 }
4425 ;
4426
4427 {
4428 MELT_LOCATION("warmelt-modes.melt:4806:/ locexp");
4429 melt_garbcoll((10000), MELT_NEED_FULL);
4430 }
4431 ;
4432 MELT_LOCATION("warmelt-modes.melt:4807:/ quasiblock");
4433
4434
4435 MELT_LOCATION("warmelt-modes.melt:4808:/ cond");
4436 /*cond*/
4437 if (/*_.OUTARG__V14*/ meltfptr[5]) /*then*/
4438 {
4439 /*^cond.then*/
4440 /*_.OUTBASE__V38*/ meltfptr[6] = /*_.OUTARG__V14*/ meltfptr[5];;
4441 }
4442 else
4443 {
4444 MELT_LOCATION("warmelt-modes.melt:4808:/ cond.else");
4445
4446 /*_.OUTBASE__V38*/
4447 meltfptr[6] = /*_.BASNAM__V15*/ meltfptr[9];;
4448 }
4449 ;
4450
4451 MELT_CHECK_SIGNAL();
4452 ;
4453 /*^compute*/
4454 /*_#IS_MULTIPLE__L18*/
4455 meltfnum[9] =
4456 (melt_magic_discr((melt_ptr_t)(/*_.FLAVOR__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);;
4457 MELT_LOCATION("warmelt-modes.melt:4811:/ cond");
4458 /*cond*/
4459 if (/*_#IS_MULTIPLE__L18*/ meltfnum[9]) /*then*/
4460 {
4461 /*^cond.then*/
4462 /*^block*/
4463 /*anyblock*/
4464 {
4465
4466 /*citerblock FOREACH_IN_MULTIPLE*/
4467 {
4468 /* start foreach_in_multiple meltcit1__EACHTUP */
4469 long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FLAVOR__V2*/ meltfptr[1]);
4470 for (/*_#FLAVIX__L19*/ meltfnum[10] = 0;
4471 (/*_#FLAVIX__L19*/ meltfnum[10] >= 0) && (/*_#FLAVIX__L19*/ meltfnum[10] < meltcit1__EACHTUP_ln);
4472 /*_#FLAVIX__L19*/ meltfnum[10]++)
4473 {
4474 /*_.CURFLAVOR__V40*/ meltfptr[39] = melt_multiple_nth((melt_ptr_t)(/*_.FLAVOR__V2*/ meltfptr[1]), /*_#FLAVIX__L19*/ meltfnum[10]);
4475
4476
4477
4478
4479 #if MELT_HAVE_DEBUG
4480 MELT_LOCATION("warmelt-modes.melt:4815:/ cppif.then");
4481 /*^block*/
4482 /*anyblock*/
4483 {
4484
4485
4486 {
4487 /*^locexp*/
4488 /*melt_increment_dbgcounter*/
4489 #if MELT_HAVE_DEBUG
4490 melt_dbgcounter++;
4491 #endif
4492 ;
4493 }
4494 ;
4495
4496 MELT_CHECK_SIGNAL();
4497 ;
4498 /*_#MELT_NEED_DBG__L20*/
4499 meltfnum[8] =
4500 /*MELT_NEED_DBG*/
4501 #if MELT_HAVE_DEBUG
4502 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
4503 #else
4504 0 /* no melt_need_dbg */
4505 #endif /*MELT_HAVE_DEBUG*/
4506 ;;
4507 MELT_LOCATION("warmelt-modes.melt:4815:/ cond");
4508 /*cond*/
4509 if (/*_#MELT_NEED_DBG__L20*/ meltfnum[8]) /*then*/
4510 {
4511 /*^cond.then*/
4512 /*^block*/
4513 /*anyblock*/
4514 {
4515
4516 /*_#MELT_CALLCOUNT__L21*/ meltfnum[11] =
4517 /* for melt_callcount */
4518 #if MELT_HAVE_DEBUG && defined (meltcallcount)
4519 meltcallcount /* melt_callcount debugging */
4520 #else
4521 0L /* melt_callcount without debug */
4522 #endif /* MELT_HAVE_DEBUG melt_callcount */
4523 ;;
4524
4525 MELT_CHECK_SIGNAL();
4526 ;
4527 MELT_LOCATION("warmelt-modes.melt:4815:/ apply");
4528 /*apply*/
4529 {
4530 union meltparam_un argtab[9];
4531 memset(&argtab, 0, sizeof(argtab));
4532 /*^apply.arg*/
4533 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L21*/ meltfnum[11];
4534 /*^apply.arg*/
4535 argtab[1].meltbp_cstring = "warmelt-modes.melt";
4536 /*^apply.arg*/
4537 argtab[2].meltbp_long = 4815;
4538 /*^apply.arg*/
4539 argtab[3].meltbp_cstring = "translateinitmodule_flavored before module generation basnam=";
4540 /*^apply.arg*/
4541 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V15*/ meltfptr[9];
4542 /*^apply.arg*/
4543 argtab[5].meltbp_cstring = " outbase=";
4544 /*^apply.arg*/
4545 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBASE__V38*/ meltfptr[6];
4546 /*^apply.arg*/
4547 argtab[7].meltbp_cstring = " curflavor=";
4548 /*^apply.arg*/
4549 argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.CURFLAVOR__V40*/ meltfptr[39];
4550 /*_.MELT_DEBUG_FUN__V42*/
4551 meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4552 }
4553 ;
4554 /*_._IF___V41*/
4555 meltfptr[40] = /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41];;
4556 /*epilog*/
4557
4558 MELT_LOCATION("warmelt-modes.melt:4815:/ clear");
4559 /*clear*/ /*_#MELT_CALLCOUNT__L21*/
4560 meltfnum[11] = 0 ;
4561 /*^clear*/
4562 /*clear*/ /*_.MELT_DEBUG_FUN__V42*/
4563 meltfptr[41] = 0 ;
4564 }
4565 ;
4566 }
4567 else /*^cond.else*/
4568 {
4569
4570 /*_._IF___V41*/ meltfptr[40] = /*reallynil*/ NULL ;;
4571 }
4572 ;
4573
4574 {
4575 MELT_LOCATION("warmelt-modes.melt:4815:/ locexp");
4576 /*void*/
4577 (void)0;
4578 }
4579 ;
4580 /*^quasiblock*/
4581
4582
4583 /*epilog*/
4584
4585 /*^clear*/
4586 /*clear*/ /*_#MELT_NEED_DBG__L20*/
4587 meltfnum[8] = 0 ;
4588 /*^clear*/
4589 /*clear*/ /*_._IF___V41*/
4590 meltfptr[40] = 0 ;
4591 }
4592
4593 #else /*MELT_HAVE_DEBUG*/
4594 /*^cppif.else*/
4595 /*^block*/
4596 /*anyblock*/
4597 {
4598
4599
4600 {
4601 /*^locexp*/
4602 /*void*/(void)0;
4603 }
4604 ;
4605 /*epilog*/
4606 }
4607
4608 #endif /*MELT_HAVE_DEBUG*/
4609 ;
4610
4611 {
4612 MELT_LOCATION("warmelt-modes.melt:4817:/ locexp");
4613 /*generate_flavored_melt_module*/
4614 melt_compile_source (melt_string_str ((melt_ptr_t)/*_.BASNAM__V15*/ meltfptr[9]),
4615 melt_string_str ((melt_ptr_t)/*_.OUTBASE__V38*/ meltfptr[6]),
4616 NULL,
4617 melt_string_str ((melt_ptr_t)/*_.CURFLAVOR__V40*/ meltfptr[39])); /*generate_flavored_melt_module*/
4618 ;
4619 }
4620 ;
4621
4622 #if MELT_HAVE_DEBUG
4623 MELT_LOCATION("warmelt-modes.melt:4818:/ cppif.then");
4624 /*^block*/
4625 /*anyblock*/
4626 {
4627
4628
4629 {
4630 /*^locexp*/
4631 /*melt_increment_dbgcounter*/
4632 #if MELT_HAVE_DEBUG
4633 melt_dbgcounter++;
4634 #endif
4635 ;
4636 }
4637 ;
4638
4639 MELT_CHECK_SIGNAL();
4640 ;
4641 /*_#MELT_NEED_DBG__L22*/
4642 meltfnum[11] =
4643 /*MELT_NEED_DBG*/
4644 #if MELT_HAVE_DEBUG
4645 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
4646 #else
4647 0 /* no melt_need_dbg */
4648 #endif /*MELT_HAVE_DEBUG*/
4649 ;;
4650 MELT_LOCATION("warmelt-modes.melt:4818:/ cond");
4651 /*cond*/
4652 if (/*_#MELT_NEED_DBG__L22*/ meltfnum[11]) /*then*/
4653 {
4654 /*^cond.then*/
4655 /*^block*/
4656 /*anyblock*/
4657 {
4658
4659 /*_#MELT_CALLCOUNT__L23*/ meltfnum[8] =
4660 /* for melt_callcount */
4661 #if MELT_HAVE_DEBUG && defined (meltcallcount)
4662 meltcallcount /* melt_callcount debugging */
4663 #else
4664 0L /* melt_callcount without debug */
4665 #endif /* MELT_HAVE_DEBUG melt_callcount */
4666 ;;
4667
4668 MELT_CHECK_SIGNAL();
4669 ;
4670 MELT_LOCATION("warmelt-modes.melt:4818:/ apply");
4671 /*apply*/
4672 {
4673 union meltparam_un argtab[9];
4674 memset(&argtab, 0, sizeof(argtab));
4675 /*^apply.arg*/
4676 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L23*/ meltfnum[8];
4677 /*^apply.arg*/
4678 argtab[1].meltbp_cstring = "warmelt-modes.melt";
4679 /*^apply.arg*/
4680 argtab[2].meltbp_long = 4818;
4681 /*^apply.arg*/
4682 argtab[3].meltbp_cstring = "translateinitmodule_flavored after module generation basnam=";
4683 /*^apply.arg*/
4684 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V15*/ meltfptr[9];
4685 /*^apply.arg*/
4686 argtab[5].meltbp_cstring = " outbase=";
4687 /*^apply.arg*/
4688 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBASE__V38*/ meltfptr[6];
4689 /*^apply.arg*/
4690 argtab[7].meltbp_cstring = " curflavor=";
4691 /*^apply.arg*/
4692 argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.CURFLAVOR__V40*/ meltfptr[39];
4693 /*_.MELT_DEBUG_FUN__V44*/
4694 meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4695 }
4696 ;
4697 /*_._IF___V43*/
4698 meltfptr[41] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[40];;
4699 /*epilog*/
4700
4701 MELT_LOCATION("warmelt-modes.melt:4818:/ clear");
4702 /*clear*/ /*_#MELT_CALLCOUNT__L23*/
4703 meltfnum[8] = 0 ;
4704 /*^clear*/
4705 /*clear*/ /*_.MELT_DEBUG_FUN__V44*/
4706 meltfptr[40] = 0 ;
4707 }
4708 ;
4709 }
4710 else /*^cond.else*/
4711 {
4712
4713 /*_._IF___V43*/ meltfptr[41] = /*reallynil*/ NULL ;;
4714 }
4715 ;
4716
4717 {
4718 MELT_LOCATION("warmelt-modes.melt:4818:/ locexp");
4719 /*void*/
4720 (void)0;
4721 }
4722 ;
4723 /*^quasiblock*/
4724
4725
4726 /*epilog*/
4727
4728 /*^clear*/
4729 /*clear*/ /*_#MELT_NEED_DBG__L22*/
4730 meltfnum[11] = 0 ;
4731 /*^clear*/
4732 /*clear*/ /*_._IF___V43*/
4733 meltfptr[41] = 0 ;
4734 }
4735
4736 #else /*MELT_HAVE_DEBUG*/
4737 /*^cppif.else*/
4738 /*^block*/
4739 /*anyblock*/
4740 {
4741
4742
4743 {
4744 /*^locexp*/
4745 /*void*/(void)0;
4746 }
4747 ;
4748 /*epilog*/
4749 }
4750
4751 #endif /*MELT_HAVE_DEBUG*/
4752 ;
4753 if (/*_#FLAVIX__L19*/ meltfnum[10]<0) break;
4754 } /* end foreach_in_multiple meltcit1__EACHTUP */
4755
4756 /*citerepilog*/
4757
4758 MELT_LOCATION("warmelt-modes.melt:4812:/ clear");
4759 /*clear*/ /*_.CURFLAVOR__V40*/
4760 meltfptr[39] = 0 ;
4761 /*^clear*/
4762 /*clear*/ /*_#FLAVIX__L19*/
4763 meltfnum[10] = 0 ;
4764 } /*endciterblock FOREACH_IN_MULTIPLE*/
4765 ;
4766 /*epilog*/
4767 }
4768 ;
4769 }
4770 else
4771 {
4772 MELT_LOCATION("warmelt-modes.melt:4811:/ cond.else");
4773
4774 /*^block*/
4775 /*anyblock*/
4776 {
4777
4778
4779 MELT_CHECK_SIGNAL();
4780 ;
4781 /*_#IS_STRING__L24*/
4782 meltfnum[8] =
4783 (melt_magic_discr((melt_ptr_t)(/*_.FLAVOR__V2*/ meltfptr[1])) == MELTOBMAG_STRING);;
4784 MELT_LOCATION("warmelt-modes.melt:4822:/ cond");
4785 /*cond*/
4786 if (/*_#IS_STRING__L24*/ meltfnum[8]) /*then*/
4787 {
4788 /*^cond.then*/
4789 /*^block*/
4790 /*anyblock*/
4791 {
4792
4793
4794 #if MELT_HAVE_DEBUG
4795 MELT_LOCATION("warmelt-modes.melt:4823:/ cppif.then");
4796 /*^block*/
4797 /*anyblock*/
4798 {
4799
4800
4801 {
4802 /*^locexp*/
4803 /*melt_increment_dbgcounter*/
4804 #if MELT_HAVE_DEBUG
4805 melt_dbgcounter++;
4806 #endif
4807 ;
4808 }
4809 ;
4810
4811 MELT_CHECK_SIGNAL();
4812 ;
4813 /*_#MELT_NEED_DBG__L25*/
4814 meltfnum[11] =
4815 /*MELT_NEED_DBG*/
4816 #if MELT_HAVE_DEBUG
4817 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
4818 #else
4819 0 /* no melt_need_dbg */
4820 #endif /*MELT_HAVE_DEBUG*/
4821 ;;
4822 MELT_LOCATION("warmelt-modes.melt:4823:/ cond");
4823 /*cond*/
4824 if (/*_#MELT_NEED_DBG__L25*/ meltfnum[11]) /*then*/
4825 {
4826 /*^cond.then*/
4827 /*^block*/
4828 /*anyblock*/
4829 {
4830
4831 /*_#MELT_CALLCOUNT__L26*/ meltfnum[25] =
4832 /* for melt_callcount */
4833 #if MELT_HAVE_DEBUG && defined (meltcallcount)
4834 meltcallcount /* melt_callcount debugging */
4835 #else
4836 0L /* melt_callcount without debug */
4837 #endif /* MELT_HAVE_DEBUG melt_callcount */
4838 ;;
4839
4840 MELT_CHECK_SIGNAL();
4841 ;
4842 MELT_LOCATION("warmelt-modes.melt:4823:/ apply");
4843 /*apply*/
4844 {
4845 union meltparam_un argtab[9];
4846 memset(&argtab, 0, sizeof(argtab));
4847 /*^apply.arg*/
4848 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L26*/ meltfnum[25];
4849 /*^apply.arg*/
4850 argtab[1].meltbp_cstring = "warmelt-modes.melt";
4851 /*^apply.arg*/
4852 argtab[2].meltbp_long = 4823;
4853 /*^apply.arg*/
4854 argtab[3].meltbp_cstring = "translateinitmodule_flavored before module generation basnam=";
4855 /*^apply.arg*/
4856 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V15*/ meltfptr[9];
4857 /*^apply.arg*/
4858 argtab[5].meltbp_cstring = " outbase=";
4859 /*^apply.arg*/
4860 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBASE__V38*/ meltfptr[6];
4861 /*^apply.arg*/
4862 argtab[7].meltbp_cstring = " flavor=";
4863 /*^apply.arg*/
4864 argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.FLAVOR__V2*/ meltfptr[1];
4865 /*_.MELT_DEBUG_FUN__V47*/
4866 meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
4867 }
4868 ;
4869 /*_._IF___V46*/
4870 meltfptr[41] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];;
4871 /*epilog*/
4872
4873 MELT_LOCATION("warmelt-modes.melt:4823:/ clear");
4874 /*clear*/ /*_#MELT_CALLCOUNT__L26*/
4875 meltfnum[25] = 0 ;
4876 /*^clear*/
4877 /*clear*/ /*_.MELT_DEBUG_FUN__V47*/
4878 meltfptr[46] = 0 ;
4879 }
4880 ;
4881 }
4882 else /*^cond.else*/
4883 {
4884
4885 /*_._IF___V46*/ meltfptr[41] = /*reallynil*/ NULL ;;
4886 }
4887 ;
4888
4889 {
4890 MELT_LOCATION("warmelt-modes.melt:4823:/ locexp");
4891 /*void*/
4892 (void)0;
4893 }
4894 ;
4895 /*^quasiblock*/
4896
4897
4898 /*epilog*/
4899
4900 /*^clear*/
4901 /*clear*/ /*_#MELT_NEED_DBG__L25*/
4902 meltfnum[11] = 0 ;
4903 /*^clear*/
4904 /*clear*/ /*_._IF___V46*/
4905 meltfptr[41] = 0 ;
4906 }
4907
4908 #else /*MELT_HAVE_DEBUG*/
4909 /*^cppif.else*/
4910 /*^block*/
4911 /*anyblock*/
4912 {
4913
4914
4915 {
4916 /*^locexp*/
4917 /*void*/(void)0;
4918 }
4919 ;
4920 /*epilog*/
4921 }
4922
4923 #endif /*MELT_HAVE_DEBUG*/
4924 ;
4925
4926 {
4927 MELT_LOCATION("warmelt-modes.melt:4825:/ locexp");
4928 /*generate_flavored_melt_module*/
4929 melt_compile_source (melt_string_str ((melt_ptr_t)/*_.BASNAM__V15*/ meltfptr[9]),
4930 melt_string_str ((melt_ptr_t)/*_.OUTBASE__V38*/ meltfptr[6]),
4931 NULL,
4932 melt_string_str ((melt_ptr_t)/*_.FLAVOR__V2*/ meltfptr[1])); /*generate_flavored_melt_module*/
4933 ;
4934 }
4935 ;
4936
4937 #if MELT_HAVE_DEBUG
4938 MELT_LOCATION("warmelt-modes.melt:4826:/ cppif.then");
4939 /*^block*/
4940 /*anyblock*/
4941 {
4942
4943
4944 {
4945 /*^locexp*/
4946 /*melt_increment_dbgcounter*/
4947 #if MELT_HAVE_DEBUG
4948 melt_dbgcounter++;
4949 #endif
4950 ;
4951 }
4952 ;
4953
4954 MELT_CHECK_SIGNAL();
4955 ;
4956 /*_#MELT_NEED_DBG__L27*/
4957 meltfnum[25] =
4958 /*MELT_NEED_DBG*/
4959 #if MELT_HAVE_DEBUG
4960 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
4961 #else
4962 0 /* no melt_need_dbg */
4963 #endif /*MELT_HAVE_DEBUG*/
4964 ;;
4965 MELT_LOCATION("warmelt-modes.melt:4826:/ cond");
4966 /*cond*/
4967 if (/*_#MELT_NEED_DBG__L27*/ meltfnum[25]) /*then*/
4968 {
4969 /*^cond.then*/
4970 /*^block*/
4971 /*anyblock*/
4972 {
4973
4974 /*_#MELT_CALLCOUNT__L28*/ meltfnum[11] =
4975 /* for melt_callcount */
4976 #if MELT_HAVE_DEBUG && defined (meltcallcount)
4977 meltcallcount /* melt_callcount debugging */
4978 #else
4979 0L /* melt_callcount without debug */
4980 #endif /* MELT_HAVE_DEBUG melt_callcount */
4981 ;;
4982
4983 MELT_CHECK_SIGNAL();
4984 ;
4985 MELT_LOCATION("warmelt-modes.melt:4826:/ apply");
4986 /*apply*/
4987 {
4988 union meltparam_un argtab[9];
4989 memset(&argtab, 0, sizeof(argtab));
4990 /*^apply.arg*/
4991 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L28*/ meltfnum[11];
4992 /*^apply.arg*/
4993 argtab[1].meltbp_cstring = "warmelt-modes.melt";
4994 /*^apply.arg*/
4995 argtab[2].meltbp_long = 4826;
4996 /*^apply.arg*/
4997 argtab[3].meltbp_cstring = "translateinitmodule_flavored after module generation basnam=";
4998 /*^apply.arg*/
4999 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V15*/ meltfptr[9];
5000 /*^apply.arg*/
5001 argtab[5].meltbp_cstring = " outbase=";
5002 /*^apply.arg*/
5003 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBASE__V38*/ meltfptr[6];
5004 /*^apply.arg*/
5005 argtab[7].meltbp_cstring = " flavor=";
5006 /*^apply.arg*/
5007 argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.FLAVOR__V2*/ meltfptr[1];
5008 /*_.MELT_DEBUG_FUN__V49*/
5009 meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5010 }
5011 ;
5012 /*_._IF___V48*/
5013 meltfptr[46] = /*_.MELT_DEBUG_FUN__V49*/ meltfptr[41];;
5014 /*epilog*/
5015
5016 MELT_LOCATION("warmelt-modes.melt:4826:/ clear");
5017 /*clear*/ /*_#MELT_CALLCOUNT__L28*/
5018 meltfnum[11] = 0 ;
5019 /*^clear*/
5020 /*clear*/ /*_.MELT_DEBUG_FUN__V49*/
5021 meltfptr[41] = 0 ;
5022 }
5023 ;
5024 }
5025 else /*^cond.else*/
5026 {
5027
5028 /*_._IF___V48*/ meltfptr[46] = /*reallynil*/ NULL ;;
5029 }
5030 ;
5031
5032 {
5033 MELT_LOCATION("warmelt-modes.melt:4826:/ locexp");
5034 /*void*/
5035 (void)0;
5036 }
5037 ;
5038 /*^quasiblock*/
5039
5040
5041 /*epilog*/
5042
5043 /*^clear*/
5044 /*clear*/ /*_#MELT_NEED_DBG__L27*/
5045 meltfnum[25] = 0 ;
5046 /*^clear*/
5047 /*clear*/ /*_._IF___V48*/
5048 meltfptr[46] = 0 ;
5049 }
5050
5051 #else /*MELT_HAVE_DEBUG*/
5052 /*^cppif.else*/
5053 /*^block*/
5054 /*anyblock*/
5055 {
5056
5057
5058 {
5059 /*^locexp*/
5060 /*void*/(void)0;
5061 }
5062 ;
5063 /*epilog*/
5064 }
5065
5066 #endif /*MELT_HAVE_DEBUG*/
5067 ;
5068 MELT_LOCATION("warmelt-modes.melt:4822:/ quasiblock");
5069
5070
5071 /*epilog*/
5072 }
5073 ;
5074 }
5075 else /*^cond.else*/
5076 {
5077
5078 /*^block*/
5079 /*anyblock*/
5080 {
5081
5082
5083 #if MELT_HAVE_DEBUG
5084 MELT_LOCATION("warmelt-modes.melt:4830:/ cppif.then");
5085 /*^block*/
5086 /*anyblock*/
5087 {
5088
5089
5090 {
5091 /*^locexp*/
5092 /*melt_increment_dbgcounter*/
5093 #if MELT_HAVE_DEBUG
5094 melt_dbgcounter++;
5095 #endif
5096 ;
5097 }
5098 ;
5099
5100 MELT_CHECK_SIGNAL();
5101 ;
5102 /*_#MELT_NEED_DBG__L29*/
5103 meltfnum[11] =
5104 /*MELT_NEED_DBG*/
5105 #if MELT_HAVE_DEBUG
5106 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
5107 #else
5108 0 /* no melt_need_dbg */
5109 #endif /*MELT_HAVE_DEBUG*/
5110 ;;
5111 MELT_LOCATION("warmelt-modes.melt:4830:/ cond");
5112 /*cond*/
5113 if (/*_#MELT_NEED_DBG__L29*/ meltfnum[11]) /*then*/
5114 {
5115 /*^cond.then*/
5116 /*^block*/
5117 /*anyblock*/
5118 {
5119
5120 /*_#MELT_CALLCOUNT__L30*/ meltfnum[25] =
5121 /* for melt_callcount */
5122 #if MELT_HAVE_DEBUG && defined (meltcallcount)
5123 meltcallcount /* melt_callcount debugging */
5124 #else
5125 0L /* melt_callcount without debug */
5126 #endif /* MELT_HAVE_DEBUG melt_callcount */
5127 ;;
5128
5129 MELT_CHECK_SIGNAL();
5130 ;
5131 MELT_LOCATION("warmelt-modes.melt:4830:/ apply");
5132 /*apply*/
5133 {
5134 union meltparam_un argtab[5];
5135 memset(&argtab, 0, sizeof(argtab));
5136 /*^apply.arg*/
5137 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L30*/ meltfnum[25];
5138 /*^apply.arg*/
5139 argtab[1].meltbp_cstring = "warmelt-modes.melt";
5140 /*^apply.arg*/
5141 argtab[2].meltbp_long = 4830;
5142 /*^apply.arg*/
5143 argtab[3].meltbp_cstring = "translateinitmodule_flavored bad flavor=";
5144 /*^apply.arg*/
5145 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FLAVOR__V2*/ meltfptr[1];
5146 /*_.MELT_DEBUG_FUN__V51*/
5147 meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5148 }
5149 ;
5150 /*_._IF___V50*/
5151 meltfptr[41] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[46];;
5152 /*epilog*/
5153
5154 MELT_LOCATION("warmelt-modes.melt:4830:/ clear");
5155 /*clear*/ /*_#MELT_CALLCOUNT__L30*/
5156 meltfnum[25] = 0 ;
5157 /*^clear*/
5158 /*clear*/ /*_.MELT_DEBUG_FUN__V51*/
5159 meltfptr[46] = 0 ;
5160 }
5161 ;
5162 }
5163 else /*^cond.else*/
5164 {
5165
5166 /*_._IF___V50*/ meltfptr[41] = /*reallynil*/ NULL ;;
5167 }
5168 ;
5169
5170 {
5171 MELT_LOCATION("warmelt-modes.melt:4830:/ locexp");
5172 /*void*/
5173 (void)0;
5174 }
5175 ;
5176 /*^quasiblock*/
5177
5178
5179 /*epilog*/
5180
5181 /*^clear*/
5182 /*clear*/ /*_#MELT_NEED_DBG__L29*/
5183 meltfnum[11] = 0 ;
5184 /*^clear*/
5185 /*clear*/ /*_._IF___V50*/
5186 meltfptr[41] = 0 ;
5187 }
5188
5189 #else /*MELT_HAVE_DEBUG*/
5190 /*^cppif.else*/
5191 /*^block*/
5192 /*anyblock*/
5193 {
5194
5195
5196 {
5197 /*^locexp*/
5198 /*void*/(void)0;
5199 }
5200 ;
5201 /*epilog*/
5202 }
5203
5204 #endif /*MELT_HAVE_DEBUG*/
5205 ;
5206
5207 MELT_CHECK_SIGNAL();
5208 ;
5209 MELT_LOCATION("warmelt-modes.melt:4831:/ apply");
5210 /*apply*/
5211 {
5212 union meltparam_un argtab[2];
5213 memset(&argtab, 0, sizeof(argtab));
5214 /*^apply.arg*/
5215 argtab[0].meltbp_cstring = "bad flavor $1 for translating initial module";
5216 /*^apply.arg*/
5217 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.FLAVOR__V2*/ meltfptr[1];
5218 /*_.ERROR_AT__V52*/
5219 meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5220 }
5221 ;
5222
5223 #if MELT_HAVE_DEBUG
5224 MELT_LOCATION("warmelt-modes.melt:4832:/ cppif.then");
5225 /*^block*/
5226 /*anyblock*/
5227 {
5228
5229
5230 MELT_CHECK_SIGNAL();
5231 ;
5232 /*^cond*/
5233 /*cond*/
5234 if ((/*nil*/NULL)) /*then*/
5235 {
5236 /*^cond.then*/
5237 /*_._IFELSE___V54*/ meltfptr[53] = (/*nil*/NULL);;
5238 }
5239 else
5240 {
5241 MELT_LOCATION("warmelt-modes.melt:4832:/ cond.else");
5242
5243 /*^block*/
5244 /*anyblock*/
5245 {
5246
5247
5248 MELT_CHECK_SIGNAL();
5249 ;
5250 /*^apply*/
5251 /*apply*/
5252 {
5253 union meltparam_un argtab[4];
5254 memset(&argtab, 0, sizeof(argtab));
5255 /*^apply.arg*/
5256 argtab[0].meltbp_cstring = "translateinitmodule_flavored bad flavor";
5257 /*^apply.arg*/
5258 argtab[1].meltbp_cstring = "warmelt-modes.melt";
5259 /*^apply.arg*/
5260 argtab[2].meltbp_long = 4832;
5261 /*^apply.arg*/
5262 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FLAVOR__V2*/ meltfptr[1];
5263 /*_.MELT_ASSERT_FAILURE_FUN__V55*/
5264 meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[12])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5265 }
5266 ;
5267 /*_._IFELSE___V54*/
5268 meltfptr[53] = /*_.MELT_ASSERT_FAILURE_FUN__V55*/ meltfptr[54];;
5269 /*epilog*/
5270
5271 MELT_LOCATION("warmelt-modes.melt:4832:/ clear");
5272 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V55*/
5273 meltfptr[54] = 0 ;
5274 }
5275 ;
5276 }
5277 ;
5278 /*_.IFCPP___V53*/
5279 meltfptr[41] = /*_._IFELSE___V54*/ meltfptr[53];;
5280 /*epilog*/
5281
5282 MELT_LOCATION("warmelt-modes.melt:4832:/ clear");
5283 /*clear*/ /*_._IFELSE___V54*/
5284 meltfptr[53] = 0 ;
5285 }
5286
5287 #else /*MELT_HAVE_DEBUG*/
5288 /*^cppif.else*/
5289 /*_.IFCPP___V53*/ meltfptr[41] = (/*nil*/NULL);
5290 #endif /*MELT_HAVE_DEBUG*/
5291 ;
5292 MELT_LOCATION("warmelt-modes.melt:4829:/ quasiblock");
5293
5294
5295 /*_.PROGN___V56*/
5296 meltfptr[54] = /*_.IFCPP___V53*/ meltfptr[41];;
5297 /*^compute*/
5298 /*_._IFELSE___V45*/
5299 meltfptr[40] = /*_.PROGN___V56*/ meltfptr[54];;
5300 /*epilog*/
5301
5302 MELT_LOCATION("warmelt-modes.melt:4822:/ clear");
5303 /*clear*/ /*_.ERROR_AT__V52*/
5304 meltfptr[46] = 0 ;
5305 /*^clear*/
5306 /*clear*/ /*_.IFCPP___V53*/
5307 meltfptr[41] = 0 ;
5308 /*^clear*/
5309 /*clear*/ /*_.PROGN___V56*/
5310 meltfptr[54] = 0 ;
5311 }
5312 ;
5313 }
5314 ;
5315 /*_._IFELSE___V39*/
5316 meltfptr[38] = /*_._IFELSE___V45*/ meltfptr[40];;
5317 /*epilog*/
5318
5319 MELT_LOCATION("warmelt-modes.melt:4811:/ clear");
5320 /*clear*/ /*_#IS_STRING__L24*/
5321 meltfnum[8] = 0 ;
5322 /*^clear*/
5323 /*clear*/ /*_._IFELSE___V45*/
5324 meltfptr[40] = 0 ;
5325 }
5326 ;
5327 }
5328 ;
5329 /*_.LET___V37*/
5330 meltfptr[32] = /*_._IFELSE___V39*/ meltfptr[38];;
5331
5332 MELT_LOCATION("warmelt-modes.melt:4807:/ clear");
5333 /*clear*/ /*_.OUTBASE__V38*/
5334 meltfptr[6] = 0 ;
5335 /*^clear*/
5336 /*clear*/ /*_#IS_MULTIPLE__L18*/
5337 meltfnum[9] = 0 ;
5338 /*^clear*/
5339 /*clear*/ /*_._IFELSE___V39*/
5340 meltfptr[38] = 0 ;
5341 /*_.LET___V3*/
5342 meltfptr[2] = /*_.LET___V37*/ meltfptr[32];;
5343
5344 MELT_LOCATION("warmelt-modes.melt:4746:/ clear");
5345 /*clear*/ /*_.RLIST__V4*/
5346 meltfptr[3] = 0 ;
5347 /*^clear*/
5348 /*clear*/ /*_?*/
5349 meltfram__.loc_CSTRING__o0 = 0 ;
5350 /*^clear*/
5351 /*clear*/ /*_?*/
5352 meltfram__.loc_CSTRING__o1 = 0 ;
5353 /*^clear*/
5354 /*clear*/ /*_.INARG__V5*/
5355 meltfptr[4] = 0 ;
5356 /*^clear*/
5357 /*clear*/ /*_?*/
5358 meltfram__.loc_CSTRING__o2 = 0 ;
5359 /*^clear*/
5360 /*clear*/ /*_.OUTARG__V14*/
5361 meltfptr[5] = 0 ;
5362 /*^clear*/
5363 /*clear*/ /*_#IS_STRING__L3*/
5364 meltfnum[0] = 0 ;
5365 /*^clear*/
5366 /*clear*/ /*_.BASNAM__V15*/
5367 meltfptr[9] = 0 ;
5368 /*^clear*/
5369 /*clear*/ /*_#STRING_DYNLOADED_SUFFIXED__L7*/
5370 meltfnum[5] = 0 ;
5371 /*^clear*/
5372 /*clear*/ /*_#OR___L8*/
5373 meltfnum[1] = 0 ;
5374 /*^clear*/
5375 /*clear*/ /*_._IF___V23*/
5376 meltfptr[19] = 0 ;
5377 /*^clear*/
5378 /*clear*/ /*_#IS_STRING__L14*/
5379 meltfnum[12] = 0 ;
5380 /*^clear*/
5381 /*clear*/ /*_._IFELSE___V27*/
5382 meltfptr[12] = 0 ;
5383 /*^clear*/
5384 /*clear*/ /*_.COMPILE_LIST_SEXPR__V36*/
5385 meltfptr[18] = 0 ;
5386 /*^clear*/
5387 /*clear*/ /*_.LET___V37*/
5388 meltfptr[32] = 0 ;
5389 MELT_LOCATION("warmelt-modes.melt:4745:/ quasiblock");
5390
5391
5392 /*_._RETVAL___V1*/
5393 meltfptr[0] = /*_.LET___V3*/ meltfptr[2];;
5394
5395 {
5396 MELT_LOCATION("warmelt-modes.melt:4745:/ locexp");
5397 /*ochecknores compilobj_nrep_return*/
5398 #if MELT_HAVE_DEBUG
5399 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
5400 melt_warn_for_no_expected_secondary_results();
5401 /* we warned when secondary results are expected but not returned. */
5402 #endif /*MELT_HAVE_DEBUG*/
5403 ;
5404 }
5405 ;
5406 /*^finalreturn*/
5407 ;
5408 /*finalret*/
5409 goto meltlabend_rout ;
5410 /*epilog*/
5411
5412 /*^clear*/
5413 /*clear*/ /*_.LET___V3*/
5414 meltfptr[2] = 0 ;
5415 }
5416
5417 ;
5418 goto meltlabend_rout;
5419 meltlabend_rout:
5420 melt_trace_end("TRANSLATEINIT_FLAVORED", meltcallcount);
5421 melt_blocklevel_signals = current_blocklevel_signals_meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED_melt;
5422 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
5423 #undef meltcallcount
5424 #undef meltfram__
5425 #undef MELTFRAM_NBVARNUM
5426 #undef MELTFRAM_NBVARPTR
5427 } /*end meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED*/
5428
5429
5430
5431
5432
5433
5434 melt_ptr_t MELT_MODULE_VISIBILITY
5435 meltrout_71_WARMELTmiMODES_LAMBDA_cl21(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
5436 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
5437 {
5438 long current_blocklevel_signals_meltrout_71_WARMELTmiMODES_LAMBDA_cl21_melt = melt_blocklevel_signals;
5439
5440 #if MELT_HAVE_DEBUG
5441 static long melt_call_counter__;
5442 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
5443 #undef meltcallcount
5444 #define meltcallcount melt_thiscallcounter__
5445 #else
5446 #undef meltcallcount
5447 #define meltcallcount 0L
5448 #endif
5449 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
5450
5451 /* start of frame for routine meltrout_71_WARMELTmiMODES_LAMBDA_cl21 fromline 1752 */
5452
5453 /** start of frame for meltrout_71_WARMELTmiMODES_LAMBDA_cl21 of CLASS_PROCROUTINEOBJ from 1555**/
5454
5455 /*curframdeclclassy*/ class MeltFrame_meltrout_71_WARMELTmiMODES_LAMBDA_cl21// fromline 1568
5456 : public Melt_CallFrameWithValues<14>
5457 {
5458 public: /* fromline 1572*/
5459 long mcfr_varnum[4];
5460 /*classy others*/
5461 long _meltsparel;
5462 void melt_mark_stuff (void)
5463 {
5464 } /*end melt_mark_stuff*/
5465 virtual void melt_mark_ggc_data (void)
5466 {
5467 melt_mark_values ();
5468 melt_mark_stuff ();
5469 }; /*end melt_mark_ggc_data*/
5470 MeltFrame_meltrout_71_WARMELTmiMODES_LAMBDA_cl21(meltclosure_ptr_t clos) //the closure constructor fromline 1630
5471 : Melt_CallFrameWithValues<14> (
5472 #if ENABLE_CHECKING /*fromline 1634*/
5473 __FILE__, __LINE__,
5474 #endif /* ENABLE_CHECKING fromline 1638*/
5475 sizeof(MeltFrame_meltrout_71_WARMELTmiMODES_LAMBDA_cl21), clos) {};
5476 MeltFrame_meltrout_71_WARMELTmiMODES_LAMBDA_cl21() //the constructor fromline 1642
5477 : Melt_CallFrameWithValues<14> (
5478 #if ENABLE_CHECKING /*fromline 1646*/
5479 __FILE__, __LINE__,
5480 #endif /* ENABLE_CHECKING fromline 1650*/
5481 sizeof(MeltFrame_meltrout_71_WARMELTmiMODES_LAMBDA_cl21)) {};
5482 #if ENABLE_CHECKING /*fromline 1654*/
5483 MeltFrame_meltrout_71_WARMELTmiMODES_LAMBDA_cl21(const char*fil, int lin) //the constructor fromline 1656
5484 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_71_WARMELTmiMODES_LAMBDA_cl21)) {};
5485 MeltFrame_meltrout_71_WARMELTmiMODES_LAMBDA_cl21(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
5486 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_71_WARMELTmiMODES_LAMBDA_cl21), clos) {};
5487 #endif /* ENABLE_CHECKING fromline 1666*/
5488
5489 }; // end class MeltFrame_meltrout_71_WARMELTmiMODES_LAMBDA_cl21
5490
5491
5492 /** end of frame for meltrout_71_WARMELTmiMODES_LAMBDA_cl21 fromline 1697**/
5493
5494 /* end of frame for routine meltrout_71_WARMELTmiMODES_LAMBDA_cl21 fromline 1756 */
5495
5496 /* classy proc frame meltrout_71_WARMELTmiMODES_LAMBDA_cl21 */
5497 MeltFrame_meltrout_71_WARMELTmiMODES_LAMBDA_cl21
5498 meltfram__ /*declfrastruct fromline 1780*/
5499 /*classyprocarg meltrout_71_WARMELTmiMODES_LAMBDA_cl21 fromline 1785*/
5500 #if ENABLE_CHECKING
5501 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
5502 #else /*ENABLE_CHECKING */
5503 (meltclosp_) /* fromline 1793*/
5504 #endif /*ENABLE_CHECKING */
5505
5506 ;
5507 #define meltframe meltfram__
5508
5509 melt_trace_start("LAMBDA_cl21", meltcallcount);
5510 /*use arguments*/
5511 (void) meltclosp_;
5512 (void)meltfirstargp_;
5513 (void)meltxargdescr_;
5514 (void)meltxargtab_;
5515 (void)meltxresdescr_;
5516 (void)meltxrestab_;
5517 /*getargs*/
5518
5519 /*getarg#0*/
5520 MELT_LOCATION("warmelt-modes.melt:4789:/ getarg");
5521 /*_.CURARG__V2*/
5522 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
5523 ;
5524 goto meltlab_endgetargs;
5525 meltlab_endgetargs:
5526 ;
5527 /*body*/
5528 /*^block*/
5529 /*anyblock*/
5530 {
5531
5532
5533 MELT_CHECK_SIGNAL();
5534 ;
5535 MELT_LOCATION("warmelt-modes.melt:4790:/ apply");
5536 /*apply*/
5537 {
5538 union meltparam_un argtab[2];
5539 memset(&argtab, 0, sizeof(argtab));
5540 /*^apply.arg*/
5541 argtab[0].meltbp_cstring = "tranlateinitmodule_flavored reading from file $1";
5542 /*^apply.arg*/
5543 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURARG__V2*/ meltfptr[1];
5544 /*_.INFORM_AT__V3*/
5545 meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!INFORM_AT*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5546 }
5547 ;
5548 MELT_LOCATION("warmelt-modes.melt:4793:/ quasiblock");
5549
5550
5551 /*_.CUREAD__V5*/
5552 meltfptr[4] =
5553 (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1])), (char*)0));;
5554
5555 #if MELT_HAVE_DEBUG
5556 MELT_LOCATION("warmelt-modes.melt:4795:/ cppif.then");
5557 /*^block*/
5558 /*anyblock*/
5559 {
5560
5561
5562 MELT_CHECK_SIGNAL();
5563 ;
5564 /*_#IS_LIST__L1*/
5565 meltfnum[0] =
5566 (melt_magic_discr((melt_ptr_t)((/*~RLIST*/ meltfclos->tabval[0]))) == MELTOBMAG_LIST);;
5567 MELT_LOCATION("warmelt-modes.melt:4795:/ cond");
5568 /*cond*/
5569 if (/*_#IS_LIST__L1*/ meltfnum[0]) /*then*/
5570 {
5571 /*^cond.then*/
5572 /*_._IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);;
5573 }
5574 else
5575 {
5576 MELT_LOCATION("warmelt-modes.melt:4795:/ cond.else");
5577
5578 /*^block*/
5579 /*anyblock*/
5580 {
5581
5582
5583 MELT_CHECK_SIGNAL();
5584 ;
5585 /*^apply*/
5586 /*apply*/
5587 {
5588 union meltparam_un argtab[4];
5589 memset(&argtab, 0, sizeof(argtab));
5590 /*^apply.arg*/
5591 argtab[0].meltbp_cstring = "check rlist";
5592 /*^apply.arg*/
5593 argtab[1].meltbp_cstring = "warmelt-modes.melt";
5594 /*^apply.arg*/
5595 argtab[2].meltbp_long = 4795;
5596 /*^apply.arg*/
5597 argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*~RLIST*/ meltfclos->tabval[0]);
5598 /*_.MELT_ASSERT_FAILURE_FUN__V8*/
5599 meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5600 }
5601 ;
5602 /*_._IFELSE___V7*/
5603 meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];;
5604 /*epilog*/
5605
5606 MELT_LOCATION("warmelt-modes.melt:4795:/ clear");
5607 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/
5608 meltfptr[7] = 0 ;
5609 }
5610 ;
5611 }
5612 ;
5613 /*_.IFCPP___V6*/
5614 meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];;
5615 /*epilog*/
5616
5617 MELT_LOCATION("warmelt-modes.melt:4795:/ clear");
5618 /*clear*/ /*_#IS_LIST__L1*/
5619 meltfnum[0] = 0 ;
5620 /*^clear*/
5621 /*clear*/ /*_._IFELSE___V7*/
5622 meltfptr[6] = 0 ;
5623 }
5624
5625 #else /*MELT_HAVE_DEBUG*/
5626 /*^cppif.else*/
5627 /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL);
5628 #endif /*MELT_HAVE_DEBUG*/
5629 ;
5630
5631 #if MELT_HAVE_DEBUG
5632 MELT_LOCATION("warmelt-modes.melt:4796:/ cppif.then");
5633 /*^block*/
5634 /*anyblock*/
5635 {
5636
5637
5638 MELT_CHECK_SIGNAL();
5639 ;
5640 /*_#IS_LIST_OR_NULL__L2*/
5641 meltfnum[0] =
5642 ((/*_.CUREAD__V5*/ meltfptr[4]) == NULL
5643 || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.CUREAD__V5*/ meltfptr[4])) == MELTOBMAG_LIST));;
5644 MELT_LOCATION("warmelt-modes.melt:4796:/ cond");
5645 /*cond*/
5646 if (/*_#IS_LIST_OR_NULL__L2*/ meltfnum[0]) /*then*/
5647 {
5648 /*^cond.then*/
5649 /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);;
5650 }
5651 else
5652 {
5653 MELT_LOCATION("warmelt-modes.melt:4796:/ cond.else");
5654
5655 /*^block*/
5656 /*anyblock*/
5657 {
5658
5659
5660 MELT_CHECK_SIGNAL();
5661 ;
5662 /*^apply*/
5663 /*apply*/
5664 {
5665 union meltparam_un argtab[4];
5666 memset(&argtab, 0, sizeof(argtab));
5667 /*^apply.arg*/
5668 argtab[0].meltbp_cstring = "check curead";
5669 /*^apply.arg*/
5670 argtab[1].meltbp_cstring = "warmelt-modes.melt";
5671 /*^apply.arg*/
5672 argtab[2].meltbp_long = 4796;
5673 /*^apply.arg*/
5674 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CUREAD__V5*/ meltfptr[4];
5675 /*_.MELT_ASSERT_FAILURE_FUN__V11*/
5676 meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5677 }
5678 ;
5679 /*_._IFELSE___V10*/
5680 meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];;
5681 /*epilog*/
5682
5683 MELT_LOCATION("warmelt-modes.melt:4796:/ clear");
5684 /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/
5685 meltfptr[10] = 0 ;
5686 }
5687 ;
5688 }
5689 ;
5690 /*_.IFCPP___V9*/
5691 meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];;
5692 /*epilog*/
5693
5694 MELT_LOCATION("warmelt-modes.melt:4796:/ clear");
5695 /*clear*/ /*_#IS_LIST_OR_NULL__L2*/
5696 meltfnum[0] = 0 ;
5697 /*^clear*/
5698 /*clear*/ /*_._IFELSE___V10*/
5699 meltfptr[6] = 0 ;
5700 }
5701
5702 #else /*MELT_HAVE_DEBUG*/
5703 /*^cppif.else*/
5704 /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL);
5705 #endif /*MELT_HAVE_DEBUG*/
5706 ;
5707
5708 #if MELT_HAVE_DEBUG
5709 MELT_LOCATION("warmelt-modes.melt:4797:/ cppif.then");
5710 /*^block*/
5711 /*anyblock*/
5712 {
5713
5714
5715 {
5716 /*^locexp*/
5717 /*melt_increment_dbgcounter*/
5718 #if MELT_HAVE_DEBUG
5719 melt_dbgcounter++;
5720 #endif
5721 ;
5722 }
5723 ;
5724
5725 MELT_CHECK_SIGNAL();
5726 ;
5727 /*_#MELT_NEED_DBG__L3*/
5728 meltfnum[0] =
5729 /*MELT_NEED_DBG*/
5730 #if MELT_HAVE_DEBUG
5731 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
5732 #else
5733 0 /* no melt_need_dbg */
5734 #endif /*MELT_HAVE_DEBUG*/
5735 ;;
5736 MELT_LOCATION("warmelt-modes.melt:4797:/ cond");
5737 /*cond*/
5738 if (/*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then*/
5739 {
5740 /*^cond.then*/
5741 /*^block*/
5742 /*anyblock*/
5743 {
5744
5745 /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] =
5746 /* for melt_callcount */
5747 #if MELT_HAVE_DEBUG && defined (meltcallcount)
5748 meltcallcount /* melt_callcount debugging */
5749 #else
5750 0L /* melt_callcount without debug */
5751 #endif /* MELT_HAVE_DEBUG melt_callcount */
5752 ;;
5753
5754 MELT_CHECK_SIGNAL();
5755 ;
5756 MELT_LOCATION("warmelt-modes.melt:4797:/ apply");
5757 /*apply*/
5758 {
5759 union meltparam_un argtab[5];
5760 memset(&argtab, 0, sizeof(argtab));
5761 /*^apply.arg*/
5762 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L4*/ meltfnum[3];
5763 /*^apply.arg*/
5764 argtab[1].meltbp_cstring = "warmelt-modes.melt";
5765 /*^apply.arg*/
5766 argtab[2].meltbp_long = 4797;
5767 /*^apply.arg*/
5768 argtab[3].meltbp_cstring = "translateinitmodule_flavored curead=";
5769 /*^apply.arg*/
5770 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUREAD__V5*/ meltfptr[4];
5771 /*_.MELT_DEBUG_FUN__V13*/
5772 meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5773 }
5774 ;
5775 /*_._IF___V12*/
5776 meltfptr[10] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[6];;
5777 /*epilog*/
5778
5779 MELT_LOCATION("warmelt-modes.melt:4797:/ clear");
5780 /*clear*/ /*_#MELT_CALLCOUNT__L4*/
5781 meltfnum[3] = 0 ;
5782 /*^clear*/
5783 /*clear*/ /*_.MELT_DEBUG_FUN__V13*/
5784 meltfptr[6] = 0 ;
5785 }
5786 ;
5787 }
5788 else /*^cond.else*/
5789 {
5790
5791 /*_._IF___V12*/ meltfptr[10] = /*reallynil*/ NULL ;;
5792 }
5793 ;
5794
5795 {
5796 MELT_LOCATION("warmelt-modes.melt:4797:/ locexp");
5797 /*void*/
5798 (void)0;
5799 }
5800 ;
5801 /*^quasiblock*/
5802
5803
5804 /*epilog*/
5805
5806 /*^clear*/
5807 /*clear*/ /*_#MELT_NEED_DBG__L3*/
5808 meltfnum[0] = 0 ;
5809 /*^clear*/
5810 /*clear*/ /*_._IF___V12*/
5811 meltfptr[10] = 0 ;
5812 }
5813
5814 #else /*MELT_HAVE_DEBUG*/
5815 /*^cppif.else*/
5816 /*^block*/
5817 /*anyblock*/
5818 {
5819
5820
5821 {
5822 /*^locexp*/
5823 /*void*/(void)0;
5824 }
5825 ;
5826 /*epilog*/
5827 }
5828
5829 #endif /*MELT_HAVE_DEBUG*/
5830 ;
5831
5832 MELT_CHECK_SIGNAL();
5833 ;
5834 MELT_LOCATION("warmelt-modes.melt:4798:/ apply");
5835 /*apply*/
5836 {
5837 union meltparam_un argtab[1];
5838 memset(&argtab, 0, sizeof(argtab));
5839 /*^apply.arg*/
5840 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREAD__V5*/ meltfptr[4];
5841 /*_.LIST_APPEND2LIST__V14*/
5842 meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[3])), (melt_ptr_t)((/*~RLIST*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
5843 }
5844 ;
5845 /*_.LET___V4*/
5846 meltfptr[3] = /*_.LIST_APPEND2LIST__V14*/ meltfptr[6];;
5847
5848 MELT_LOCATION("warmelt-modes.melt:4793:/ clear");
5849 /*clear*/ /*_.CUREAD__V5*/
5850 meltfptr[4] = 0 ;
5851 /*^clear*/
5852 /*clear*/ /*_.IFCPP___V6*/
5853 meltfptr[5] = 0 ;
5854 /*^clear*/
5855 /*clear*/ /*_.IFCPP___V9*/
5856 meltfptr[7] = 0 ;
5857 /*^clear*/
5858 /*clear*/ /*_.LIST_APPEND2LIST__V14*/
5859 meltfptr[6] = 0 ;
5860
5861 MELT_CHECK_SIGNAL();
5862 ;
5863 MELT_LOCATION("warmelt-modes.melt:4789:/ quasiblock");
5864
5865
5866 /*_._RETVAL___V1*/
5867 meltfptr[0] = /*_.LET___V4*/ meltfptr[3];;
5868
5869 {
5870 MELT_LOCATION("warmelt-modes.melt:4789:/ locexp");
5871 /*ochecknores compilobj_nrep_return*/
5872 #if MELT_HAVE_DEBUG
5873 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
5874 melt_warn_for_no_expected_secondary_results();
5875 /* we warned when secondary results are expected but not returned. */
5876 #endif /*MELT_HAVE_DEBUG*/
5877 ;
5878 }
5879 ;
5880 /*^finalreturn*/
5881 ;
5882 /*finalret*/
5883 goto meltlabend_rout ;
5884 /*epilog*/
5885
5886 /*^clear*/
5887 /*clear*/ /*_.INFORM_AT__V3*/
5888 meltfptr[2] = 0 ;
5889 /*^clear*/
5890 /*clear*/ /*_.LET___V4*/
5891 meltfptr[3] = 0 ;
5892 }
5893
5894 ;
5895 goto meltlabend_rout;
5896 meltlabend_rout:
5897 melt_trace_end("LAMBDA_cl21", meltcallcount);
5898 melt_blocklevel_signals = current_blocklevel_signals_meltrout_71_WARMELTmiMODES_LAMBDA_cl21_melt;
5899 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
5900 #undef meltcallcount
5901 #undef meltfram__
5902 #undef MELTFRAM_NBVARNUM
5903 #undef MELTFRAM_NBVARPTR
5904 } /*end meltrout_71_WARMELTmiMODES_LAMBDA_cl21*/
5905
5906
5907
5908
5909
5910
5911 melt_ptr_t MELT_MODULE_VISIBILITY
5912 meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
5913 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
5914 {
5915 long current_blocklevel_signals_meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD_melt = melt_blocklevel_signals;
5916
5917 #if MELT_HAVE_DEBUG
5918 static long melt_call_counter__;
5919 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
5920 #undef meltcallcount
5921 #define meltcallcount melt_thiscallcounter__
5922 #else
5923 #undef meltcallcount
5924 #define meltcallcount 0L
5925 #endif
5926 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
5927
5928 /* start of frame for routine meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD fromline 1752 */
5929
5930 /** start of frame for meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD of CLASS_PROCROUTINEOBJ from 1555**/
5931
5932 /*curframdeclclassy*/ class MeltFrame_meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD// fromline 1568
5933 : public Melt_CallFrameWithValues<8>
5934 {
5935 public: /* fromline 1572*/
5936 long mcfr_varnum[2];
5937 /*classy others*/
5938 long _meltsparel;
5939 void melt_mark_stuff (void)
5940 {
5941 } /*end melt_mark_stuff*/
5942 virtual void melt_mark_ggc_data (void)
5943 {
5944 melt_mark_values ();
5945 melt_mark_stuff ();
5946 }; /*end melt_mark_ggc_data*/
5947 MeltFrame_meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD(meltclosure_ptr_t clos) //the closure constructor fromline 1630
5948 : Melt_CallFrameWithValues<8> (
5949 #if ENABLE_CHECKING /*fromline 1634*/
5950 __FILE__, __LINE__,
5951 #endif /* ENABLE_CHECKING fromline 1638*/
5952 sizeof(MeltFrame_meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD), clos) {};
5953 MeltFrame_meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD() //the constructor fromline 1642
5954 : Melt_CallFrameWithValues<8> (
5955 #if ENABLE_CHECKING /*fromline 1646*/
5956 __FILE__, __LINE__,
5957 #endif /* ENABLE_CHECKING fromline 1650*/
5958 sizeof(MeltFrame_meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD)) {};
5959 #if ENABLE_CHECKING /*fromline 1654*/
5960 MeltFrame_meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD(const char*fil, int lin) //the constructor fromline 1656
5961 : Melt_CallFrameWithValues<8> (fil,lin, sizeof(MeltFrame_meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD)) {};
5962 MeltFrame_meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
5963 : Melt_CallFrameWithValues<8> (fil,lin, sizeof(MeltFrame_meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD), clos) {};
5964 #endif /* ENABLE_CHECKING fromline 1666*/
5965
5966 }; // end class MeltFrame_meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD
5967
5968
5969 /** end of frame for meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD fromline 1697**/
5970
5971 /* end of frame for routine meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD fromline 1756 */
5972
5973 /* classy proc frame meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD */
5974 MeltFrame_meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD
5975 meltfram__ /*declfrastruct fromline 1780*/
5976 /*classyprocarg meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD fromline 1785*/
5977 #if ENABLE_CHECKING
5978 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
5979 #else /*ENABLE_CHECKING */
5980 (meltclosp_) /* fromline 1793*/
5981 #endif /*ENABLE_CHECKING */
5982
5983 ;
5984 #define meltframe meltfram__
5985
5986 melt_trace_start("TRANSLATEINITMODULE_DOCMD", meltcallcount);
5987 /*use arguments*/
5988 (void) meltclosp_;
5989 (void)meltfirstargp_;
5990 (void)meltxargdescr_;
5991 (void)meltxargtab_;
5992 (void)meltxresdescr_;
5993 (void)meltxrestab_;
5994 /*getargs*/
5995
5996 /*getarg#0*/
5997 MELT_LOCATION("warmelt-modes.melt:4839:/ getarg");
5998 /*_.CMD__V2*/
5999 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
6000
6001 /*getarg#1*/
6002 /*^getarg*/
6003 if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
6004 /*_.MODULDATA__V3*/
6005 meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
6006 gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL);
6007
6008 ;
6009 goto meltlab_endgetargs;
6010 meltlab_endgetargs:
6011 ;
6012 /*body*/
6013 /*^block*/
6014 /*anyblock*/
6015 {
6016
6017
6018 #if MELT_HAVE_DEBUG
6019 MELT_LOCATION("warmelt-modes.melt:4840:/ cppif.then");
6020 /*^block*/
6021 /*anyblock*/
6022 {
6023
6024
6025 {
6026 /*^locexp*/
6027 /*melt_increment_dbgcounter*/
6028 #if MELT_HAVE_DEBUG
6029 melt_dbgcounter++;
6030 #endif
6031 ;
6032 }
6033 ;
6034
6035 MELT_CHECK_SIGNAL();
6036 ;
6037 /*_#MELT_NEED_DBG__L1*/
6038 meltfnum[0] =
6039 /*MELT_NEED_DBG*/
6040 #if MELT_HAVE_DEBUG
6041 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
6042 #else
6043 0 /* no melt_need_dbg */
6044 #endif /*MELT_HAVE_DEBUG*/
6045 ;;
6046 MELT_LOCATION("warmelt-modes.melt:4840:/ cond");
6047 /*cond*/
6048 if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
6049 {
6050 /*^cond.then*/
6051 /*^block*/
6052 /*anyblock*/
6053 {
6054
6055 /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
6056 /* for melt_callcount */
6057 #if MELT_HAVE_DEBUG && defined (meltcallcount)
6058 meltcallcount /* melt_callcount debugging */
6059 #else
6060 0L /* melt_callcount without debug */
6061 #endif /* MELT_HAVE_DEBUG melt_callcount */
6062 ;;
6063
6064 MELT_CHECK_SIGNAL();
6065 ;
6066 MELT_LOCATION("warmelt-modes.melt:4840:/ apply");
6067 /*apply*/
6068 {
6069 union meltparam_un argtab[9];
6070 memset(&argtab, 0, sizeof(argtab));
6071 /*^apply.arg*/
6072 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
6073 /*^apply.arg*/
6074 argtab[1].meltbp_cstring = "warmelt-modes.melt";
6075 /*^apply.arg*/
6076 argtab[2].meltbp_long = 4840;
6077 /*^apply.arg*/
6078 argtab[3].meltbp_cstring = "start translateinitmodule_mode cmd=";
6079 /*^apply.arg*/
6080 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CMD__V2*/ meltfptr[1];
6081 /*^apply.arg*/
6082 argtab[5].meltbp_cstring = " moduldata=";
6083 /*^apply.arg*/
6084 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2];
6085 /*^apply.arg*/
6086 argtab[7].meltbp_cstring = " initial_environment=";
6087 /*^apply.arg*/
6088 argtab[8].meltbp_aptr = (melt_ptr_t*) &(/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[1]);
6089 /*_.MELT_DEBUG_FUN__V5*/
6090 meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
6091 }
6092 ;
6093 /*_._IF___V4*/
6094 meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];;
6095 /*epilog*/
6096
6097 MELT_LOCATION("warmelt-modes.melt:4840:/ clear");
6098 /*clear*/ /*_#MELT_CALLCOUNT__L2*/
6099 meltfnum[1] = 0 ;
6100 /*^clear*/
6101 /*clear*/ /*_.MELT_DEBUG_FUN__V5*/
6102 meltfptr[4] = 0 ;
6103 }
6104 ;
6105 }
6106 else /*^cond.else*/
6107 {
6108
6109 /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;;
6110 }
6111 ;
6112
6113 {
6114 MELT_LOCATION("warmelt-modes.melt:4840:/ locexp");
6115 /*void*/
6116 (void)0;
6117 }
6118 ;
6119 /*^quasiblock*/
6120
6121
6122 /*epilog*/
6123
6124 /*^clear*/
6125 /*clear*/ /*_#MELT_NEED_DBG__L1*/
6126 meltfnum[0] = 0 ;
6127 /*^clear*/
6128 /*clear*/ /*_._IF___V4*/
6129 meltfptr[3] = 0 ;
6130 }
6131
6132 #else /*MELT_HAVE_DEBUG*/
6133 /*^cppif.else*/
6134 /*^block*/
6135 /*anyblock*/
6136 {
6137
6138
6139 {
6140 /*^locexp*/
6141 /*void*/(void)0;
6142 }
6143 ;
6144 /*epilog*/
6145 }
6146
6147 #endif /*MELT_HAVE_DEBUG*/
6148 ;
6149 MELT_LOCATION("warmelt-modes.melt:4842:/ blockmultialloc");
6150 /*multiallocblock*/
6151 {
6152 struct meltletrec_1_st
6153 {
6154 struct MELT_MULTIPLE_STRUCT(3) rtup_0__TUPLREC__x5;
6155 long meltletrec_1_endgap;
6156 } *meltletrec_1_ptr = 0;
6157 meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0);
6158 /*^blockmultialloc.initfill*/
6159 /*inimult rtup_0__TUPLREC__x5*/
6160 /*_.TUPLREC___V7*/
6161 meltfptr[3] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x5;
6162 meltletrec_1_ptr->rtup_0__TUPLREC__x5.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
6163 meltletrec_1_ptr->rtup_0__TUPLREC__x5.nbval = 3;
6164
6165
6166 /*^putuple*/
6167 /*putupl#10*/
6168 melt_assertmsg("putupl [:4842] #10 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[3]))== MELTOBMAG_MULTIPLE);
6169 melt_assertmsg("putupl [:4842] #10 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[3]))));
6170 ((meltmultiple_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[3]))->tabval[0] = (melt_ptr_t)((/*!konst_3*/ meltfrout->tabval[3]));
6171 ;
6172 /*^putuple*/
6173 /*putupl#11*/
6174 melt_assertmsg("putupl [:4842] #11 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[3]))== MELTOBMAG_MULTIPLE);
6175 melt_assertmsg("putupl [:4842] #11 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[3]))));
6176 ((meltmultiple_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[3]))->tabval[1] = (melt_ptr_t)((/*!konst_4*/ meltfrout->tabval[4]));
6177 ;
6178 /*^putuple*/
6179 /*putupl#12*/
6180 melt_assertmsg("putupl [:4842] #12 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[3]))== MELTOBMAG_MULTIPLE);
6181 melt_assertmsg("putupl [:4842] #12 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[3]))));
6182 ((meltmultiple_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[3]))->tabval[2] = (melt_ptr_t)((/*!konst_5*/ meltfrout->tabval[5]));
6183 ;
6184 /*^touch*/
6185 meltgc_touch(/*_.TUPLREC___V7*/ meltfptr[3]);
6186 ;
6187 /*_.TUPLE___V6*/
6188 meltfptr[4] = /*_.TUPLREC___V7*/ meltfptr[3];;
6189 /*epilog*/
6190
6191 MELT_LOCATION("warmelt-modes.melt:4842:/ clear");
6192 /*clear*/ /*_.TUPLREC___V7*/
6193 meltfptr[3] = 0 ;
6194 /*^clear*/
6195 /*clear*/ /*_.TUPLREC___V7*/
6196 meltfptr[3] = 0 ;
6197 } /*end multiallocblock*/
6198 ;
6199
6200 MELT_CHECK_SIGNAL();
6201 ;
6202 /*^apply*/
6203 /*apply*/
6204 {
6205 /*_.TRANSLATEINIT_FLAVORED__V8*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATEINIT_FLAVORED*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.TUPLE___V6*/ meltfptr[4]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
6206 }
6207 ;
6208
6209 MELT_CHECK_SIGNAL();
6210 ;
6211 MELT_LOCATION("warmelt-modes.melt:4839:/ quasiblock");
6212
6213
6214 /*_._RETVAL___V1*/
6215 meltfptr[0] = /*_.TRANSLATEINIT_FLAVORED__V8*/ meltfptr[3];;
6216
6217 {
6218 MELT_LOCATION("warmelt-modes.melt:4839:/ locexp");
6219 /*ochecknores compilobj_nrep_return*/
6220 #if MELT_HAVE_DEBUG
6221 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
6222 melt_warn_for_no_expected_secondary_results();
6223 /* we warned when secondary results are expected but not returned. */
6224 #endif /*MELT_HAVE_DEBUG*/
6225 ;
6226 }
6227 ;
6228 /*^finalreturn*/
6229 ;
6230 /*finalret*/
6231 goto meltlabend_rout ;
6232 /*epilog*/
6233
6234 /*^clear*/
6235 /*clear*/ /*_.TUPLE___V6*/
6236 meltfptr[4] = 0 ;
6237 /*^clear*/
6238 /*clear*/ /*_.TRANSLATEINIT_FLAVORED__V8*/
6239 meltfptr[3] = 0 ;
6240 }
6241
6242 ;
6243 goto meltlabend_rout;
6244 meltlabend_rout:
6245 melt_trace_end("TRANSLATEINITMODULE_DOCMD", meltcallcount);
6246 melt_blocklevel_signals = current_blocklevel_signals_meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD_melt;
6247 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
6248 #undef meltcallcount
6249 #undef meltfram__
6250 #undef MELTFRAM_NBVARNUM
6251 #undef MELTFRAM_NBVARPTR
6252 } /*end meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD*/
6253
6254
6255
6256
6257
6258
6259 melt_ptr_t MELT_MODULE_VISIBILITY
6260 meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
6261 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
6262 {
6263 long current_blocklevel_signals_meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD_melt = melt_blocklevel_signals;
6264
6265 #if MELT_HAVE_DEBUG
6266 static long melt_call_counter__;
6267 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
6268 #undef meltcallcount
6269 #define meltcallcount melt_thiscallcounter__
6270 #else
6271 #undef meltcallcount
6272 #define meltcallcount 0L
6273 #endif
6274 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
6275
6276 /* start of frame for routine meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD fromline 1752 */
6277
6278 /** start of frame for meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD of CLASS_PROCROUTINEOBJ from 1555**/
6279
6280 /*curframdeclclassy*/ class MeltFrame_meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD// fromline 1568
6281 : public Melt_CallFrameWithValues<6>
6282 {
6283 public: /* fromline 1572*/
6284 long mcfr_varnum[2];
6285 /*classy others*/
6286 long _meltsparel;
6287 void melt_mark_stuff (void)
6288 {
6289 } /*end melt_mark_stuff*/
6290 virtual void melt_mark_ggc_data (void)
6291 {
6292 melt_mark_values ();
6293 melt_mark_stuff ();
6294 }; /*end melt_mark_ggc_data*/
6295 MeltFrame_meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD(meltclosure_ptr_t clos) //the closure constructor fromline 1630
6296 : Melt_CallFrameWithValues<6> (
6297 #if ENABLE_CHECKING /*fromline 1634*/
6298 __FILE__, __LINE__,
6299 #endif /* ENABLE_CHECKING fromline 1638*/
6300 sizeof(MeltFrame_meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD), clos) {};
6301 MeltFrame_meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD() //the constructor fromline 1642
6302 : Melt_CallFrameWithValues<6> (
6303 #if ENABLE_CHECKING /*fromline 1646*/
6304 __FILE__, __LINE__,
6305 #endif /* ENABLE_CHECKING fromline 1650*/
6306 sizeof(MeltFrame_meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD)) {};
6307 #if ENABLE_CHECKING /*fromline 1654*/
6308 MeltFrame_meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD(const char*fil, int lin) //the constructor fromline 1656
6309 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD)) {};
6310 MeltFrame_meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
6311 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD), clos) {};
6312 #endif /* ENABLE_CHECKING fromline 1666*/
6313
6314 }; // end class MeltFrame_meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD
6315
6316
6317 /** end of frame for meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD fromline 1697**/
6318
6319 /* end of frame for routine meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD fromline 1756 */
6320
6321 /* classy proc frame meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD */
6322 MeltFrame_meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD
6323 meltfram__ /*declfrastruct fromline 1780*/
6324 /*classyprocarg meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD fromline 1785*/
6325 #if ENABLE_CHECKING
6326 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
6327 #else /*ENABLE_CHECKING */
6328 (meltclosp_) /* fromline 1793*/
6329 #endif /*ENABLE_CHECKING */
6330
6331 ;
6332 #define meltframe meltfram__
6333
6334 melt_trace_start("TRANSLATEINITMODULEQUICKLYBUILT_DOCMD", meltcallcount);
6335 /*use arguments*/
6336 (void) meltclosp_;
6337 (void)meltfirstargp_;
6338 (void)meltxargdescr_;
6339 (void)meltxargtab_;
6340 (void)meltxresdescr_;
6341 (void)meltxrestab_;
6342 /*getargs*/
6343
6344 /*getarg#0*/
6345 MELT_LOCATION("warmelt-modes.melt:4858:/ getarg");
6346 /*_.CMD__V2*/
6347 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
6348
6349 /*getarg#1*/
6350 /*^getarg*/
6351 if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
6352 /*_.MODULDATA__V3*/
6353 meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
6354 gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL);
6355
6356 ;
6357 goto meltlab_endgetargs;
6358 meltlab_endgetargs:
6359 ;
6360 /*body*/
6361 /*^block*/
6362 /*anyblock*/
6363 {
6364
6365
6366 #if MELT_HAVE_DEBUG
6367 MELT_LOCATION("warmelt-modes.melt:4859:/ cppif.then");
6368 /*^block*/
6369 /*anyblock*/
6370 {
6371
6372
6373 {
6374 /*^locexp*/
6375 /*melt_increment_dbgcounter*/
6376 #if MELT_HAVE_DEBUG
6377 melt_dbgcounter++;
6378 #endif
6379 ;
6380 }
6381 ;
6382
6383 MELT_CHECK_SIGNAL();
6384 ;
6385 /*_#MELT_NEED_DBG__L1*/
6386 meltfnum[0] =
6387 /*MELT_NEED_DBG*/
6388 #if MELT_HAVE_DEBUG
6389 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
6390 #else
6391 0 /* no melt_need_dbg */
6392 #endif /*MELT_HAVE_DEBUG*/
6393 ;;
6394 MELT_LOCATION("warmelt-modes.melt:4859:/ cond");
6395 /*cond*/
6396 if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
6397 {
6398 /*^cond.then*/
6399 /*^block*/
6400 /*anyblock*/
6401 {
6402
6403 /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
6404 /* for melt_callcount */
6405 #if MELT_HAVE_DEBUG && defined (meltcallcount)
6406 meltcallcount /* melt_callcount debugging */
6407 #else
6408 0L /* melt_callcount without debug */
6409 #endif /* MELT_HAVE_DEBUG melt_callcount */
6410 ;;
6411
6412 MELT_CHECK_SIGNAL();
6413 ;
6414 MELT_LOCATION("warmelt-modes.melt:4859:/ apply");
6415 /*apply*/
6416 {
6417 union meltparam_un argtab[9];
6418 memset(&argtab, 0, sizeof(argtab));
6419 /*^apply.arg*/
6420 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
6421 /*^apply.arg*/
6422 argtab[1].meltbp_cstring = "warmelt-modes.melt";
6423 /*^apply.arg*/
6424 argtab[2].meltbp_long = 4859;
6425 /*^apply.arg*/
6426 argtab[3].meltbp_cstring = "start translateinitmodulequicklybuild_mode cmd=";
6427 /*^apply.arg*/
6428 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CMD__V2*/ meltfptr[1];
6429 /*^apply.arg*/
6430 argtab[5].meltbp_cstring = " moduldata=";
6431 /*^apply.arg*/
6432 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2];
6433 /*^apply.arg*/
6434 argtab[7].meltbp_cstring = " initial_environment=";
6435 /*^apply.arg*/
6436 argtab[8].meltbp_aptr = (melt_ptr_t*) &(/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[1]);
6437 /*_.MELT_DEBUG_FUN__V5*/
6438 meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
6439 }
6440 ;
6441 /*_._IF___V4*/
6442 meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];;
6443 /*epilog*/
6444
6445 MELT_LOCATION("warmelt-modes.melt:4859:/ clear");
6446 /*clear*/ /*_#MELT_CALLCOUNT__L2*/
6447 meltfnum[1] = 0 ;
6448 /*^clear*/
6449 /*clear*/ /*_.MELT_DEBUG_FUN__V5*/
6450 meltfptr[4] = 0 ;
6451 }
6452 ;
6453 }
6454 else /*^cond.else*/
6455 {
6456
6457 /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;;
6458 }
6459 ;
6460
6461 {
6462 MELT_LOCATION("warmelt-modes.melt:4859:/ locexp");
6463 /*void*/
6464 (void)0;
6465 }
6466 ;
6467 /*^quasiblock*/
6468
6469
6470 /*epilog*/
6471
6472 /*^clear*/
6473 /*clear*/ /*_#MELT_NEED_DBG__L1*/
6474 meltfnum[0] = 0 ;
6475 /*^clear*/
6476 /*clear*/ /*_._IF___V4*/
6477 meltfptr[3] = 0 ;
6478 }
6479
6480 #else /*MELT_HAVE_DEBUG*/
6481 /*^cppif.else*/
6482 /*^block*/
6483 /*anyblock*/
6484 {
6485
6486
6487 {
6488 /*^locexp*/
6489 /*void*/(void)0;
6490 }
6491 ;
6492 /*epilog*/
6493 }
6494
6495 #endif /*MELT_HAVE_DEBUG*/
6496 ;
6497
6498 MELT_CHECK_SIGNAL();
6499 ;
6500 MELT_LOCATION("warmelt-modes.melt:4861:/ apply");
6501 /*apply*/
6502 {
6503 /*_.TRANSLATEINIT_FLAVORED__V6*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATEINIT_FLAVORED*/ meltfrout->tabval[2])), (melt_ptr_t)((/*!konst_3*/ meltfrout->tabval[3])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
6504 }
6505 ;
6506
6507 MELT_CHECK_SIGNAL();
6508 ;
6509 MELT_LOCATION("warmelt-modes.melt:4858:/ quasiblock");
6510
6511
6512 /*_._RETVAL___V1*/
6513 meltfptr[0] = /*_.TRANSLATEINIT_FLAVORED__V6*/ meltfptr[4];;
6514
6515 {
6516 MELT_LOCATION("warmelt-modes.melt:4858:/ locexp");
6517 /*ochecknores compilobj_nrep_return*/
6518 #if MELT_HAVE_DEBUG
6519 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
6520 melt_warn_for_no_expected_secondary_results();
6521 /* we warned when secondary results are expected but not returned. */
6522 #endif /*MELT_HAVE_DEBUG*/
6523 ;
6524 }
6525 ;
6526 /*^finalreturn*/
6527 ;
6528 /*finalret*/
6529 goto meltlabend_rout ;
6530 /*epilog*/
6531
6532 /*^clear*/
6533 /*clear*/ /*_.TRANSLATEINIT_FLAVORED__V6*/
6534 meltfptr[4] = 0 ;
6535 }
6536
6537 ;
6538 goto meltlabend_rout;
6539 meltlabend_rout:
6540 melt_trace_end("TRANSLATEINITMODULEQUICKLYBUILT_DOCMD", meltcallcount);
6541 melt_blocklevel_signals = current_blocklevel_signals_meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD_melt;
6542 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
6543 #undef meltcallcount
6544 #undef meltfram__
6545 #undef MELTFRAM_NBVARNUM
6546 #undef MELTFRAM_NBVARPTR
6547 } /*end meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD*/
6548
6549
6550
6551
6552
6553
6554 melt_ptr_t MELT_MODULE_VISIBILITY
6555 meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
6556 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
6557 {
6558 long current_blocklevel_signals_meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD_melt = melt_blocklevel_signals;
6559
6560 #if MELT_HAVE_DEBUG
6561 static long melt_call_counter__;
6562 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
6563 #undef meltcallcount
6564 #define meltcallcount melt_thiscallcounter__
6565 #else
6566 #undef meltcallcount
6567 #define meltcallcount 0L
6568 #endif
6569 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
6570
6571 /* start of frame for routine meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD fromline 1752 */
6572
6573 /** start of frame for meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD of CLASS_PROCROUTINEOBJ from 1555**/
6574
6575 /*curframdeclclassy*/ class MeltFrame_meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD// fromline 1568
6576 : public Melt_CallFrameWithValues<6>
6577 {
6578 public: /* fromline 1572*/
6579 long mcfr_varnum[2];
6580 /*classy others*/
6581 long _meltsparel;
6582 void melt_mark_stuff (void)
6583 {
6584 } /*end melt_mark_stuff*/
6585 virtual void melt_mark_ggc_data (void)
6586 {
6587 melt_mark_values ();
6588 melt_mark_stuff ();
6589 }; /*end melt_mark_ggc_data*/
6590 MeltFrame_meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD(meltclosure_ptr_t clos) //the closure constructor fromline 1630
6591 : Melt_CallFrameWithValues<6> (
6592 #if ENABLE_CHECKING /*fromline 1634*/
6593 __FILE__, __LINE__,
6594 #endif /* ENABLE_CHECKING fromline 1638*/
6595 sizeof(MeltFrame_meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD), clos) {};
6596 MeltFrame_meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD() //the constructor fromline 1642
6597 : Melt_CallFrameWithValues<6> (
6598 #if ENABLE_CHECKING /*fromline 1646*/
6599 __FILE__, __LINE__,
6600 #endif /* ENABLE_CHECKING fromline 1650*/
6601 sizeof(MeltFrame_meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD)) {};
6602 #if ENABLE_CHECKING /*fromline 1654*/
6603 MeltFrame_meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD(const char*fil, int lin) //the constructor fromline 1656
6604 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD)) {};
6605 MeltFrame_meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
6606 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD), clos) {};
6607 #endif /* ENABLE_CHECKING fromline 1666*/
6608
6609 }; // end class MeltFrame_meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD
6610
6611
6612 /** end of frame for meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD fromline 1697**/
6613
6614 /* end of frame for routine meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD fromline 1756 */
6615
6616 /* classy proc frame meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD */
6617 MeltFrame_meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD
6618 meltfram__ /*declfrastruct fromline 1780*/
6619 /*classyprocarg meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD fromline 1785*/
6620 #if ENABLE_CHECKING
6621 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
6622 #else /*ENABLE_CHECKING */
6623 (meltclosp_) /* fromline 1793*/
6624 #endif /*ENABLE_CHECKING */
6625
6626 ;
6627 #define meltframe meltfram__
6628
6629 melt_trace_start("TRANSLATEINITMODULEDEBUGNOLINE_DOCMD", meltcallcount);
6630 /*use arguments*/
6631 (void) meltclosp_;
6632 (void)meltfirstargp_;
6633 (void)meltxargdescr_;
6634 (void)meltxargtab_;
6635 (void)meltxresdescr_;
6636 (void)meltxrestab_;
6637 /*getargs*/
6638
6639 /*getarg#0*/
6640 MELT_LOCATION("warmelt-modes.melt:4875:/ getarg");
6641 /*_.CMD__V2*/
6642 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
6643
6644 /*getarg#1*/
6645 /*^getarg*/
6646 if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
6647 /*_.MODULDATA__V3*/
6648 meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
6649 gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL);
6650
6651 ;
6652 goto meltlab_endgetargs;
6653 meltlab_endgetargs:
6654 ;
6655 /*body*/
6656 /*^block*/
6657 /*anyblock*/
6658 {
6659
6660
6661 #if MELT_HAVE_DEBUG
6662 MELT_LOCATION("warmelt-modes.melt:4876:/ cppif.then");
6663 /*^block*/
6664 /*anyblock*/
6665 {
6666
6667
6668 {
6669 /*^locexp*/
6670 /*melt_increment_dbgcounter*/
6671 #if MELT_HAVE_DEBUG
6672 melt_dbgcounter++;
6673 #endif
6674 ;
6675 }
6676 ;
6677
6678 MELT_CHECK_SIGNAL();
6679 ;
6680 /*_#MELT_NEED_DBG__L1*/
6681 meltfnum[0] =
6682 /*MELT_NEED_DBG*/
6683 #if MELT_HAVE_DEBUG
6684 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
6685 #else
6686 0 /* no melt_need_dbg */
6687 #endif /*MELT_HAVE_DEBUG*/
6688 ;;
6689 MELT_LOCATION("warmelt-modes.melt:4876:/ cond");
6690 /*cond*/
6691 if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
6692 {
6693 /*^cond.then*/
6694 /*^block*/
6695 /*anyblock*/
6696 {
6697
6698 /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
6699 /* for melt_callcount */
6700 #if MELT_HAVE_DEBUG && defined (meltcallcount)
6701 meltcallcount /* melt_callcount debugging */
6702 #else
6703 0L /* melt_callcount without debug */
6704 #endif /* MELT_HAVE_DEBUG melt_callcount */
6705 ;;
6706
6707 MELT_CHECK_SIGNAL();
6708 ;
6709 MELT_LOCATION("warmelt-modes.melt:4876:/ apply");
6710 /*apply*/
6711 {
6712 union meltparam_un argtab[9];
6713 memset(&argtab, 0, sizeof(argtab));
6714 /*^apply.arg*/
6715 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
6716 /*^apply.arg*/
6717 argtab[1].meltbp_cstring = "warmelt-modes.melt";
6718 /*^apply.arg*/
6719 argtab[2].meltbp_long = 4876;
6720 /*^apply.arg*/
6721 argtab[3].meltbp_cstring = "start translateinitmodulequicklybuild_mode cmd=";
6722 /*^apply.arg*/
6723 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CMD__V2*/ meltfptr[1];
6724 /*^apply.arg*/
6725 argtab[5].meltbp_cstring = " moduldata=";
6726 /*^apply.arg*/
6727 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2];
6728 /*^apply.arg*/
6729 argtab[7].meltbp_cstring = " initial_environment=";
6730 /*^apply.arg*/
6731 argtab[8].meltbp_aptr = (melt_ptr_t*) &(/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[1]);
6732 /*_.MELT_DEBUG_FUN__V5*/
6733 meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
6734 }
6735 ;
6736 /*_._IF___V4*/
6737 meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];;
6738 /*epilog*/
6739
6740 MELT_LOCATION("warmelt-modes.melt:4876:/ clear");
6741 /*clear*/ /*_#MELT_CALLCOUNT__L2*/
6742 meltfnum[1] = 0 ;
6743 /*^clear*/
6744 /*clear*/ /*_.MELT_DEBUG_FUN__V5*/
6745 meltfptr[4] = 0 ;
6746 }
6747 ;
6748 }
6749 else /*^cond.else*/
6750 {
6751
6752 /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;;
6753 }
6754 ;
6755
6756 {
6757 MELT_LOCATION("warmelt-modes.melt:4876:/ locexp");
6758 /*void*/
6759 (void)0;
6760 }
6761 ;
6762 /*^quasiblock*/
6763
6764
6765 /*epilog*/
6766
6767 /*^clear*/
6768 /*clear*/ /*_#MELT_NEED_DBG__L1*/
6769 meltfnum[0] = 0 ;
6770 /*^clear*/
6771 /*clear*/ /*_._IF___V4*/
6772 meltfptr[3] = 0 ;
6773 }
6774
6775 #else /*MELT_HAVE_DEBUG*/
6776 /*^cppif.else*/
6777 /*^block*/
6778 /*anyblock*/
6779 {
6780
6781
6782 {
6783 /*^locexp*/
6784 /*void*/(void)0;
6785 }
6786 ;
6787 /*epilog*/
6788 }
6789
6790 #endif /*MELT_HAVE_DEBUG*/
6791 ;
6792
6793 MELT_CHECK_SIGNAL();
6794 ;
6795 MELT_LOCATION("warmelt-modes.melt:4878:/ apply");
6796 /*apply*/
6797 {
6798 /*_.TRANSLATEINIT_FLAVORED__V6*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATEINIT_FLAVORED*/ meltfrout->tabval[2])), (melt_ptr_t)((/*!konst_3*/ meltfrout->tabval[3])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
6799 }
6800 ;
6801
6802 MELT_CHECK_SIGNAL();
6803 ;
6804 MELT_LOCATION("warmelt-modes.melt:4875:/ quasiblock");
6805
6806
6807 /*_._RETVAL___V1*/
6808 meltfptr[0] = /*_.TRANSLATEINIT_FLAVORED__V6*/ meltfptr[4];;
6809
6810 {
6811 MELT_LOCATION("warmelt-modes.melt:4875:/ locexp");
6812 /*ochecknores compilobj_nrep_return*/
6813 #if MELT_HAVE_DEBUG
6814 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
6815 melt_warn_for_no_expected_secondary_results();
6816 /* we warned when secondary results are expected but not returned. */
6817 #endif /*MELT_HAVE_DEBUG*/
6818 ;
6819 }
6820 ;
6821 /*^finalreturn*/
6822 ;
6823 /*finalret*/
6824 goto meltlabend_rout ;
6825 /*epilog*/
6826
6827 /*^clear*/
6828 /*clear*/ /*_.TRANSLATEINIT_FLAVORED__V6*/
6829 meltfptr[4] = 0 ;
6830 }
6831
6832 ;
6833 goto meltlabend_rout;
6834 meltlabend_rout:
6835 melt_trace_end("TRANSLATEINITMODULEDEBUGNOLINE_DOCMD", meltcallcount);
6836 melt_blocklevel_signals = current_blocklevel_signals_meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD_melt;
6837 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
6838 #undef meltcallcount
6839 #undef meltfram__
6840 #undef MELTFRAM_NBVARNUM
6841 #undef MELTFRAM_NBVARPTR
6842 } /*end meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD*/
6843
6844
6845
6846
6847
6848
6849 melt_ptr_t MELT_MODULE_VISIBILITY
6850 meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
6851 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
6852 {
6853 long current_blocklevel_signals_meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD_melt = melt_blocklevel_signals;
6854
6855 #if MELT_HAVE_DEBUG
6856 static long melt_call_counter__;
6857 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
6858 #undef meltcallcount
6859 #define meltcallcount melt_thiscallcounter__
6860 #else
6861 #undef meltcallcount
6862 #define meltcallcount 0L
6863 #endif
6864 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
6865
6866 /* start of frame for routine meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD fromline 1752 */
6867
6868 /** start of frame for meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD of CLASS_PROCROUTINEOBJ from 1555**/
6869
6870 /*curframdeclclassy*/ class MeltFrame_meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD// fromline 1568
6871 : public Melt_CallFrameWithValues<6>
6872 {
6873 public: /* fromline 1572*/
6874 long mcfr_varnum[2];
6875 /*classy others*/
6876 long _meltsparel;
6877 void melt_mark_stuff (void)
6878 {
6879 } /*end melt_mark_stuff*/
6880 virtual void melt_mark_ggc_data (void)
6881 {
6882 melt_mark_values ();
6883 melt_mark_stuff ();
6884 }; /*end melt_mark_ggc_data*/
6885 MeltFrame_meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD(meltclosure_ptr_t clos) //the closure constructor fromline 1630
6886 : Melt_CallFrameWithValues<6> (
6887 #if ENABLE_CHECKING /*fromline 1634*/
6888 __FILE__, __LINE__,
6889 #endif /* ENABLE_CHECKING fromline 1638*/
6890 sizeof(MeltFrame_meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD), clos) {};
6891 MeltFrame_meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD() //the constructor fromline 1642
6892 : Melt_CallFrameWithValues<6> (
6893 #if ENABLE_CHECKING /*fromline 1646*/
6894 __FILE__, __LINE__,
6895 #endif /* ENABLE_CHECKING fromline 1650*/
6896 sizeof(MeltFrame_meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD)) {};
6897 #if ENABLE_CHECKING /*fromline 1654*/
6898 MeltFrame_meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD(const char*fil, int lin) //the constructor fromline 1656
6899 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD)) {};
6900 MeltFrame_meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
6901 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD), clos) {};
6902 #endif /* ENABLE_CHECKING fromline 1666*/
6903
6904 }; // end class MeltFrame_meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD
6905
6906
6907 /** end of frame for meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD fromline 1697**/
6908
6909 /* end of frame for routine meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD fromline 1756 */
6910
6911 /* classy proc frame meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD */
6912 MeltFrame_meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD
6913 meltfram__ /*declfrastruct fromline 1780*/
6914 /*classyprocarg meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD fromline 1785*/
6915 #if ENABLE_CHECKING
6916 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
6917 #else /*ENABLE_CHECKING */
6918 (meltclosp_) /* fromline 1793*/
6919 #endif /*ENABLE_CHECKING */
6920
6921 ;
6922 #define meltframe meltfram__
6923
6924 melt_trace_start("TRANSLATEINITMODULEOPTIMIZED_DOCMD", meltcallcount);
6925 /*use arguments*/
6926 (void) meltclosp_;
6927 (void)meltfirstargp_;
6928 (void)meltxargdescr_;
6929 (void)meltxargtab_;
6930 (void)meltxresdescr_;
6931 (void)meltxrestab_;
6932 /*getargs*/
6933
6934 /*getarg#0*/
6935 MELT_LOCATION("warmelt-modes.melt:4892:/ getarg");
6936 /*_.CMD__V2*/
6937 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
6938
6939 /*getarg#1*/
6940 /*^getarg*/
6941 if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
6942 /*_.MODULDATA__V3*/
6943 meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
6944 gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL);
6945
6946 ;
6947 goto meltlab_endgetargs;
6948 meltlab_endgetargs:
6949 ;
6950 /*body*/
6951 /*^block*/
6952 /*anyblock*/
6953 {
6954
6955
6956 #if MELT_HAVE_DEBUG
6957 MELT_LOCATION("warmelt-modes.melt:4893:/ cppif.then");
6958 /*^block*/
6959 /*anyblock*/
6960 {
6961
6962
6963 {
6964 /*^locexp*/
6965 /*melt_increment_dbgcounter*/
6966 #if MELT_HAVE_DEBUG
6967 melt_dbgcounter++;
6968 #endif
6969 ;
6970 }
6971 ;
6972
6973 MELT_CHECK_SIGNAL();
6974 ;
6975 /*_#MELT_NEED_DBG__L1*/
6976 meltfnum[0] =
6977 /*MELT_NEED_DBG*/
6978 #if MELT_HAVE_DEBUG
6979 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
6980 #else
6981 0 /* no melt_need_dbg */
6982 #endif /*MELT_HAVE_DEBUG*/
6983 ;;
6984 MELT_LOCATION("warmelt-modes.melt:4893:/ cond");
6985 /*cond*/
6986 if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
6987 {
6988 /*^cond.then*/
6989 /*^block*/
6990 /*anyblock*/
6991 {
6992
6993 /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
6994 /* for melt_callcount */
6995 #if MELT_HAVE_DEBUG && defined (meltcallcount)
6996 meltcallcount /* melt_callcount debugging */
6997 #else
6998 0L /* melt_callcount without debug */
6999 #endif /* MELT_HAVE_DEBUG melt_callcount */
7000 ;;
7001
7002 MELT_CHECK_SIGNAL();
7003 ;
7004 MELT_LOCATION("warmelt-modes.melt:4893:/ apply");
7005 /*apply*/
7006 {
7007 union meltparam_un argtab[9];
7008 memset(&argtab, 0, sizeof(argtab));
7009 /*^apply.arg*/
7010 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
7011 /*^apply.arg*/
7012 argtab[1].meltbp_cstring = "warmelt-modes.melt";
7013 /*^apply.arg*/
7014 argtab[2].meltbp_long = 4893;
7015 /*^apply.arg*/
7016 argtab[3].meltbp_cstring = "start translateinitmodulequicklybuild_mode cmd=";
7017 /*^apply.arg*/
7018 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CMD__V2*/ meltfptr[1];
7019 /*^apply.arg*/
7020 argtab[5].meltbp_cstring = " moduldata=";
7021 /*^apply.arg*/
7022 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2];
7023 /*^apply.arg*/
7024 argtab[7].meltbp_cstring = " initial_environment=";
7025 /*^apply.arg*/
7026 argtab[8].meltbp_aptr = (melt_ptr_t*) &(/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[1]);
7027 /*_.MELT_DEBUG_FUN__V5*/
7028 meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
7029 }
7030 ;
7031 /*_._IF___V4*/
7032 meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];;
7033 /*epilog*/
7034
7035 MELT_LOCATION("warmelt-modes.melt:4893:/ clear");
7036 /*clear*/ /*_#MELT_CALLCOUNT__L2*/
7037 meltfnum[1] = 0 ;
7038 /*^clear*/
7039 /*clear*/ /*_.MELT_DEBUG_FUN__V5*/
7040 meltfptr[4] = 0 ;
7041 }
7042 ;
7043 }
7044 else /*^cond.else*/
7045 {
7046
7047 /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;;
7048 }
7049 ;
7050
7051 {
7052 MELT_LOCATION("warmelt-modes.melt:4893:/ locexp");
7053 /*void*/
7054 (void)0;
7055 }
7056 ;
7057 /*^quasiblock*/
7058
7059
7060 /*epilog*/
7061
7062 /*^clear*/
7063 /*clear*/ /*_#MELT_NEED_DBG__L1*/
7064 meltfnum[0] = 0 ;
7065 /*^clear*/
7066 /*clear*/ /*_._IF___V4*/
7067 meltfptr[3] = 0 ;
7068 }
7069
7070 #else /*MELT_HAVE_DEBUG*/
7071 /*^cppif.else*/
7072 /*^block*/
7073 /*anyblock*/
7074 {
7075
7076
7077 {
7078 /*^locexp*/
7079 /*void*/(void)0;
7080 }
7081 ;
7082 /*epilog*/
7083 }
7084
7085 #endif /*MELT_HAVE_DEBUG*/
7086 ;
7087
7088 MELT_CHECK_SIGNAL();
7089 ;
7090 MELT_LOCATION("warmelt-modes.melt:4895:/ apply");
7091 /*apply*/
7092 {
7093 /*_.TRANSLATEINIT_FLAVORED__V6*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATEINIT_FLAVORED*/ meltfrout->tabval[2])), (melt_ptr_t)((/*!konst_3*/ meltfrout->tabval[3])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
7094 }
7095 ;
7096
7097 MELT_CHECK_SIGNAL();
7098 ;
7099 MELT_LOCATION("warmelt-modes.melt:4892:/ quasiblock");
7100
7101
7102 /*_._RETVAL___V1*/
7103 meltfptr[0] = /*_.TRANSLATEINIT_FLAVORED__V6*/ meltfptr[4];;
7104
7105 {
7106 MELT_LOCATION("warmelt-modes.melt:4892:/ locexp");
7107 /*ochecknores compilobj_nrep_return*/
7108 #if MELT_HAVE_DEBUG
7109 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
7110 melt_warn_for_no_expected_secondary_results();
7111 /* we warned when secondary results are expected but not returned. */
7112 #endif /*MELT_HAVE_DEBUG*/
7113 ;
7114 }
7115 ;
7116 /*^finalreturn*/
7117 ;
7118 /*finalret*/
7119 goto meltlabend_rout ;
7120 /*epilog*/
7121
7122 /*^clear*/
7123 /*clear*/ /*_.TRANSLATEINIT_FLAVORED__V6*/
7124 meltfptr[4] = 0 ;
7125 }
7126
7127 ;
7128 goto meltlabend_rout;
7129 meltlabend_rout:
7130 melt_trace_end("TRANSLATEINITMODULEOPTIMIZED_DOCMD", meltcallcount);
7131 melt_blocklevel_signals = current_blocklevel_signals_meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD_melt;
7132 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
7133 #undef meltcallcount
7134 #undef meltfram__
7135 #undef MELTFRAM_NBVARNUM
7136 #undef MELTFRAM_NBVARPTR
7137 } /*end meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD*/
7138
7139
7140
7141
7142 /**** end of warmelt-modes+03.cc ****/
Mirror of the offical gcc git repository hosted at gcc.gnu.org