?  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-moremacro+01.cc
blob7c8a9cc1a348537b072348f0e60d402c2b870b58
1 /* GCC MELT GENERATED C++ FILE warmelt-moremacro+01.cc - DO NOT EDIT - see http://gcc-melt.org/ */
2 /* secondary MELT generated C++ file of rank #1 */
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_f1[] = MELT_RUN_HASHMD5 /* from melt-run.h */;
8
9
10 /**** warmelt-moremacro+01.cc declarations ****/
11 /**** MELT GENERATED DECLARATIONS for warmelt-moremacro ** DO NOT EDIT ; see gcc-melt.org ****/
12
13 /****++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
14 ***
15 Copyright 2008 - 2014 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-moremacro**/
38 #define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usualmodule*/
39
40
41
42 class Melt_InitialClassyFrame_WARMELTmiMOREMACRO_h349659287; // forward declaration fromline 6691
43 typedef Melt_InitialClassyFrame_WARMELTmiMOREMACRO_h349659287 Melt_InitialFrame;
44 /**** no MELT module variables ****/
45
46 /*** 6 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_MACRO_EXPORTER **/
52 MELT_EXTERN void melthook_HOOK_MACRO_EXPORTER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_SYM, melt_ptr_t meltinp1_VAL, melt_ptr_t meltinp2_CONTENV);
53
54 /*declare MELT called hook #2 HOOK_MELT_MAKE_LOCATION **/
55 MELT_EXTERN melt_ptr_t melthook_HOOK_MELT_MAKE_LOCATION (melt_ptr_t melthookdatap, const char* meltinp0_FILENAME, long meltinp1_LINENO);
56
57 /*declare MELT called hook #3 HOOK_PATMACRO_EXPORTER **/
58 MELT_EXTERN void melthook_HOOK_PATMACRO_EXPORTER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_SYM, melt_ptr_t meltinp1_MACVAL, melt_ptr_t meltinp2_PATVAL, melt_ptr_t meltinp3_CONTENV);
59
60 /*declare MELT called hook #4 HOOK_SYMBOL_IMPORTER **/
61 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);
62
63 /*declare MELT called hook #5 HOOK_VALUE_EXPORTER **/
64 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);
65
66 /*** end of 6 MELT called hook declarations ***/
67
68 /*** no extra MELT c-headers ***/
69
70
71
72
73 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_WARMELTmiMOREMACRO_EACH_COMPONENT_IN_LIST(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_);
74
75
76
77
78 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_WARMELTmiMOREMACRO_FILTERGCCVERSION(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_);
79
80
81
82
83 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_WARMELTmiMOREMACRO_MEXPAND_GCCIF(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_);
84
85
86
87
88 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_WARMELTmiMOREMACRO_MEXPANDOBSOLETE_CONTAINER(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_);
89
90
91
92
93 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_WARMELTmiMOREMACRO_PATEXPANDOBSOLETE_CONTAINER(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_);
94
95
96
97
98 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_WARMELTmiMOREMACRO_EXPAND_QUOTED_SEXPR(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_);
99
100
101
102
103 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_WARMELTmiMOREMACRO_MEXPAND_QUOTE(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_);
104
105
106
107
108 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER(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_);
109
110
111
112
113 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE(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_);
114
115
116
117
118 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA(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_);
119
120
121
122
123 MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR(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_);
124
125
126 MELT_EXTERN MELT_LOW_OPTIMIZATION void* melt_start_this_module (void*); /*mandatory start of module*/
127
128 MELT_EXTERN const char melt_module_is_gpl_compatible[];
129
130 /*declare opaque initial frame: */
131
132 typedef Melt_InitialClassyFrame_WARMELTmiMOREMACRO_h349659287 /*opaqueinitialclassy*/ meltinitial_frame_t;
133
134
135 /* define different names when debugging or not */
136 #if MELT_HAVE_DEBUG
137 MELT_EXTERN const char meltmodule_WARMELTmiMOREMACRO__melt_have_debug_enabled[];
138 #define melt_have_debug_string meltmodule_WARMELTmiMOREMACRO__melt_have_debug_enabled
139 #else /*!MELT_HAVE_DEBUG*/
140 MELT_EXTERN const char meltmodule_WARMELTmiMOREMACRO__melt_have_debug_disabled[];
141 #define melt_have_debug_string meltmodule_WARMELTmiMOREMACRO__melt_have_debug_disabled
142 #endif /*!MELT_HAVE_DEBUG*/
143
144
145
146 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMOREMACRO__initialmeltchunk_0 (meltinitial_frame_t*, char*); //declare
147
148 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMOREMACRO__initialmeltchunk_1 (meltinitial_frame_t*, char*); //declare
149
150 void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMOREMACRO__initialmeltchunk_2 (meltinitial_frame_t*, char*); //declare
151
152
153
154 /**** warmelt-moremacro+01.cc implementations ****/
155
156
157
158
159 melt_ptr_t MELT_MODULE_VISIBILITY
160 meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
161 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
162 {
163 long current_blocklevel_signals_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER_melt = melt_blocklevel_signals;
164
165 #if MELT_HAVE_DEBUG
166 static long melt_call_counter__;
167 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
168 #undef meltcallcount
169 #define meltcallcount melt_thiscallcounter__
170 #else
171 #undef meltcallcount
172 #define meltcallcount 0L
173 #endif
174 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
175
176 /* start of frame for routine meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER fromline 1752 */
177
178 /** start of frame for meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER of CLASS_PROCROUTINEOBJ from 1555**/
179
180 /*curframdeclclassy*/ class MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER// fromline 1568
181 : public Melt_CallFrameWithValues<14>
182 {
183 public: /* fromline 1572*/
184 long mcfr_varnum[6];
185 /*classy others*/
186 long _meltsparel;
187 void melt_mark_stuff (void)
188 {
189 } /*end melt_mark_stuff*/
190 virtual void melt_mark_ggc_data (void)
191 {
192 melt_mark_values ();
193 melt_mark_stuff ();
194 }; /*end melt_mark_ggc_data*/
195 MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER(meltclosure_ptr_t clos) //the closure constructor fromline 1630
196 : Melt_CallFrameWithValues<14> (
197 #if ENABLE_CHECKING /*fromline 1634*/
198 __FILE__, __LINE__,
199 #endif /* ENABLE_CHECKING fromline 1638*/
200 sizeof(MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER), clos) {};
201 MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER() //the constructor fromline 1642
202 : Melt_CallFrameWithValues<14> (
203 #if ENABLE_CHECKING /*fromline 1646*/
204 __FILE__, __LINE__,
205 #endif /* ENABLE_CHECKING fromline 1650*/
206 sizeof(MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER)) {};
207 #if ENABLE_CHECKING /*fromline 1654*/
208 MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER(const char*fil, int lin) //the constructor fromline 1656
209 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER)) {};
210 MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
211 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER), clos) {};
212 #endif /* ENABLE_CHECKING fromline 1666*/
213
214 }; // end class MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER
215
216
217 /** end of frame for meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER fromline 1697**/
218
219 /* end of frame for routine meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER fromline 1756 */
220
221 /* classy proc frame meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER */
222 MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER
223 meltfram__ /*declfrastruct fromline 1780*/
224 /*classyprocarg meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER fromline 1785*/
225 #if ENABLE_CHECKING
226 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
227 #else /*ENABLE_CHECKING */
228 (meltclosp_) /* fromline 1793*/
229 #endif /*ENABLE_CHECKING */
230
231 ;
232 #define meltframe meltfram__
233
234 melt_trace_start("ANTIQUOTER", meltcallcount);
235 /*use arguments*/
236 (void) meltclosp_;
237 (void)meltfirstargp_;
238 (void)meltxargdescr_;
239 (void)meltxargtab_;
240 (void)meltxresdescr_;
241 (void)meltxrestab_;
242 /*getargs*/
243
244 /*getarg#0*/
245 MELT_LOCATION("warmelt-moremacro.melt:391:/ getarg");
246 /*_.AEXP__V2*/
247 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
248
249 /*getarg#1*/
250 /*^getarg*/
251 if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
252 /*_.ARGLIST__V3*/
253 meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
254 gcc_assert(melt_discr((melt_ptr_t)(/*_.ARGLIST__V3*/ meltfptr[2])) != NULL);
255
256
257 /*getarg#2*/
258 /*^getarg*/
259 if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
260 /*_.LOC__V4*/
261 meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
262 gcc_assert(melt_discr((melt_ptr_t)(/*_.LOC__V4*/ meltfptr[3])) != NULL);
263
264
265 /*getarg#3*/
266 /*^getarg*/
267 if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
268 /*_.ENV__V5*/
269 meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
270 gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ meltfptr[4])) != NULL);
271
272
273 /*getarg#4*/
274 /*^getarg*/
275 if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs;
276 /*_.MEXPANDER__V6*/
277 meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL;
278 gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V6*/ meltfptr[5])) != NULL);
279
280
281 /*getarg#5*/
282 /*^getarg*/
283 if (meltxargdescr_[4] != MELTBPAR_PTR) goto meltlab_endgetargs;
284 /*_.MODCTX__V7*/
285 meltfptr[6] = (meltxargtab_[4].meltbp_aptr) ? (*(meltxargtab_[4].meltbp_aptr)) : NULL;
286 gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V7*/ meltfptr[6])) != NULL);
287
288 ;
289 goto meltlab_endgetargs;
290 meltlab_endgetargs:
291 ;
292 /*body*/
293 /*^block*/
294 /*anyblock*/
295 {
296
297
298 #if MELT_HAVE_DEBUG
299 MELT_LOCATION("warmelt-moremacro.melt:392:/ cppif.then");
300 /*^block*/
301 /*anyblock*/
302 {
303
304
305 {
306 /*^locexp*/
307 /*melt_increment_dbgcounter*/
308 #if MELT_HAVE_DEBUG
309 melt_dbgcounter++;
310 #endif
311 ;
312 }
313 ;
314
315 MELT_CHECK_SIGNAL();
316 ;
317 /*_#MELT_NEED_DBG__L1*/
318 meltfnum[0] =
319 /*MELT_NEED_DBG*/
320 #if MELT_HAVE_DEBUG
321 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
322 #else
323 0 /* no melt_need_dbg */
324 #endif /*MELT_HAVE_DEBUG*/
325 ;;
326 MELT_LOCATION("warmelt-moremacro.melt:392:/ cond");
327 /*cond*/
328 if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
329 {
330 /*^cond.then*/
331 /*^block*/
332 /*anyblock*/
333 {
334
335 /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
336 /* for melt_callcount */
337 #if MELT_HAVE_DEBUG && defined (meltcallcount)
338 meltcallcount /* melt_callcount debugging */
339 #else
340 0L /* melt_callcount without debug */
341 #endif /* MELT_HAVE_DEBUG melt_callcount */
342 ;;
343
344 MELT_CHECK_SIGNAL();
345 ;
346 MELT_LOCATION("warmelt-moremacro.melt:392:/ apply");
347 /*apply*/
348 {
349 union meltparam_un argtab[7];
350 memset(&argtab, 0, sizeof(argtab));
351 /*^apply.arg*/
352 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
353 /*^apply.arg*/
354 argtab[1].meltbp_cstring = "warmelt-moremacro.melt";
355 /*^apply.arg*/
356 argtab[2].meltbp_long = 392;
357 /*^apply.arg*/
358 argtab[3].meltbp_cstring = "antiquoter aexp=";
359 /*^apply.arg*/
360 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.AEXP__V2*/ meltfptr[1];
361 /*^apply.arg*/
362 argtab[5].meltbp_cstring = " arglist=";
363 /*^apply.arg*/
364 argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.ARGLIST__V3*/ meltfptr[2];
365 /*_.MELT_DEBUG_FUN__V9*/
366 meltfptr[8] = 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);
367 }
368 ;
369 /*_._IF___V8*/
370 meltfptr[7] = /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8];;
371 /*epilog*/
372
373 MELT_LOCATION("warmelt-moremacro.melt:392:/ clear");
374 /*clear*/ /*_#MELT_CALLCOUNT__L2*/
375 meltfnum[1] = 0 ;
376 /*^clear*/
377 /*clear*/ /*_.MELT_DEBUG_FUN__V9*/
378 meltfptr[8] = 0 ;
379 }
380 ;
381 }
382 else /*^cond.else*/
383 {
384
385 /*_._IF___V8*/ meltfptr[7] = /*reallynil*/ NULL ;;
386 }
387 ;
388
389 {
390 MELT_LOCATION("warmelt-moremacro.melt:392:/ locexp");
391 /*void*/
392 (void)0;
393 }
394 ;
395 /*^quasiblock*/
396
397
398 /*epilog*/
399
400 /*^clear*/
401 /*clear*/ /*_#MELT_NEED_DBG__L1*/
402 meltfnum[0] = 0 ;
403 /*^clear*/
404 /*clear*/ /*_._IF___V8*/
405 meltfptr[7] = 0 ;
406 }
407
408 #else /*MELT_HAVE_DEBUG*/
409 /*^cppif.else*/
410 /*^block*/
411 /*anyblock*/
412 {
413
414
415 {
416 /*^locexp*/
417 /*void*/(void)0;
418 }
419 ;
420 /*epilog*/
421 }
422
423 #endif /*MELT_HAVE_DEBUG*/
424 ;
425
426 {
427 MELT_LOCATION("warmelt-moremacro.melt:393:/ locexp");
428
429 #if MELT_HAVE_DEBUG
430 if (melt_need_debug (0))
431 melt_dbgshortbacktrace(( "antiquoter"), (15));
432 #endif
433 ;
434 }
435 ;
436 MELT_LOCATION("warmelt-moremacro.melt:394:/ quasiblock");
437
438
439
440 MELT_CHECK_SIGNAL();
441 ;
442 /*^apply*/
443 /*apply*/
444 {
445 union meltparam_un argtab[3];
446 memset(&argtab, 0, sizeof(argtab));
447 /*^apply.arg*/
448 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ meltfptr[4];
449 /*^apply.arg*/
450 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V6*/ meltfptr[5];
451 /*^apply.arg*/
452 argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V7*/ meltfptr[6];
453 /*_.MEXP__V10*/
454 meltfptr[8] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V6*/ meltfptr[5]), (melt_ptr_t)(/*_.AEXP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
455 }
456 ;
457
458 #if MELT_HAVE_DEBUG
459 MELT_LOCATION("warmelt-moremacro.melt:396:/ cppif.then");
460 /*^block*/
461 /*anyblock*/
462 {
463
464
465 {
466 /*^locexp*/
467 /*melt_increment_dbgcounter*/
468 #if MELT_HAVE_DEBUG
469 melt_dbgcounter++;
470 #endif
471 ;
472 }
473 ;
474
475 MELT_CHECK_SIGNAL();
476 ;
477 /*_#MELT_NEED_DBG__L3*/
478 meltfnum[1] =
479 /*MELT_NEED_DBG*/
480 #if MELT_HAVE_DEBUG
481 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
482 #else
483 0 /* no melt_need_dbg */
484 #endif /*MELT_HAVE_DEBUG*/
485 ;;
486 MELT_LOCATION("warmelt-moremacro.melt:396:/ cond");
487 /*cond*/
488 if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/
489 {
490 /*^cond.then*/
491 /*^block*/
492 /*anyblock*/
493 {
494
495 /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] =
496 /* for melt_callcount */
497 #if MELT_HAVE_DEBUG && defined (meltcallcount)
498 meltcallcount /* melt_callcount debugging */
499 #else
500 0L /* melt_callcount without debug */
501 #endif /* MELT_HAVE_DEBUG melt_callcount */
502 ;;
503
504 MELT_CHECK_SIGNAL();
505 ;
506 MELT_LOCATION("warmelt-moremacro.melt:396:/ apply");
507 /*apply*/
508 {
509 union meltparam_un argtab[5];
510 memset(&argtab, 0, sizeof(argtab));
511 /*^apply.arg*/
512 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L4*/ meltfnum[0];
513 /*^apply.arg*/
514 argtab[1].meltbp_cstring = "warmelt-moremacro.melt";
515 /*^apply.arg*/
516 argtab[2].meltbp_long = 396;
517 /*^apply.arg*/
518 argtab[3].meltbp_cstring = "antiquoter mexp=";
519 /*^apply.arg*/
520 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MEXP__V10*/ meltfptr[8];
521 /*_.MELT_DEBUG_FUN__V12*/
522 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 ""), argtab, "", (union meltparam_un*)0);
523 }
524 ;
525 /*_._IF___V11*/
526 meltfptr[7] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];;
527 /*epilog*/
528
529 MELT_LOCATION("warmelt-moremacro.melt:396:/ clear");
530 /*clear*/ /*_#MELT_CALLCOUNT__L4*/
531 meltfnum[0] = 0 ;
532 /*^clear*/
533 /*clear*/ /*_.MELT_DEBUG_FUN__V12*/
534 meltfptr[11] = 0 ;
535 }
536 ;
537 }
538 else /*^cond.else*/
539 {
540
541 /*_._IF___V11*/ meltfptr[7] = /*reallynil*/ NULL ;;
542 }
543 ;
544
545 {
546 MELT_LOCATION("warmelt-moremacro.melt:396:/ locexp");
547 /*void*/
548 (void)0;
549 }
550 ;
551 /*^quasiblock*/
552
553
554 /*epilog*/
555
556 /*^clear*/
557 /*clear*/ /*_#MELT_NEED_DBG__L3*/
558 meltfnum[1] = 0 ;
559 /*^clear*/
560 /*clear*/ /*_._IF___V11*/
561 meltfptr[7] = 0 ;
562 }
563
564 #else /*MELT_HAVE_DEBUG*/
565 /*^cppif.else*/
566 /*^block*/
567 /*anyblock*/
568 {
569
570
571 {
572 /*^locexp*/
573 /*void*/(void)0;
574 }
575 ;
576 /*epilog*/
577 }
578
579 #endif /*MELT_HAVE_DEBUG*/
580 ;
581
582 {
583 MELT_LOCATION("warmelt-moremacro.melt:397:/ locexp");
584 meltgc_append_list((melt_ptr_t)(/*_.ARGLIST__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.MEXP__V10*/ meltfptr[8]));
585 }
586 ;
587
588 MELT_LOCATION("warmelt-moremacro.melt:394:/ clear");
589 /*clear*/ /*_.MEXP__V10*/
590 meltfptr[8] = 0 ;
591
592 #if MELT_HAVE_DEBUG
593 MELT_LOCATION("warmelt-moremacro.melt:399:/ cppif.then");
594 /*^block*/
595 /*anyblock*/
596 {
597
598
599 {
600 /*^locexp*/
601 /*melt_increment_dbgcounter*/
602 #if MELT_HAVE_DEBUG
603 melt_dbgcounter++;
604 #endif
605 ;
606 }
607 ;
608
609 MELT_CHECK_SIGNAL();
610 ;
611 /*_#MELT_NEED_DBG__L5*/
612 meltfnum[0] =
613 /*MELT_NEED_DBG*/
614 #if MELT_HAVE_DEBUG
615 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
616 #else
617 0 /* no melt_need_dbg */
618 #endif /*MELT_HAVE_DEBUG*/
619 ;;
620 MELT_LOCATION("warmelt-moremacro.melt:399:/ cond");
621 /*cond*/
622 if (/*_#MELT_NEED_DBG__L5*/ meltfnum[0]) /*then*/
623 {
624 /*^cond.then*/
625 /*^block*/
626 /*anyblock*/
627 {
628
629 /*_#MELT_CALLCOUNT__L6*/ meltfnum[1] =
630 /* for melt_callcount */
631 #if MELT_HAVE_DEBUG && defined (meltcallcount)
632 meltcallcount /* melt_callcount debugging */
633 #else
634 0L /* melt_callcount without debug */
635 #endif /* MELT_HAVE_DEBUG melt_callcount */
636 ;;
637
638 MELT_CHECK_SIGNAL();
639 ;
640 MELT_LOCATION("warmelt-moremacro.melt:399:/ apply");
641 /*apply*/
642 {
643 union meltparam_un argtab[5];
644 memset(&argtab, 0, sizeof(argtab));
645 /*^apply.arg*/
646 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[1];
647 /*^apply.arg*/
648 argtab[1].meltbp_cstring = "warmelt-moremacro.melt";
649 /*^apply.arg*/
650 argtab[2].meltbp_long = 399;
651 /*^apply.arg*/
652 argtab[3].meltbp_cstring = "antiquoter ends with arglist=";
653 /*^apply.arg*/
654 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ARGLIST__V3*/ meltfptr[2];
655 /*_.MELT_DEBUG_FUN__V14*/
656 meltfptr[7] = 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);
657 }
658 ;
659 /*_._IF___V13*/
660 meltfptr[11] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[7];;
661 /*epilog*/
662
663 MELT_LOCATION("warmelt-moremacro.melt:399:/ clear");
664 /*clear*/ /*_#MELT_CALLCOUNT__L6*/
665 meltfnum[1] = 0 ;
666 /*^clear*/
667 /*clear*/ /*_.MELT_DEBUG_FUN__V14*/
668 meltfptr[7] = 0 ;
669 }
670 ;
671 }
672 else /*^cond.else*/
673 {
674
675 /*_._IF___V13*/ meltfptr[11] = /*reallynil*/ NULL ;;
676 }
677 ;
678
679 {
680 MELT_LOCATION("warmelt-moremacro.melt:399:/ locexp");
681 /*void*/
682 (void)0;
683 }
684 ;
685 /*^quasiblock*/
686
687
688 /*epilog*/
689
690 /*^clear*/
691 /*clear*/ /*_#MELT_NEED_DBG__L5*/
692 meltfnum[0] = 0 ;
693 /*^clear*/
694 /*clear*/ /*_._IF___V13*/
695 meltfptr[11] = 0 ;
696 }
697
698 #else /*MELT_HAVE_DEBUG*/
699 /*^cppif.else*/
700 /*^block*/
701 /*anyblock*/
702 {
703
704
705 {
706 /*^locexp*/
707 /*void*/(void)0;
708 }
709 ;
710 /*epilog*/
711 }
712
713 #endif /*MELT_HAVE_DEBUG*/
714 ;
715
716 MELT_CHECK_SIGNAL();
717 ;
718 /*epilog*/
719 }
720
721 ;
722 goto meltlabend_rout;
723 meltlabend_rout:
724 melt_trace_end("ANTIQUOTER", meltcallcount);
725 melt_blocklevel_signals = current_blocklevel_signals_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER_melt;
726 return (melt_ptr_t)(/*noretval*/ NULL);
727 #undef meltcallcount
728 #undef meltfram__
729 #undef MELTFRAM_NBVARNUM
730 #undef MELTFRAM_NBVARPTR
731 } /*end meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER*/
732
733
734
735
736
737
738 melt_ptr_t MELT_MODULE_VISIBILITY
739 meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
740 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
741 {
742 long current_blocklevel_signals_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE_melt = melt_blocklevel_signals;
743
744 #if MELT_HAVE_DEBUG
745 static long melt_call_counter__;
746 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
747 #undef meltcallcount
748 #define meltcallcount melt_thiscallcounter__
749 #else
750 #undef meltcallcount
751 #define meltcallcount 0L
752 #endif
753 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
754
755 /* start of frame for routine meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE fromline 1752 */
756
757 /** start of frame for meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE of CLASS_PROCROUTINEOBJ from 1555**/
758
759 /*curframdeclclassy*/ class MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE// fromline 1568
760 : public Melt_CallFrameWithValues<27>
761 {
762 public: /* fromline 1572*/
763 long mcfr_varnum[9];
764 /*classy others*/
765 long _meltsparel;
766 void melt_mark_stuff (void)
767 {
768 } /*end melt_mark_stuff*/
769 virtual void melt_mark_ggc_data (void)
770 {
771 melt_mark_values ();
772 melt_mark_stuff ();
773 }; /*end melt_mark_ggc_data*/
774 MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE(meltclosure_ptr_t clos) //the closure constructor fromline 1630
775 : Melt_CallFrameWithValues<27> (
776 #if ENABLE_CHECKING /*fromline 1634*/
777 __FILE__, __LINE__,
778 #endif /* ENABLE_CHECKING fromline 1638*/
779 sizeof(MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE), clos) {};
780 MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE() //the constructor fromline 1642
781 : Melt_CallFrameWithValues<27> (
782 #if ENABLE_CHECKING /*fromline 1646*/
783 __FILE__, __LINE__,
784 #endif /* ENABLE_CHECKING fromline 1650*/
785 sizeof(MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE)) {};
786 #if ENABLE_CHECKING /*fromline 1654*/
787 MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE(const char*fil, int lin) //the constructor fromline 1656
788 : Melt_CallFrameWithValues<27> (fil,lin, sizeof(MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE)) {};
789 MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
790 : Melt_CallFrameWithValues<27> (fil,lin, sizeof(MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE), clos) {};
791 #endif /* ENABLE_CHECKING fromline 1666*/
792
793 }; // end class MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE
794
795
796 /** end of frame for meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE fromline 1697**/
797
798 /* end of frame for routine meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE fromline 1756 */
799
800 /* classy proc frame meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE */
801 MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE
802 meltfram__ /*declfrastruct fromline 1780*/
803 /*classyprocarg meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE fromline 1785*/
804 #if ENABLE_CHECKING
805 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
806 #else /*ENABLE_CHECKING */
807 (meltclosp_) /* fromline 1793*/
808 #endif /*ENABLE_CHECKING */
809
810 ;
811 #define meltframe meltfram__
812
813 melt_trace_start("MEXPAND_BACKQUOTE", meltcallcount);
814 /*use arguments*/
815 (void) meltclosp_;
816 (void)meltfirstargp_;
817 (void)meltxargdescr_;
818 (void)meltxargtab_;
819 (void)meltxresdescr_;
820 (void)meltxrestab_;
821 /*getargs*/
822
823 /*getarg#0*/
824 MELT_LOCATION("warmelt-moremacro.melt:405:/ getarg");
825 /*_.SEXPR__V2*/
826 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
827
828 /*getarg#1*/
829 /*^getarg*/
830 if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
831 /*_.ENV__V3*/
832 meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
833 gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
834
835
836 /*getarg#2*/
837 /*^getarg*/
838 if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
839 /*_.MEXPANDER__V4*/
840 meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
841 gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL);
842
843
844 /*getarg#3*/
845 /*^getarg*/
846 if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
847 /*_.MODCTX__V5*/
848 meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
849 gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL);
850
851 ;
852 goto meltlab_endgetargs;
853 meltlab_endgetargs:
854 ;
855 /*body*/
856 /*^block*/
857 /*anyblock*/
858 {
859
860
861 #if MELT_HAVE_DEBUG
862 MELT_LOCATION("warmelt-moremacro.melt:406:/ cppif.then");
863 /*^block*/
864 /*anyblock*/
865 {
866
867
868 {
869 /*^locexp*/
870 /*melt_increment_dbgcounter*/
871 #if MELT_HAVE_DEBUG
872 melt_dbgcounter++;
873 #endif
874 ;
875 }
876 ;
877
878 MELT_CHECK_SIGNAL();
879 ;
880 /*_#MELT_NEED_DBG__L1*/
881 meltfnum[0] =
882 /*MELT_NEED_DBG*/
883 #if MELT_HAVE_DEBUG
884 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
885 #else
886 0 /* no melt_need_dbg */
887 #endif /*MELT_HAVE_DEBUG*/
888 ;;
889 MELT_LOCATION("warmelt-moremacro.melt:406:/ cond");
890 /*cond*/
891 if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
892 {
893 /*^cond.then*/
894 /*^block*/
895 /*anyblock*/
896 {
897
898 /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
899 /* for melt_callcount */
900 #if MELT_HAVE_DEBUG && defined (meltcallcount)
901 meltcallcount /* melt_callcount debugging */
902 #else
903 0L /* melt_callcount without debug */
904 #endif /* MELT_HAVE_DEBUG melt_callcount */
905 ;;
906
907 MELT_CHECK_SIGNAL();
908 ;
909 MELT_LOCATION("warmelt-moremacro.melt:406:/ apply");
910 /*apply*/
911 {
912 union meltparam_un argtab[5];
913 memset(&argtab, 0, sizeof(argtab));
914 /*^apply.arg*/
915 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
916 /*^apply.arg*/
917 argtab[1].meltbp_cstring = "warmelt-moremacro.melt";
918 /*^apply.arg*/
919 argtab[2].meltbp_long = 406;
920 /*^apply.arg*/
921 argtab[3].meltbp_cstring = "mexpand_backquote sexpr=";
922 /*^apply.arg*/
923 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1];
924 /*_.MELT_DEBUG_FUN__V7*/
925 meltfptr[6] = 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);
926 }
927 ;
928 /*_._IF___V6*/
929 meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
930 /*epilog*/
931
932 MELT_LOCATION("warmelt-moremacro.melt:406:/ clear");
933 /*clear*/ /*_#MELT_CALLCOUNT__L2*/
934 meltfnum[1] = 0 ;
935 /*^clear*/
936 /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
937 meltfptr[6] = 0 ;
938 }
939 ;
940 }
941 else /*^cond.else*/
942 {
943
944 /*_._IF___V6*/ meltfptr[5] = /*reallynil*/ NULL ;;
945 }
946 ;
947
948 {
949 MELT_LOCATION("warmelt-moremacro.melt:406:/ locexp");
950 /*void*/
951 (void)0;
952 }
953 ;
954 /*^quasiblock*/
955
956
957 /*epilog*/
958
959 /*^clear*/
960 /*clear*/ /*_#MELT_NEED_DBG__L1*/
961 meltfnum[0] = 0 ;
962 /*^clear*/
963 /*clear*/ /*_._IF___V6*/
964 meltfptr[5] = 0 ;
965 }
966
967 #else /*MELT_HAVE_DEBUG*/
968 /*^cppif.else*/
969 /*^block*/
970 /*anyblock*/
971 {
972
973
974 {
975 /*^locexp*/
976 /*void*/(void)0;
977 }
978 ;
979 /*epilog*/
980 }
981
982 #endif /*MELT_HAVE_DEBUG*/
983 ;
984 MELT_LOCATION("warmelt-moremacro.melt:407:/ quasiblock");
985
986
987 /*^getslot*/
988 {
989 melt_ptr_t slot=NULL, obj=NULL;
990 obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/;
991 melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS");
992 /*_.CONT__V9*/
993 meltfptr[5] = slot;
994 };
995 ;
996 MELT_LOCATION("warmelt-moremacro.melt:408:/ getslot");
997 {
998 melt_ptr_t slot=NULL, obj=NULL;
999 obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/;
1000 melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
1001 /*_.LOC__V10*/
1002 meltfptr[9] = slot;
1003 };
1004 ;
1005 /*_.LIST_FIRST__V11*/
1006 meltfptr[10] =
1007 (melt_list_first((melt_ptr_t)(/*_.CONT__V9*/ meltfptr[5])));;
1008 /*^compute*/
1009 /*_.CURPAIR__V12*/
1010 meltfptr[11] =
1011 (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V11*/ meltfptr[10])));;
1012 /*^compute*/
1013 /*_.BACKQUOTED__V13*/
1014 meltfptr[12] =
1015 (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V12*/ meltfptr[11])));;
1016
1017 MELT_CHECK_SIGNAL();
1018 ;
1019 /*^compute*/
1020 /*_.PAIR_TAIL__V14*/
1021 meltfptr[13] =
1022 (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V12*/ meltfptr[11])));;
1023 MELT_LOCATION("warmelt-moremacro.melt:412:/ cond");
1024 /*cond*/
1025 if (/*_.PAIR_TAIL__V14*/ meltfptr[13]) /*then*/
1026 {
1027 /*^cond.then*/
1028 /*^block*/
1029 /*anyblock*/
1030 {
1031
1032
1033 {
1034 MELT_LOCATION("warmelt-moremacro.melt:413:/ locexp");
1035 /* error_plain */
1036 melt_error_str((melt_ptr_t)(/*_.LOC__V10*/ meltfptr[9]), ( "BACKQUOTE should have only one argument"), (melt_ptr_t)0);
1037 }
1038 ;
1039 /*epilog*/
1040 }
1041 ;
1042 } /*noelse*/
1043 ;
1044
1045 MELT_CHECK_SIGNAL();
1046 ;
1047 /*_#IS_A__L3*/
1048 meltfnum[1] =
1049 melt_is_instance_of((melt_ptr_t)(/*_.BACKQUOTED__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));;
1050 MELT_LOCATION("warmelt-moremacro.melt:414:/ cond");
1051 /*cond*/
1052 if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
1053 {
1054 /*^cond.then*/
1055 /*^block*/
1056 /*anyblock*/
1057 {
1058
1059
1060 #if MELT_HAVE_DEBUG
1061 MELT_LOCATION("warmelt-moremacro.melt:415:/ cppif.then");
1062 /*^block*/
1063 /*anyblock*/
1064 {
1065
1066
1067 {
1068 /*^locexp*/
1069 /*melt_increment_dbgcounter*/
1070 #if MELT_HAVE_DEBUG
1071 melt_dbgcounter++;
1072 #endif
1073 ;
1074 }
1075 ;
1076
1077 MELT_CHECK_SIGNAL();
1078 ;
1079 /*_#MELT_NEED_DBG__L4*/
1080 meltfnum[0] =
1081 /*MELT_NEED_DBG*/
1082 #if MELT_HAVE_DEBUG
1083 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
1084 #else
1085 0 /* no melt_need_dbg */
1086 #endif /*MELT_HAVE_DEBUG*/
1087 ;;
1088 MELT_LOCATION("warmelt-moremacro.melt:415:/ cond");
1089 /*cond*/
1090 if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/
1091 {
1092 /*^cond.then*/
1093 /*^block*/
1094 /*anyblock*/
1095 {
1096
1097 /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] =
1098 /* for melt_callcount */
1099 #if MELT_HAVE_DEBUG && defined (meltcallcount)
1100 meltcallcount /* melt_callcount debugging */
1101 #else
1102 0L /* melt_callcount without debug */
1103 #endif /* MELT_HAVE_DEBUG melt_callcount */
1104 ;;
1105
1106 MELT_CHECK_SIGNAL();
1107 ;
1108 MELT_LOCATION("warmelt-moremacro.melt:415:/ apply");
1109 /*apply*/
1110 {
1111 union meltparam_un argtab[5];
1112 memset(&argtab, 0, sizeof(argtab));
1113 /*^apply.arg*/
1114 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L5*/ meltfnum[4];
1115 /*^apply.arg*/
1116 argtab[1].meltbp_cstring = "warmelt-moremacro.melt";
1117 /*^apply.arg*/
1118 argtab[2].meltbp_long = 415;
1119 /*^apply.arg*/
1120 argtab[3].meltbp_cstring = "mexpand_backquote backquoted sexpr ";
1121 /*^apply.arg*/
1122 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BACKQUOTED__V13*/ meltfptr[12];
1123 /*_.MELT_DEBUG_FUN__V17*/
1124 meltfptr[16] = 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);
1125 }
1126 ;
1127 /*_._IF___V16*/
1128 meltfptr[15] = /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16];;
1129 /*epilog*/
1130
1131 MELT_LOCATION("warmelt-moremacro.melt:415:/ clear");
1132 /*clear*/ /*_#MELT_CALLCOUNT__L5*/
1133 meltfnum[4] = 0 ;
1134 /*^clear*/
1135 /*clear*/ /*_.MELT_DEBUG_FUN__V17*/
1136 meltfptr[16] = 0 ;
1137 }
1138 ;
1139 }
1140 else /*^cond.else*/
1141 {
1142
1143 /*_._IF___V16*/ meltfptr[15] = /*reallynil*/ NULL ;;
1144 }
1145 ;
1146
1147 {
1148 MELT_LOCATION("warmelt-moremacro.melt:415:/ locexp");
1149 /*void*/
1150 (void)0;
1151 }
1152 ;
1153 /*^quasiblock*/
1154
1155
1156 /*epilog*/
1157
1158 /*^clear*/
1159 /*clear*/ /*_#MELT_NEED_DBG__L4*/
1160 meltfnum[0] = 0 ;
1161 /*^clear*/
1162 /*clear*/ /*_._IF___V16*/
1163 meltfptr[15] = 0 ;
1164 }
1165
1166 #else /*MELT_HAVE_DEBUG*/
1167 /*^cppif.else*/
1168 /*^block*/
1169 /*anyblock*/
1170 {
1171
1172
1173 {
1174 /*^locexp*/
1175 /*void*/(void)0;
1176 }
1177 ;
1178 /*epilog*/
1179 }
1180
1181 #endif /*MELT_HAVE_DEBUG*/
1182 ;
1183 MELT_LOCATION("warmelt-moremacro.melt:416:/ quasiblock");
1184
1185
1186
1187 MELT_CHECK_SIGNAL();
1188 ;
1189 /*^apply*/
1190 /*apply*/
1191 {
1192 union meltparam_un argtab[4];
1193 memset(&argtab, 0, sizeof(argtab));
1194 /*^apply.arg*/
1195 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];
1196 /*^apply.arg*/
1197 argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!ANTIQUOTER*/ meltfrout->tabval[3]);
1198 /*^apply.arg*/
1199 argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3];
1200 /*^apply.arg*/
1201 argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4];
1202 /*_.EXPBK__V19*/
1203 meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_QUOTED_SEXPR*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.BACKQUOTED__V13*/ meltfptr[12]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
1204 }
1205 ;
1206
1207 #if MELT_HAVE_DEBUG
1208 MELT_LOCATION("warmelt-moremacro.melt:418:/ cppif.then");
1209 /*^block*/
1210 /*anyblock*/
1211 {
1212
1213
1214 {
1215 /*^locexp*/
1216 /*melt_increment_dbgcounter*/
1217 #if MELT_HAVE_DEBUG
1218 melt_dbgcounter++;
1219 #endif
1220 ;
1221 }
1222 ;
1223
1224 MELT_CHECK_SIGNAL();
1225 ;
1226 /*_#MELT_NEED_DBG__L6*/
1227 meltfnum[4] =
1228 /*MELT_NEED_DBG*/
1229 #if MELT_HAVE_DEBUG
1230 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
1231 #else
1232 0 /* no melt_need_dbg */
1233 #endif /*MELT_HAVE_DEBUG*/
1234 ;;
1235 MELT_LOCATION("warmelt-moremacro.melt:418:/ cond");
1236 /*cond*/
1237 if (/*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then*/
1238 {
1239 /*^cond.then*/
1240 /*^block*/
1241 /*anyblock*/
1242 {
1243
1244 /*_#MELT_CALLCOUNT__L7*/ meltfnum[0] =
1245 /* for melt_callcount */
1246 #if MELT_HAVE_DEBUG && defined (meltcallcount)
1247 meltcallcount /* melt_callcount debugging */
1248 #else
1249 0L /* melt_callcount without debug */
1250 #endif /* MELT_HAVE_DEBUG melt_callcount */
1251 ;;
1252
1253 MELT_CHECK_SIGNAL();
1254 ;
1255 MELT_LOCATION("warmelt-moremacro.melt:418:/ apply");
1256 /*apply*/
1257 {
1258 union meltparam_un argtab[5];
1259 memset(&argtab, 0, sizeof(argtab));
1260 /*^apply.arg*/
1261 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[0];
1262 /*^apply.arg*/
1263 argtab[1].meltbp_cstring = "warmelt-moremacro.melt";
1264 /*^apply.arg*/
1265 argtab[2].meltbp_long = 418;
1266 /*^apply.arg*/
1267 argtab[3].meltbp_cstring = "mexpand_backquote result expbk=";
1268 /*^apply.arg*/
1269 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.EXPBK__V19*/ meltfptr[15];
1270 /*_.MELT_DEBUG_FUN__V21*/
1271 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);
1272 }
1273 ;
1274 /*_._IF___V20*/
1275 meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];;
1276 /*epilog*/
1277
1278 MELT_LOCATION("warmelt-moremacro.melt:418:/ clear");
1279 /*clear*/ /*_#MELT_CALLCOUNT__L7*/
1280 meltfnum[0] = 0 ;
1281 /*^clear*/
1282 /*clear*/ /*_.MELT_DEBUG_FUN__V21*/
1283 meltfptr[20] = 0 ;
1284 }
1285 ;
1286 }
1287 else /*^cond.else*/
1288 {
1289
1290 /*_._IF___V20*/ meltfptr[19] = /*reallynil*/ NULL ;;
1291 }
1292 ;
1293
1294 {
1295 MELT_LOCATION("warmelt-moremacro.melt:418:/ locexp");
1296 /*void*/
1297 (void)0;
1298 }
1299 ;
1300 /*^quasiblock*/
1301
1302
1303 /*epilog*/
1304
1305 /*^clear*/
1306 /*clear*/ /*_#MELT_NEED_DBG__L6*/
1307 meltfnum[4] = 0 ;
1308 /*^clear*/
1309 /*clear*/ /*_._IF___V20*/
1310 meltfptr[19] = 0 ;
1311 }
1312
1313 #else /*MELT_HAVE_DEBUG*/
1314 /*^cppif.else*/
1315 /*^block*/
1316 /*anyblock*/
1317 {
1318
1319
1320 {
1321 /*^locexp*/
1322 /*void*/(void)0;
1323 }
1324 ;
1325 /*epilog*/
1326 }
1327
1328 #endif /*MELT_HAVE_DEBUG*/
1329 ;
1330
1331 MELT_CHECK_SIGNAL();
1332 ;
1333 MELT_LOCATION("warmelt-moremacro.melt:419:/ quasiblock");
1334
1335
1336 /*_._RETVAL___V1*/
1337 meltfptr[0] = /*_.EXPBK__V19*/ meltfptr[15];;
1338
1339 {
1340 MELT_LOCATION("warmelt-moremacro.melt:419:/ locexp");
1341 /*ochecknores compilobj_nrep_return*/
1342 #if MELT_HAVE_DEBUG
1343 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
1344 melt_warn_for_no_expected_secondary_results();
1345 /* we warned when secondary results are expected but not returned. */
1346 #endif /*MELT_HAVE_DEBUG*/
1347 ;
1348 }
1349 ;
1350 /*^finalreturn*/
1351 ;
1352 /*finalret*/
1353 goto meltlabend_rout ;
1354 /*_.LET___V18*/
1355 meltfptr[16] = /*_.RETURN___V22*/ meltfptr[20];;
1356
1357 MELT_LOCATION("warmelt-moremacro.melt:416:/ clear");
1358 /*clear*/ /*_.EXPBK__V19*/
1359 meltfptr[15] = 0 ;
1360 /*^clear*/
1361 /*clear*/ /*_.RETURN___V22*/
1362 meltfptr[20] = 0 ;
1363 MELT_LOCATION("warmelt-moremacro.melt:414:/ quasiblock");
1364
1365
1366 /*_.PROGN___V23*/
1367 meltfptr[19] = /*_.LET___V18*/ meltfptr[16];;
1368 /*^compute*/
1369 /*_._IFELSE___V15*/
1370 meltfptr[14] = /*_.PROGN___V23*/ meltfptr[19];;
1371 /*epilog*/
1372
1373 MELT_LOCATION("warmelt-moremacro.melt:414:/ clear");
1374 /*clear*/ /*_.LET___V18*/
1375 meltfptr[16] = 0 ;
1376 /*^clear*/
1377 /*clear*/ /*_.PROGN___V23*/
1378 meltfptr[19] = 0 ;
1379 }
1380 ;
1381 }
1382 else /*^cond.else*/
1383 {
1384
1385 /*^block*/
1386 /*anyblock*/
1387 {
1388
1389
1390 #if MELT_HAVE_DEBUG
1391 MELT_LOCATION("warmelt-moremacro.melt:422:/ cppif.then");
1392 /*^block*/
1393 /*anyblock*/
1394 {
1395
1396
1397 {
1398 /*^locexp*/
1399 /*melt_increment_dbgcounter*/
1400 #if MELT_HAVE_DEBUG
1401 melt_dbgcounter++;
1402 #endif
1403 ;
1404 }
1405 ;
1406
1407 MELT_CHECK_SIGNAL();
1408 ;
1409 /*_#MELT_NEED_DBG__L8*/
1410 meltfnum[0] =
1411 /*MELT_NEED_DBG*/
1412 #if MELT_HAVE_DEBUG
1413 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
1414 #else
1415 0 /* no melt_need_dbg */
1416 #endif /*MELT_HAVE_DEBUG*/
1417 ;;
1418 MELT_LOCATION("warmelt-moremacro.melt:422:/ cond");
1419 /*cond*/
1420 if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/
1421 {
1422 /*^cond.then*/
1423 /*^block*/
1424 /*anyblock*/
1425 {
1426
1427 /*_#MELT_CALLCOUNT__L9*/ meltfnum[4] =
1428 /* for melt_callcount */
1429 #if MELT_HAVE_DEBUG && defined (meltcallcount)
1430 meltcallcount /* melt_callcount debugging */
1431 #else
1432 0L /* melt_callcount without debug */
1433 #endif /* MELT_HAVE_DEBUG melt_callcount */
1434 ;;
1435
1436 MELT_CHECK_SIGNAL();
1437 ;
1438 MELT_LOCATION("warmelt-moremacro.melt:422:/ apply");
1439 /*apply*/
1440 {
1441 union meltparam_un argtab[5];
1442 memset(&argtab, 0, sizeof(argtab));
1443 /*^apply.arg*/
1444 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L9*/ meltfnum[4];
1445 /*^apply.arg*/
1446 argtab[1].meltbp_cstring = "warmelt-moremacro.melt";
1447 /*^apply.arg*/
1448 argtab[2].meltbp_long = 422;
1449 /*^apply.arg*/
1450 argtab[3].meltbp_cstring = "mexpand_backquote backquoted return verbatim ";
1451 /*^apply.arg*/
1452 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BACKQUOTED__V13*/ meltfptr[12];
1453 /*_.MELT_DEBUG_FUN__V25*/
1454 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);
1455 }
1456 ;
1457 /*_._IF___V24*/
1458 meltfptr[15] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[20];;
1459 /*epilog*/
1460
1461 MELT_LOCATION("warmelt-moremacro.melt:422:/ clear");
1462 /*clear*/ /*_#MELT_CALLCOUNT__L9*/
1463 meltfnum[4] = 0 ;
1464 /*^clear*/
1465 /*clear*/ /*_.MELT_DEBUG_FUN__V25*/
1466 meltfptr[20] = 0 ;
1467 }
1468 ;
1469 }
1470 else /*^cond.else*/
1471 {
1472
1473 /*_._IF___V24*/ meltfptr[15] = /*reallynil*/ NULL ;;
1474 }
1475 ;
1476
1477 {
1478 MELT_LOCATION("warmelt-moremacro.melt:422:/ locexp");
1479 /*void*/
1480 (void)0;
1481 }
1482 ;
1483 /*^quasiblock*/
1484
1485
1486 /*epilog*/
1487
1488 /*^clear*/
1489 /*clear*/ /*_#MELT_NEED_DBG__L8*/
1490 meltfnum[0] = 0 ;
1491 /*^clear*/
1492 /*clear*/ /*_._IF___V24*/
1493 meltfptr[15] = 0 ;
1494 }
1495
1496 #else /*MELT_HAVE_DEBUG*/
1497 /*^cppif.else*/
1498 /*^block*/
1499 /*anyblock*/
1500 {
1501
1502
1503 {
1504 /*^locexp*/
1505 /*void*/(void)0;
1506 }
1507 ;
1508 /*epilog*/
1509 }
1510
1511 #endif /*MELT_HAVE_DEBUG*/
1512 ;
1513
1514 MELT_CHECK_SIGNAL();
1515 ;
1516 MELT_LOCATION("warmelt-moremacro.melt:423:/ quasiblock");
1517
1518
1519 /*_._RETVAL___V1*/
1520 meltfptr[0] = /*_.BACKQUOTED__V13*/ meltfptr[12];;
1521
1522 {
1523 MELT_LOCATION("warmelt-moremacro.melt:423:/ locexp");
1524 /*ochecknores compilobj_nrep_return*/
1525 #if MELT_HAVE_DEBUG
1526 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
1527 melt_warn_for_no_expected_secondary_results();
1528 /* we warned when secondary results are expected but not returned. */
1529 #endif /*MELT_HAVE_DEBUG*/
1530 ;
1531 }
1532 ;
1533 /*^finalreturn*/
1534 ;
1535 /*finalret*/
1536 goto meltlabend_rout ;
1537 MELT_LOCATION("warmelt-moremacro.melt:421:/ quasiblock");
1538
1539
1540 /*_.PROGN___V27*/
1541 meltfptr[19] = /*_.RETURN___V26*/ meltfptr[16];;
1542 /*^compute*/
1543 /*_._IFELSE___V15*/
1544 meltfptr[14] = /*_.PROGN___V27*/ meltfptr[19];;
1545 /*epilog*/
1546
1547 MELT_LOCATION("warmelt-moremacro.melt:414:/ clear");
1548 /*clear*/ /*_.RETURN___V26*/
1549 meltfptr[16] = 0 ;
1550 /*^clear*/
1551 /*clear*/ /*_.PROGN___V27*/
1552 meltfptr[19] = 0 ;
1553 }
1554 ;
1555 }
1556 ;
1557 /*_.LET___V8*/
1558 meltfptr[6] = /*_._IFELSE___V15*/ meltfptr[14];;
1559
1560 MELT_LOCATION("warmelt-moremacro.melt:407:/ clear");
1561 /*clear*/ /*_.CONT__V9*/
1562 meltfptr[5] = 0 ;
1563 /*^clear*/
1564 /*clear*/ /*_.LOC__V10*/
1565 meltfptr[9] = 0 ;
1566 /*^clear*/
1567 /*clear*/ /*_.LIST_FIRST__V11*/
1568 meltfptr[10] = 0 ;
1569 /*^clear*/
1570 /*clear*/ /*_.CURPAIR__V12*/
1571 meltfptr[11] = 0 ;
1572 /*^clear*/
1573 /*clear*/ /*_.BACKQUOTED__V13*/
1574 meltfptr[12] = 0 ;
1575 /*^clear*/
1576 /*clear*/ /*_.PAIR_TAIL__V14*/
1577 meltfptr[13] = 0 ;
1578 /*^clear*/
1579 /*clear*/ /*_#IS_A__L3*/
1580 meltfnum[1] = 0 ;
1581 /*^clear*/
1582 /*clear*/ /*_._IFELSE___V15*/
1583 meltfptr[14] = 0 ;
1584
1585 MELT_CHECK_SIGNAL();
1586 ;
1587 MELT_LOCATION("warmelt-moremacro.melt:405:/ quasiblock");
1588
1589
1590 /*_._RETVAL___V1*/
1591 meltfptr[0] = /*_.LET___V8*/ meltfptr[6];;
1592
1593 {
1594 MELT_LOCATION("warmelt-moremacro.melt:405:/ locexp");
1595 /*ochecknores compilobj_nrep_return*/
1596 #if MELT_HAVE_DEBUG
1597 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
1598 melt_warn_for_no_expected_secondary_results();
1599 /* we warned when secondary results are expected but not returned. */
1600 #endif /*MELT_HAVE_DEBUG*/
1601 ;
1602 }
1603 ;
1604 /*^finalreturn*/
1605 ;
1606 /*finalret*/
1607 goto meltlabend_rout ;
1608 /*epilog*/
1609
1610 /*^clear*/
1611 /*clear*/ /*_.LET___V8*/
1612 meltfptr[6] = 0 ;
1613 }
1614
1615 ;
1616 goto meltlabend_rout;
1617 meltlabend_rout:
1618 melt_trace_end("MEXPAND_BACKQUOTE", meltcallcount);
1619 melt_blocklevel_signals = current_blocklevel_signals_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE_melt;
1620 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
1621 #undef meltcallcount
1622 #undef meltfram__
1623 #undef MELTFRAM_NBVARNUM
1624 #undef MELTFRAM_NBVARPTR
1625 } /*end meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE*/
1626
1627
1628
1629
1630
1631
1632 melt_ptr_t MELT_MODULE_VISIBILITY
1633 meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
1634 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
1635 {
1636 long current_blocklevel_signals_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA_melt = melt_blocklevel_signals;
1637
1638 #if MELT_HAVE_DEBUG
1639 static long melt_call_counter__;
1640 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
1641 #undef meltcallcount
1642 #define meltcallcount melt_thiscallcounter__
1643 #else
1644 #undef meltcallcount
1645 #define meltcallcount 0L
1646 #endif
1647 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
1648
1649 /* start of frame for routine meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA fromline 1752 */
1650
1651 /** start of frame for meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA of CLASS_PROCROUTINEOBJ from 1555**/
1652
1653 /*curframdeclclassy*/ class MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA// fromline 1568
1654 : public Melt_CallFrameWithValues<11>
1655 {
1656 public: /* fromline 1572*/
1657 long mcfr_varnum[2];
1658 /*classy others*/
1659 long _meltsparel;
1660 void melt_mark_stuff (void)
1661 {
1662 } /*end melt_mark_stuff*/
1663 virtual void melt_mark_ggc_data (void)
1664 {
1665 melt_mark_values ();
1666 melt_mark_stuff ();
1667 }; /*end melt_mark_ggc_data*/
1668 MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA(meltclosure_ptr_t clos) //the closure constructor fromline 1630
1669 : Melt_CallFrameWithValues<11> (
1670 #if ENABLE_CHECKING /*fromline 1634*/
1671 __FILE__, __LINE__,
1672 #endif /* ENABLE_CHECKING fromline 1638*/
1673 sizeof(MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA), clos) {};
1674 MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA() //the constructor fromline 1642
1675 : Melt_CallFrameWithValues<11> (
1676 #if ENABLE_CHECKING /*fromline 1646*/
1677 __FILE__, __LINE__,
1678 #endif /* ENABLE_CHECKING fromline 1650*/
1679 sizeof(MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA)) {};
1680 #if ENABLE_CHECKING /*fromline 1654*/
1681 MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA(const char*fil, int lin) //the constructor fromline 1656
1682 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA)) {};
1683 MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
1684 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA), clos) {};
1685 #endif /* ENABLE_CHECKING fromline 1666*/
1686
1687 }; // end class MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA
1688
1689
1690 /** end of frame for meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA fromline 1697**/
1691
1692 /* end of frame for routine meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA fromline 1756 */
1693
1694 /* classy proc frame meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA */
1695 MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA
1696 meltfram__ /*declfrastruct fromline 1780*/
1697 /*classyprocarg meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA fromline 1785*/
1698 #if ENABLE_CHECKING
1699 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
1700 #else /*ENABLE_CHECKING */
1701 (meltclosp_) /* fromline 1793*/
1702 #endif /*ENABLE_CHECKING */
1703
1704 ;
1705 #define meltframe meltfram__
1706
1707 melt_trace_start("MEXPAND_COMMA", meltcallcount);
1708 /*use arguments*/
1709 (void) meltclosp_;
1710 (void)meltfirstargp_;
1711 (void)meltxargdescr_;
1712 (void)meltxargtab_;
1713 (void)meltxresdescr_;
1714 (void)meltxrestab_;
1715 /*getargs*/
1716
1717 /*getarg#0*/
1718 MELT_LOCATION("warmelt-moremacro.melt:435:/ getarg");
1719 /*_.SEXPR__V2*/
1720 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
1721
1722 /*getarg#1*/
1723 /*^getarg*/
1724 if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
1725 /*_.ENV__V3*/
1726 meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
1727 gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL);
1728
1729
1730 /*getarg#2*/
1731 /*^getarg*/
1732 if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
1733 /*_.MEXPANDER__V4*/
1734 meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
1735 gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL);
1736
1737
1738 /*getarg#3*/
1739 /*^getarg*/
1740 if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs;
1741 /*_.MODCTX__V5*/
1742 meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
1743 gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL);
1744
1745 ;
1746 goto meltlab_endgetargs;
1747 meltlab_endgetargs:
1748 ;
1749 /*body*/
1750 /*^block*/
1751 /*anyblock*/
1752 {
1753
1754
1755 #if MELT_HAVE_DEBUG
1756 MELT_LOCATION("warmelt-moremacro.melt:436:/ cppif.then");
1757 /*^block*/
1758 /*anyblock*/
1759 {
1760
1761
1762 {
1763 /*^locexp*/
1764 /*melt_increment_dbgcounter*/
1765 #if MELT_HAVE_DEBUG
1766 melt_dbgcounter++;
1767 #endif
1768 ;
1769 }
1770 ;
1771
1772 MELT_CHECK_SIGNAL();
1773 ;
1774 /*_#MELT_NEED_DBG__L1*/
1775 meltfnum[0] =
1776 /*MELT_NEED_DBG*/
1777 #if MELT_HAVE_DEBUG
1778 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
1779 #else
1780 0 /* no melt_need_dbg */
1781 #endif /*MELT_HAVE_DEBUG*/
1782 ;;
1783 MELT_LOCATION("warmelt-moremacro.melt:436:/ cond");
1784 /*cond*/
1785 if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
1786 {
1787 /*^cond.then*/
1788 /*^block*/
1789 /*anyblock*/
1790 {
1791
1792 /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
1793 /* for melt_callcount */
1794 #if MELT_HAVE_DEBUG && defined (meltcallcount)
1795 meltcallcount /* melt_callcount debugging */
1796 #else
1797 0L /* melt_callcount without debug */
1798 #endif /* MELT_HAVE_DEBUG melt_callcount */
1799 ;;
1800
1801 MELT_CHECK_SIGNAL();
1802 ;
1803 MELT_LOCATION("warmelt-moremacro.melt:436:/ apply");
1804 /*apply*/
1805 {
1806 union meltparam_un argtab[5];
1807 memset(&argtab, 0, sizeof(argtab));
1808 /*^apply.arg*/
1809 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
1810 /*^apply.arg*/
1811 argtab[1].meltbp_cstring = "warmelt-moremacro.melt";
1812 /*^apply.arg*/
1813 argtab[2].meltbp_long = 436;
1814 /*^apply.arg*/
1815 argtab[3].meltbp_cstring = "mexpand_comma sexpr=";
1816 /*^apply.arg*/
1817 argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1];
1818 /*_.MELT_DEBUG_FUN__V7*/
1819 meltfptr[6] = 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);
1820 }
1821 ;
1822 /*_._IF___V6*/
1823 meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];;
1824 /*epilog*/
1825
1826 MELT_LOCATION("warmelt-moremacro.melt:436:/ clear");
1827 /*clear*/ /*_#MELT_CALLCOUNT__L2*/
1828 meltfnum[1] = 0 ;
1829 /*^clear*/
1830 /*clear*/ /*_.MELT_DEBUG_FUN__V7*/
1831 meltfptr[6] = 0 ;
1832 }
1833 ;
1834 }
1835 else /*^cond.else*/
1836 {
1837
1838 /*_._IF___V6*/ meltfptr[5] = /*reallynil*/ NULL ;;
1839 }
1840 ;
1841
1842 {
1843 MELT_LOCATION("warmelt-moremacro.melt:436:/ locexp");
1844 /*void*/
1845 (void)0;
1846 }
1847 ;
1848 /*^quasiblock*/
1849
1850
1851 /*epilog*/
1852
1853 /*^clear*/
1854 /*clear*/ /*_#MELT_NEED_DBG__L1*/
1855 meltfnum[0] = 0 ;
1856 /*^clear*/
1857 /*clear*/ /*_._IF___V6*/
1858 meltfptr[5] = 0 ;
1859 }
1860
1861 #else /*MELT_HAVE_DEBUG*/
1862 /*^cppif.else*/
1863 /*^block*/
1864 /*anyblock*/
1865 {
1866
1867
1868 {
1869 /*^locexp*/
1870 /*void*/(void)0;
1871 }
1872 ;
1873 /*epilog*/
1874 }
1875
1876 #endif /*MELT_HAVE_DEBUG*/
1877 ;
1878 MELT_LOCATION("warmelt-moremacro.melt:437:/ quasiblock");
1879
1880
1881 /*^getslot*/
1882 {
1883 melt_ptr_t slot=NULL, obj=NULL;
1884 obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/;
1885 melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS");
1886 /*_.CONT__V8*/
1887 meltfptr[6] = slot;
1888 };
1889 ;
1890 MELT_LOCATION("warmelt-moremacro.melt:438:/ getslot");
1891 {
1892 melt_ptr_t slot=NULL, obj=NULL;
1893 obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/;
1894 melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
1895 /*_.LOC__V9*/
1896 meltfptr[5] = slot;
1897 };
1898 ;
1899 /*_.LIST_FIRST__V10*/
1900 meltfptr[9] =
1901 (melt_list_first((melt_ptr_t)(/*_.CONT__V8*/ meltfptr[6])));;
1902 /*^compute*/
1903 /*_.CURPAIR__V11*/
1904 meltfptr[10] =
1905 (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V10*/ meltfptr[9])));;
1906
1907 {
1908 MELT_LOCATION("warmelt-moremacro.melt:441:/ locexp");
1909 /* error_plain */
1910 melt_error_str((melt_ptr_t)(/*_.LOC__V9*/ meltfptr[5]), ( "COMMA outside of BACKQUOTE-d expression"), (melt_ptr_t)0);
1911 }
1912 ;
1913
1914 MELT_LOCATION("warmelt-moremacro.melt:437:/ clear");
1915 /*clear*/ /*_.CONT__V8*/
1916 meltfptr[6] = 0 ;
1917 /*^clear*/
1918 /*clear*/ /*_.LOC__V9*/
1919 meltfptr[5] = 0 ;
1920 /*^clear*/
1921 /*clear*/ /*_.LIST_FIRST__V10*/
1922 meltfptr[9] = 0 ;
1923 /*^clear*/
1924 /*clear*/ /*_.CURPAIR__V11*/
1925 meltfptr[10] = 0 ;
1926
1927 MELT_CHECK_SIGNAL();
1928 ;
1929 /*epilog*/
1930 }
1931
1932 ;
1933 goto meltlabend_rout;
1934 meltlabend_rout:
1935 melt_trace_end("MEXPAND_COMMA", meltcallcount);
1936 melt_blocklevel_signals = current_blocklevel_signals_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA_melt;
1937 return (melt_ptr_t)(/*noretval*/ NULL);
1938 #undef meltcallcount
1939 #undef meltfram__
1940 #undef MELTFRAM_NBVARNUM
1941 #undef MELTFRAM_NBVARPTR
1942 } /*end meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA*/
1943
1944
1945
1946
1947
1948
1949 melt_ptr_t MELT_MODULE_VISIBILITY
1950 meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_,
1951 const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_)
1952 {
1953 long current_blocklevel_signals_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR_melt = melt_blocklevel_signals;
1954
1955 #if MELT_HAVE_DEBUG
1956 static long melt_call_counter__;
1957 long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__;
1958 #undef meltcallcount
1959 #define meltcallcount melt_thiscallcounter__
1960 #else
1961 #undef meltcallcount
1962 #define meltcallcount 0L
1963 #endif
1964 //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538
1965
1966 /* start of frame for routine meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR fromline 1752 */
1967
1968 /** start of frame for meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR of CLASS_PROCROUTINEOBJ from 1555**/
1969
1970 /*curframdeclclassy*/ class MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR// fromline 1568
1971 : public Melt_CallFrameWithValues<39>
1972 {
1973 public: /* fromline 1572*/
1974 long mcfr_varnum[21];
1975 /*classy others*/
1976 long _meltsparel;
1977 void melt_mark_stuff (void)
1978 {
1979 } /*end melt_mark_stuff*/
1980 virtual void melt_mark_ggc_data (void)
1981 {
1982 melt_mark_values ();
1983 melt_mark_stuff ();
1984 }; /*end melt_mark_ggc_data*/
1985 MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR(meltclosure_ptr_t clos) //the closure constructor fromline 1630
1986 : Melt_CallFrameWithValues<39> (
1987 #if ENABLE_CHECKING /*fromline 1634*/
1988 __FILE__, __LINE__,
1989 #endif /* ENABLE_CHECKING fromline 1638*/
1990 sizeof(MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR), clos) {};
1991 MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR() //the constructor fromline 1642
1992 : Melt_CallFrameWithValues<39> (
1993 #if ENABLE_CHECKING /*fromline 1646*/
1994 __FILE__, __LINE__,
1995 #endif /* ENABLE_CHECKING fromline 1650*/
1996 sizeof(MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR)) {};
1997 #if ENABLE_CHECKING /*fromline 1654*/
1998 MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR(const char*fil, int lin) //the constructor fromline 1656
1999 : Melt_CallFrameWithValues<39> (fil,lin, sizeof(MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR)) {};
2000 MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661
2001 : Melt_CallFrameWithValues<39> (fil,lin, sizeof(MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR), clos) {};
2002 #endif /* ENABLE_CHECKING fromline 1666*/
2003
2004 }; // end class MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR
2005
2006
2007 /** end of frame for meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR fromline 1697**/
2008
2009 /* end of frame for routine meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR fromline 1756 */
2010
2011 /* classy proc frame meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR */
2012 MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR
2013 meltfram__ /*declfrastruct fromline 1780*/
2014 /*classyprocarg meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR fromline 1785*/
2015 #if ENABLE_CHECKING
2016 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/
2017 #else /*ENABLE_CHECKING */
2018 (meltclosp_) /* fromline 1793*/
2019 #endif /*ENABLE_CHECKING */
2020
2021 ;
2022 #define meltframe meltfram__
2023
2024 melt_trace_start("SUBSTITUTE_SEXPR", meltcallcount);
2025 /*use arguments*/
2026 (void) meltclosp_;
2027 (void)meltfirstargp_;
2028 (void)meltxargdescr_;
2029 (void)meltxargtab_;
2030 (void)meltxresdescr_;
2031 (void)meltxrestab_;
2032 /*getargs*/
2033
2034 /*getarg#0*/
2035 MELT_LOCATION("warmelt-moremacro.melt:453:/ getarg");
2036 /*_.SEXPR__V2*/
2037 meltfptr[1] = (melt_ptr_t) meltfirstargp_;
2038
2039 /*getarg#1*/
2040 /*^getarg*/
2041 if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
2042 /*_.SYMBREPF__V3*/
2043 meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
2044 gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMBREPF__V3*/ meltfptr[2])) != NULL);
2045
2046
2047 /*getarg#2*/
2048 /*^getarg*/
2049 if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs;
2050 /*_.INSIDEF__V4*/
2051 meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL;
2052 gcc_assert(melt_discr((melt_ptr_t)(/*_.INSIDEF__V4*/ meltfptr[3])) != NULL);
2053
2054 ;
2055 goto meltlab_endgetargs;
2056 meltlab_endgetargs:
2057 ;
2058 /*body*/
2059 /*^block*/
2060 /*anyblock*/
2061 {
2062
2063
2064 #if MELT_HAVE_DEBUG
2065 MELT_LOCATION("warmelt-moremacro.melt:462:/ cppif.then");
2066 /*^block*/
2067 /*anyblock*/
2068 {
2069
2070
2071 {
2072 /*^locexp*/
2073 /*melt_increment_dbgcounter*/
2074 #if MELT_HAVE_DEBUG
2075 melt_dbgcounter++;
2076 #endif
2077 ;
2078 }
2079 ;
2080
2081 MELT_CHECK_SIGNAL();
2082 ;
2083 /*_#MELT_NEED_DBG__L1*/
2084 meltfnum[0] =
2085 /*MELT_NEED_DBG*/
2086 #if MELT_HAVE_DEBUG
2087 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
2088 #else
2089 0 /* no melt_need_dbg */
2090 #endif /*MELT_HAVE_DEBUG*/
2091 ;;
2092 MELT_LOCATION("warmelt-moremacro.melt:462:/ cond");
2093 /*cond*/
2094 if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/
2095 {
2096 /*^cond.then*/
2097 /*^block*/
2098 /*anyblock*/
2099 {
2100
2101 /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] =
2102 /* for melt_callcount */
2103 #if MELT_HAVE_DEBUG && defined (meltcallcount)
2104 meltcallcount /* melt_callcount debugging */
2105 #else
2106 0L /* melt_callcount without debug */
2107 #endif /* MELT_HAVE_DEBUG melt_callcount */
2108 ;;
2109
2110 MELT_CHECK_SIGNAL();
2111 ;
2112 MELT_LOCATION("warmelt-moremacro.melt:462:/ apply");
2113 /*apply*/
2114 {
2115 union meltparam_un argtab[6];
2116 memset(&argtab, 0, sizeof(argtab));
2117 /*^apply.arg*/
2118 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1];
2119 /*^apply.arg*/
2120 argtab[1].meltbp_cstring = "warmelt-moremacro.melt";
2121 /*^apply.arg*/
2122 argtab[2].meltbp_long = 462;
2123 /*^apply.arg*/
2124 argtab[3].meltbp_cstring = "substitute_sexpr";
2125 /*^apply.arg*/
2126 argtab[4].meltbp_cstring = " sexpr=";
2127 /*^apply.arg*/
2128 argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1];
2129 /*_.MELT_DEBUG_FUN__V6*/
2130 meltfptr[5] = 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_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2131 }
2132 ;
2133 /*_._IF___V5*/
2134 meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];;
2135 /*epilog*/
2136
2137 MELT_LOCATION("warmelt-moremacro.melt:462:/ clear");
2138 /*clear*/ /*_#MELT_CALLCOUNT__L2*/
2139 meltfnum[1] = 0 ;
2140 /*^clear*/
2141 /*clear*/ /*_.MELT_DEBUG_FUN__V6*/
2142 meltfptr[5] = 0 ;
2143 }
2144 ;
2145 }
2146 else /*^cond.else*/
2147 {
2148
2149 /*_._IF___V5*/ meltfptr[4] = /*reallynil*/ NULL ;;
2150 }
2151 ;
2152
2153 {
2154 MELT_LOCATION("warmelt-moremacro.melt:462:/ locexp");
2155 /*void*/
2156 (void)0;
2157 }
2158 ;
2159 /*^quasiblock*/
2160
2161
2162 /*epilog*/
2163
2164 /*^clear*/
2165 /*clear*/ /*_#MELT_NEED_DBG__L1*/
2166 meltfnum[0] = 0 ;
2167 /*^clear*/
2168 /*clear*/ /*_._IF___V5*/
2169 meltfptr[4] = 0 ;
2170 }
2171
2172 #else /*MELT_HAVE_DEBUG*/
2173 /*^cppif.else*/
2174 /*^block*/
2175 /*anyblock*/
2176 {
2177
2178
2179 {
2180 /*^locexp*/
2181 /*void*/(void)0;
2182 }
2183 ;
2184 /*epilog*/
2185 }
2186
2187 #endif /*MELT_HAVE_DEBUG*/
2188 ;
2189
2190 MELT_CHECK_SIGNAL();
2191 ;
2192 /*_#IS_NOT_A__L3*/
2193 meltfnum[1] =
2194 !melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));;
2195 MELT_LOCATION("warmelt-moremacro.melt:463:/ cond");
2196 /*cond*/
2197 if (/*_#IS_NOT_A__L3*/ meltfnum[1]) /*then*/
2198 {
2199 /*^cond.then*/
2200 /*^block*/
2201 /*anyblock*/
2202 {
2203
2204
2205 #if MELT_HAVE_DEBUG
2206 MELT_LOCATION("warmelt-moremacro.melt:464:/ cppif.then");
2207 /*^block*/
2208 /*anyblock*/
2209 {
2210
2211
2212 {
2213 /*^locexp*/
2214 /*melt_increment_dbgcounter*/
2215 #if MELT_HAVE_DEBUG
2216 melt_dbgcounter++;
2217 #endif
2218 ;
2219 }
2220 ;
2221
2222 MELT_CHECK_SIGNAL();
2223 ;
2224 /*_#MELT_NEED_DBG__L4*/
2225 meltfnum[0] =
2226 /*MELT_NEED_DBG*/
2227 #if MELT_HAVE_DEBUG
2228 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
2229 #else
2230 0 /* no melt_need_dbg */
2231 #endif /*MELT_HAVE_DEBUG*/
2232 ;;
2233 MELT_LOCATION("warmelt-moremacro.melt:464:/ cond");
2234 /*cond*/
2235 if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/
2236 {
2237 /*^cond.then*/
2238 /*^block*/
2239 /*anyblock*/
2240 {
2241
2242 /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] =
2243 /* for melt_callcount */
2244 #if MELT_HAVE_DEBUG && defined (meltcallcount)
2245 meltcallcount /* melt_callcount debugging */
2246 #else
2247 0L /* melt_callcount without debug */
2248 #endif /* MELT_HAVE_DEBUG melt_callcount */
2249 ;;
2250
2251 MELT_CHECK_SIGNAL();
2252 ;
2253 MELT_LOCATION("warmelt-moremacro.melt:464:/ apply");
2254 /*apply*/
2255 {
2256 union meltparam_un argtab[6];
2257 memset(&argtab, 0, sizeof(argtab));
2258 /*^apply.arg*/
2259 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L5*/ meltfnum[4];
2260 /*^apply.arg*/
2261 argtab[1].meltbp_cstring = "warmelt-moremacro.melt";
2262 /*^apply.arg*/
2263 argtab[2].meltbp_long = 464;
2264 /*^apply.arg*/
2265 argtab[3].meltbp_cstring = "substitute_sexpr";
2266 /*^apply.arg*/
2267 argtab[4].meltbp_cstring = " not an S-expr:";
2268 /*^apply.arg*/
2269 argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1];
2270 /*_.MELT_DEBUG_FUN__V9*/
2271 meltfptr[8] = 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_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2272 }
2273 ;
2274 /*_._IF___V8*/
2275 meltfptr[4] = /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8];;
2276 /*epilog*/
2277
2278 MELT_LOCATION("warmelt-moremacro.melt:464:/ clear");
2279 /*clear*/ /*_#MELT_CALLCOUNT__L5*/
2280 meltfnum[4] = 0 ;
2281 /*^clear*/
2282 /*clear*/ /*_.MELT_DEBUG_FUN__V9*/
2283 meltfptr[8] = 0 ;
2284 }
2285 ;
2286 }
2287 else /*^cond.else*/
2288 {
2289
2290 /*_._IF___V8*/ meltfptr[4] = /*reallynil*/ NULL ;;
2291 }
2292 ;
2293
2294 {
2295 MELT_LOCATION("warmelt-moremacro.melt:464:/ locexp");
2296 /*void*/
2297 (void)0;
2298 }
2299 ;
2300 /*^quasiblock*/
2301
2302
2303 /*epilog*/
2304
2305 /*^clear*/
2306 /*clear*/ /*_#MELT_NEED_DBG__L4*/
2307 meltfnum[0] = 0 ;
2308 /*^clear*/
2309 /*clear*/ /*_._IF___V8*/
2310 meltfptr[4] = 0 ;
2311 }
2312
2313 #else /*MELT_HAVE_DEBUG*/
2314 /*^cppif.else*/
2315 /*^block*/
2316 /*anyblock*/
2317 {
2318
2319
2320 {
2321 /*^locexp*/
2322 /*void*/(void)0;
2323 }
2324 ;
2325 /*epilog*/
2326 }
2327
2328 #endif /*MELT_HAVE_DEBUG*/
2329 ;
2330
2331 MELT_CHECK_SIGNAL();
2332 ;
2333 MELT_LOCATION("warmelt-moremacro.melt:465:/ quasiblock");
2334
2335
2336 /*_._RETVAL___V1*/
2337 meltfptr[0] = /*_.SEXPR__V2*/ meltfptr[1];;
2338
2339 {
2340 MELT_LOCATION("warmelt-moremacro.melt:465:/ locexp");
2341 /*ochecknores compilobj_nrep_return*/
2342 #if MELT_HAVE_DEBUG
2343 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
2344 melt_warn_for_no_expected_secondary_results();
2345 /* we warned when secondary results are expected but not returned. */
2346 #endif /*MELT_HAVE_DEBUG*/
2347 ;
2348 }
2349 ;
2350 /*^finalreturn*/
2351 ;
2352 /*finalret*/
2353 goto meltlabend_rout ;
2354 MELT_LOCATION("warmelt-moremacro.melt:463:/ quasiblock");
2355
2356
2357 /*_.PROGN___V11*/
2358 meltfptr[4] = /*_.RETURN___V10*/ meltfptr[8];;
2359 /*^compute*/
2360 /*_._IF___V7*/
2361 meltfptr[5] = /*_.PROGN___V11*/ meltfptr[4];;
2362 /*epilog*/
2363
2364 MELT_LOCATION("warmelt-moremacro.melt:463:/ clear");
2365 /*clear*/ /*_.RETURN___V10*/
2366 meltfptr[8] = 0 ;
2367 /*^clear*/
2368 /*clear*/ /*_.PROGN___V11*/
2369 meltfptr[4] = 0 ;
2370 }
2371 ;
2372 }
2373 else /*^cond.else*/
2374 {
2375
2376 /*_._IF___V7*/ meltfptr[5] = /*reallynil*/ NULL ;;
2377 }
2378 ;
2379 MELT_LOCATION("warmelt-moremacro.melt:466:/ quasiblock");
2380
2381
2382 /*_.CLIST__V13*/
2383 meltfptr[4] =
2384 (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));;
2385 MELT_LOCATION("warmelt-moremacro.melt:467:/ getslot");
2386 {
2387 melt_ptr_t slot=NULL, obj=NULL;
2388 obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/;
2389 melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS");
2390 /*_.CONT__V14*/
2391 meltfptr[13] = slot;
2392 };
2393 ;
2394 MELT_LOCATION("warmelt-moremacro.melt:468:/ getslot");
2395 {
2396 melt_ptr_t slot=NULL, obj=NULL;
2397 obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/;
2398 melt_object_get_field(slot,obj, 1, "LOCA_LOCATION");
2399 /*_.LOC__V15*/
2400 meltfptr[14] = slot;
2401 };
2402 ;
2403
2404 MELT_CHECK_SIGNAL();
2405 ;
2406 /*_#IS_A__L6*/
2407 meltfnum[4] =
2408 melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR_MACROSTRING*/ meltfrout->tabval[3])));;
2409 MELT_LOCATION("warmelt-moremacro.melt:469:/ cond");
2410 /*cond*/
2411 if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/
2412 {
2413 /*^cond.then*/
2414 /*^block*/
2415 /*anyblock*/
2416 {
2417
2418
2419 MELT_CHECK_SIGNAL();
2420 ;
2421 MELT_LOCATION("warmelt-moremacro.melt:470:/ quasiblock");
2422
2423
2424 /*^rawallocobj*/
2425 /*rawallocobj*/
2426 {
2427 melt_ptr_t newobj = 0;
2428 melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SEXPR_MACROSTRING*/ meltfrout->tabval[3])), (3), "CLASS_SEXPR_MACROSTRING");
2429 /*_.INST__V18*/
2430 meltfptr[17] =
2431 newobj;
2432 };
2433 ;
2434 /*^putslot*/
2435 /*putslot*/
2436 melt_assertmsg("checkobj putslot _ @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ meltfptr[17])) == MELTOBMAG_OBJECT);
2437 melt_putfield_object((/*_.INST__V18*/ meltfptr[17]), (1), (/*_.LOC__V15*/ meltfptr[14]), "LOCA_LOCATION");
2438 ;
2439 /*^putslot*/
2440 /*putslot*/
2441 melt_assertmsg("checkobj putslot _ @SEXP_CONTENTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ meltfptr[17])) == MELTOBMAG_OBJECT);
2442 melt_putfield_object((/*_.INST__V18*/ meltfptr[17]), (2), (/*_.CLIST__V13*/ meltfptr[4]), "SEXP_CONTENTS");
2443 ;
2444 /*^touchobj*/
2445
2446 melt_dbgtrace_written_object (/*_.INST__V18*/ meltfptr[17], "newly made instance");
2447 ;
2448 /*_.INST___V17*/
2449 meltfptr[16] = /*_.INST__V18*/ meltfptr[17];;
2450 /*^compute*/
2451 /*_.NEWSEXPR__V16*/
2452 meltfptr[15] = /*_.INST___V17*/ meltfptr[16];;
2453 /*epilog*/
2454
2455 MELT_LOCATION("warmelt-moremacro.melt:469:/ clear");
2456 /*clear*/ /*_.INST___V17*/
2457 meltfptr[16] = 0 ;
2458 }
2459 ;
2460 }
2461 else /*^cond.else*/
2462 {
2463
2464 /*^block*/
2465 /*anyblock*/
2466 {
2467
2468
2469 MELT_CHECK_SIGNAL();
2470 ;
2471 MELT_LOCATION("warmelt-moremacro.melt:473:/ quasiblock");
2472
2473
2474 /*^rawallocobj*/
2475 /*rawallocobj*/
2476 {
2477 melt_ptr_t newobj = 0;
2478 melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])), (3), "CLASS_SEXPR");
2479 /*_.INST__V20*/
2480 meltfptr[19] =
2481 newobj;
2482 };
2483 ;
2484 /*^putslot*/
2485 /*putslot*/
2486 melt_assertmsg("checkobj putslot _ @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ meltfptr[19])) == MELTOBMAG_OBJECT);
2487 melt_putfield_object((/*_.INST__V20*/ meltfptr[19]), (1), (/*_.LOC__V15*/ meltfptr[14]), "LOCA_LOCATION");
2488 ;
2489 /*^putslot*/
2490 /*putslot*/
2491 melt_assertmsg("checkobj putslot _ @SEXP_CONTENTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ meltfptr[19])) == MELTOBMAG_OBJECT);
2492 melt_putfield_object((/*_.INST__V20*/ meltfptr[19]), (2), (/*_.CLIST__V13*/ meltfptr[4]), "SEXP_CONTENTS");
2493 ;
2494 /*^touchobj*/
2495
2496 melt_dbgtrace_written_object (/*_.INST__V20*/ meltfptr[19], "newly made instance");
2497 ;
2498 /*_.INST___V19*/
2499 meltfptr[16] = /*_.INST__V20*/ meltfptr[19];;
2500 /*^compute*/
2501 /*_.NEWSEXPR__V16*/
2502 meltfptr[15] = /*_.INST___V19*/ meltfptr[16];;
2503 /*epilog*/
2504
2505 MELT_LOCATION("warmelt-moremacro.melt:469:/ clear");
2506 /*clear*/ /*_.INST___V19*/
2507 meltfptr[16] = 0 ;
2508 }
2509 ;
2510 }
2511 ;
2512 /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
2513 {
2514 /* start foreach_pair_component_in_list meltcit1__EACHLIST */
2515 for (/*_.CURPAIRINLISTSYMB__V21*/ meltfptr[16] = melt_list_first( (melt_ptr_t)/*_.CONT__V14*/ meltfptr[13]);
2516 melt_magic_discr((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V21*/ meltfptr[16]) == MELTOBMAG_PAIR;
2517 /*_.CURPAIRINLISTSYMB__V21*/ meltfptr[16] = melt_pair_tail((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V21*/ meltfptr[16]))
2518 {
2519 /*_.CURCONT__V22*/ meltfptr[21] = melt_pair_head((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V21*/ meltfptr[16]);
2520
2521
2522
2523 #if MELT_HAVE_DEBUG
2524 MELT_LOCATION("warmelt-moremacro.melt:480:/ cppif.then");
2525 /*^block*/
2526 /*anyblock*/
2527 {
2528
2529
2530 {
2531 /*^locexp*/
2532 /*melt_increment_dbgcounter*/
2533 #if MELT_HAVE_DEBUG
2534 melt_dbgcounter++;
2535 #endif
2536 ;
2537 }
2538 ;
2539
2540 MELT_CHECK_SIGNAL();
2541 ;
2542 /*_#MELT_NEED_DBG__L7*/
2543 meltfnum[0] =
2544 /*MELT_NEED_DBG*/
2545 #if MELT_HAVE_DEBUG
2546 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
2547 #else
2548 0 /* no melt_need_dbg */
2549 #endif /*MELT_HAVE_DEBUG*/
2550 ;;
2551 MELT_LOCATION("warmelt-moremacro.melt:480:/ cond");
2552 /*cond*/
2553 if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/
2554 {
2555 /*^cond.then*/
2556 /*^block*/
2557 /*anyblock*/
2558 {
2559
2560 /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] =
2561 /* for melt_callcount */
2562 #if MELT_HAVE_DEBUG && defined (meltcallcount)
2563 meltcallcount /* melt_callcount debugging */
2564 #else
2565 0L /* melt_callcount without debug */
2566 #endif /* MELT_HAVE_DEBUG melt_callcount */
2567 ;;
2568
2569 MELT_CHECK_SIGNAL();
2570 ;
2571 MELT_LOCATION("warmelt-moremacro.melt:480:/ apply");
2572 /*apply*/
2573 {
2574 union meltparam_un argtab[6];
2575 memset(&argtab, 0, sizeof(argtab));
2576 /*^apply.arg*/
2577 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[7];
2578 /*^apply.arg*/
2579 argtab[1].meltbp_cstring = "warmelt-moremacro.melt";
2580 /*^apply.arg*/
2581 argtab[2].meltbp_long = 480;
2582 /*^apply.arg*/
2583 argtab[3].meltbp_cstring = "substitute_sexpr";
2584 /*^apply.arg*/
2585 argtab[4].meltbp_cstring = " curcont=";
2586 /*^apply.arg*/
2587 argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.CURCONT__V22*/ meltfptr[21];
2588 /*_.MELT_DEBUG_FUN__V24*/
2589 meltfptr[23] = 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_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
2590 }
2591 ;
2592 /*_._IF___V23*/
2593 meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];;
2594 /*epilog*/
2595
2596 MELT_LOCATION("warmelt-moremacro.melt:480:/ clear");
2597 /*clear*/ /*_#MELT_CALLCOUNT__L8*/
2598 meltfnum[7] = 0 ;
2599 /*^clear*/
2600 /*clear*/ /*_.MELT_DEBUG_FUN__V24*/
2601 meltfptr[23] = 0 ;
2602 }
2603 ;
2604 }
2605 else /*^cond.else*/
2606 {
2607
2608 /*_._IF___V23*/ meltfptr[22] = /*reallynil*/ NULL ;;
2609 }
2610 ;
2611
2612 {
2613 MELT_LOCATION("warmelt-moremacro.melt:480:/ locexp");
2614 /*void*/
2615 (void)0;
2616 }
2617 ;
2618 /*^quasiblock*/
2619
2620
2621 /*epilog*/
2622
2623 /*^clear*/
2624 /*clear*/ /*_#MELT_NEED_DBG__L7*/
2625 meltfnum[0] = 0 ;
2626 /*^clear*/
2627 /*clear*/ /*_._IF___V23*/
2628 meltfptr[22] = 0 ;
2629 }
2630
2631 #else /*MELT_HAVE_DEBUG*/
2632 /*^cppif.else*/
2633 /*^block*/
2634 /*anyblock*/
2635 {
2636
2637
2638 {
2639 /*^locexp*/
2640 /*void*/(void)0;
2641 }
2642 ;
2643 /*epilog*/
2644 }
2645
2646 #endif /*MELT_HAVE_DEBUG*/
2647 ;
2648
2649 MELT_CHECK_SIGNAL();
2650 ;
2651 /*_#IS_A__L9*/
2652 meltfnum[7] =
2653 melt_is_instance_of((melt_ptr_t)(/*_.CURCONT__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[4])));;
2654 MELT_LOCATION("warmelt-moremacro.melt:482:/ cond");
2655 /*cond*/
2656 if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/
2657 {
2658 /*^cond.then*/
2659 /*^block*/
2660 /*anyblock*/
2661 {
2662
2663
2664 {
2665 MELT_LOCATION("warmelt-moremacro.melt:483:/ locexp");
2666 meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.CURCONT__V22*/ meltfptr[21]));
2667 }
2668 ;
2669 /*epilog*/
2670 }
2671 ;
2672 }
2673 else
2674 {
2675 MELT_LOCATION("warmelt-moremacro.melt:482:/ cond.else");
2676
2677 /*^block*/
2678 /*anyblock*/
2679 {
2680
2681
2682 MELT_CHECK_SIGNAL();
2683 ;
2684 /*_#IS_A__L10*/
2685 meltfnum[0] =
2686 melt_is_instance_of((melt_ptr_t)(/*_.CURCONT__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[5])));;
2687 MELT_LOCATION("warmelt-moremacro.melt:484:/ cond");
2688 /*cond*/
2689 if (/*_#IS_A__L10*/ meltfnum[0]) /*then*/
2690 {
2691 /*^cond.then*/
2692 /*^block*/
2693 /*anyblock*/
2694 {
2695
2696 MELT_LOCATION("warmelt-moremacro.melt:485:/ quasiblock");
2697
2698
2699
2700 MELT_CHECK_SIGNAL();
2701 ;
2702 /*_#IS_CLOSURE__L11*/
2703 meltfnum[10] =
2704 (melt_magic_discr((melt_ptr_t)(/*_.SYMBREPF__V3*/ meltfptr[2])) == MELTOBMAG_CLOSURE);;
2705 MELT_LOCATION("warmelt-moremacro.melt:485:/ cond");
2706 /*cond*/
2707 if (/*_#IS_CLOSURE__L11*/ meltfnum[10]) /*then*/
2708 {
2709 /*^cond.then*/
2710 /*^block*/
2711 /*anyblock*/
2712 {
2713
2714
2715 MELT_CHECK_SIGNAL();
2716 ;
2717 MELT_LOCATION("warmelt-moremacro.melt:486:/ apply");
2718 /*apply*/
2719 {
2720 /*_.SYMBREPF__V26*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)(/*_.SYMBREPF__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.CURCONT__V22*/ meltfptr[21]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
2721 }
2722 ;
2723 /*_.REPSYMB__V25*/
2724 meltfptr[23] = /*_.SYMBREPF__V26*/ meltfptr[22];;
2725 /*epilog*/
2726
2727 MELT_LOCATION("warmelt-moremacro.melt:485:/ clear");
2728 /*clear*/ /*_.SYMBREPF__V26*/
2729 meltfptr[22] = 0 ;
2730 }
2731 ;
2732 }
2733 else /*^cond.else*/
2734 {
2735
2736 /*_.REPSYMB__V25*/ meltfptr[23] = /*_.CURCONT__V22*/ meltfptr[21];;
2737 }
2738 ;
2739
2740 MELT_CHECK_SIGNAL();
2741 ;
2742 /*^compute*/
2743 /*_#IS_MULTIPLE__L12*/
2744 meltfnum[11] =
2745 (melt_magic_discr((melt_ptr_t)(/*_.REPSYMB__V25*/ meltfptr[23])) == MELTOBMAG_MULTIPLE);;
2746 MELT_LOCATION("warmelt-moremacro.melt:490:/ cond");
2747 /*cond*/
2748 if (/*_#IS_MULTIPLE__L12*/ meltfnum[11]) /*then*/
2749 {
2750 /*^cond.then*/
2751 /*^block*/
2752 /*anyblock*/
2753 {
2754
2755 /*citerblock FOREACH_IN_MULTIPLE*/
2756 {
2757 /* start foreach_in_multiple meltcit2__EACHTUP */
2758 long meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.REPSYMB__V25*/ meltfptr[23]);
2759 for (/*_#RIX__L13*/ meltfnum[12] = 0;
2760 (/*_#RIX__L13*/ meltfnum[12] >= 0) && (/*_#RIX__L13*/ meltfnum[12] < meltcit2__EACHTUP_ln);
2761 /*_#RIX__L13*/ meltfnum[12]++)
2762 {
2763 /*_.CURREP__V27*/ meltfptr[22] = melt_multiple_nth((melt_ptr_t)(/*_.REPSYMB__V25*/ meltfptr[23]), /*_#RIX__L13*/ meltfnum[12]);
2764
2765
2766
2767
2768 {
2769 MELT_LOCATION("warmelt-moremacro.melt:494:/ locexp");
2770 meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.CURREP__V27*/ meltfptr[22]));
2771 }
2772 ;
2773 if (/*_#RIX__L13*/ meltfnum[12]<0) break;
2774 } /* end foreach_in_multiple meltcit2__EACHTUP */
2775
2776 /*citerepilog*/
2777
2778 MELT_LOCATION("warmelt-moremacro.melt:491:/ clear");
2779 /*clear*/ /*_.CURREP__V27*/
2780 meltfptr[22] = 0 ;
2781 /*^clear*/
2782 /*clear*/ /*_#RIX__L13*/
2783 meltfnum[12] = 0 ;
2784 } /*endciterblock FOREACH_IN_MULTIPLE*/
2785 ;
2786
2787 {
2788 MELT_LOCATION("warmelt-moremacro.melt:496:/ locexp");
2789 /*void*/
2790 (void)0;
2791 }
2792 ;
2793 MELT_LOCATION("warmelt-moremacro.melt:490:/ quasiblock");
2794
2795
2796 /*epilog*/
2797 }
2798 ;
2799 }
2800 else /*^cond.else*/
2801 {
2802
2803 /*^block*/
2804 /*anyblock*/
2805 {
2806
2807
2808 MELT_CHECK_SIGNAL();
2809 ;
2810 /*_#IS_LIST__L14*/
2811 meltfnum[13] =
2812 (melt_magic_discr((melt_ptr_t)(/*_.REPSYMB__V25*/ meltfptr[23])) == MELTOBMAG_LIST);;
2813 MELT_LOCATION("warmelt-moremacro.melt:498:/ cond");
2814 /*cond*/
2815 if (/*_#IS_LIST__L14*/ meltfnum[13]) /*then*/
2816 {
2817 /*^cond.then*/
2818 /*^block*/
2819 /*anyblock*/
2820 {
2821
2822 /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
2823 {
2824 /* start foreach_pair_component_in_list meltcit3__EACHLIST */
2825 for (/*_.CURPAIRINLISTSYMB__V28*/ meltfptr[27] = melt_list_first( (melt_ptr_t)/*_.REPSYMB__V25*/ meltfptr[23]);
2826 melt_magic_discr((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V28*/ meltfptr[27]) == MELTOBMAG_PAIR;
2827 /*_.CURPAIRINLISTSYMB__V28*/ meltfptr[27] = melt_pair_tail((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V28*/ meltfptr[27]))
2828 {
2829 /*_.CURLREP__V29*/ meltfptr[28] = melt_pair_head((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V28*/ meltfptr[27]);
2830
2831
2832
2833 {
2834 MELT_LOCATION("warmelt-moremacro.melt:502:/ locexp");
2835 meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.CURLREP__V29*/ meltfptr[28]));
2836 }
2837 ;
2838 } /* end foreach_pair_component_in_list meltcit3__EACHLIST */
2839 /*_.CURPAIRINLISTSYMB__V28*/ meltfptr[27] = NULL;
2840 /*_.CURLREP__V29*/
2841 meltfptr[28] = NULL;
2842
2843
2844 /*citerepilog*/
2845
2846 MELT_LOCATION("warmelt-moremacro.melt:499:/ clear");
2847 /*clear*/ /*_.CURPAIRINLISTSYMB__V28*/
2848 meltfptr[27] = 0 ;
2849 /*^clear*/
2850 /*clear*/ /*_.CURLREP__V29*/
2851 meltfptr[28] = 0 ;
2852 } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
2853 ;
2854
2855 {
2856 MELT_LOCATION("warmelt-moremacro.melt:503:/ locexp");
2857 /*void*/
2858 (void)0;
2859 }
2860 ;
2861 MELT_LOCATION("warmelt-moremacro.melt:498:/ quasiblock");
2862
2863
2864 /*epilog*/
2865 }
2866 ;
2867 }
2868 else /*^cond.else*/
2869 {
2870
2871 /*^block*/
2872 /*anyblock*/
2873 {
2874
2875
2876 {
2877 MELT_LOCATION("warmelt-moremacro.melt:505:/ locexp");
2878 meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.REPSYMB__V25*/ meltfptr[23]));
2879 }
2880 ;
2881 MELT_LOCATION("warmelt-moremacro.melt:504:/ quasiblock");
2882
2883
2884 /*epilog*/
2885 }
2886 ;
2887 }
2888 ;
2889 /*epilog*/
2890
2891 MELT_LOCATION("warmelt-moremacro.melt:490:/ clear");
2892 /*clear*/ /*_#IS_LIST__L14*/
2893 meltfnum[13] = 0 ;
2894 }
2895 ;
2896 }
2897 ;
2898
2899 MELT_LOCATION("warmelt-moremacro.melt:485:/ clear");
2900 /*clear*/ /*_#IS_CLOSURE__L11*/
2901 meltfnum[10] = 0 ;
2902 /*^clear*/
2903 /*clear*/ /*_.REPSYMB__V25*/
2904 meltfptr[23] = 0 ;
2905 /*^clear*/
2906 /*clear*/ /*_#IS_MULTIPLE__L12*/
2907 meltfnum[11] = 0 ;
2908 /*epilog*/
2909 }
2910 ;
2911 }
2912 else
2913 {
2914 MELT_LOCATION("warmelt-moremacro.melt:484:/ cond.else");
2915
2916 /*^block*/
2917 /*anyblock*/
2918 {
2919
2920
2921 MELT_CHECK_SIGNAL();
2922 ;
2923 /*_#IS_A__L15*/
2924 meltfnum[13] =
2925 melt_is_instance_of((melt_ptr_t)(/*_.CURCONT__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));;
2926 MELT_LOCATION("warmelt-moremacro.melt:507:/ cond");
2927 /*cond*/
2928 if (/*_#IS_A__L15*/ meltfnum[13]) /*then*/
2929 {
2930 /*^cond.then*/
2931 /*^block*/
2932 /*anyblock*/
2933 {
2934
2935 MELT_LOCATION("warmelt-moremacro.melt:508:/ quasiblock");
2936
2937
2938
2939 MELT_CHECK_SIGNAL();
2940 ;
2941 /*_#IS_CLOSURE__L16*/
2942 meltfnum[10] =
2943 (melt_magic_discr((melt_ptr_t)(/*_.INSIDEF__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);;
2944 MELT_LOCATION("warmelt-moremacro.melt:509:/ cond");
2945 /*cond*/
2946 if (/*_#IS_CLOSURE__L16*/ meltfnum[10]) /*then*/
2947 {
2948 /*^cond.then*/
2949 /*^block*/
2950 /*anyblock*/
2951 {
2952
2953
2954 MELT_CHECK_SIGNAL();
2955 ;
2956 /*^apply*/
2957 /*apply*/
2958 {
2959 /*_.INSIDEF__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)(/*_.INSIDEF__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.CURCONT__V22*/ meltfptr[21]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
2960 }
2961 ;
2962 /*_.INSIDEV__V30*/
2963 meltfptr[23] = /*_.INSIDEF__V31*/ meltfptr[30];;
2964 /*epilog*/
2965
2966 MELT_LOCATION("warmelt-moremacro.melt:509:/ clear");
2967 /*clear*/ /*_.INSIDEF__V31*/
2968 meltfptr[30] = 0 ;
2969 }
2970 ;
2971 }
2972 else /*^cond.else*/
2973 {
2974
2975 /*_.INSIDEV__V30*/ meltfptr[23] = /*reallynil*/ NULL ;;
2976 }
2977 ;
2978
2979 MELT_CHECK_SIGNAL();
2980 ;
2981 MELT_LOCATION("warmelt-moremacro.melt:510:/ cond");
2982 /*cond*/
2983 if (/*_.INSIDEV__V30*/ meltfptr[23]) /*then*/
2984 {
2985 /*^cond.then*/
2986 /*^block*/
2987 /*anyblock*/
2988 {
2989
2990
2991 MELT_CHECK_SIGNAL();
2992 ;
2993 /*^apply*/
2994 /*apply*/
2995 {
2996 union meltparam_un argtab[2];
2997 memset(&argtab, 0, sizeof(argtab));
2998 /*^apply.arg*/
2999 argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBREPF__V3*/ meltfptr[2];
3000 /*^apply.arg*/
3001 argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.INSIDEF__V4*/ meltfptr[3];
3002 /*_.SUBSTITUTE_SEXPR__V33*/
3003 meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!SUBSTITUTE_SEXPR*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.CURCONT__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3004 }
3005 ;
3006 /*_.REPLCONT__V32*/
3007 meltfptr[30] = /*_.SUBSTITUTE_SEXPR__V33*/ meltfptr[32];;
3008 /*epilog*/
3009
3010 MELT_LOCATION("warmelt-moremacro.melt:510:/ clear");
3011 /*clear*/ /*_.SUBSTITUTE_SEXPR__V33*/
3012 meltfptr[32] = 0 ;
3013 }
3014 ;
3015 }
3016 else /*^cond.else*/
3017 {
3018
3019 /*_.REPLCONT__V32*/ meltfptr[30] = /*_.CURCONT__V22*/ meltfptr[21];;
3020 }
3021 ;
3022
3023 MELT_CHECK_SIGNAL();
3024 ;
3025 /*^compute*/
3026 /*_#IS_MULTIPLE__L17*/
3027 meltfnum[11] =
3028 (melt_magic_discr((melt_ptr_t)(/*_.REPLCONT__V32*/ meltfptr[30])) == MELTOBMAG_MULTIPLE);;
3029 MELT_LOCATION("warmelt-moremacro.melt:513:/ cond");
3030 /*cond*/
3031 if (/*_#IS_MULTIPLE__L17*/ meltfnum[11]) /*then*/
3032 {
3033 /*^cond.then*/
3034 /*^block*/
3035 /*anyblock*/
3036 {
3037
3038 /*citerblock FOREACH_IN_MULTIPLE*/
3039 {
3040 /* start foreach_in_multiple meltcit4__EACHTUP */
3041 long meltcit4__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.INSIDEV__V30*/ meltfptr[23]);
3042 for (/*_#INSIX__L18*/ meltfnum[17] = 0;
3043 (/*_#INSIX__L18*/ meltfnum[17] >= 0) && (/*_#INSIX__L18*/ meltfnum[17] < meltcit4__EACHTUP_ln);
3044 /*_#INSIX__L18*/ meltfnum[17]++)
3045 {
3046 /*_.CURINS__V34*/ meltfptr[32] = melt_multiple_nth((melt_ptr_t)(/*_.INSIDEV__V30*/ meltfptr[23]), /*_#INSIX__L18*/ meltfnum[17]);
3047
3048
3049
3050
3051 {
3052 MELT_LOCATION("warmelt-moremacro.melt:517:/ locexp");
3053 meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.CURINS__V34*/ meltfptr[32]));
3054 }
3055 ;
3056 if (/*_#INSIX__L18*/ meltfnum[17]<0) break;
3057 } /* end foreach_in_multiple meltcit4__EACHTUP */
3058
3059 /*citerepilog*/
3060
3061 MELT_LOCATION("warmelt-moremacro.melt:514:/ clear");
3062 /*clear*/ /*_.CURINS__V34*/
3063 meltfptr[32] = 0 ;
3064 /*^clear*/
3065 /*clear*/ /*_#INSIX__L18*/
3066 meltfnum[17] = 0 ;
3067 } /*endciterblock FOREACH_IN_MULTIPLE*/
3068 ;
3069 /*epilog*/
3070 }
3071 ;
3072 }
3073 else
3074 {
3075 MELT_LOCATION("warmelt-moremacro.melt:513:/ cond.else");
3076
3077 /*^block*/
3078 /*anyblock*/
3079 {
3080
3081
3082 MELT_CHECK_SIGNAL();
3083 ;
3084 /*_#IS_LIST__L19*/
3085 meltfnum[18] =
3086 (melt_magic_discr((melt_ptr_t)(/*_.REPLCONT__V32*/ meltfptr[30])) == MELTOBMAG_LIST);;
3087 MELT_LOCATION("warmelt-moremacro.melt:518:/ cond");
3088 /*cond*/
3089 if (/*_#IS_LIST__L19*/ meltfnum[18]) /*then*/
3090 {
3091 /*^cond.then*/
3092 /*^block*/
3093 /*anyblock*/
3094 {
3095
3096 /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/
3097 {
3098 /* start foreach_pair_component_in_list meltcit5__EACHLIST */
3099 for (/*_.CURPAIRINLISTSYMB__V35*/ meltfptr[34] = melt_list_first( (melt_ptr_t)/*_.REPLCONT__V32*/ meltfptr[30]);
3100 melt_magic_discr((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V35*/ meltfptr[34]) == MELTOBMAG_PAIR;
3101 /*_.CURPAIRINLISTSYMB__V35*/ meltfptr[34] = melt_pair_tail((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V35*/ meltfptr[34]))
3102 {
3103 /*_.SUBCONT__V36*/ meltfptr[35] = melt_pair_head((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V35*/ meltfptr[34]);
3104
3105
3106
3107 {
3108 MELT_LOCATION("warmelt-moremacro.melt:522:/ locexp");
3109 meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.SUBCONT__V36*/ meltfptr[35]));
3110 }
3111 ;
3112 } /* end foreach_pair_component_in_list meltcit5__EACHLIST */
3113 /*_.CURPAIRINLISTSYMB__V35*/ meltfptr[34] = NULL;
3114 /*_.SUBCONT__V36*/
3115 meltfptr[35] = NULL;
3116
3117
3118 /*citerepilog*/
3119
3120 MELT_LOCATION("warmelt-moremacro.melt:519:/ clear");
3121 /*clear*/ /*_.CURPAIRINLISTSYMB__V35*/
3122 meltfptr[34] = 0 ;
3123 /*^clear*/
3124 /*clear*/ /*_.SUBCONT__V36*/
3125 meltfptr[35] = 0 ;
3126 } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
3127 ;
3128 /*epilog*/
3129 }
3130 ;
3131 }
3132 else
3133 {
3134 MELT_LOCATION("warmelt-moremacro.melt:518:/ cond.else");
3135
3136 /*^block*/
3137 /*anyblock*/
3138 {
3139
3140
3141 {
3142 MELT_LOCATION("warmelt-moremacro.melt:524:/ locexp");
3143 meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.REPLCONT__V32*/ meltfptr[30]));
3144 }
3145 ;
3146 MELT_LOCATION("warmelt-moremacro.melt:523:/ quasiblock");
3147
3148
3149 /*epilog*/
3150 }
3151 ;
3152 }
3153 ;
3154 /*epilog*/
3155
3156 MELT_LOCATION("warmelt-moremacro.melt:513:/ clear");
3157 /*clear*/ /*_#IS_LIST__L19*/
3158 meltfnum[18] = 0 ;
3159 }
3160 ;
3161 }
3162 ;
3163
3164 MELT_LOCATION("warmelt-moremacro.melt:508:/ clear");
3165 /*clear*/ /*_#IS_CLOSURE__L16*/
3166 meltfnum[10] = 0 ;
3167 /*^clear*/
3168 /*clear*/ /*_.INSIDEV__V30*/
3169 meltfptr[23] = 0 ;
3170 /*^clear*/
3171 /*clear*/ /*_.REPLCONT__V32*/
3172 meltfptr[30] = 0 ;
3173 /*^clear*/
3174 /*clear*/ /*_#IS_MULTIPLE__L17*/
3175 meltfnum[11] = 0 ;
3176 /*epilog*/
3177 }
3178 ;
3179 }
3180 else
3181 {
3182 MELT_LOCATION("warmelt-moremacro.melt:507:/ cond.else");
3183
3184 /*^block*/
3185 /*anyblock*/
3186 {
3187
3188
3189 {
3190 MELT_LOCATION("warmelt-moremacro.melt:528:/ locexp");
3191 meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.CURCONT__V22*/ meltfptr[21]));
3192 }
3193 ;
3194 MELT_LOCATION("warmelt-moremacro.melt:527:/ quasiblock");
3195
3196
3197 /*epilog*/
3198 }
3199 ;
3200 }
3201 ;
3202 /*epilog*/
3203
3204 MELT_LOCATION("warmelt-moremacro.melt:484:/ clear");
3205 /*clear*/ /*_#IS_A__L15*/
3206 meltfnum[13] = 0 ;
3207 }
3208 ;
3209 }
3210 ;
3211 /*epilog*/
3212
3213 MELT_LOCATION("warmelt-moremacro.melt:482:/ clear");
3214 /*clear*/ /*_#IS_A__L10*/
3215 meltfnum[0] = 0 ;
3216 }
3217 ;
3218 }
3219 ;
3220 } /* end foreach_pair_component_in_list meltcit1__EACHLIST */
3221 /*_.CURPAIRINLISTSYMB__V21*/ meltfptr[16] = NULL;
3222 /*_.CURCONT__V22*/
3223 meltfptr[21] = NULL;
3224
3225
3226 /*citerepilog*/
3227
3228 MELT_LOCATION("warmelt-moremacro.melt:477:/ clear");
3229 /*clear*/ /*_.CURPAIRINLISTSYMB__V21*/
3230 meltfptr[16] = 0 ;
3231 /*^clear*/
3232 /*clear*/ /*_.CURCONT__V22*/
3233 meltfptr[21] = 0 ;
3234 /*^clear*/
3235 /*clear*/ /*_#IS_A__L9*/
3236 meltfnum[7] = 0 ;
3237 } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/
3238 ;
3239
3240 #if MELT_HAVE_DEBUG
3241 MELT_LOCATION("warmelt-moremacro.melt:533:/ cppif.then");
3242 /*^block*/
3243 /*anyblock*/
3244 {
3245
3246
3247 {
3248 /*^locexp*/
3249 /*melt_increment_dbgcounter*/
3250 #if MELT_HAVE_DEBUG
3251 melt_dbgcounter++;
3252 #endif
3253 ;
3254 }
3255 ;
3256
3257 MELT_CHECK_SIGNAL();
3258 ;
3259 /*_#MELT_NEED_DBG__L20*/
3260 meltfnum[18] =
3261 /*MELT_NEED_DBG*/
3262 #if MELT_HAVE_DEBUG
3263 (/*melt_need_dbg*/ melt_need_debug ((int) 0))
3264 #else
3265 0 /* no melt_need_dbg */
3266 #endif /*MELT_HAVE_DEBUG*/
3267 ;;
3268 MELT_LOCATION("warmelt-moremacro.melt:533:/ cond");
3269 /*cond*/
3270 if (/*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then*/
3271 {
3272 /*^cond.then*/
3273 /*^block*/
3274 /*anyblock*/
3275 {
3276
3277 /*_#MELT_CALLCOUNT__L21*/ meltfnum[10] =
3278 /* for melt_callcount */
3279 #if MELT_HAVE_DEBUG && defined (meltcallcount)
3280 meltcallcount /* melt_callcount debugging */
3281 #else
3282 0L /* melt_callcount without debug */
3283 #endif /* MELT_HAVE_DEBUG melt_callcount */
3284 ;;
3285
3286 MELT_CHECK_SIGNAL();
3287 ;
3288 MELT_LOCATION("warmelt-moremacro.melt:533:/ apply");
3289 /*apply*/
3290 {
3291 union meltparam_un argtab[6];
3292 memset(&argtab, 0, sizeof(argtab));
3293 /*^apply.arg*/
3294 argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L21*/ meltfnum[10];
3295 /*^apply.arg*/
3296 argtab[1].meltbp_cstring = "warmelt-moremacro.melt";
3297 /*^apply.arg*/
3298 argtab[2].meltbp_long = 533;
3299 /*^apply.arg*/
3300 argtab[3].meltbp_cstring = "substitute_sexpr";
3301 /*^apply.arg*/
3302 argtab[4].meltbp_cstring = " result newsexpr=";
3303 /*^apply.arg*/
3304 argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.NEWSEXPR__V16*/ meltfptr[15];
3305 /*_.MELT_DEBUG_FUN__V38*/
3306 meltfptr[30] = 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_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
3307 }
3308 ;
3309 /*_._IF___V37*/
3310 meltfptr[23] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[30];;
3311 /*epilog*/
3312
3313 MELT_LOCATION("warmelt-moremacro.melt:533:/ clear");
3314 /*clear*/ /*_#MELT_CALLCOUNT__L21*/
3315 meltfnum[10] = 0 ;
3316 /*^clear*/
3317 /*clear*/ /*_.MELT_DEBUG_FUN__V38*/
3318 meltfptr[30] = 0 ;
3319 }
3320 ;
3321 }
3322 else /*^cond.else*/
3323 {
3324
3325 /*_._IF___V37*/ meltfptr[23] = /*reallynil*/ NULL ;;
3326 }
3327 ;
3328
3329 {
3330 MELT_LOCATION("warmelt-moremacro.melt:533:/ locexp");
3331 /*void*/
3332 (void)0;
3333 }
3334 ;
3335 /*^quasiblock*/
3336
3337
3338 /*epilog*/
3339
3340 /*^clear*/
3341 /*clear*/ /*_#MELT_NEED_DBG__L20*/
3342 meltfnum[18] = 0 ;
3343 /*^clear*/
3344 /*clear*/ /*_._IF___V37*/
3345 meltfptr[23] = 0 ;
3346 }
3347
3348 #else /*MELT_HAVE_DEBUG*/
3349 /*^cppif.else*/
3350 /*^block*/
3351 /*anyblock*/
3352 {
3353
3354
3355 {
3356 /*^locexp*/
3357 /*void*/(void)0;
3358 }
3359 ;
3360 /*epilog*/
3361 }
3362
3363 #endif /*MELT_HAVE_DEBUG*/
3364 ;
3365
3366 MELT_CHECK_SIGNAL();
3367 ;
3368 MELT_LOCATION("warmelt-moremacro.melt:534:/ quasiblock");
3369
3370
3371 /*_._RETVAL___V1*/
3372 meltfptr[0] = /*_.NEWSEXPR__V16*/ meltfptr[15];;
3373
3374 {
3375 MELT_LOCATION("warmelt-moremacro.melt:534:/ locexp");
3376 /*ochecknores compilobj_nrep_return*/
3377 #if MELT_HAVE_DEBUG
3378 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
3379 melt_warn_for_no_expected_secondary_results();
3380 /* we warned when secondary results are expected but not returned. */
3381 #endif /*MELT_HAVE_DEBUG*/
3382 ;
3383 }
3384 ;
3385 /*^finalreturn*/
3386 ;
3387 /*finalret*/
3388 goto meltlabend_rout ;
3389 /*_.LET___V12*/
3390 meltfptr[8] = /*_.RETURN___V39*/ meltfptr[30];;
3391
3392 MELT_LOCATION("warmelt-moremacro.melt:466:/ clear");
3393 /*clear*/ /*_.CLIST__V13*/
3394 meltfptr[4] = 0 ;
3395 /*^clear*/
3396 /*clear*/ /*_.CONT__V14*/
3397 meltfptr[13] = 0 ;
3398 /*^clear*/
3399 /*clear*/ /*_.LOC__V15*/
3400 meltfptr[14] = 0 ;
3401 /*^clear*/
3402 /*clear*/ /*_#IS_A__L6*/
3403 meltfnum[4] = 0 ;
3404 /*^clear*/
3405 /*clear*/ /*_.NEWSEXPR__V16*/
3406 meltfptr[15] = 0 ;
3407 /*^clear*/
3408 /*clear*/ /*_.RETURN___V39*/
3409 meltfptr[30] = 0 ;
3410
3411 MELT_CHECK_SIGNAL();
3412 ;
3413 MELT_LOCATION("warmelt-moremacro.melt:453:/ quasiblock");
3414
3415
3416 /*_._RETVAL___V1*/
3417 meltfptr[0] = /*_.LET___V12*/ meltfptr[8];;
3418
3419 {
3420 MELT_LOCATION("warmelt-moremacro.melt:453:/ locexp");
3421 /*ochecknores compilobj_nrep_return*/
3422 #if MELT_HAVE_DEBUG
3423 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_)
3424 melt_warn_for_no_expected_secondary_results();
3425 /* we warned when secondary results are expected but not returned. */
3426 #endif /*MELT_HAVE_DEBUG*/
3427 ;
3428 }
3429 ;
3430 /*^finalreturn*/
3431 ;
3432 /*finalret*/
3433 goto meltlabend_rout ;
3434 /*epilog*/
3435
3436 /*^clear*/
3437 /*clear*/ /*_#IS_NOT_A__L3*/
3438 meltfnum[1] = 0 ;
3439 /*^clear*/
3440 /*clear*/ /*_._IF___V7*/
3441 meltfptr[5] = 0 ;
3442 /*^clear*/
3443 /*clear*/ /*_.LET___V12*/
3444 meltfptr[8] = 0 ;
3445 }
3446
3447 ;
3448 goto meltlabend_rout;
3449 meltlabend_rout:
3450 melt_trace_end("SUBSTITUTE_SEXPR", meltcallcount);
3451 melt_blocklevel_signals = current_blocklevel_signals_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR_melt;
3452 return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]);
3453 #undef meltcallcount
3454 #undef meltfram__
3455 #undef MELTFRAM_NBVARNUM
3456 #undef MELTFRAM_NBVARPTR
3457 } /*end meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR*/
3458
3459
3460
3461
3462 /**** end of warmelt-moremacro+01.cc ****/
Mirror of the offical gcc git repository hosted at gcc.gnu.org