/* GCC MELT GENERATED C++ FILE warmelt-moremacro+01.cc - DO NOT EDIT - see http://gcc-melt.org/ */ /* secondary MELT generated C++ file of rank #1 */ #include "melt-run.h" /* used hash from melt-run.h when compiling this file: */ MELT_EXTERN const char meltrun_used_md5_melt_f1[] = MELT_RUN_HASHMD5 /* from melt-run.h */; /**** warmelt-moremacro+01.cc declarations ****/ /**** MELT GENERATED DECLARATIONS for warmelt-moremacro ** DO NOT EDIT ; see gcc-melt.org ****/ /****++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *** Copyright 2008 - 2014 Free Software Foundation, Inc. Contributed by Basile Starynkevitch This file is part of GCC. GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GCC; see the file COPYING3. If not see . *** ----------------------------------------------------------------****/ /** ordinary MELT module meltbuild-sources/warmelt-moremacro**/ #define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usualmodule*/ class Melt_InitialClassyFrame_WARMELTmiMOREMACRO_h349659287; // forward declaration fromline 6712 typedef Melt_InitialClassyFrame_WARMELTmiMOREMACRO_h349659287 Melt_InitialFrame; /**** no MELT module variables ****/ /*** 6 MELT called hook declarations ***/ /*declare MELT called hook #0 HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER **/ MELT_EXTERN melt_ptr_t melthook_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_PREVENV, const char* meltinp1_MODULNAME); /*declare MELT called hook #1 HOOK_MACRO_EXPORTER **/ 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); /*declare MELT called hook #2 HOOK_MELT_MAKE_LOCATION **/ MELT_EXTERN melt_ptr_t melthook_HOOK_MELT_MAKE_LOCATION (melt_ptr_t melthookdatap, const char* meltinp0_FILENAME, long meltinp1_LINENO); /*declare MELT called hook #3 HOOK_PATMACRO_EXPORTER **/ 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); /*declare MELT called hook #4 HOOK_SYMBOL_IMPORTER **/ 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); /*declare MELT called hook #5 HOOK_VALUE_EXPORTER **/ 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); /*** end of 6 MELT called hook declarations ***/ /*** no extra MELT c-headers ***/ 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_); 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_); 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_); 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_); 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_); 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_); 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_); 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_); 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_); 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_); 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_); MELT_EXTERN MELT_LOW_OPTIMIZATION void* melt_start_this_module (void*); /*mandatory start of module*/ MELT_EXTERN const char melt_module_is_gpl_compatible[]; /*declare opaque initial frame: */ typedef Melt_InitialClassyFrame_WARMELTmiMOREMACRO_h349659287 /*opaqueinitialclassy*/ meltinitial_frame_t; /* define different names when debugging or not */ #if MELT_HAVE_DEBUG > 0 MELT_EXTERN const char meltmodule_WARMELTmiMOREMACRO__melt_have_debug_enabled[]; #define melt_have_debug_string meltmodule_WARMELTmiMOREMACRO__melt_have_debug_enabled #else /*!MELT_HAVE_DEBUG*/ MELT_EXTERN const char meltmodule_WARMELTmiMOREMACRO__melt_have_debug_disabled[]; #define melt_have_debug_string meltmodule_WARMELTmiMOREMACRO__melt_have_debug_disabled #endif /*!MELT_HAVE_DEBUG*/ void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMOREMACRO__initialmeltchunk_0 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMOREMACRO__initialmeltchunk_1 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMOREMACRO__initialmeltchunk_2 (meltinitial_frame_t*, char*); //declare /**** warmelt-moremacro+01.cc implementations ****/ 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_) { long current_blocklevel_signals_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER fromline 1752 */ /** start of frame for meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER// fromline 1568 : public Melt_CallFrameWithValues<14> { public: /* fromline 1572*/ long mcfr_varnum[6]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<14> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER), clos) {}; MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER() //the constructor fromline 1642 : Melt_CallFrameWithValues<14> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER)) {}; MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER /** end of frame for meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER fromline 1697**/ /* end of frame for routine meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER fromline 1756 */ /* classy proc frame meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER */ MeltFrame_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("ANTIQUOTER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-moremacro.melt:391:/ getarg"); /*_.AEXP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.ARGLIST__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ARGLIST__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.LOC__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.LOC__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.ENV__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.MEXPANDER__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V6*/ meltfptr[5])) != NULL); /*getarg#5*/ /*^getarg*/ if (meltxargdescr_[4] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.MODCTX__V7*/ meltfptr[6] = (meltxargtab_[4].meltbp_aptr) ? (*(meltxargtab_[4].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V7*/ meltfptr[6])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-moremacro.melt:392:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-moremacro.melt:392:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:392:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-moremacro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 392; /*^apply.arg*/ argtab[3].meltbp_cstring = "antiquoter aexp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.AEXP__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " arglist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.ARGLIST__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V9*/ 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); } ; /*_._IF___V8*/ meltfptr[7] = /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:392:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V8*/ meltfptr[7] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-moremacro.melt:392:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V8*/ meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-moremacro.melt:393:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "antiquoter"), (15)); #endif ; } ; MELT_LOCATION("warmelt-moremacro.melt:394:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ meltfptr[4]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V6*/ meltfptr[5]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V7*/ meltfptr[6]; /*_.MEXP__V10*/ 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); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-moremacro.melt:396:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-moremacro.melt:396:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:396:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-moremacro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 396; /*^apply.arg*/ argtab[3].meltbp_cstring = "antiquoter mexp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MEXP__V10*/ meltfptr[8]; /*_.MELT_DEBUG_FUN__V12*/ 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); } ; /*_._IF___V11*/ meltfptr[7] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:396:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V11*/ meltfptr[7] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-moremacro.melt:396:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V11*/ meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-moremacro.melt:397:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.ARGLIST__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.MEXP__V10*/ meltfptr[8])); } ; MELT_LOCATION("warmelt-moremacro.melt:394:/ clear"); /*clear*/ /*_.MEXP__V10*/ meltfptr[8] = 0 ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-moremacro.melt:399:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-moremacro.melt:399:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:399:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-moremacro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 399; /*^apply.arg*/ argtab[3].meltbp_cstring = "antiquoter ends with arglist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ARGLIST__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V14*/ 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); } ; /*_._IF___V13*/ meltfptr[11] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:399:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ meltfptr[7] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V13*/ meltfptr[11] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-moremacro.melt:399:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V13*/ meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("ANTIQUOTER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_8_WARMELTmiMOREMACRO_ANTIQUOTER*/ 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_) { long current_blocklevel_signals_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE fromline 1752 */ /** start of frame for meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE// fromline 1568 : public Melt_CallFrameWithValues<27> { public: /* fromline 1572*/ long mcfr_varnum[9]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<27> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE), clos) {}; MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE() //the constructor fromline 1642 : Melt_CallFrameWithValues<27> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<27> (fil,lin, sizeof(MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE)) {}; MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<27> (fil,lin, sizeof(MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE /** end of frame for meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE fromline 1697**/ /* end of frame for routine meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE fromline 1756 */ /* classy proc frame meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE */ MeltFrame_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("MEXPAND_BACKQUOTE", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-moremacro.melt:405:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-moremacro.melt:406:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-moremacro.melt:406:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:406:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-moremacro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 406; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_backquote sexpr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V7*/ 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); } ; /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:406:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V6*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-moremacro.melt:406:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-moremacro.melt:407:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.CONT__V9*/ meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-moremacro.melt:408:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOC__V10*/ meltfptr[9] = slot; }; ; /*_.LIST_FIRST__V11*/ meltfptr[10] = (melt_list_first((melt_ptr_t)(/*_.CONT__V9*/ meltfptr[5])));; /*^compute*/ /*_.CURPAIR__V12*/ meltfptr[11] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V11*/ meltfptr[10])));; /*^compute*/ /*_.BACKQUOTED__V13*/ meltfptr[12] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V12*/ meltfptr[11])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_.PAIR_TAIL__V14*/ meltfptr[13] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V12*/ meltfptr[11])));; MELT_LOCATION("warmelt-moremacro.melt:412:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V14*/ meltfptr[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-moremacro.melt:413:/ locexp"); /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V10*/ meltfptr[9]), ( "BACKQUOTE should have only one argument"), (melt_ptr_t)0); } ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.BACKQUOTED__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-moremacro.melt:414:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-moremacro.melt:415:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-moremacro.melt:415:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:415:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L5*/ meltfnum[4]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-moremacro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 415; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_backquote backquoted sexpr "; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BACKQUOTED__V13*/ meltfptr[12]; /*_.MELT_DEBUG_FUN__V17*/ 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); } ; /*_._IF___V16*/ meltfptr[15] = /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:415:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-moremacro.melt:415:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V16*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-moremacro.melt:416:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!ANTIQUOTER*/ meltfrout->tabval[3]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; /*_.EXPBK__V19*/ 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); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-moremacro.melt:418:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L6*/ meltfnum[4] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-moremacro.melt:418:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L7*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:418:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-moremacro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 418; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_backquote result expbk="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.EXPBK__V19*/ meltfptr[15]; /*_.MELT_DEBUG_FUN__V21*/ 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); } ; /*_._IF___V20*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:418:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V20*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-moremacro.melt:418:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V20*/ meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:419:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.EXPBK__V19*/ meltfptr[15];; { MELT_LOCATION("warmelt-moremacro.melt:419:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V18*/ meltfptr[16] = /*_.RETURN___V22*/ meltfptr[20];; MELT_LOCATION("warmelt-moremacro.melt:416:/ clear"); /*clear*/ /*_.EXPBK__V19*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V22*/ meltfptr[20] = 0 ; MELT_LOCATION("warmelt-moremacro.melt:414:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[19] = /*_.LET___V18*/ meltfptr[16];; /*^compute*/ /*_._IFELSE___V15*/ meltfptr[14] = /*_.PROGN___V23*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:414:/ clear"); /*clear*/ /*_.LET___V18*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V23*/ meltfptr[19] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-moremacro.melt:422:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L8*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-moremacro.melt:422:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L9*/ meltfnum[4] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:422:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L9*/ meltfnum[4]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-moremacro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 422; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_backquote backquoted return verbatim "; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BACKQUOTED__V13*/ meltfptr[12]; /*_.MELT_DEBUG_FUN__V25*/ 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); } ; /*_._IF___V24*/ meltfptr[15] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:422:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[20] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V24*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-moremacro.melt:422:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V24*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:423:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.BACKQUOTED__V13*/ meltfptr[12];; { MELT_LOCATION("warmelt-moremacro.melt:423:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-moremacro.melt:421:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[19] = /*_.RETURN___V26*/ meltfptr[16];; /*^compute*/ /*_._IFELSE___V15*/ meltfptr[14] = /*_.PROGN___V27*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:414:/ clear"); /*clear*/ /*_.RETURN___V26*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V27*/ meltfptr[19] = 0 ; } ; } ; /*_.LET___V8*/ meltfptr[6] = /*_._IFELSE___V15*/ meltfptr[14];; MELT_LOCATION("warmelt-moremacro.melt:407:/ clear"); /*clear*/ /*_.CONT__V9*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_FIRST__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.CURPAIR__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.BACKQUOTED__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_TAIL__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V15*/ meltfptr[14] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:405:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; { MELT_LOCATION("warmelt-moremacro.melt:405:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.LET___V8*/ meltfptr[6] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MEXPAND_BACKQUOTE", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_9_WARMELTmiMOREMACRO_MEXPAND_BACKQUOTE*/ 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_) { long current_blocklevel_signals_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA fromline 1752 */ /** start of frame for meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA// fromline 1568 : public Melt_CallFrameWithValues<11> { public: /* fromline 1572*/ long mcfr_varnum[2]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<11> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA), clos) {}; MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA() //the constructor fromline 1642 : Melt_CallFrameWithValues<11> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA)) {}; MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA /** end of frame for meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA fromline 1697**/ /* end of frame for routine meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA fromline 1756 */ /* classy proc frame meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA */ MeltFrame_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("MEXPAND_COMMA", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-moremacro.melt:435:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-moremacro.melt:436:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-moremacro.melt:436:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:436:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-moremacro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 436; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_comma sexpr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V7*/ 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); } ; /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:436:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V6*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-moremacro.melt:436:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-moremacro.melt:437:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.CONT__V8*/ meltfptr[6] = slot; }; ; MELT_LOCATION("warmelt-moremacro.melt:438:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOC__V9*/ meltfptr[5] = slot; }; ; /*_.LIST_FIRST__V10*/ meltfptr[9] = (melt_list_first((melt_ptr_t)(/*_.CONT__V8*/ meltfptr[6])));; /*^compute*/ /*_.CURPAIR__V11*/ meltfptr[10] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V10*/ meltfptr[9])));; { MELT_LOCATION("warmelt-moremacro.melt:441:/ locexp"); /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V9*/ meltfptr[5]), ( "COMMA outside of BACKQUOTE-d expression"), (melt_ptr_t)0); } ; MELT_LOCATION("warmelt-moremacro.melt:437:/ clear"); /*clear*/ /*_.CONT__V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V9*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_FIRST__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.CURPAIR__V11*/ meltfptr[10] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MEXPAND_COMMA", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_10_WARMELTmiMOREMACRO_MEXPAND_COMMA*/ 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_) { long current_blocklevel_signals_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG > 0 static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538 /* start of frame for routine meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR fromline 1752 */ /** start of frame for meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR// fromline 1568 : public Melt_CallFrameWithValues<39> { public: /* fromline 1572*/ long mcfr_varnum[21]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<39> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR), clos) {}; MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR() //the constructor fromline 1642 : Melt_CallFrameWithValues<39> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<39> (fil,lin, sizeof(MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR)) {}; MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<39> (fil,lin, sizeof(MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR /** end of frame for meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR fromline 1697**/ /* end of frame for routine meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR fromline 1756 */ /* classy proc frame meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR */ MeltFrame_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR fromline 1787*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1791*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1795*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("SUBSTITUTE_SEXPR", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-moremacro.melt:453:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.SYMBREPF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMBREPF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.INSIDEF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.INSIDEF__V4*/ meltfptr[3])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-moremacro.melt:462:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-moremacro.melt:462:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:462:/ apply"); /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-moremacro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 462; /*^apply.arg*/ argtab[3].meltbp_cstring = "substitute_sexpr"; /*^apply.arg*/ argtab[4].meltbp_cstring = " sexpr="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V6*/ 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); } ; /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:462:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V5*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-moremacro.melt:462:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_NOT_A__L3*/ meltfnum[1] = !melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-moremacro.melt:463:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-moremacro.melt:464:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-moremacro.melt:464:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:464:/ apply"); /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L5*/ meltfnum[4]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-moremacro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 464; /*^apply.arg*/ argtab[3].meltbp_cstring = "substitute_sexpr"; /*^apply.arg*/ argtab[4].meltbp_cstring = " not an S-expr:"; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V9*/ 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); } ; /*_._IF___V8*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:464:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V8*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-moremacro.melt:464:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:465:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.SEXPR__V2*/ meltfptr[1];; { MELT_LOCATION("warmelt-moremacro.melt:465:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-moremacro.melt:463:/ quasiblock"); /*_.PROGN___V11*/ meltfptr[4] = /*_.RETURN___V10*/ meltfptr[8];; /*^compute*/ /*_._IF___V7*/ meltfptr[5] = /*_.PROGN___V11*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:463:/ clear"); /*clear*/ /*_.RETURN___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V11*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V7*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-moremacro.melt:466:/ quasiblock"); /*_.CLIST__V13*/ meltfptr[4] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));; MELT_LOCATION("warmelt-moremacro.melt:467:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.CONT__V14*/ meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-moremacro.melt:468:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOC__V15*/ meltfptr[14] = slot; }; ; MELT_CHECK_SIGNAL(); ; /*_#IS_A__L6*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR_MACROSTRING*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-moremacro.melt:469:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:470:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SEXPR_MACROSTRING*/ meltfrout->tabval[3])), (3), "CLASS_SEXPR_MACROSTRING"); /*_.INST__V18*/ meltfptr[17] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ meltfptr[17])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V18*/ meltfptr[17]), (1), (/*_.LOC__V15*/ meltfptr[14]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @SEXP_CONTENTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ meltfptr[17])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V18*/ meltfptr[17]), (2), (/*_.CLIST__V13*/ meltfptr[4]), "SEXP_CONTENTS"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V18*/ meltfptr[17], "newly made instance"); ; /*_.INST___V17*/ meltfptr[16] = /*_.INST__V18*/ meltfptr[17];; /*^compute*/ /*_.NEWSEXPR__V16*/ meltfptr[15] = /*_.INST___V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:469:/ clear"); /*clear*/ /*_.INST___V17*/ meltfptr[16] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:473:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])), (3), "CLASS_SEXPR"); /*_.INST__V20*/ meltfptr[19] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ meltfptr[19])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V20*/ meltfptr[19]), (1), (/*_.LOC__V15*/ meltfptr[14]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @SEXP_CONTENTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ meltfptr[19])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V20*/ meltfptr[19]), (2), (/*_.CLIST__V13*/ meltfptr[4]), "SEXP_CONTENTS"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V20*/ meltfptr[19], "newly made instance"); ; /*_.INST___V19*/ meltfptr[16] = /*_.INST__V20*/ meltfptr[19];; /*^compute*/ /*_.NEWSEXPR__V16*/ meltfptr[15] = /*_.INST___V19*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:469:/ clear"); /*clear*/ /*_.INST___V19*/ meltfptr[16] = 0 ; } ; } ; /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit1__EACHLIST */ for (/*_.CURPAIRINLISTSYMB__V21*/ meltfptr[16] = melt_list_first( (melt_ptr_t)/*_.CONT__V14*/ meltfptr[13]); melt_magic_discr((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V21*/ meltfptr[16]) == MELTOBMAG_PAIR; /*_.CURPAIRINLISTSYMB__V21*/ meltfptr[16] = melt_pair_tail((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V21*/ meltfptr[16])) { /*_.CURCONT__V22*/ meltfptr[21] = melt_pair_head((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V21*/ meltfptr[16]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-moremacro.melt:480:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-moremacro.melt:480:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:480:/ apply"); /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[7]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-moremacro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 480; /*^apply.arg*/ argtab[3].meltbp_cstring = "substitute_sexpr"; /*^apply.arg*/ argtab[4].meltbp_cstring = " curcont="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.CURCONT__V22*/ meltfptr[21]; /*_.MELT_DEBUG_FUN__V24*/ 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); } ; /*_._IF___V23*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:480:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V23*/ meltfptr[22] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-moremacro.melt:480:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V23*/ meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_A__L9*/ meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.CURCONT__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-moremacro.melt:482:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-moremacro.melt:483:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.CURCONT__V22*/ meltfptr[21])); } ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-moremacro.melt:482:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L10*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURCONT__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-moremacro.melt:484:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-moremacro.melt:485:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L11*/ meltfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.SYMBREPF__V3*/ meltfptr[2])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-moremacro.melt:485:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:486:/ apply"); /*apply*/ { /*_.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); } ; /*_.REPSYMB__V25*/ meltfptr[23] = /*_.SYMBREPF__V26*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:485:/ clear"); /*clear*/ /*_.SYMBREPF__V26*/ meltfptr[22] = 0 ; } ; } else /*^cond.else*/ { /*_.REPSYMB__V25*/ meltfptr[23] = /*_.CURCONT__V22*/ meltfptr[21];; } ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_MULTIPLE__L12*/ meltfnum[11] = (melt_magic_discr((melt_ptr_t)(/*_.REPSYMB__V25*/ meltfptr[23])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-moremacro.melt:490:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit2__EACHTUP */ long meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.REPSYMB__V25*/ meltfptr[23]); for (/*_#RIX__L13*/ meltfnum[12] = 0; (/*_#RIX__L13*/ meltfnum[12] >= 0) && (/*_#RIX__L13*/ meltfnum[12] < meltcit2__EACHTUP_ln); /*_#RIX__L13*/ meltfnum[12]++) { /*_.CURREP__V27*/ meltfptr[22] = melt_multiple_nth((melt_ptr_t)(/*_.REPSYMB__V25*/ meltfptr[23]), /*_#RIX__L13*/ meltfnum[12]); { MELT_LOCATION("warmelt-moremacro.melt:494:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.CURREP__V27*/ meltfptr[22])); } ; if (/*_#RIX__L13*/ meltfnum[12]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-moremacro.melt:491:/ clear"); /*clear*/ /*_.CURREP__V27*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_#RIX__L13*/ meltfnum[12] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-moremacro.melt:496:/ locexp"); /*void*/(void)0; } ; MELT_LOCATION("warmelt-moremacro.melt:490:/ quasiblock"); /*epilog*/ } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_LIST__L14*/ meltfnum[13] = (melt_magic_discr((melt_ptr_t)(/*_.REPSYMB__V25*/ meltfptr[23])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-moremacro.melt:498:/ cond"); /*cond*/ if (/*_#IS_LIST__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit3__EACHLIST */ for (/*_.CURPAIRINLISTSYMB__V28*/ meltfptr[27] = melt_list_first( (melt_ptr_t)/*_.REPSYMB__V25*/ meltfptr[23]); melt_magic_discr((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V28*/ meltfptr[27]) == MELTOBMAG_PAIR; /*_.CURPAIRINLISTSYMB__V28*/ meltfptr[27] = melt_pair_tail((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V28*/ meltfptr[27])) { /*_.CURLREP__V29*/ meltfptr[28] = melt_pair_head((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V28*/ meltfptr[27]); { MELT_LOCATION("warmelt-moremacro.melt:502:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.CURLREP__V29*/ meltfptr[28])); } ; } /* end foreach_pair_component_in_list meltcit3__EACHLIST */ /*_.CURPAIRINLISTSYMB__V28*/ meltfptr[27] = NULL; /*_.CURLREP__V29*/ meltfptr[28] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-moremacro.melt:499:/ clear"); /*clear*/ /*_.CURPAIRINLISTSYMB__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.CURLREP__V29*/ meltfptr[28] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; { MELT_LOCATION("warmelt-moremacro.melt:503:/ locexp"); /*void*/(void)0; } ; MELT_LOCATION("warmelt-moremacro.melt:498:/ quasiblock"); /*epilog*/ } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-moremacro.melt:505:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.REPSYMB__V25*/ meltfptr[23])); } ; MELT_LOCATION("warmelt-moremacro.melt:504:/ quasiblock"); /*epilog*/ } ; } ; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:490:/ clear"); /*clear*/ /*_#IS_LIST__L14*/ meltfnum[13] = 0 ; } ; } ; MELT_LOCATION("warmelt-moremacro.melt:485:/ clear"); /*clear*/ /*_#IS_CLOSURE__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.REPSYMB__V25*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_#IS_MULTIPLE__L12*/ meltfnum[11] = 0 ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-moremacro.melt:484:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L15*/ meltfnum[13] = melt_is_instance_of((melt_ptr_t)(/*_.CURCONT__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-moremacro.melt:507:/ cond"); /*cond*/ if (/*_#IS_A__L15*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-moremacro.melt:508:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L16*/ meltfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.INSIDEF__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-moremacro.melt:509:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L16*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { /*_.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); } ; /*_.INSIDEV__V30*/ meltfptr[23] = /*_.INSIDEF__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:509:/ clear"); /*clear*/ /*_.INSIDEF__V31*/ meltfptr[30] = 0 ; } ; } else /*^cond.else*/ { /*_.INSIDEV__V30*/ meltfptr[23] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:510:/ cond"); /*cond*/ if (/*_.INSIDEV__V30*/ meltfptr[23]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBREPF__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.INSIDEF__V4*/ meltfptr[3]; /*_.SUBSTITUTE_SEXPR__V33*/ 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); } ; /*_.REPLCONT__V32*/ meltfptr[30] = /*_.SUBSTITUTE_SEXPR__V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:510:/ clear"); /*clear*/ /*_.SUBSTITUTE_SEXPR__V33*/ meltfptr[32] = 0 ; } ; } else /*^cond.else*/ { /*_.REPLCONT__V32*/ meltfptr[30] = /*_.CURCONT__V22*/ meltfptr[21];; } ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_MULTIPLE__L17*/ meltfnum[11] = (melt_magic_discr((melt_ptr_t)(/*_.REPLCONT__V32*/ meltfptr[30])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-moremacro.melt:513:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L17*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit4__EACHTUP */ long meltcit4__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.INSIDEV__V30*/ meltfptr[23]); for (/*_#INSIX__L18*/ meltfnum[17] = 0; (/*_#INSIX__L18*/ meltfnum[17] >= 0) && (/*_#INSIX__L18*/ meltfnum[17] < meltcit4__EACHTUP_ln); /*_#INSIX__L18*/ meltfnum[17]++) { /*_.CURINS__V34*/ meltfptr[32] = melt_multiple_nth((melt_ptr_t)(/*_.INSIDEV__V30*/ meltfptr[23]), /*_#INSIX__L18*/ meltfnum[17]); { MELT_LOCATION("warmelt-moremacro.melt:517:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.CURINS__V34*/ meltfptr[32])); } ; if (/*_#INSIX__L18*/ meltfnum[17]<0) break; } /* end foreach_in_multiple meltcit4__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-moremacro.melt:514:/ clear"); /*clear*/ /*_.CURINS__V34*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_#INSIX__L18*/ meltfnum[17] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-moremacro.melt:513:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_LIST__L19*/ meltfnum[18] = (melt_magic_discr((melt_ptr_t)(/*_.REPLCONT__V32*/ meltfptr[30])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-moremacro.melt:518:/ cond"); /*cond*/ if (/*_#IS_LIST__L19*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit5__EACHLIST */ for (/*_.CURPAIRINLISTSYMB__V35*/ meltfptr[34] = melt_list_first( (melt_ptr_t)/*_.REPLCONT__V32*/ meltfptr[30]); melt_magic_discr((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V35*/ meltfptr[34]) == MELTOBMAG_PAIR; /*_.CURPAIRINLISTSYMB__V35*/ meltfptr[34] = melt_pair_tail((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V35*/ meltfptr[34])) { /*_.SUBCONT__V36*/ meltfptr[35] = melt_pair_head((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V35*/ meltfptr[34]); { MELT_LOCATION("warmelt-moremacro.melt:522:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.SUBCONT__V36*/ meltfptr[35])); } ; } /* end foreach_pair_component_in_list meltcit5__EACHLIST */ /*_.CURPAIRINLISTSYMB__V35*/ meltfptr[34] = NULL; /*_.SUBCONT__V36*/ meltfptr[35] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-moremacro.melt:519:/ clear"); /*clear*/ /*_.CURPAIRINLISTSYMB__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.SUBCONT__V36*/ meltfptr[35] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-moremacro.melt:518:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-moremacro.melt:524:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.REPLCONT__V32*/ meltfptr[30])); } ; MELT_LOCATION("warmelt-moremacro.melt:523:/ quasiblock"); /*epilog*/ } ; } ; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:513:/ clear"); /*clear*/ /*_#IS_LIST__L19*/ meltfnum[18] = 0 ; } ; } ; MELT_LOCATION("warmelt-moremacro.melt:508:/ clear"); /*clear*/ /*_#IS_CLOSURE__L16*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.INSIDEV__V30*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.REPLCONT__V32*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_#IS_MULTIPLE__L17*/ meltfnum[11] = 0 ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-moremacro.melt:507:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-moremacro.melt:528:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.CLIST__V13*/ meltfptr[4]), (melt_ptr_t)(/*_.CURCONT__V22*/ meltfptr[21])); } ; MELT_LOCATION("warmelt-moremacro.melt:527:/ quasiblock"); /*epilog*/ } ; } ; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:484:/ clear"); /*clear*/ /*_#IS_A__L15*/ meltfnum[13] = 0 ; } ; } ; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:482:/ clear"); /*clear*/ /*_#IS_A__L10*/ meltfnum[0] = 0 ; } ; } ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIRINLISTSYMB__V21*/ meltfptr[16] = NULL; /*_.CURCONT__V22*/ meltfptr[21] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-moremacro.melt:477:/ clear"); /*clear*/ /*_.CURPAIRINLISTSYMB__V21*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.CURCONT__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-moremacro.melt:533:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L20*/ meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-moremacro.melt:533:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L21*/ meltfnum[10] = /* for melt_callcount */ #if MELT_HAVE_DEBUG > 0 && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ #else 0L /* melt_callcount without debug */ #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:533:/ apply"); /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L21*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-moremacro.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 533; /*^apply.arg*/ argtab[3].meltbp_cstring = "substitute_sexpr"; /*^apply.arg*/ argtab[4].meltbp_cstring = " result newsexpr="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.NEWSEXPR__V16*/ meltfptr[15]; /*_.MELT_DEBUG_FUN__V38*/ 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); } ; /*_._IF___V37*/ meltfptr[23] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-moremacro.melt:533:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[30] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V37*/ meltfptr[23] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-moremacro.melt:533:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V37*/ meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:534:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.NEWSEXPR__V16*/ meltfptr[15];; { MELT_LOCATION("warmelt-moremacro.melt:534:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V12*/ meltfptr[8] = /*_.RETURN___V39*/ meltfptr[30];; MELT_LOCATION("warmelt-moremacro.melt:466:/ clear"); /*clear*/ /*_.CLIST__V13*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L6*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.NEWSEXPR__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V39*/ meltfptr[30] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-moremacro.melt:453:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[8];; { MELT_LOCATION("warmelt-moremacro.melt:453:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_#IS_NOT_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[8] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("SUBSTITUTE_SEXPR", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_11_WARMELTmiMOREMACRO_SUBSTITUTE_SEXPR*/ /**** end of warmelt-moremacro+01.cc ****/