/* GCC MELT GENERATED C++ FILE warmelt-modes+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-modes+01.cc declarations ****/ /**** MELT GENERATED DECLARATIONS for warmelt-modes ** DO NOT EDIT ; see gcc-melt.org ****/ /****++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *** Copyright (C) 2011 - 2016 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-modes**/ #define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usualmodule*/ class Melt_InitialClassyFrame_WARMELTmiMODES_h354098773; // forward declaration fromline 6712 typedef Melt_InitialClassyFrame_WARMELTmiMODES_h354098773 Melt_InitialFrame; /**** no MELT module variables ****/ /*** 4 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_POLL_INPUTS **/ MELT_EXTERN void melthook_HOOK_POLL_INPUTS (melt_ptr_t melthookdatap, long meltinp0_DELAYMS); /*declare MELT called hook #2 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 #3 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 4 MELT called hook declarations ***/ /*** no extra MELT c-headers ***/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_WARMELTmiMODES_INSTALL_MELT_MODE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_WARMELTmiMODES_RUNFILE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_WARMELTmiMODES_RUNDEBUG_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_WARMELTmiMODES_EVAL_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_WARMELTmiMODES_EVALFILE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_WARMELTmiMODES_REPL_PROCESSOR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_WARMELTmiMODES_REPL_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_WARMELTmiMODES_LAMBDA_cl1(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_WARMELTmiMODES_LAMBDA_cl2(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_WARMELTmiMODES_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_WARMELTmiMODES_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_WARMELTmiMODES_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_WARMELTmiMODES_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_WARMELTmiMODES_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_WARMELTmiMODES_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_WARMELTmiMODES_LAMBDA_cl9(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_WARMELTmiMODES_LAMBDA_cl10(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_WARMELTmiMODES_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_WARMELTmiMODES_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_WARMELTmiMODES_LAMBDA_cl13(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_WARMELTmiMODES_LAMBDA_cl14(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_WARMELTmiMODES_LAMBDA_cl15(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_WARMELTmiMODES_LAMBDA_cl16(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_WARMELTmiMODES_LAMBDA_cl17(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_WARMELTmiMODES_LAMBDA_cl18(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_WARMELTmiMODES_LAMBDA_cl19(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_WARMELTmiMODES_HELP_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_WARMELTmiMODES_NOP_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_WARMELTmiMODES_OUTPUT_FOR_RUNTIME(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_GTY(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_CLONING_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_SCANNING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PARAM(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_COD2CTYPE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAG2STR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_BOXINGFUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAPFUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_WARMELTmiMODES_RUNTYPESUPPORT_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_WARMELTmiMODES_TRANSLATE_TO_FLAVORED_MODULE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_WARMELTmiMODES_TRANSLATETOMODULE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_WARMELTmiMODES_TRANSLATEDEBUG_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_WARMELTmiMODES_TRANSLATEQUICKLY_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_WARMELTmiMODES_TRANSLATEOPTIMIZED_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_WARMELTmiMODES_LAMBDA_cl20(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_WARMELTmiMODES_LAMBDA_cl21(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); 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_WARMELTmiMODES_h354098773 /*opaqueinitialclassy*/ meltinitial_frame_t; /* define different names when debugging or not */ #if MELT_HAVE_DEBUG > 0 MELT_EXTERN const char meltmodule_WARMELTmiMODES__melt_have_debug_enabled[]; #define melt_have_debug_string meltmodule_WARMELTmiMODES__melt_have_debug_enabled #else /*!MELT_HAVE_DEBUG*/ MELT_EXTERN const char meltmodule_WARMELTmiMODES__melt_have_debug_disabled[]; #define melt_have_debug_string meltmodule_WARMELTmiMODES__melt_have_debug_disabled #endif /*!MELT_HAVE_DEBUG*/ void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_0 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_1 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_2 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_3 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_4 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_5 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_6 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_7 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_8 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_9 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_10 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_12 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiMODES__initialmeltchunk_13 (meltinitial_frame_t*, char*); //declare /**** warmelt-modes+01.cc implementations ****/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_WARMELTmiMODES_LAMBDA_cl1(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_8_WARMELTmiMODES_LAMBDA_cl1_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_WARMELTmiMODES_LAMBDA_cl1 fromline 1752 */ /** start of frame for meltrout_8_WARMELTmiMODES_LAMBDA_cl1 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_8_WARMELTmiMODES_LAMBDA_cl1// fromline 1568 : public Melt_CallFrameWithValues<1> { public: /* fromline 1572*/ // no classy longs /*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_WARMELTmiMODES_LAMBDA_cl1(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<1> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_8_WARMELTmiMODES_LAMBDA_cl1), clos) {}; MeltFrame_meltrout_8_WARMELTmiMODES_LAMBDA_cl1() //the constructor fromline 1642 : Melt_CallFrameWithValues<1> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_8_WARMELTmiMODES_LAMBDA_cl1)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_8_WARMELTmiMODES_LAMBDA_cl1(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<1> (fil,lin, sizeof(MeltFrame_meltrout_8_WARMELTmiMODES_LAMBDA_cl1)) {}; MeltFrame_meltrout_8_WARMELTmiMODES_LAMBDA_cl1(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<1> (fil,lin, sizeof(MeltFrame_meltrout_8_WARMELTmiMODES_LAMBDA_cl1), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_8_WARMELTmiMODES_LAMBDA_cl1 /** end of frame for meltrout_8_WARMELTmiMODES_LAMBDA_cl1 fromline 1697**/ /* end of frame for routine meltrout_8_WARMELTmiMODES_LAMBDA_cl1 fromline 1756 */ /* classy proc frame meltrout_8_WARMELTmiMODES_LAMBDA_cl1 */ MeltFrame_meltrout_8_WARMELTmiMODES_LAMBDA_cl1 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_8_WARMELTmiMODES_LAMBDA_cl1 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("LAMBDA_cl1", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ MELT_LOCATION("warmelt-modes.melt:393:/ block"); /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~REFCONT*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)((/*~REFCONT*/ meltfclos->tabval[0]))) == MELTOBMAG_OBJECT); melt_putfield_object(((/*~REFCONT*/ meltfclos->tabval[0])), (0), ((/*!konst_0_TRUE*/ meltfrout->tabval[0])), "REFERENCED_VALUE"); ; /*^touch*/ meltgc_touch((/*~REFCONT*/ meltfclos->tabval[0])); ; /*^touchobj*/ melt_dbgtrace_written_object ((/*~REFCONT*/ meltfclos->tabval[0]), "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl1", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_8_WARMELTmiMODES_LAMBDA_cl1_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_8_WARMELTmiMODES_LAMBDA_cl1*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_WARMELTmiMODES_LAMBDA_cl2(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_9_WARMELTmiMODES_LAMBDA_cl2_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_WARMELTmiMODES_LAMBDA_cl2 fromline 1752 */ /** start of frame for meltrout_9_WARMELTmiMODES_LAMBDA_cl2 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_9_WARMELTmiMODES_LAMBDA_cl2// fromline 1568 : public Melt_CallFrameWithValues<11> { 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_9_WARMELTmiMODES_LAMBDA_cl2(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_9_WARMELTmiMODES_LAMBDA_cl2), clos) {}; MeltFrame_meltrout_9_WARMELTmiMODES_LAMBDA_cl2() //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_9_WARMELTmiMODES_LAMBDA_cl2)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_9_WARMELTmiMODES_LAMBDA_cl2(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_9_WARMELTmiMODES_LAMBDA_cl2)) {}; MeltFrame_meltrout_9_WARMELTmiMODES_LAMBDA_cl2(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_9_WARMELTmiMODES_LAMBDA_cl2), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_9_WARMELTmiMODES_LAMBDA_cl2 /** end of frame for meltrout_9_WARMELTmiMODES_LAMBDA_cl2 fromline 1697**/ /* end of frame for routine meltrout_9_WARMELTmiMODES_LAMBDA_cl2 fromline 1756 */ /* classy proc frame meltrout_9_WARMELTmiMODES_LAMBDA_cl2 */ MeltFrame_meltrout_9_WARMELTmiMODES_LAMBDA_cl2 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_9_WARMELTmiMODES_LAMBDA_cl2 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("LAMBDA_cl2", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:394:/ getarg"); /*_.MSGV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:395:/ 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-modes.melt:395:/ 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-modes.melt:395:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 395; /*^apply.arg*/ argtab[3].meltbp_cstring = "repl_docmd/waitfun start refcont="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*~REFCONT*/ meltfclos->tabval[0]); /*^apply.arg*/ argtab[5].meltbp_cstring = " evalcounter="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &(/*~EVALCOUNTER*/ meltfclos->tabval[1]); /*^apply.arg*/ argtab[7].meltbp_cstring = "\n msgv="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.MSGV__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:395:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V3*/ meltfptr[2] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:395:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V3*/ meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:397:/ loop"); /*loop*/ { meltlabloop_WAITFUNLOOP_1:;/*^loopbody*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:399:/ quasiblock"); /*_#EVALCOUNT__L3*/ meltfnum[1] = (melt_get_int((melt_ptr_t)((/*~EVALCOUNTER*/ meltfclos->tabval[1]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:401:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~REFCONT*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~REFCONT*/ meltfclos->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); /*_.REFERENCED_VALUE__V7*/ meltfptr[6] = slot; }; ; } else /*^cond.else*/ { /*_.REFERENCED_VALUE__V7*/ meltfptr[6] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:401:/ apply"); /*apply*/ { /*_._FUN___V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)(/*_.REFERENCED_VALUE__V7*/ meltfptr[6]), (melt_ptr_t)( /*reallynil*/ NULL ), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*^cond*/ /*cond*/ if (/*_._FUN___V8*/ meltfptr[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^quasiblock*/ /*^compute*/ /*_.WAITFUNLOOP__V6*/ meltfptr[2] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_WAITFUNLOOP_1; } ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:402:/ apply"); /*apply*/ { /*_.GET_POLLING_INPUT__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!GET_POLLING_INPUT*/ meltfrout->tabval[2])), (melt_ptr_t)((/*!konst_3*/ meltfrout->tabval[3])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*_#NULL__L4*/ meltfnum[0] = (/*null*/(/*_.GET_POLLING_INPUT__V9*/ meltfptr[8]) == NULL);; MELT_LOCATION("warmelt-modes.melt:402:/ cond"); /*cond*/ if (/*_#NULL__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:406:/ quasiblock"); /*^compute*/ /*_.WAITFUNLOOP__V6*/ meltfptr[2] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_WAITFUNLOOP_1; } ; /*epilog*/ } ; } /*noelse*/ ; { MELT_LOCATION("warmelt-modes.melt:407:/ locexp"); /* repl_docmd WAITFUNLOOP_CHK__1 */ const char* WAITFUNLOOP_CHK__1_msg = melt_string_str (/*_.MSGV__V2*/ meltfptr[1]) ; if (WAITFUNLOOP_CHK__1_msg) printf ("\n;; MELT REPL#%ld waiting: %s\n", /*_#EVALCOUNT__L3*/ meltfnum[1], WAITFUNLOOP_CHK__1_msg) ; else printf ("\n;; MELT REPL#%ld waiting ?\n", /*_#EVALCOUNT__L3*/ meltfnum[1]) ; fflush (NULL) ; ; } ; { MELT_LOCATION("warmelt-modes.melt:419:/ locexp"); /*hookcall*/ melthook_HOOK_POLL_INPUTS ((melt_ptr_t) (/*!HOOK_POLL_INPUTS*/ meltfrout->tabval[4]), 60000) ; } ; MELT_LOCATION("warmelt-modes.melt:399:/ clear"); /*clear*/ /*_#EVALCOUNT__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.REFERENCED_VALUE__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_._FUN___V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.GET_POLLING_INPUT__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L4*/ meltfnum[0] = 0 ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:420:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ 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-modes.melt:420:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ 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-modes.melt:420:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 420; /*^apply.arg*/ argtab[3].meltbp_cstring = "repl_docmd/waitfun end refcont="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*~REFCONT*/ meltfclos->tabval[0]); /*^apply.arg*/ argtab[5].meltbp_cstring = " evalcounter="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &(/*~EVALCOUNTER*/ meltfclos->tabval[1]); /*_.MELT_DEBUG_FUN__V11*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V10*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V11*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:420:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V11*/ meltfptr[7] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V10*/ meltfptr[6] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:420:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V10*/ meltfptr[6] = 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 meltlabloop_WAITFUNLOOP_1; meltlabexit_WAITFUNLOOP_1: ; MELT_LOCATION("warmelt-modes.melt:397:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V5*/ meltfptr[3] = /*_.WAITFUNLOOP__V6*/ meltfptr[2];; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:394:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.FOREVER___V5*/ meltfptr[3];; { MELT_LOCATION("warmelt-modes.melt:394:/ 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*/ /*_.FOREVER___V5*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl2", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_9_WARMELTmiMODES_LAMBDA_cl2_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_9_WARMELTmiMODES_LAMBDA_cl2*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_WARMELTmiMODES_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_10_WARMELTmiMODES_LAMBDA_cl3_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_WARMELTmiMODES_LAMBDA_cl3 fromline 1752 */ /** start of frame for meltrout_10_WARMELTmiMODES_LAMBDA_cl3 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_10_WARMELTmiMODES_LAMBDA_cl3// fromline 1568 : public Melt_CallFrameWithValues<5> { 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_WARMELTmiMODES_LAMBDA_cl3(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<5> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_10_WARMELTmiMODES_LAMBDA_cl3), clos) {}; MeltFrame_meltrout_10_WARMELTmiMODES_LAMBDA_cl3() //the constructor fromline 1642 : Melt_CallFrameWithValues<5> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_10_WARMELTmiMODES_LAMBDA_cl3)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_10_WARMELTmiMODES_LAMBDA_cl3(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<5> (fil,lin, sizeof(MeltFrame_meltrout_10_WARMELTmiMODES_LAMBDA_cl3)) {}; MeltFrame_meltrout_10_WARMELTmiMODES_LAMBDA_cl3(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<5> (fil,lin, sizeof(MeltFrame_meltrout_10_WARMELTmiMODES_LAMBDA_cl3), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_10_WARMELTmiMODES_LAMBDA_cl3 /** end of frame for meltrout_10_WARMELTmiMODES_LAMBDA_cl3 fromline 1697**/ /* end of frame for routine meltrout_10_WARMELTmiMODES_LAMBDA_cl3 fromline 1756 */ /* classy proc frame meltrout_10_WARMELTmiMODES_LAMBDA_cl3 */ MeltFrame_meltrout_10_WARMELTmiMODES_LAMBDA_cl3 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_10_WARMELTmiMODES_LAMBDA_cl3 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("LAMBDA_cl3", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:436:/ getarg"); /*_.ENDP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:437:/ 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-modes.melt:437:/ 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-modes.melt:437:/ 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-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 437; /*^apply.arg*/ argtab[3].meltbp_cstring = "repl_docmd/endpasses endp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ENDP__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 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___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:437:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V3*/ meltfptr[2] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:437:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V3*/ meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:438:/ locexp"); /* repl_docmd/endpasses ENDP_CHK__1 */ printf ("; GCC MELT ended all passes\n") ; printf ("; type (CONTINUE) to proceed.\n") ; fflush (NULL) ; ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:444:/ apply"); /*apply*/ { /*_.WAITFUN__V5*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*~WAITFUN*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!konst_1*/ meltfrout->tabval[1])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:436:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.WAITFUN__V5*/ meltfptr[3];; { MELT_LOCATION("warmelt-modes.melt:436:/ 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*/ /*_.WAITFUN__V5*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl3", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_10_WARMELTmiMODES_LAMBDA_cl3_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_10_WARMELTmiMODES_LAMBDA_cl3*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_WARMELTmiMODES_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_11_WARMELTmiMODES_LAMBDA_cl4_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_WARMELTmiMODES_LAMBDA_cl4 fromline 1752 */ /** start of frame for meltrout_11_WARMELTmiMODES_LAMBDA_cl4 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_11_WARMELTmiMODES_LAMBDA_cl4// fromline 1568 : public Melt_CallFrameWithValues<5> { 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_11_WARMELTmiMODES_LAMBDA_cl4(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<5> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_11_WARMELTmiMODES_LAMBDA_cl4), clos) {}; MeltFrame_meltrout_11_WARMELTmiMODES_LAMBDA_cl4() //the constructor fromline 1642 : Melt_CallFrameWithValues<5> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_11_WARMELTmiMODES_LAMBDA_cl4)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_11_WARMELTmiMODES_LAMBDA_cl4(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<5> (fil,lin, sizeof(MeltFrame_meltrout_11_WARMELTmiMODES_LAMBDA_cl4)) {}; MeltFrame_meltrout_11_WARMELTmiMODES_LAMBDA_cl4(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<5> (fil,lin, sizeof(MeltFrame_meltrout_11_WARMELTmiMODES_LAMBDA_cl4), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_11_WARMELTmiMODES_LAMBDA_cl4 /** end of frame for meltrout_11_WARMELTmiMODES_LAMBDA_cl4 fromline 1697**/ /* end of frame for routine meltrout_11_WARMELTmiMODES_LAMBDA_cl4 fromline 1756 */ /* classy proc frame meltrout_11_WARMELTmiMODES_LAMBDA_cl4 */ MeltFrame_meltrout_11_WARMELTmiMODES_LAMBDA_cl4 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_11_WARMELTmiMODES_LAMBDA_cl4 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("LAMBDA_cl4", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:447:/ getarg"); /*_.FINP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:448:/ 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-modes.melt:448:/ 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-modes.melt:448:/ 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-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 448; /*^apply.arg*/ argtab[3].meltbp_cstring = "repl_docmd/finishunit finp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FINP__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 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___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:448:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V3*/ meltfptr[2] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:448:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V3*/ meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:449:/ locexp"); /* repl_docmd/finishunit FINP_CHK__1 */ printf ("; GCC MELT finished compilation unit\n") ; printf ("; type (CONTINUE) to proceed.\n") ; fflush (NULL) ; ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:455:/ apply"); /*apply*/ { /*_.WAITFUN__V5*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*~WAITFUN*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!konst_1*/ meltfrout->tabval[1])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:447:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.WAITFUN__V5*/ meltfptr[3];; { MELT_LOCATION("warmelt-modes.melt:447:/ 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*/ /*_.WAITFUN__V5*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl4", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_11_WARMELTmiMODES_LAMBDA_cl4_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_11_WARMELTmiMODES_LAMBDA_cl4*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_WARMELTmiMODES_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_12_WARMELTmiMODES_LAMBDA_cl5_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_12_WARMELTmiMODES_LAMBDA_cl5 fromline 1752 */ /** start of frame for meltrout_12_WARMELTmiMODES_LAMBDA_cl5 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_12_WARMELTmiMODES_LAMBDA_cl5// fromline 1568 : public Melt_CallFrameWithValues<5> { 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_12_WARMELTmiMODES_LAMBDA_cl5(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<5> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_12_WARMELTmiMODES_LAMBDA_cl5), clos) {}; MeltFrame_meltrout_12_WARMELTmiMODES_LAMBDA_cl5() //the constructor fromline 1642 : Melt_CallFrameWithValues<5> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_12_WARMELTmiMODES_LAMBDA_cl5)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_12_WARMELTmiMODES_LAMBDA_cl5(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<5> (fil,lin, sizeof(MeltFrame_meltrout_12_WARMELTmiMODES_LAMBDA_cl5)) {}; MeltFrame_meltrout_12_WARMELTmiMODES_LAMBDA_cl5(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<5> (fil,lin, sizeof(MeltFrame_meltrout_12_WARMELTmiMODES_LAMBDA_cl5), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_12_WARMELTmiMODES_LAMBDA_cl5 /** end of frame for meltrout_12_WARMELTmiMODES_LAMBDA_cl5 fromline 1697**/ /* end of frame for routine meltrout_12_WARMELTmiMODES_LAMBDA_cl5 fromline 1756 */ /* classy proc frame meltrout_12_WARMELTmiMODES_LAMBDA_cl5 */ MeltFrame_meltrout_12_WARMELTmiMODES_LAMBDA_cl5 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_12_WARMELTmiMODES_LAMBDA_cl5 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("LAMBDA_cl5", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:458:/ getarg"); /*_.EXIP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:459:/ 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-modes.melt:459:/ 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-modes.melt:459:/ 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-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 459; /*^apply.arg*/ argtab[3].meltbp_cstring = "repl_docmd/atexit exip="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.EXIP__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 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___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:459:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V3*/ meltfptr[2] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:459:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V3*/ meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:460:/ locexp"); /* repl_docmd/endpasses ENDP_CHK__2 */ printf ("; GCC MELT exiting\n") ; printf ("; type (CONTINUE) to proceed.\n") ; fflush (NULL) ; ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:466:/ apply"); /*apply*/ { /*_.WAITFUN__V5*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*~WAITFUN*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!konst_1*/ meltfrout->tabval[1])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:458:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.WAITFUN__V5*/ meltfptr[3];; { MELT_LOCATION("warmelt-modes.melt:458:/ 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*/ /*_.WAITFUN__V5*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl5", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_12_WARMELTmiMODES_LAMBDA_cl5_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_12_WARMELTmiMODES_LAMBDA_cl5*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER_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_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER fromline 1752 */ /** start of frame for meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER// fromline 1568 : public Melt_CallFrameWithValues<9> { public: /* fromline 1572*/ long mcfr_varnum[4]; /*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_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<9> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER), clos) {}; MeltFrame_meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER() //the constructor fromline 1642 : Melt_CallFrameWithValues<9> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<9> (fil,lin, sizeof(MeltFrame_meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER)) {}; MeltFrame_meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<9> (fil,lin, sizeof(MeltFrame_meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER /** end of frame for meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER fromline 1697**/ /* end of frame for routine meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER fromline 1756 */ /* classy proc frame meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER */ MeltFrame_meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER 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("INCREMENT_MKDOC_COUNTER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:513:/ getarg"); /*_.MDINFO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:514:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:514:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:514:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mdinfo"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 514; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V4*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:514:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4] = 0 ; } ; } ; /*_.IFCPP___V3*/ meltfptr[2] = /*_._IFELSE___V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:514:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:515:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 37, "MKDOC_BOXCOUNTER"); /*_.DCOUNTBOX__V6*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.DCOUNTBOX__V6*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#DCNT__L2*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.DCOUNTBOX__V6*/ meltfptr[4])));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:518:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_INTEGERBOX__L3*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.DCOUNTBOX__V6*/ meltfptr[4])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-modes.melt:518:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:518:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dcount"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 518; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DCOUNTBOX__V6*/ meltfptr[4]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:518:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[3] = /*_._IFELSE___V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:518:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; /*^compute*/ /*_#plI__L4*/ meltfnum[2] = ((/*_#DCNT__L2*/ meltfnum[0]) + (1));; { MELT_LOCATION("warmelt-modes.melt:519:/ locexp"); melt_put_int((melt_ptr_t)(/*_.DCOUNTBOX__V6*/ meltfptr[4]), (/*_#plI__L4*/ meltfnum[2])); } ; MELT_LOCATION("warmelt-modes.melt:515:/ clear"); /*clear*/ /*_.DCOUNTBOX__V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#DCNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L4*/ meltfnum[2] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:513:/ clear"); /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("INCREMENT_MKDOC_COUNTER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT_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_14_WARMELTmiMODES_MAKEDOC_SCANINPUT fromline 1752 */ /** start of frame for meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT// fromline 1568 : public Melt_CallFrameWithValues<197> { public: /* fromline 1572*/ long mcfr_varnum[24]; /*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_14_WARMELTmiMODES_MAKEDOC_SCANINPUT(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<197> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT), clos) {}; MeltFrame_meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT() //the constructor fromline 1642 : Melt_CallFrameWithValues<197> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<197> (fil,lin, sizeof(MeltFrame_meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT)) {}; MeltFrame_meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<197> (fil,lin, sizeof(MeltFrame_meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT /** end of frame for meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT fromline 1697**/ /* end of frame for routine meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT fromline 1756 */ /* classy proc frame meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT */ MeltFrame_meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT 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("MAKEDOC_SCANINPUT", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:523:/ getarg"); /*_.MDINFO__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; /*_.XLIST__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.XLIST__V4*/ meltfptr[3])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:524:/ 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-modes.melt:524:/ 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-modes.melt:524:/ 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-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 524; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_scaninput arglist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ARGLIST__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n.. xlist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.XLIST__V4*/ meltfptr[3]; /*_.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_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:524:/ 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-modes.melt:524:/ 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_LOCATION("warmelt-modes.melt:525:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "makedoc_scaninput"), (10)); #endif ; } ; MELT_LOCATION("warmelt-modes.melt:526:/ quasiblock"); /*_#NBFIL__L3*/ meltfnum[1] = (melt_list_length((melt_ptr_t)(/*_.ARGLIST__V3*/ meltfptr[2])));; /*^compute*/ /*_#XLISTLEN__L4*/ meltfnum[0] = (melt_list_length((melt_ptr_t)(/*_.XLIST__V4*/ meltfptr[3])));; MELT_LOCATION("warmelt-modes.melt:529:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 35, "MKDOC_DOCSYMAP"); /*_.DOCSYMAP__V7*/ meltfptr[5] = slot; }; ; } else /*^cond.else*/ { /*_.DOCSYMAP__V7*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:530:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 33, "MKDOC_FORMALOCCMAP"); /*_.FORMALOCCMAP__V8*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.FORMALOCCMAP__V8*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:532:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V10*/ meltfptr[9] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ meltfrout->tabval[5])), (1)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V10*/ meltfptr[9])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V10*/ meltfptr[9]))); ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ meltfptr[9])->tabval[0] = (melt_ptr_t)(/*_.DOCSYMAP__V7*/ meltfptr[5]); ; /*_.ADD_DOCSYM__V9*/ meltfptr[8] = /*_.LAMBDA___V10*/ meltfptr[9];; MELT_LOCATION("warmelt-modes.melt:545:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V12*/ meltfptr[11] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ meltfrout->tabval[8])), (1)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V12*/ meltfptr[11])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V12*/ meltfptr[11]))); ((meltclosure_ptr_t)/*_.LAMBDA___V12*/ meltfptr[11])->tabval[0] = (melt_ptr_t)(/*_.DOCSYMAP__V7*/ meltfptr[5]); ; /*_.FETCH_DOCSYM__V11*/ meltfptr[10] = /*_.LAMBDA___V12*/ meltfptr[11];; MELT_LOCATION("warmelt-modes.melt:555:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V14*/ meltfptr[13] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ meltfrout->tabval[14])), (1)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ meltfptr[13])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ meltfptr[13]))); ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ meltfptr[13])->tabval[0] = (melt_ptr_t)(/*_.FORMALOCCMAP__V8*/ meltfptr[4]); ; /*_.ADD_FORMAL_OCC__V13*/ meltfptr[12] = /*_.LAMBDA___V14*/ meltfptr[13];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:569:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ 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-modes.melt:569:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = /* 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-modes.melt:569:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[5]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 569; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_scaninput before loop xlist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.XLIST__V4*/ meltfptr[3]; /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 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___V15*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:569:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V15*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:569:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V15*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit1__EACHLIST */ for (/*_.CURPAIRINLISTSYMB__V17*/ meltfptr[15] = melt_list_first( (melt_ptr_t)/*_.XLIST__V4*/ meltfptr[3]); melt_magic_discr((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V17*/ meltfptr[15]) == MELTOBMAG_PAIR; /*_.CURPAIRINLISTSYMB__V17*/ meltfptr[15] = melt_pair_tail((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V17*/ meltfptr[15])) { /*_.CUREXP__V18*/ meltfptr[14] = melt_pair_head((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V17*/ meltfptr[15]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:573:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[5] = /*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-modes.melt:573:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L8*/ 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-modes.melt:573:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[4]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 573; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_scaninput curexp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 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___V19*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:573:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V19*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:573:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V19*/ meltfptr[18] = 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-modes.melt:574:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch1_0; ; /*objlabel*/ mtch1_0: ; MELT_LOCATION("warmelt-modes.melt:578:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_1; meltlab_count_1++; melt_debugeprintf("objlabel_1 mtch1_*CLASS_NORMTESTER_INSTANCE/32be4671. *CLASS_OBJLABELINSTR/3b258849. %ld", meltlab_count_1); #endif ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V21*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_DOC__V22*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.SOBJ_PREDEF__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.SCLASS_CLABIND__V24*/ meltfptr[23] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ meltfrout->tabval[15]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V21*/ meltfptr[19] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.SDEF_DOC__V22*/ meltfptr[18] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SOBJ_PREDEF"); /*_.SOBJ_PREDEF__V23*/ meltfptr[22] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SCLASS_CLABIND"); /*_.SCLASS_CLABIND__V24*/ meltfptr[23] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:582:/ objgoto"); /*objgoto*/ goto mtch1_1; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:578:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:621:/ objgoto"); /*objgoto*/ goto mtch1_4; ; } ; } ; /*objlabel*/ mtch1_1: ; MELT_LOCATION("warmelt-modes.melt:582:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_2; meltlab_count_2++; melt_debugeprintf("objlabel_2 mtch1_*CLASS_NORMTESTER_INSTANCE/3cc8cb88. *CLASS_OBJLABELINSTR/1331fe00. %ld", meltlab_count_2); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V26*/ meltfptr[25] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SDEF_DOC__V22*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[16]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V22*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V25*/ meltfptr[24] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V22*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXP_CONTENTS__V26*/ meltfptr[25] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:586:/ objgoto"); /*objgoto*/ goto mtch1_2; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:582:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:621:/ objgoto"); /*objgoto*/ goto mtch1_4; ; } ; } ; /*objlabel*/ mtch1_2: ; MELT_LOCATION("warmelt-modes.melt:586:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_3; meltlab_count_3++; melt_debugeprintf("objlabel_3 mtch1_*CLASS_NORMTESTER_INSTANCE/24b62d0f. *CLASS_OBJLABELINSTR/6ca2f14. %ld", meltlab_count_3); #endif ; /*^clear*/ /*clear*/ /*_.CBIND_CLASS__V27*/ meltfptr[18] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SCLASS_CLABIND__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[17]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCLASS_CLABIND__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 3, "CBIND_CLASS"); /*_.CBIND_CLASS__V27*/ meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:578:/ objgoto"); /*objgoto*/ goto mtch1_3; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:586:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:621:/ objgoto"); /*objgoto*/ goto mtch1_4; ; } ; } ; /*objlabel*/ mtch1_3: ; MELT_LOCATION("warmelt-modes.melt:578:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_4; meltlab_count_4++; melt_debugeprintf("objlabel_4 mtch1_*CLASS_NORMTESTER_SUCCESS/158b8d6a. *CLASS_OBJLABELINSTR/19606248. %ld", meltlab_count_4); #endif ; /*^quasiblock*/ /*_.CLAS__V28*/ meltfptr[23] = /*_.CBIND_CLASS__V27*/ meltfptr[18];; /*^compute*/ /*_.DNAM__V29*/ meltfptr[28] = /*_.SDEF_NAME__V21*/ meltfptr[19];; /*^compute*/ /*_.DOCLOC__V30*/ meltfptr[29] = /*_.LOCA_LOCATION__V25*/ meltfptr[24];; /*^compute*/ /*_.DOCONT__V31*/ meltfptr[30] = /*_.SEXP_CONTENTS__V26*/ meltfptr[25];; /*^compute*/ /*_.PREDEF__V32*/ meltfptr[31] = /*_.SOBJ_PREDEF__V23*/ meltfptr[22];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:588:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L9*/ 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-modes.melt:588:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L10*/ meltfnum[5] = /* 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-modes.melt:588:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[5]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 588; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_docmd defclass clas="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLAS__V28*/ meltfptr[23]; /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 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___V33*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:588:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V33*/ meltfptr[32] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:588:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V33*/ meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:589:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L11*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.CLAS__V28*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[18])));; MELT_LOCATION("warmelt-modes.melt:589:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V36*/ meltfptr[32] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:589:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check clas"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 589; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CLAS__V28*/ meltfptr[23]; /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[19])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V36*/ meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:589:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36] = 0 ; } ; } ; /*_.IFCPP___V35*/ meltfptr[33] = /*_._IFELSE___V36*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:589:/ clear"); /*clear*/ /*_#IS_A__L11*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V36*/ meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V35*/ meltfptr[33] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:590:/ cond"); /*cond*/ if (/*_.PREDEF__V32*/ meltfptr[31]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:591:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 34, "MKDOC_PREDEFMAP"); /*_.MKDOC_PREDEFMAP__V38*/ meltfptr[36] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_PREDEFMAP__V38*/ meltfptr[36] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:591:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MKDOC_PREDEFMAP__V38*/ meltfptr[36]), (meltobject_ptr_t) (/*_.PREDEF__V32*/ meltfptr[31]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14])); } ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:590:/ clear"); /*clear*/ /*_.MKDOC_PREDEFMAP__V38*/ meltfptr[36] = 0 ; } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:592:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_DOCSYM__V39*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_DOCSYM__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.DNAM__V29*/ meltfptr[28]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:593:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 28, "MKDOC_CLASSES"); /*_.MKDOC_CLASSES__V40*/ meltfptr[36] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_CLASSES__V40*/ meltfptr[36] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:593:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.MKDOC_CLASSES__V40*/ meltfptr[36]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14])); } ; MELT_LOCATION("warmelt-modes.melt:596:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLAS__V28*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[18]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLAS__V28*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); /*_.CLASS_FIELDS__V41*/ meltfptr[40] = slot; }; ; } else /*^cond.else*/ { /*_.CLASS_FIELDS__V41*/ meltfptr[40] = /*reallynil*/ NULL ;; } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit2__EACHTUP */ long meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CLASS_FIELDS__V41*/ meltfptr[40]); for (/*_#FLDIX__L12*/ meltfnum[4] = 0; (/*_#FLDIX__L12*/ meltfnum[4] >= 0) && (/*_#FLDIX__L12*/ meltfnum[4] < meltcit2__EACHTUP_ln); /*_#FLDIX__L12*/ meltfnum[4]++) { /*_.CURFLD__V42*/ meltfptr[41] = melt_multiple_nth((melt_ptr_t)(/*_.CLASS_FIELDS__V41*/ meltfptr[40]), /*_#FLDIX__L12*/ meltfnum[4]); MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:598:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V42*/ meltfptr[41]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[20]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLD__V42*/ meltfptr[41]) /*=obj*/; melt_object_get_field(slot,obj, 2, "FLD_OWNCLASS"); /*_.FLD_OWNCLASS__V43*/ meltfptr[42] = slot; }; ; } else /*^cond.else*/ { /*_.FLD_OWNCLASS__V43*/ meltfptr[42] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#eqeq__L13*/ meltfnum[5] = ((/*_.FLD_OWNCLASS__V43*/ meltfptr[42]) == (/*_.CLAS__V28*/ meltfptr[23]));; MELT_LOCATION("warmelt-modes.melt:598:/ cond"); /*cond*/ if (/*_#eqeq__L13*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:600:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V42*/ meltfptr[41]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[21]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLD__V42*/ meltfptr[41]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V44*/ meltfptr[43] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V44*/ meltfptr[43] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:600:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURFLD__V42*/ meltfptr[41]; /*_.ADD_DOCSYM__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_DOCSYM__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.NAMED_NAME__V44*/ meltfptr[43]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:601:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 27, "MKDOC_FIELDS"); /*_.MKDOC_FIELDS__V46*/ meltfptr[45] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_FIELDS__V46*/ meltfptr[45] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:601:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.MKDOC_FIELDS__V46*/ meltfptr[45]), (melt_ptr_t)(/*_.CURFLD__V42*/ meltfptr[41])); } ; MELT_LOCATION("warmelt-modes.melt:599:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-modes.melt:598:/ clear"); /*clear*/ /*_.NAMED_NAME__V44*/ meltfptr[43] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_DOCSYM__V45*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_FIELDS__V46*/ meltfptr[45] = 0 ; } ; } /*noelse*/ ; if (/*_#FLDIX__L12*/ meltfnum[4]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:595:/ clear"); /*clear*/ /*_.CURFLD__V42*/ meltfptr[41] = 0 ; /*^clear*/ /*clear*/ /*_#FLDIX__L12*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.FLD_OWNCLASS__V43*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_#eqeq__L13*/ meltfnum[5] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-modes.melt:605:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 36, "MKDOC_SUBCLASSMAP"); /*_.SUBCLMAP__V47*/ meltfptr[43] = slot; }; ; } else /*^cond.else*/ { /*_.SUBCLMAP__V47*/ meltfptr[43] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:607:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLAS__V28*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[18]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLAS__V28*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CLASS_ANCESTORS"); /*_.CLASS_ANCESTORS__V48*/ meltfptr[44] = slot; }; ; } else /*^cond.else*/ { /*_.CLASS_ANCESTORS__V48*/ meltfptr[44] = /*reallynil*/ NULL ;; } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit3__EACHTUP */ long meltcit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CLASS_ANCESTORS__V48*/ meltfptr[44]); for (/*_#ANCIX__L14*/ meltfnum[13] = 0; (/*_#ANCIX__L14*/ meltfnum[13] >= 0) && (/*_#ANCIX__L14*/ meltfnum[13] < meltcit3__EACHTUP_ln); /*_#ANCIX__L14*/ meltfnum[13]++) { /*_.CURANC__V49*/ meltfptr[45] = melt_multiple_nth((melt_ptr_t)(/*_.CLASS_ANCESTORS__V48*/ meltfptr[44]), /*_#ANCIX__L14*/ meltfnum[13]); MELT_LOCATION("warmelt-modes.melt:609:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 36, "MKDOC_SUBCLASSMAP"); /*_.MKDOC_SUBCLASSMAP__V50*/ meltfptr[49] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_SUBCLASSMAP__V50*/ meltfptr[49] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.CURANCSUBCL__V51*/ meltfptr[50] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MKDOC_SUBCLASSMAP__V50*/ meltfptr[49]), (meltobject_ptr_t)(/*_.CURANC__V49*/ meltfptr[45]));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#NULL__L15*/ meltfnum[14] = (/*null*/(/*_.CURANCSUBCL__V51*/ meltfptr[50]) == NULL);; MELT_LOCATION("warmelt-modes.melt:610:/ cond"); /*cond*/ if (/*_#NULL__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_.MAKE_LIST__V52*/ meltfptr[51] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[22]))));; MELT_LOCATION("warmelt-modes.melt:612:/ compute"); /*_.CURANCSUBCL__V51*/ meltfptr[50] = /*_.SETQ___V53*/ meltfptr[52] = /*_.MAKE_LIST__V52*/ meltfptr[51];; MELT_LOCATION("warmelt-modes.melt:614:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 36, "MKDOC_SUBCLASSMAP"); /*_.MKDOC_SUBCLASSMAP__V54*/ meltfptr[53] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_SUBCLASSMAP__V54*/ meltfptr[53] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:613:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MKDOC_SUBCLASSMAP__V54*/ meltfptr[53]), (meltobject_ptr_t) (/*_.CURANC__V49*/ meltfptr[45]), (melt_ptr_t)(/*_.CURANCSUBCL__V51*/ meltfptr[50])); } ; MELT_LOCATION("warmelt-modes.melt:611:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-modes.melt:610:/ clear"); /*clear*/ /*_.MAKE_LIST__V52*/ meltfptr[51] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V53*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_SUBCLASSMAP__V54*/ meltfptr[53] = 0 ; } ; } /*noelse*/ ; { MELT_LOCATION("warmelt-modes.melt:616:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.CURANCSUBCL__V51*/ meltfptr[50]), (melt_ptr_t)(/*_.CLAS__V28*/ meltfptr[23])); } ; MELT_LOCATION("warmelt-modes.melt:609:/ clear"); /*clear*/ /*_.MKDOC_SUBCLASSMAP__V50*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.CURANCSUBCL__V51*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L15*/ meltfnum[14] = 0 ; if (/*_#ANCIX__L14*/ meltfnum[13]<0) break; } /* end foreach_in_multiple meltcit3__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:606:/ clear"); /*clear*/ /*_.CURANC__V49*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_#ANCIX__L14*/ meltfnum[13] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-modes.melt:605:/ clear"); /*clear*/ /*_.SUBCLMAP__V47*/ meltfptr[43] = 0 ; /*^clear*/ /*clear*/ /*_.CLASS_ANCESTORS__V48*/ meltfptr[44] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:578:/ clear"); /*clear*/ /*_.CLAS__V28*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.DNAM__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.DOCLOC__V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.DOCONT__V31*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.PREDEF__V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V35*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_DOCSYM__V39*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_CLASSES__V40*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.CLASS_FIELDS__V41*/ meltfptr[40] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_4: ; MELT_LOCATION("warmelt-modes.melt:621:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_5; meltlab_count_5++; melt_debugeprintf("objlabel_5 mtch1_*CLASS_NORMTESTER_INSTANCE/2c716b59. *CLASS_OBJLABELINSTR/35757dde. %ld", meltlab_count_5); #endif ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V55*/ meltfptr[51] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_DOC__V56*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.SOBJ_PREDEF__V57*/ meltfptr[53] = 0 ; /*^clear*/ /*clear*/ /*_.SINST_CLASS__V58*/ meltfptr[49] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFSELECTOR*/ meltfrout->tabval[23]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V55*/ meltfptr[51] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.SDEF_DOC__V56*/ meltfptr[52] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SOBJ_PREDEF"); /*_.SOBJ_PREDEF__V57*/ meltfptr[53] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SINST_CLASS"); /*_.SINST_CLASS__V58*/ meltfptr[49] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:625:/ objgoto"); /*objgoto*/ goto mtch1_5; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:621:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:637:/ objgoto"); /*objgoto*/ goto mtch1_7; ; } ; } ; /*objlabel*/ mtch1_5: ; MELT_LOCATION("warmelt-modes.melt:625:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_6; meltlab_count_6++; melt_debugeprintf("objlabel_6 mtch1_*CLASS_NORMTESTER_INSTANCE/3a62bbbe. *CLASS_OBJLABELINSTR/15a4d101. %ld", meltlab_count_6); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V59*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V60*/ meltfptr[43] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SDEF_DOC__V56*/ meltfptr[52]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[16]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V56*/ meltfptr[52]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V59*/ meltfptr[50] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V56*/ meltfptr[52]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXP_CONTENTS__V60*/ meltfptr[43] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:621:/ objgoto"); /*objgoto*/ goto mtch1_6; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:625:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:637:/ objgoto"); /*objgoto*/ goto mtch1_7; ; } ; } ; /*objlabel*/ mtch1_6: ; MELT_LOCATION("warmelt-modes.melt:621:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_7; meltlab_count_7++; melt_debugeprintf("objlabel_7 mtch1_*CLASS_NORMTESTER_SUCCESS/37b14ea. *CLASS_OBJLABELINSTR/97cd44e. %ld", meltlab_count_7); #endif ; /*^quasiblock*/ /*_.DNAM__V61*/ meltfptr[44] = /*_.SDEF_NAME__V55*/ meltfptr[51];; /*^compute*/ /*_.DOCLOC__V62*/ meltfptr[23] = /*_.LOCA_LOCATION__V59*/ meltfptr[50];; /*^compute*/ /*_.DOCONT__V63*/ meltfptr[28] = /*_.SEXP_CONTENTS__V60*/ meltfptr[43];; /*^compute*/ /*_.ICLA__V64*/ meltfptr[29] = /*_.SINST_CLASS__V58*/ meltfptr[49];; /*^compute*/ /*_.PREDEF__V65*/ meltfptr[30] = /*_.SOBJ_PREDEF__V57*/ meltfptr[53];; MELT_LOCATION("warmelt-modes.melt:631:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 26, "MKDOC_SELECTORS"); /*_.MKDOC_SELECTORS__V66*/ meltfptr[31] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_SELECTORS__V66*/ meltfptr[31] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:631:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.MKDOC_SELECTORS__V66*/ meltfptr[31]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:632:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_DOCSYM__V67*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_DOCSYM__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.DNAM__V61*/ meltfptr[44]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:633:/ cond"); /*cond*/ if (/*_.PREDEF__V65*/ meltfptr[30]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:634:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 34, "MKDOC_PREDEFMAP"); /*_.MKDOC_PREDEFMAP__V68*/ meltfptr[32] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_PREDEFMAP__V68*/ meltfptr[32] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:634:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MKDOC_PREDEFMAP__V68*/ meltfptr[32]), (meltobject_ptr_t) (/*_.PREDEF__V65*/ meltfptr[30]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14])); } ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:633:/ clear"); /*clear*/ /*_.MKDOC_PREDEFMAP__V68*/ meltfptr[32] = 0 ; } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:621:/ clear"); /*clear*/ /*_.DNAM__V61*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.DOCLOC__V62*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.DOCONT__V63*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.ICLA__V64*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.PREDEF__V65*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_SELECTORS__V66*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_DOCSYM__V67*/ meltfptr[33] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_7: ; MELT_LOCATION("warmelt-modes.melt:637:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_8; meltlab_count_8++; melt_debugeprintf("objlabel_8 mtch1_*CLASS_NORMTESTER_INSTANCE/1bca851b. *CLASS_OBJLABELINSTR/5ca0270. %ld", meltlab_count_8); #endif ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V69*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_DOC__V70*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.SOBJ_PREDEF__V71*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.SINST_CLASS__V72*/ meltfptr[32] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINSTANCE*/ meltfrout->tabval[24]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V69*/ meltfptr[36] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.SDEF_DOC__V70*/ meltfptr[40] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SOBJ_PREDEF"); /*_.SOBJ_PREDEF__V71*/ meltfptr[52] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SINST_CLASS"); /*_.SINST_CLASS__V72*/ meltfptr[32] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:641:/ objgoto"); /*objgoto*/ goto mtch1_8; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:637:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:654:/ objgoto"); /*objgoto*/ goto mtch1_10; ; } ; } ; /*objlabel*/ mtch1_8: ; MELT_LOCATION("warmelt-modes.melt:641:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_9; meltlab_count_9++; melt_debugeprintf("objlabel_9 mtch1_*CLASS_NORMTESTER_INSTANCE/2bc2a21f. *CLASS_OBJLABELINSTR/31cc520a. %ld", meltlab_count_9); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V73*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V74*/ meltfptr[23] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SDEF_DOC__V70*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[16]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V70*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V73*/ meltfptr[44] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V70*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXP_CONTENTS__V74*/ meltfptr[23] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:637:/ objgoto"); /*objgoto*/ goto mtch1_9; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:641:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:654:/ objgoto"); /*objgoto*/ goto mtch1_10; ; } ; } ; /*objlabel*/ mtch1_9: ; MELT_LOCATION("warmelt-modes.melt:637:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_10; meltlab_count_10++; melt_debugeprintf("objlabel_10 mtch1_*CLASS_NORMTESTER_SUCCESS/129945ff. *CLASS_OBJLABELINSTR/3b0f53a1. %ld", meltlab_count_10); #endif ; /*^quasiblock*/ /*_.DNAM__V75*/ meltfptr[28] = /*_.SDEF_NAME__V69*/ meltfptr[36];; /*^compute*/ /*_.DOCLOC__V76*/ meltfptr[29] = /*_.LOCA_LOCATION__V73*/ meltfptr[44];; /*^compute*/ /*_.DOCONT__V77*/ meltfptr[30] = /*_.SEXP_CONTENTS__V74*/ meltfptr[23];; /*^compute*/ /*_.ICLA__V78*/ meltfptr[31] = /*_.SINST_CLASS__V72*/ meltfptr[32];; /*^compute*/ /*_.PREDEF__V79*/ meltfptr[33] = /*_.SOBJ_PREDEF__V71*/ meltfptr[52];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:647:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_DOCSYM__V80*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_DOCSYM__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.DNAM__V75*/ meltfptr[28]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:648:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 29, "MKDOC_INSTANCES"); /*_.MKDOC_INSTANCES__V81*/ meltfptr[80] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_INSTANCES__V81*/ meltfptr[80] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:648:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.MKDOC_INSTANCES__V81*/ meltfptr[80]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:649:/ cond"); /*cond*/ if (/*_.PREDEF__V79*/ meltfptr[33]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:650:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 34, "MKDOC_PREDEFMAP"); /*_.MKDOC_PREDEFMAP__V82*/ meltfptr[81] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_PREDEFMAP__V82*/ meltfptr[81] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:650:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MKDOC_PREDEFMAP__V82*/ meltfptr[81]), (meltobject_ptr_t) (/*_.PREDEF__V79*/ meltfptr[33]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14])); } ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:649:/ clear"); /*clear*/ /*_.MKDOC_PREDEFMAP__V82*/ meltfptr[81] = 0 ; } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:637:/ clear"); /*clear*/ /*_.DNAM__V75*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.DOCLOC__V76*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.DOCONT__V77*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.ICLA__V78*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.PREDEF__V79*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_DOCSYM__V80*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_INSTANCES__V81*/ meltfptr[80] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_10: ; MELT_LOCATION("warmelt-modes.melt:654:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_11; meltlab_count_11++; melt_debugeprintf("objlabel_11 mtch1_*CLASS_NORMTESTER_INSTANCE/1b66c438. *CLASS_OBJLABELINSTR/290c5dcc. %ld", meltlab_count_11); #endif ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V83*/ meltfptr[81] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_DOC__V84*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.SFORMAL_ARGS__V85*/ meltfptr[29] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ meltfrout->tabval[25]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V83*/ meltfptr[81] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.SDEF_DOC__V84*/ meltfptr[28] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS"); /*_.SFORMAL_ARGS__V85*/ meltfptr[29] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:658:/ objgoto"); /*objgoto*/ goto mtch1_11; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:654:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:672:/ objgoto"); /*objgoto*/ goto mtch1_13; ; } ; } ; /*objlabel*/ mtch1_11: ; MELT_LOCATION("warmelt-modes.melt:658:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_12; meltlab_count_12++; melt_debugeprintf("objlabel_12 mtch1_*CLASS_NORMTESTER_INSTANCE/17944432. *CLASS_OBJLABELINSTR/301299ac. %ld", meltlab_count_12); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V86*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V87*/ meltfptr[31] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SDEF_DOC__V84*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[16]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V84*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V86*/ meltfptr[30] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V84*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXP_CONTENTS__V87*/ meltfptr[31] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:654:/ objgoto"); /*objgoto*/ goto mtch1_12; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:658:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:672:/ objgoto"); /*objgoto*/ goto mtch1_13; ; } ; } ; /*objlabel*/ mtch1_12: ; MELT_LOCATION("warmelt-modes.melt:654:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_13; meltlab_count_13++; melt_debugeprintf("objlabel_13 mtch1_*CLASS_NORMTESTER_SUCCESS/1e87939c. *CLASS_OBJLABELINSTR/1e3c1c6a. %ld", meltlab_count_13); #endif ; /*^quasiblock*/ /*_.DNAM__V88*/ meltfptr[33] = /*_.SDEF_NAME__V83*/ meltfptr[81];; /*^compute*/ /*_.DOCLOC__V89*/ meltfptr[40] = /*_.LOCA_LOCATION__V86*/ meltfptr[30];; /*^compute*/ /*_.DOCONT__V90*/ meltfptr[80] = /*_.SEXP_CONTENTS__V87*/ meltfptr[31];; /*^compute*/ /*_.FORMARGS__V91*/ meltfptr[28] = /*_.SFORMAL_ARGS__V85*/ meltfptr[29];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:663:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_DOCSYM__V92*/ meltfptr[91] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_DOCSYM__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.DNAM__V88*/ meltfptr[33]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:664:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 22, "MKDOC_PRIMITIVES"); /*_.MKDOC_PRIMITIVES__V93*/ meltfptr[92] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_PRIMITIVES__V93*/ meltfptr[92] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:664:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.MKDOC_PRIMITIVES__V93*/ meltfptr[92]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14])); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit4__EACHTUP */ long meltcit4__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FORMARGS__V91*/ meltfptr[28]); for (/*_#FORMIX__L16*/ meltfnum[14] = 0; (/*_#FORMIX__L16*/ meltfnum[14] >= 0) && (/*_#FORMIX__L16*/ meltfnum[14] < meltcit4__EACHTUP_ln); /*_#FORMIX__L16*/ meltfnum[14]++) { /*_.CURFORMB__V94*/ meltfptr[93] = melt_multiple_nth((melt_ptr_t)(/*_.FORMARGS__V91*/ meltfptr[28]), /*_#FORMIX__L16*/ meltfnum[14]); MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:668:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_FORMAL_OCC__V95*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_FORMAL_OCC__V13*/ meltfptr[12]), (melt_ptr_t)(/*_.CURFORMB__V94*/ meltfptr[93]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#FORMIX__L16*/ meltfnum[14]<0) break; } /* end foreach_in_multiple meltcit4__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:665:/ clear"); /*clear*/ /*_.CURFORMB__V94*/ meltfptr[93] = 0 ; /*^clear*/ /*clear*/ /*_#FORMIX__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_FORMAL_OCC__V95*/ meltfptr[94] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:654:/ clear"); /*clear*/ /*_.DNAM__V88*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.DOCLOC__V89*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.DOCONT__V90*/ meltfptr[80] = 0 ; /*^clear*/ /*clear*/ /*_.FORMARGS__V91*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_DOCSYM__V92*/ meltfptr[91] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_PRIMITIVES__V93*/ meltfptr[92] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_13: ; MELT_LOCATION("warmelt-modes.melt:672:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_14; meltlab_count_14++; melt_debugeprintf("objlabel_14 mtch1_*CLASS_NORMTESTER_INSTANCE/1248cca9. *CLASS_OBJLABELINSTR/eca7a09. %ld", meltlab_count_14); #endif ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V96*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_DOC__V97*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.SFORMAL_ARGS__V98*/ meltfptr[80] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFMACRO*/ meltfrout->tabval[26]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V96*/ meltfptr[33] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.SDEF_DOC__V97*/ meltfptr[40] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS"); /*_.SFORMAL_ARGS__V98*/ meltfptr[80] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:676:/ objgoto"); /*objgoto*/ goto mtch1_14; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:672:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:690:/ objgoto"); /*objgoto*/ goto mtch1_16; ; } ; } ; /*objlabel*/ mtch1_14: ; MELT_LOCATION("warmelt-modes.melt:676:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_15; meltlab_count_15++; melt_debugeprintf("objlabel_15 mtch1_*CLASS_NORMTESTER_INSTANCE/2a28d738. *CLASS_OBJLABELINSTR/20a1d6ee. %ld", meltlab_count_15); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V99*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V100*/ meltfptr[91] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SDEF_DOC__V97*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[16]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V97*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V99*/ meltfptr[28] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V97*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXP_CONTENTS__V100*/ meltfptr[91] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:672:/ objgoto"); /*objgoto*/ goto mtch1_15; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:676:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:690:/ objgoto"); /*objgoto*/ goto mtch1_16; ; } ; } ; /*objlabel*/ mtch1_15: ; MELT_LOCATION("warmelt-modes.melt:672:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_16; meltlab_count_16++; melt_debugeprintf("objlabel_16 mtch1_*CLASS_NORMTESTER_SUCCESS/23777a76. *CLASS_OBJLABELINSTR/2258a6f2. %ld", meltlab_count_16); #endif ; /*^quasiblock*/ /*_.DNAM__V101*/ meltfptr[92] = /*_.SDEF_NAME__V96*/ meltfptr[33];; /*^compute*/ /*_.DOCLOC__V102*/ meltfptr[40] = /*_.LOCA_LOCATION__V99*/ meltfptr[28];; /*^compute*/ /*_.DOCONT__V103*/ meltfptr[102] = /*_.SEXP_CONTENTS__V100*/ meltfptr[91];; /*^compute*/ /*_.FORMARGS__V104*/ meltfptr[103] = /*_.SFORMAL_ARGS__V98*/ meltfptr[80];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:681:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_DOCSYM__V105*/ meltfptr[104] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_DOCSYM__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.DNAM__V101*/ meltfptr[92]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:682:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 30, "MKDOC_MACROS"); /*_.MKDOC_MACROS__V106*/ meltfptr[105] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_MACROS__V106*/ meltfptr[105] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:682:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.MKDOC_MACROS__V106*/ meltfptr[105]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14])); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit5__EACHTUP */ long meltcit5__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FORMARGS__V104*/ meltfptr[103]); for (/*_#FORMIX__L17*/ meltfnum[16] = 0; (/*_#FORMIX__L17*/ meltfnum[16] >= 0) && (/*_#FORMIX__L17*/ meltfnum[16] < meltcit5__EACHTUP_ln); /*_#FORMIX__L17*/ meltfnum[16]++) { /*_.CURFORMB__V107*/ meltfptr[106] = melt_multiple_nth((melt_ptr_t)(/*_.FORMARGS__V104*/ meltfptr[103]), /*_#FORMIX__L17*/ meltfnum[16]); MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:686:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_FORMAL_OCC__V108*/ meltfptr[107] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_FORMAL_OCC__V13*/ meltfptr[12]), (melt_ptr_t)(/*_.CURFORMB__V107*/ meltfptr[106]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#FORMIX__L17*/ meltfnum[16]<0) break; } /* end foreach_in_multiple meltcit5__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:683:/ clear"); /*clear*/ /*_.CURFORMB__V107*/ meltfptr[106] = 0 ; /*^clear*/ /*clear*/ /*_#FORMIX__L17*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_FORMAL_OCC__V108*/ meltfptr[107] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:672:/ clear"); /*clear*/ /*_.DNAM__V101*/ meltfptr[92] = 0 ; /*^clear*/ /*clear*/ /*_.DOCLOC__V102*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.DOCONT__V103*/ meltfptr[102] = 0 ; /*^clear*/ /*clear*/ /*_.FORMARGS__V104*/ meltfptr[103] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_DOCSYM__V105*/ meltfptr[104] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_MACROS__V106*/ meltfptr[105] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_16: ; MELT_LOCATION("warmelt-modes.melt:690:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_17; meltlab_count_17++; melt_debugeprintf("objlabel_17 mtch1_*CLASS_NORMTESTER_INSTANCE/3e85fc14. *CLASS_OBJLABELINSTR/2a4b573e. %ld", meltlab_count_17); #endif ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V109*/ meltfptr[92] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_DOC__V110*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.SFORMAL_ARGS__V111*/ meltfptr[102] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFUN*/ meltfrout->tabval[27]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V109*/ meltfptr[92] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.SDEF_DOC__V110*/ meltfptr[40] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS"); /*_.SFORMAL_ARGS__V111*/ meltfptr[102] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:694:/ objgoto"); /*objgoto*/ goto mtch1_17; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:690:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:708:/ objgoto"); /*objgoto*/ goto mtch1_19; ; } ; } ; /*objlabel*/ mtch1_17: ; MELT_LOCATION("warmelt-modes.melt:694:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_18; meltlab_count_18++; melt_debugeprintf("objlabel_18 mtch1_*CLASS_NORMTESTER_INSTANCE/17be757b. *CLASS_OBJLABELINSTR/2f31d7b0. %ld", meltlab_count_18); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V112*/ meltfptr[103] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V113*/ meltfptr[104] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SDEF_DOC__V110*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[16]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V110*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V112*/ meltfptr[103] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V110*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXP_CONTENTS__V113*/ meltfptr[104] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:690:/ objgoto"); /*objgoto*/ goto mtch1_18; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:694:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:708:/ objgoto"); /*objgoto*/ goto mtch1_19; ; } ; } ; /*objlabel*/ mtch1_18: ; MELT_LOCATION("warmelt-modes.melt:690:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_19; meltlab_count_19++; melt_debugeprintf("objlabel_19 mtch1_*CLASS_NORMTESTER_SUCCESS/1152811d. *CLASS_OBJLABELINSTR/215e4e2e. %ld", meltlab_count_19); #endif ; /*^quasiblock*/ /*_.DNAM__V114*/ meltfptr[105] = /*_.SDEF_NAME__V109*/ meltfptr[92];; /*^compute*/ /*_.DOCLOC__V115*/ meltfptr[40] = /*_.LOCA_LOCATION__V112*/ meltfptr[103];; /*^compute*/ /*_.DOCONT__V116*/ meltfptr[115] = /*_.SEXP_CONTENTS__V113*/ meltfptr[104];; /*^compute*/ /*_.FORMARGS__V117*/ meltfptr[116] = /*_.SFORMAL_ARGS__V111*/ meltfptr[102];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:699:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_DOCSYM__V118*/ meltfptr[117] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_DOCSYM__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.DNAM__V114*/ meltfptr[105]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:700:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 23, "MKDOC_FUNCTIONS"); /*_.MKDOC_FUNCTIONS__V119*/ meltfptr[118] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_FUNCTIONS__V119*/ meltfptr[118] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:700:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.MKDOC_FUNCTIONS__V119*/ meltfptr[118]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14])); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit6__EACHTUP */ long meltcit6__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FORMARGS__V117*/ meltfptr[116]); for (/*_#FORMIX__L18*/ meltfnum[17] = 0; (/*_#FORMIX__L18*/ meltfnum[17] >= 0) && (/*_#FORMIX__L18*/ meltfnum[17] < meltcit6__EACHTUP_ln); /*_#FORMIX__L18*/ meltfnum[17]++) { /*_.CURFORMB__V120*/ meltfptr[119] = melt_multiple_nth((melt_ptr_t)(/*_.FORMARGS__V117*/ meltfptr[116]), /*_#FORMIX__L18*/ meltfnum[17]); MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:704:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_FORMAL_OCC__V121*/ meltfptr[120] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_FORMAL_OCC__V13*/ meltfptr[12]), (melt_ptr_t)(/*_.CURFORMB__V120*/ meltfptr[119]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#FORMIX__L18*/ meltfnum[17]<0) break; } /* end foreach_in_multiple meltcit6__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:701:/ clear"); /*clear*/ /*_.CURFORMB__V120*/ meltfptr[119] = 0 ; /*^clear*/ /*clear*/ /*_#FORMIX__L18*/ meltfnum[17] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_FORMAL_OCC__V121*/ meltfptr[120] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:690:/ clear"); /*clear*/ /*_.DNAM__V114*/ meltfptr[105] = 0 ; /*^clear*/ /*clear*/ /*_.DOCLOC__V115*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.DOCONT__V116*/ meltfptr[115] = 0 ; /*^clear*/ /*clear*/ /*_.FORMARGS__V117*/ meltfptr[116] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_DOCSYM__V118*/ meltfptr[117] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_FUNCTIONS__V119*/ meltfptr[118] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_19: ; MELT_LOCATION("warmelt-modes.melt:708:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_20; meltlab_count_20++; melt_debugeprintf("objlabel_20 mtch1_*CLASS_NORMTESTER_INSTANCE/115d6ed3. *CLASS_OBJLABELINSTR/38f8cd3f. %ld", meltlab_count_20); #endif ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V122*/ meltfptr[105] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_DOC__V123*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.SFORMAL_ARGS__V124*/ meltfptr[115] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCITERATOR*/ meltfrout->tabval[28]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V122*/ meltfptr[105] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.SDEF_DOC__V123*/ meltfptr[40] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS"); /*_.SFORMAL_ARGS__V124*/ meltfptr[115] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:712:/ objgoto"); /*objgoto*/ goto mtch1_20; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:708:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:726:/ objgoto"); /*objgoto*/ goto mtch1_22; ; } ; } ; /*objlabel*/ mtch1_20: ; MELT_LOCATION("warmelt-modes.melt:712:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_21; meltlab_count_21++; melt_debugeprintf("objlabel_21 mtch1_*CLASS_NORMTESTER_INSTANCE/12c6d2d4. *CLASS_OBJLABELINSTR/eccde9c. %ld", meltlab_count_21); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V125*/ meltfptr[116] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V126*/ meltfptr[117] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SDEF_DOC__V123*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[16]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V123*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V125*/ meltfptr[116] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V123*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXP_CONTENTS__V126*/ meltfptr[117] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:708:/ objgoto"); /*objgoto*/ goto mtch1_21; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:712:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:726:/ objgoto"); /*objgoto*/ goto mtch1_22; ; } ; } ; /*objlabel*/ mtch1_21: ; MELT_LOCATION("warmelt-modes.melt:708:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_22; meltlab_count_22++; melt_debugeprintf("objlabel_22 mtch1_*CLASS_NORMTESTER_SUCCESS/4051ebb. *CLASS_OBJLABELINSTR/3e3e2069. %ld", meltlab_count_22); #endif ; /*^quasiblock*/ /*_.DNAM__V127*/ meltfptr[118] = /*_.SDEF_NAME__V122*/ meltfptr[105];; /*^compute*/ /*_.DOCLOC__V128*/ meltfptr[40] = /*_.LOCA_LOCATION__V125*/ meltfptr[116];; /*^compute*/ /*_.DOCONT__V129*/ meltfptr[128] = /*_.SEXP_CONTENTS__V126*/ meltfptr[117];; /*^compute*/ /*_.FORMARGS__V130*/ meltfptr[129] = /*_.SFORMAL_ARGS__V124*/ meltfptr[115];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:717:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_DOCSYM__V131*/ meltfptr[130] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_DOCSYM__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.DNAM__V127*/ meltfptr[118]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:718:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 24, "MKDOC_CITERATORS"); /*_.MKDOC_CITERATORS__V132*/ meltfptr[131] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_CITERATORS__V132*/ meltfptr[131] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:718:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.MKDOC_CITERATORS__V132*/ meltfptr[131]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14])); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit7__EACHTUP */ long meltcit7__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FORMARGS__V130*/ meltfptr[129]); for (/*_#FORMIX__L19*/ meltfnum[18] = 0; (/*_#FORMIX__L19*/ meltfnum[18] >= 0) && (/*_#FORMIX__L19*/ meltfnum[18] < meltcit7__EACHTUP_ln); /*_#FORMIX__L19*/ meltfnum[18]++) { /*_.CURFORMB__V133*/ meltfptr[132] = melt_multiple_nth((melt_ptr_t)(/*_.FORMARGS__V130*/ meltfptr[129]), /*_#FORMIX__L19*/ meltfnum[18]); MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:722:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_FORMAL_OCC__V134*/ meltfptr[133] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_FORMAL_OCC__V13*/ meltfptr[12]), (melt_ptr_t)(/*_.CURFORMB__V133*/ meltfptr[132]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#FORMIX__L19*/ meltfnum[18]<0) break; } /* end foreach_in_multiple meltcit7__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:719:/ clear"); /*clear*/ /*_.CURFORMB__V133*/ meltfptr[132] = 0 ; /*^clear*/ /*clear*/ /*_#FORMIX__L19*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_FORMAL_OCC__V134*/ meltfptr[133] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:708:/ clear"); /*clear*/ /*_.DNAM__V127*/ meltfptr[118] = 0 ; /*^clear*/ /*clear*/ /*_.DOCLOC__V128*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.DOCONT__V129*/ meltfptr[128] = 0 ; /*^clear*/ /*clear*/ /*_.FORMARGS__V130*/ meltfptr[129] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_DOCSYM__V131*/ meltfptr[130] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_CITERATORS__V132*/ meltfptr[131] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_22: ; MELT_LOCATION("warmelt-modes.melt:726:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_23; meltlab_count_23++; melt_debugeprintf("objlabel_23 mtch1_*CLASS_NORMTESTER_INSTANCE/2d861030. *CLASS_OBJLABELINSTR/16521fb7. %ld", meltlab_count_23); #endif ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V135*/ meltfptr[118] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_DOC__V136*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.SFORMAL_ARGS__V137*/ meltfptr[128] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ meltfrout->tabval[29]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V135*/ meltfptr[118] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.SDEF_DOC__V136*/ meltfptr[40] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS"); /*_.SFORMAL_ARGS__V137*/ meltfptr[128] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:730:/ objgoto"); /*objgoto*/ goto mtch1_23; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:726:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:744:/ objgoto"); /*objgoto*/ goto mtch1_25; ; } ; } ; /*objlabel*/ mtch1_23: ; MELT_LOCATION("warmelt-modes.melt:730:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_24; meltlab_count_24++; melt_debugeprintf("objlabel_24 mtch1_*CLASS_NORMTESTER_INSTANCE/76de007. *CLASS_OBJLABELINSTR/8ff4a90. %ld", meltlab_count_24); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V138*/ meltfptr[129] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V139*/ meltfptr[130] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SDEF_DOC__V136*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[16]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V136*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V138*/ meltfptr[129] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V136*/ meltfptr[40]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXP_CONTENTS__V139*/ meltfptr[130] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:726:/ objgoto"); /*objgoto*/ goto mtch1_24; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:730:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:744:/ objgoto"); /*objgoto*/ goto mtch1_25; ; } ; } ; /*objlabel*/ mtch1_24: ; MELT_LOCATION("warmelt-modes.melt:726:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_25; meltlab_count_25++; melt_debugeprintf("objlabel_25 mtch1_*CLASS_NORMTESTER_SUCCESS/2f7048ad. *CLASS_OBJLABELINSTR/3a9a4afb. %ld", meltlab_count_25); #endif ; /*^quasiblock*/ /*_.DNAM__V140*/ meltfptr[131] = /*_.SDEF_NAME__V135*/ meltfptr[118];; /*^compute*/ /*_.DOCLOC__V141*/ meltfptr[40] = /*_.LOCA_LOCATION__V138*/ meltfptr[129];; /*^compute*/ /*_.DOCONT__V142*/ meltfptr[141] = /*_.SEXP_CONTENTS__V139*/ meltfptr[130];; /*^compute*/ /*_.FORMARGS__V143*/ meltfptr[142] = /*_.SFORMAL_ARGS__V137*/ meltfptr[128];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:735:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_DOCSYM__V144*/ meltfptr[143] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_DOCSYM__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.DNAM__V140*/ meltfptr[131]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:736:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 25, "MKDOC_CMATCHERS"); /*_.MKDOC_CMATCHERS__V145*/ meltfptr[144] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_CMATCHERS__V145*/ meltfptr[144] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:736:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.MKDOC_CMATCHERS__V145*/ meltfptr[144]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14])); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit8__EACHTUP */ long meltcit8__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FORMARGS__V143*/ meltfptr[142]); for (/*_#FORMIX__L20*/ meltfnum[19] = 0; (/*_#FORMIX__L20*/ meltfnum[19] >= 0) && (/*_#FORMIX__L20*/ meltfnum[19] < meltcit8__EACHTUP_ln); /*_#FORMIX__L20*/ meltfnum[19]++) { /*_.CURFORMB__V146*/ meltfptr[145] = melt_multiple_nth((melt_ptr_t)(/*_.FORMARGS__V143*/ meltfptr[142]), /*_#FORMIX__L20*/ meltfnum[19]); MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:740:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_FORMAL_OCC__V147*/ meltfptr[146] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_FORMAL_OCC__V13*/ meltfptr[12]), (melt_ptr_t)(/*_.CURFORMB__V146*/ meltfptr[145]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#FORMIX__L20*/ meltfnum[19]<0) break; } /* end foreach_in_multiple meltcit8__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:737:/ clear"); /*clear*/ /*_.CURFORMB__V146*/ meltfptr[145] = 0 ; /*^clear*/ /*clear*/ /*_#FORMIX__L20*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_FORMAL_OCC__V147*/ meltfptr[146] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:726:/ clear"); /*clear*/ /*_.DNAM__V140*/ meltfptr[131] = 0 ; /*^clear*/ /*clear*/ /*_.DOCLOC__V141*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.DOCONT__V142*/ meltfptr[141] = 0 ; /*^clear*/ /*clear*/ /*_.FORMARGS__V143*/ meltfptr[142] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_DOCSYM__V144*/ meltfptr[143] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_CMATCHERS__V145*/ meltfptr[144] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_25: ; MELT_LOCATION("warmelt-modes.melt:744:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_26; meltlab_count_26++; melt_debugeprintf("objlabel_26 mtch1_*CLASS_NORMTESTER_INSTANCE/3575e798. *CLASS_OBJLABELINSTR/3a38224a. %ld", meltlab_count_26); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V148*/ meltfptr[131] = 0 ; /*^clear*/ /*clear*/ /*_.SEXPMAC_MNAME__V149*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.SEXPMAC_DOC__V150*/ meltfptr[141] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_PATMACRO*/ meltfrout->tabval[30]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V148*/ meltfptr[131] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXPMAC_MNAME"); /*_.SEXPMAC_MNAME__V149*/ meltfptr[40] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SEXPMAC_DOC"); /*_.SEXPMAC_DOC__V150*/ meltfptr[141] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:749:/ objgoto"); /*objgoto*/ goto mtch1_26; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:744:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:758:/ objgoto"); /*objgoto*/ goto mtch1_28; ; } ; } ; /*objlabel*/ mtch1_26: ; MELT_LOCATION("warmelt-modes.melt:749:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_27; meltlab_count_27++; melt_debugeprintf("objlabel_27 mtch1_*CLASS_NORMTESTER_INSTANCE/29ea6cc. *CLASS_OBJLABELINSTR/346cf502. %ld", meltlab_count_27); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V151*/ meltfptr[142] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V152*/ meltfptr[143] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SEXPMAC_DOC__V150*/ meltfptr[141]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[16]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPMAC_DOC__V150*/ meltfptr[141]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V151*/ meltfptr[142] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPMAC_DOC__V150*/ meltfptr[141]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXP_CONTENTS__V152*/ meltfptr[143] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:744:/ objgoto"); /*objgoto*/ goto mtch1_27; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:749:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:758:/ objgoto"); /*objgoto*/ goto mtch1_28; ; } ; } ; /*objlabel*/ mtch1_27: ; MELT_LOCATION("warmelt-modes.melt:744:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_28; meltlab_count_28++; melt_debugeprintf("objlabel_28 mtch1_*CLASS_NORMTESTER_SUCCESS/32863c04. *CLASS_OBJLABELINSTR/195c2dd7. %ld", meltlab_count_28); #endif ; /*^quasiblock*/ /*_.DOCLOC__V153*/ meltfptr[144] = /*_.LOCA_LOCATION__V151*/ meltfptr[142];; /*^compute*/ /*_.DOCONT__V154*/ meltfptr[141] = /*_.SEXP_CONTENTS__V152*/ meltfptr[143];; /*^compute*/ /*_.LOC__V155*/ meltfptr[154] = /*_.LOCA_LOCATION__V148*/ meltfptr[131];; /*^compute*/ /*_.MNAME__V156*/ meltfptr[155] = /*_.SEXPMAC_MNAME__V149*/ meltfptr[40];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:753:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_DOCSYM__V157*/ meltfptr[156] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_DOCSYM__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.MNAME__V156*/ meltfptr[155]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:754:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 31, "MKDOC_PATMACROS"); /*_.MKDOC_PATMACROS__V158*/ meltfptr[157] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_PATMACROS__V158*/ meltfptr[157] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:754:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.MKDOC_PATMACROS__V158*/ meltfptr[157]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:744:/ clear"); /*clear*/ /*_.DOCLOC__V153*/ meltfptr[144] = 0 ; /*^clear*/ /*clear*/ /*_.DOCONT__V154*/ meltfptr[141] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V155*/ meltfptr[154] = 0 ; /*^clear*/ /*clear*/ /*_.MNAME__V156*/ meltfptr[155] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_DOCSYM__V157*/ meltfptr[156] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_PATMACROS__V158*/ meltfptr[157] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_28: ; MELT_LOCATION("warmelt-modes.melt:758:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_29; meltlab_count_29++; melt_debugeprintf("objlabel_29 mtch1_*CLASS_NORMTESTER_INSTANCE/21fefdf9. *CLASS_OBJLABELINSTR/2e239d2. %ld", meltlab_count_29); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V159*/ meltfptr[144] = 0 ; /*^clear*/ /*clear*/ /*_.SEXPMAC_MNAME__V160*/ meltfptr[141] = 0 ; /*^clear*/ /*clear*/ /*_.SEXPMAC_DOC__V161*/ meltfptr[154] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ meltfrout->tabval[31]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V159*/ meltfptr[144] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXPMAC_MNAME"); /*_.SEXPMAC_MNAME__V160*/ meltfptr[141] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SEXPMAC_DOC"); /*_.SEXPMAC_DOC__V161*/ meltfptr[154] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:763:/ objgoto"); /*objgoto*/ goto mtch1_29; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:758:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:772:/ objgoto"); /*objgoto*/ goto mtch1_31; ; } ; } ; /*objlabel*/ mtch1_29: ; MELT_LOCATION("warmelt-modes.melt:763:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_30; meltlab_count_30++; melt_debugeprintf("objlabel_30 mtch1_*CLASS_NORMTESTER_INSTANCE/34e57e67. *CLASS_OBJLABELINSTR/3783bc5a. %ld", meltlab_count_30); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V162*/ meltfptr[155] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V163*/ meltfptr[156] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SEXPMAC_DOC__V161*/ meltfptr[154]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[16]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPMAC_DOC__V161*/ meltfptr[154]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V162*/ meltfptr[155] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPMAC_DOC__V161*/ meltfptr[154]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXP_CONTENTS__V163*/ meltfptr[156] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:758:/ objgoto"); /*objgoto*/ goto mtch1_30; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:763:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:772:/ objgoto"); /*objgoto*/ goto mtch1_31; ; } ; } ; /*objlabel*/ mtch1_30: ; MELT_LOCATION("warmelt-modes.melt:758:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_31; meltlab_count_31++; melt_debugeprintf("objlabel_31 mtch1_*CLASS_NORMTESTER_SUCCESS/1f1406c. *CLASS_OBJLABELINSTR/2fa69259. %ld", meltlab_count_31); #endif ; /*^quasiblock*/ /*_.DOCLOC__V164*/ meltfptr[157] = /*_.LOCA_LOCATION__V162*/ meltfptr[155];; /*^compute*/ /*_.DOCONT__V165*/ meltfptr[154] = /*_.SEXP_CONTENTS__V163*/ meltfptr[156];; /*^compute*/ /*_.LOC__V166*/ meltfptr[165] = /*_.LOCA_LOCATION__V159*/ meltfptr[144];; /*^compute*/ /*_.MNAME__V167*/ meltfptr[166] = /*_.SEXPMAC_MNAME__V160*/ meltfptr[141];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:767:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_DOCSYM__V168*/ meltfptr[167] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_DOCSYM__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.MNAME__V167*/ meltfptr[166]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:768:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 30, "MKDOC_MACROS"); /*_.MKDOC_MACROS__V169*/ meltfptr[168] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_MACROS__V169*/ meltfptr[168] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:768:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.MKDOC_MACROS__V169*/ meltfptr[168]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:758:/ clear"); /*clear*/ /*_.DOCLOC__V164*/ meltfptr[157] = 0 ; /*^clear*/ /*clear*/ /*_.DOCONT__V165*/ meltfptr[154] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V166*/ meltfptr[165] = 0 ; /*^clear*/ /*clear*/ /*_.MNAME__V167*/ meltfptr[166] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_DOCSYM__V168*/ meltfptr[167] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_MACROS__V169*/ meltfptr[168] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_31: ; MELT_LOCATION("warmelt-modes.melt:772:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_32; meltlab_count_32++; melt_debugeprintf("objlabel_32 mtch1_*CLASS_NORMTESTER_INSTANCE/967d0d0. *CLASS_OBJLABELINSTR/25715f28. %ld", meltlab_count_32); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V170*/ meltfptr[157] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V171*/ meltfptr[154] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_DOC__V172*/ meltfptr[165] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFHOOK*/ meltfrout->tabval[32]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V170*/ meltfptr[157] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V171*/ meltfptr[154] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.SDEF_DOC__V172*/ meltfptr[165] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:777:/ objgoto"); /*objgoto*/ goto mtch1_32; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:772:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:786:/ objgoto"); /*objgoto*/ goto mtch1_34; ; } ; } ; /*objlabel*/ mtch1_32: ; MELT_LOCATION("warmelt-modes.melt:777:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_33; meltlab_count_33++; melt_debugeprintf("objlabel_33 mtch1_*CLASS_NORMTESTER_INSTANCE/189dfd3f. *CLASS_OBJLABELINSTR/ee8dd15. %ld", meltlab_count_33); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V173*/ meltfptr[166] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V174*/ meltfptr[167] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SDEF_DOC__V172*/ meltfptr[165]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[16]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V172*/ meltfptr[165]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V173*/ meltfptr[166] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V172*/ meltfptr[165]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXP_CONTENTS__V174*/ meltfptr[167] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:772:/ objgoto"); /*objgoto*/ goto mtch1_33; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:777:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:786:/ objgoto"); /*objgoto*/ goto mtch1_34; ; } ; } ; /*objlabel*/ mtch1_33: ; MELT_LOCATION("warmelt-modes.melt:772:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_34; meltlab_count_34++; melt_debugeprintf("objlabel_34 mtch1_*CLASS_NORMTESTER_SUCCESS/30b29a53. *CLASS_OBJLABELINSTR/1cb52cb1. %ld", meltlab_count_34); #endif ; /*^quasiblock*/ /*_.DOCLOC__V175*/ meltfptr[168] = /*_.LOCA_LOCATION__V173*/ meltfptr[166];; /*^compute*/ /*_.DOCONT__V176*/ meltfptr[165] = /*_.SEXP_CONTENTS__V174*/ meltfptr[167];; /*^compute*/ /*_.LOC__V177*/ meltfptr[176] = /*_.LOCA_LOCATION__V170*/ meltfptr[157];; /*^compute*/ /*_.MNAME__V178*/ meltfptr[177] = /*_.SDEF_NAME__V171*/ meltfptr[154];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:781:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.ADD_DOCSYM__V179*/ meltfptr[178] = melt_apply ((meltclosure_ptr_t)(/*_.ADD_DOCSYM__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.MNAME__V178*/ meltfptr[177]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:782:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 32, "MKDOC_HOOKS"); /*_.MKDOC_HOOKS__V180*/ meltfptr[179] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_HOOKS__V180*/ meltfptr[179] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:782:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.MKDOC_HOOKS__V180*/ meltfptr[179]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:772:/ clear"); /*clear*/ /*_.DOCLOC__V175*/ meltfptr[168] = 0 ; /*^clear*/ /*clear*/ /*_.DOCONT__V176*/ meltfptr[165] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V177*/ meltfptr[176] = 0 ; /*^clear*/ /*clear*/ /*_.MNAME__V178*/ meltfptr[177] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_DOCSYM__V179*/ meltfptr[178] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_HOOKS__V180*/ meltfptr[179] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_34: ; MELT_LOCATION("warmelt-modes.melt:786:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_35; meltlab_count_35++; melt_debugeprintf("objlabel_35 mtch1_*CLASS_NORMTESTER_INSTANCE/16b14af7. *CLASS_OBJLABELINSTR/1f63bf1. %ld", meltlab_count_35); #endif ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V181*/ meltfptr[168] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_DOC__V182*/ meltfptr[165] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[33]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V181*/ meltfptr[168] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.SDEF_DOC__V182*/ meltfptr[165] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:790:/ objgoto"); /*objgoto*/ goto mtch1_35; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:786:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:795:/ objgoto"); /*objgoto*/ goto mtch1_37; ; } ; } ; /*objlabel*/ mtch1_35: ; MELT_LOCATION("warmelt-modes.melt:790:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_36; meltlab_count_36++; melt_debugeprintf("objlabel_36 mtch1_*CLASS_NORMTESTER_INSTANCE/344966dc. *CLASS_OBJLABELINSTR/2e17363a. %ld", meltlab_count_36); #endif ; /*^clear*/ /*clear*/ /*_.LOCA_LOCATION__V183*/ meltfptr[176] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V184*/ meltfptr[177] = 0 ; /*^cond*/ /*cond*/ if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.SDEF_DOC__V182*/ meltfptr[165]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[16]))))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V182*/ meltfptr[165]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOCA_LOCATION__V183*/ meltfptr[176] = slot; }; ; /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDEF_DOC__V182*/ meltfptr[165]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXP_CONTENTS__V184*/ meltfptr[177] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:786:/ objgoto"); /*objgoto*/ goto mtch1_36; ; } ; } else { MELT_LOCATION("warmelt-modes.melt:790:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:795:/ objgoto"); /*objgoto*/ goto mtch1_37; ; } ; } ; /*objlabel*/ mtch1_36: ; MELT_LOCATION("warmelt-modes.melt:786:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_37; meltlab_count_37++; melt_debugeprintf("objlabel_37 mtch1_*CLASS_NORMTESTER_SUCCESS/177b827d. *CLASS_OBJLABELINSTR/2a168564. %ld", meltlab_count_37); #endif ; /*^quasiblock*/ /*_.DNAM__V185*/ meltfptr[178] = /*_.SDEF_NAME__V181*/ meltfptr[168];; /*^compute*/ /*_.DOC__V186*/ meltfptr[179] = /*_.SDEF_DOC__V182*/ meltfptr[165];; /*^compute*/ /*_.DOCL__V187*/ meltfptr[165] = /*_.SEXP_CONTENTS__V184*/ meltfptr[177];; /*^compute*/ /*_.LOC__V188*/ meltfptr[187] = /*_.LOCA_LOCATION__V183*/ meltfptr[176];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:791:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L21*/ meltfnum[20] = /*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-modes.melt:791:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L22*/ meltfnum[21] = /* 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-modes.melt:791:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L22*/ meltfnum[21]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 791; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_scaninput dnam="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.DNAM__V185*/ meltfptr[178]; /*^apply.arg*/ argtab[5].meltbp_cstring = " doc="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DOC__V186*/ meltfptr[179]; /*_.MELT_DEBUG_FUN__V190*/ meltfptr[189] = 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___V189*/ meltfptr[188] = /*_.MELT_DEBUG_FUN__V190*/ meltfptr[189];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:791:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V190*/ meltfptr[189] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V189*/ meltfptr[188] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:791:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V189*/ meltfptr[188] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:792:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DNAM__V185*/ meltfptr[178]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[21]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DNAM__V185*/ meltfptr[178]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V191*/ meltfptr[189] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V191*/ meltfptr[189] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:792:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "makedoc: got documented $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V191*/ meltfptr[189]; /*_.INFORM_AT__V192*/ meltfptr[188] = melt_apply ((meltclosure_ptr_t)((/*!INFORM_AT*/ meltfrout->tabval[34])), (melt_ptr_t)(/*_.LOC__V188*/ meltfptr[187]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.DISCRIM__V193*/ meltfptr[192] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[14]))));; MELT_LOCATION("warmelt-modes.melt:793:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V193*/ meltfptr[192]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[21]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DISCRIM__V193*/ meltfptr[192]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V194*/ meltfptr[193] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V194*/ meltfptr[193] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:793:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "makedoc: unimplemented for class $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V194*/ meltfptr[193]; /*_.WARNING_AT__V195*/ meltfptr[194] = melt_apply ((meltclosure_ptr_t)((/*!WARNING_AT*/ meltfrout->tabval[35])), (melt_ptr_t)(/*_.LOC__V188*/ meltfptr[187]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:786:/ clear"); /*clear*/ /*_.DNAM__V185*/ meltfptr[178] = 0 ; /*^clear*/ /*clear*/ /*_.DOC__V186*/ meltfptr[179] = 0 ; /*^clear*/ /*clear*/ /*_.DOCL__V187*/ meltfptr[165] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V188*/ meltfptr[187] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V191*/ meltfptr[189] = 0 ; /*^clear*/ /*clear*/ /*_.INFORM_AT__V192*/ meltfptr[188] = 0 ; /*^clear*/ /*clear*/ /*_.DISCRIM__V193*/ meltfptr[192] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V194*/ meltfptr[193] = 0 ; /*^clear*/ /*clear*/ /*_.WARNING_AT__V195*/ meltfptr[194] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_37: ; MELT_LOCATION("warmelt-modes.melt:795:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_38; meltlab_count_38++; melt_debugeprintf("objlabel_38 mtch1_*CLASS_NORMTESTER_SUCCESS/77f51d2. *CLASS_OBJLABELINSTR/1787ac17. %ld", meltlab_count_38); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:796:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L23*/ meltfnum[21] = /*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-modes.melt:796:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L24*/ meltfnum[20] = /* 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-modes.melt:796:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L24*/ meltfnum[20]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 796; /*^apply.arg*/ argtab[3].meltbp_cstring = "ignored curexp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V18*/ meltfptr[14]; /*_.MELT_DEBUG_FUN__V197*/ meltfptr[179] = 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___V196*/ meltfptr[178] = /*_.MELT_DEBUG_FUN__V197*/ meltfptr[179];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:796:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V197*/ meltfptr[179] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V196*/ meltfptr[178] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:796:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V196*/ meltfptr[178] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:795:/ objgoto"); /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1__end: ; MELT_LOCATION("warmelt-modes.melt:574:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_39; meltlab_count_39++; melt_debugeprintf("objlabel_39 mtch1__end_h106703085 *CLASS_OBJLABELINSTR/65c28ed. %ld", meltlab_count_39); #endif ; } ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIRINLISTSYMB__V17*/ meltfptr[15] = NULL; /*_.CUREXP__V18*/ meltfptr[14] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:570:/ clear"); /*clear*/ /*_.CURPAIRINLISTSYMB__V17*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.CUREXP__V18*/ meltfptr[14] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_LOCATION("warmelt-modes.melt:526:/ clear"); /*clear*/ /*_#NBFIL__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#XLISTLEN__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DOCSYMAP__V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.FORMALOCCMAP__V8*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_DOCSYM__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.FETCH_DOCSYM__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.ADD_FORMAL_OCC__V13*/ meltfptr[12] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_SCANINPUT", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_WARMELTmiMODES_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_15_WARMELTmiMODES_LAMBDA_cl6_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_15_WARMELTmiMODES_LAMBDA_cl6 fromline 1752 */ /** start of frame for meltrout_15_WARMELTmiMODES_LAMBDA_cl6 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_15_WARMELTmiMODES_LAMBDA_cl6// fromline 1568 : public Melt_CallFrameWithValues<14> { public: /* fromline 1572*/ long mcfr_varnum[5]; /*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_15_WARMELTmiMODES_LAMBDA_cl6(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_15_WARMELTmiMODES_LAMBDA_cl6), clos) {}; MeltFrame_meltrout_15_WARMELTmiMODES_LAMBDA_cl6() //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_15_WARMELTmiMODES_LAMBDA_cl6)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_15_WARMELTmiMODES_LAMBDA_cl6(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_15_WARMELTmiMODES_LAMBDA_cl6)) {}; MeltFrame_meltrout_15_WARMELTmiMODES_LAMBDA_cl6(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_15_WARMELTmiMODES_LAMBDA_cl6), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_15_WARMELTmiMODES_LAMBDA_cl6 /** end of frame for meltrout_15_WARMELTmiMODES_LAMBDA_cl6 fromline 1697**/ /* end of frame for routine meltrout_15_WARMELTmiMODES_LAMBDA_cl6 fromline 1756 */ /* classy proc frame meltrout_15_WARMELTmiMODES_LAMBDA_cl6 */ MeltFrame_meltrout_15_WARMELTmiMODES_LAMBDA_cl6 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_15_WARMELTmiMODES_LAMBDA_cl6 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("LAMBDA_cl6", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:532:/ getarg"); /*_.NAM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DATA__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_.DISCRIM__V4*/ meltfptr[3] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.NAM__V2*/ meltfptr[1]))));; /*^compute*/ /*_#exeq__L1*/ meltfnum[0] = ((/*_.DISCRIM__V4*/ meltfptr[3]) != ((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:534:/ cond"); /*cond*/ if (/*_#exeq__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#IS_A__L3*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[1])));; /*^compute*/ /*_#_IF___L2*/ meltfnum[1] = /*_#IS_A__L3*/ meltfnum[2];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:534:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[2] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L2*/ meltfnum[1] = 0;; } ; MELT_LOCATION("warmelt-modes.melt:534:/ cond"); /*cond*/ if (/*_#_IF___L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:536:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NAM__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V6*/ meltfptr[5] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V6*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.GET_SYMBOLSTR__V7*/ meltfptr[6] = melthookproc_HOOK_NAMED_SYMBOL (melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V6*/ meltfptr[5])), (long)MELT_GET);; MELT_LOCATION("warmelt-modes.melt:536:/ compute"); /*_.NAM__V2*/ meltfptr[1] = /*_.SETQ___V8*/ meltfptr[7] = /*_.GET_SYMBOLSTR__V7*/ meltfptr[6];; /*_._IFELSE___V5*/ meltfptr[4] = /*_.SETQ___V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:534:/ clear"); /*clear*/ /*_.NAMED_NAME__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.GET_SYMBOLSTR__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V8*/ meltfptr[7] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRING__L4*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.NAM__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:537:/ cond"); /*cond*/ if (/*_#IS_STRING__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_.GET_SYMBOLSTR__V10*/ meltfptr[6] = melthookproc_HOOK_NAMED_SYMBOL (melt_string_str((melt_ptr_t)(/*_.NAM__V2*/ meltfptr[1])), (long)MELT_GET);; MELT_LOCATION("warmelt-modes.melt:538:/ compute"); /*_.NAM__V2*/ meltfptr[1] = /*_.SETQ___V11*/ meltfptr[7] = /*_.GET_SYMBOLSTR__V10*/ meltfptr[6];; /*_._IFELSE___V9*/ meltfptr[5] = /*_.SETQ___V11*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:537:/ clear"); /*clear*/ /*_.GET_SYMBOLSTR__V10*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V11*/ meltfptr[7] = 0 ; } ; } else /*^cond.else*/ { /*_._IFELSE___V9*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_._IFELSE___V5*/ meltfptr[4] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:534:/ clear"); /*clear*/ /*_#IS_STRING__L4*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:540:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L5*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:540:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[7] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:540:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check nam"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 540; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NAM__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V13*/ meltfptr[7] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:540:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V12*/ meltfptr[6] = /*_._IFELSE___V13*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:540:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V13*/ meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[6] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:541:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~DOCSYMAP*/ meltfclos->tabval[0])), (meltobject_ptr_t) (/*_.NAM__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.DATA__V3*/ meltfptr[2])); } ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:532:/ clear"); /*clear*/ /*_.DISCRIM__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#exeq__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[6] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl6", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_15_WARMELTmiMODES_LAMBDA_cl6_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_15_WARMELTmiMODES_LAMBDA_cl6*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_WARMELTmiMODES_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_16_WARMELTmiMODES_LAMBDA_cl7_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_16_WARMELTmiMODES_LAMBDA_cl7 fromline 1752 */ /** start of frame for meltrout_16_WARMELTmiMODES_LAMBDA_cl7 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_16_WARMELTmiMODES_LAMBDA_cl7// fromline 1568 : public Melt_CallFrameWithValues<11> { public: /* fromline 1572*/ long mcfr_varnum[4]; /*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_16_WARMELTmiMODES_LAMBDA_cl7(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_16_WARMELTmiMODES_LAMBDA_cl7), clos) {}; MeltFrame_meltrout_16_WARMELTmiMODES_LAMBDA_cl7() //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_16_WARMELTmiMODES_LAMBDA_cl7)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_16_WARMELTmiMODES_LAMBDA_cl7(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_16_WARMELTmiMODES_LAMBDA_cl7)) {}; MeltFrame_meltrout_16_WARMELTmiMODES_LAMBDA_cl7(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_16_WARMELTmiMODES_LAMBDA_cl7), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_16_WARMELTmiMODES_LAMBDA_cl7 /** end of frame for meltrout_16_WARMELTmiMODES_LAMBDA_cl7 fromline 1697**/ /* end of frame for routine meltrout_16_WARMELTmiMODES_LAMBDA_cl7 fromline 1756 */ /* classy proc frame meltrout_16_WARMELTmiMODES_LAMBDA_cl7 */ MeltFrame_meltrout_16_WARMELTmiMODES_LAMBDA_cl7 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_16_WARMELTmiMODES_LAMBDA_cl7 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("LAMBDA_cl7", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:545:/ getarg"); /*_.NAM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_.DISCRIM__V3*/ meltfptr[2] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.NAM__V2*/ meltfptr[1]))));; /*^compute*/ /*_#exeq__L1*/ meltfnum[0] = ((/*_.DISCRIM__V3*/ meltfptr[2]) != ((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:547:/ cond"); /*cond*/ if (/*_#exeq__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#IS_A__L3*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[1])));; /*^compute*/ /*_#_IF___L2*/ meltfnum[1] = /*_#IS_A__L3*/ meltfnum[2];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:547:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[2] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L2*/ meltfnum[1] = 0;; } ; MELT_LOCATION("warmelt-modes.melt:547:/ cond"); /*cond*/ if (/*_#_IF___L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:549:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NAM__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V5*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V5*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.GET_SYMBOLSTR__V6*/ meltfptr[5] = melthookproc_HOOK_NAMED_SYMBOL (melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V5*/ meltfptr[4])), (long)MELT_GET);; MELT_LOCATION("warmelt-modes.melt:549:/ compute"); /*_.NAM__V2*/ meltfptr[1] = /*_.SETQ___V7*/ meltfptr[6] = /*_.GET_SYMBOLSTR__V6*/ meltfptr[5];; /*_._IFELSE___V4*/ meltfptr[3] = /*_.SETQ___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:547:/ clear"); /*clear*/ /*_.NAMED_NAME__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.GET_SYMBOLSTR__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V7*/ meltfptr[6] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRING__L4*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.NAM__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:550:/ cond"); /*cond*/ if (/*_#IS_STRING__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_.GET_SYMBOLSTR__V9*/ meltfptr[5] = melthookproc_HOOK_NAMED_SYMBOL (melt_string_str((melt_ptr_t)(/*_.NAM__V2*/ meltfptr[1])), (long)MELT_GET);; MELT_LOCATION("warmelt-modes.melt:551:/ compute"); /*_.NAM__V2*/ meltfptr[1] = /*_.SETQ___V10*/ meltfptr[6] = /*_.GET_SYMBOLSTR__V9*/ meltfptr[5];; /*_._IFELSE___V8*/ meltfptr[4] = /*_.SETQ___V10*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:550:/ clear"); /*clear*/ /*_.GET_SYMBOLSTR__V9*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V10*/ meltfptr[6] = 0 ; } ; } else /*^cond.else*/ { /*_._IFELSE___V8*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_._IFELSE___V4*/ meltfptr[3] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:547:/ clear"); /*clear*/ /*_#IS_STRING__L4*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } ; } ; /*_.MAPOBJECT_GET__V11*/ meltfptr[5] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)((/*~DOCSYMAP*/ meltfclos->tabval[0])), (meltobject_ptr_t)(/*_.NAM__V2*/ meltfptr[1]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:545:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.MAPOBJECT_GET__V11*/ meltfptr[5];; { MELT_LOCATION("warmelt-modes.melt:545:/ 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*/ /*_.DISCRIM__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#exeq__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.MAPOBJECT_GET__V11*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl7", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_16_WARMELTmiMODES_LAMBDA_cl7_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_16_WARMELTmiMODES_LAMBDA_cl7*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_WARMELTmiMODES_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_17_WARMELTmiMODES_LAMBDA_cl8_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_17_WARMELTmiMODES_LAMBDA_cl8 fromline 1752 */ /** start of frame for meltrout_17_WARMELTmiMODES_LAMBDA_cl8 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_17_WARMELTmiMODES_LAMBDA_cl8// fromline 1568 : public Melt_CallFrameWithValues<13> { public: /* fromline 1572*/ long mcfr_varnum[3]; /*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_17_WARMELTmiMODES_LAMBDA_cl8(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<13> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_17_WARMELTmiMODES_LAMBDA_cl8), clos) {}; MeltFrame_meltrout_17_WARMELTmiMODES_LAMBDA_cl8() //the constructor fromline 1642 : Melt_CallFrameWithValues<13> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_17_WARMELTmiMODES_LAMBDA_cl8)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_17_WARMELTmiMODES_LAMBDA_cl8(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<13> (fil,lin, sizeof(MeltFrame_meltrout_17_WARMELTmiMODES_LAMBDA_cl8)) {}; MeltFrame_meltrout_17_WARMELTmiMODES_LAMBDA_cl8(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<13> (fil,lin, sizeof(MeltFrame_meltrout_17_WARMELTmiMODES_LAMBDA_cl8), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_17_WARMELTmiMODES_LAMBDA_cl8 /** end of frame for meltrout_17_WARMELTmiMODES_LAMBDA_cl8 fromline 1697**/ /* end of frame for routine meltrout_17_WARMELTmiMODES_LAMBDA_cl8 fromline 1756 */ /* classy proc frame meltrout_17_WARMELTmiMODES_LAMBDA_cl8 */ MeltFrame_meltrout_17_WARMELTmiMODES_LAMBDA_cl8 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_17_WARMELTmiMODES_LAMBDA_cl8 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("LAMBDA_cl8", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:555:/ getarg"); /*_.FORMBIND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DEF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DEF__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:556:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.FORMBIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:556:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:556:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check formbind"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 556; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FORMBIND__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:556:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:556:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:557:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.DEF__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-modes.melt:557:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:557:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check def"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 557; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DEF__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:557:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:557:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:558:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORMBIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FORMBIND__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); /*_.FORMSYM__V10*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.FORMSYM__V10*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.FORMOCCLIST__V11*/ meltfptr[4] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)((/*~FORMALOCCMAP*/ meltfclos->tabval[0])), (meltobject_ptr_t)(/*_.FORMSYM__V10*/ meltfptr[8]));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#NULL__L3*/ meltfnum[0] = (/*null*/(/*_.FORMOCCLIST__V11*/ meltfptr[4]) == NULL);; MELT_LOCATION("warmelt-modes.melt:561:/ cond"); /*cond*/ if (/*_#NULL__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_.MAKE_LIST__V12*/ meltfptr[11] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; MELT_LOCATION("warmelt-modes.melt:563:/ compute"); /*_.FORMOCCLIST__V11*/ meltfptr[4] = /*_.SETQ___V13*/ meltfptr[12] = /*_.MAKE_LIST__V12*/ meltfptr[11];; { MELT_LOCATION("warmelt-modes.melt:564:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~FORMALOCCMAP*/ meltfclos->tabval[0])), (meltobject_ptr_t) (/*_.FORMSYM__V10*/ meltfptr[8]), (melt_ptr_t)(/*_.FORMOCCLIST__V11*/ meltfptr[4])); } ; MELT_LOCATION("warmelt-modes.melt:562:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-modes.melt:561:/ clear"); /*clear*/ /*_.MAKE_LIST__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V13*/ meltfptr[12] = 0 ; } ; } /*noelse*/ ; { MELT_LOCATION("warmelt-modes.melt:565:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.FORMOCCLIST__V11*/ meltfptr[4]), (melt_ptr_t)(/*_.DEF__V3*/ meltfptr[2])); } ; MELT_LOCATION("warmelt-modes.melt:558:/ clear"); /*clear*/ /*_.FORMSYM__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.FORMOCCLIST__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L3*/ meltfnum[0] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:555:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl8", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_17_WARMELTmiMODES_LAMBDA_cl8_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_17_WARMELTmiMODES_LAMBDA_cl8*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC_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_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC fromline 1752 */ /** start of frame for meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC// fromline 1568 : public Melt_CallFrameWithValues<12> { public: /* fromline 1572*/ long mcfr_varnum[3]; /*classy others*/ const char* loc_CSTRING__o0; 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_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<12> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC), clos) {}; MeltFrame_meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC() //the constructor fromline 1642 : Melt_CallFrameWithValues<12> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC)) {}; MeltFrame_meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC /** end of frame for meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC fromline 1697**/ /* end of frame for routine meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC fromline 1756 */ /* classy proc frame meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC */ MeltFrame_meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC 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("MAKEDOC_OUTDEFLOC", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:804:/ getarg"); /*_.OUTB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DEF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DEF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_CSTRING) goto meltlab_endgetargs; /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[1].meltbp_cstring; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:805:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:805:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:805:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 805; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:805:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:805:/ clear"); /*clear*/ /*_#IS_STRBUF__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:806:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.DEF__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-modes.melt:806:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:806:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check def"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 806; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DEF__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:806:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:806:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:807:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DEF__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DEF__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOC__V10*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.LOC__V10*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#NULL__L3*/ meltfnum[0] = (/*null*/(/*_.LOC__V10*/ meltfptr[8]) == NULL);; MELT_LOCATION("warmelt-modes.melt:809:/ cond"); /*cond*/ if (/*_#NULL__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^quasiblock*/ /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-modes.melt:809:/ 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 ; /*_._IF___V11*/ meltfptr[4] = /*_.RETURN___V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:809:/ clear"); /*clear*/ /*_.RETURN___V12*/ meltfptr[11] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V11*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:810:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (/*_?*/ meltfram__.loc_CSTRING__o0)); } ; { MELT_LOCATION("warmelt-modes.melt:811:/ locexp"); /*add2sbufteximixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOC__V10*/ meltfptr[8])) == MELTOBMAG_MIXLOC) { location_t loc = melt_location_mixloc((melt_ptr_t)/*_.LOC__V10*/ meltfptr[8]); meltgc_strbuf_printf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), "file @file{%s}, line %d", lbasename (LOCATION_FILE (loc)), LOCATION_LINE (loc)); } /*end add2sbufteximixloc*/; } ; { MELT_LOCATION("warmelt-modes.melt:812:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), ( ".")); } ; { MELT_LOCATION("warmelt-modes.melt:813:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:807:/ clear"); /*clear*/ /*_.LOC__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V11*/ meltfptr[4] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:804:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_OUTDEFLOC", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS_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_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS fromline 1752 */ /** start of frame for meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS// fromline 1568 : public Melt_CallFrameWithValues<15> { public: /* fromline 1572*/ long mcfr_varnum[5]; /*classy others*/ const char* loc_CSTRING__o0; 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_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<15> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS), clos) {}; MeltFrame_meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS() //the constructor fromline 1642 : Melt_CallFrameWithValues<15> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<15> (fil,lin, sizeof(MeltFrame_meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS)) {}; MeltFrame_meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<15> (fil,lin, sizeof(MeltFrame_meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS /** end of frame for meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS fromline 1697**/ /* end of frame for routine meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS fromline 1756 */ /* classy proc frame meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS */ MeltFrame_meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS 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("MAKEDOC_OUTFORMALS", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:818:/ getarg"); /*_.OUTB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.FARGS__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.FARGS__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_CSTRING) goto meltlab_endgetargs; /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[1].meltbp_cstring; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:819:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:819:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:819:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 819; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:819:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:819:/ clear"); /*clear*/ /*_#IS_STRBUF__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#MULTIPLE_LENGTH__L2*/ meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.FARGS__V3*/ meltfptr[2])));; /*^compute*/ /*_#gtI__L3*/ meltfnum[2] = ((/*_#MULTIPLE_LENGTH__L2*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-modes.melt:820:/ cond"); /*cond*/ if (/*_#gtI__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-modes.melt:822:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:823:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (/*_?*/ meltfram__.loc_CSTRING__o0)); } ; { MELT_LOCATION("warmelt-modes.melt:824:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:825:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), ( "@multitable @columnfractions 0.05 0.15 0.4")); } ; { MELT_LOCATION("warmelt-modes.melt:826:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:827:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), ( "@headitem index @tab type @tab name")); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FARGS__V3*/ meltfptr[2]); for (/*_#FIX__L4*/ meltfnum[3] = 0; (/*_#FIX__L4*/ meltfnum[3] >= 0) && (/*_#FIX__L4*/ meltfnum[3] < meltcit1__EACHTUP_ln); /*_#FIX__L4*/ meltfnum[3]++) { /*_.CURFBIND__V7*/ meltfptr[5] = melt_multiple_nth((melt_ptr_t)(/*_.FARGS__V3*/ meltfptr[2]), /*_#FIX__L4*/ meltfnum[3]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:831:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L5*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.CURFBIND__V7*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-modes.melt:831:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:831:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curfbind"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 831; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFBIND__V7*/ meltfptr[5]; /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V9*/ meltfptr[8] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:831:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; /*_.IFCPP___V8*/ meltfptr[4] = /*_._IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:831:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V9*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:832:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:833:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), ( "@item @i{")); } ; { MELT_LOCATION("warmelt-modes.melt:834:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (/*_#FIX__L4*/ meltfnum[3])); } ; { MELT_LOCATION("warmelt-modes.melt:835:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), ( "} @tab @slanted{")); } ; MELT_LOCATION("warmelt-modes.melt:840:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFBIND__V7*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFBIND__V7*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); /*_.FBIND_TYPE__V11*/ meltfptr[9] = slot; }; ; } else /*^cond.else*/ { /*_.FBIND_TYPE__V11*/ meltfptr[9] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:839:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V11*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_QUASI_CTYPE*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V11*/ meltfptr[9]) /*=obj*/; melt_object_get_field(slot,obj, 2, "CTYPE_KEYWORD"); /*_.CTYPE_KEYWORD__V12*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.CTYPE_KEYWORD__V12*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:838:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V12*/ meltfptr[8]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYPE_KEYWORD__V12*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V13*/ meltfptr[12] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V13*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:836:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V13*/ meltfptr[12]))); } ; MELT_LOCATION("warmelt-modes.melt:841:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFBIND__V7*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFBIND__V7*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); /*_.BINDER__V14*/ meltfptr[13] = slot; }; ; } else /*^cond.else*/ { /*_.BINDER__V14*/ meltfptr[13] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:841:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V14*/ meltfptr[13]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.ARGNAM__V15*/ meltfptr[14] = slot; }; ; } else /*^cond.else*/ { /*_.ARGNAM__V15*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:842:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), ( "} @tab @code{")); } ; { MELT_LOCATION("warmelt-modes.melt:843:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), melt_string_str((melt_ptr_t)(/*_.ARGNAM__V15*/ meltfptr[14]))); } ; { MELT_LOCATION("warmelt-modes.melt:844:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), ( "}")); } ; { MELT_LOCATION("warmelt-modes.melt:845:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:846:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), ( "@vindex ")); } ; { MELT_LOCATION("warmelt-modes.melt:847:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), melt_string_str((melt_ptr_t)(/*_.ARGNAM__V15*/ meltfptr[14]))); } ; { MELT_LOCATION("warmelt-modes.melt:848:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:841:/ clear"); /*clear*/ /*_.BINDER__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.ARGNAM__V15*/ meltfptr[14] = 0 ; if (/*_#FIX__L4*/ meltfnum[3]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:828:/ clear"); /*clear*/ /*_.CURFBIND__V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_#FIX__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.FBIND_TYPE__V11*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.CTYPE_KEYWORD__V12*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-modes.melt:851:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:852:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), ( "@end multitable")); } ; { MELT_LOCATION("warmelt-modes.melt:853:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:821:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:818:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L3*/ meltfnum[2] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_OUTFORMALS", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC_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_20_WARMELTmiMODES_MAKEDOC_OUTDOC fromline 1752 */ /** start of frame for meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC// fromline 1568 : public Melt_CallFrameWithValues<19> { public: /* fromline 1572*/ long mcfr_varnum[5]; /*classy others*/ const char* loc_CSTRING__o0; 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_20_WARMELTmiMODES_MAKEDOC_OUTDOC(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<19> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC), clos) {}; MeltFrame_meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC() //the constructor fromline 1642 : Melt_CallFrameWithValues<19> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<19> (fil,lin, sizeof(MeltFrame_meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC)) {}; MeltFrame_meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<19> (fil,lin, sizeof(MeltFrame_meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC /** end of frame for meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC fromline 1697**/ /* end of frame for routine meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC fromline 1756 */ /* classy proc frame meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC */ MeltFrame_meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC 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("MAKEDOC_OUTDOC", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:858:/ getarg"); /*_.OUTB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DOC__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DOC__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_CSTRING) goto meltlab_endgetargs; /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[1].meltbp_cstring; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:859:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:859:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:859:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 859; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:859:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:859:/ clear"); /*clear*/ /*_#IS_STRBUF__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_NOT_A__L2*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.DOC__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-modes.melt:860:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^quasiblock*/ /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-modes.melt:860:/ 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 ; /*_._IF___V7*/ meltfptr[5] = /*_.RETURN___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:860:/ clear"); /*clear*/ /*_.RETURN___V8*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V7*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:861:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:862:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (/*_?*/ meltfram__.loc_CSTRING__o0)); } ; MELT_LOCATION("warmelt-modes.melt:865:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DOC__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXP_CONTENTS__V9*/ meltfptr[4] = slot; }; ; /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit1__EACHLIST */ for (/*_.CURPAIR__V10*/ meltfptr[9] = melt_list_first( (melt_ptr_t)/*_.SEXP_CONTENTS__V9*/ meltfptr[4]); melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V10*/ meltfptr[9]) == MELTOBMAG_PAIR; /*_.CURPAIR__V10*/ meltfptr[9] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V10*/ meltfptr[9])) { /*_.CURELEM__V11*/ meltfptr[10] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V10*/ meltfptr[9]); MELT_CHECK_SIGNAL(); ; /*_#IS_STRING__L3*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.CURELEM__V11*/ meltfptr[10])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:868:/ cond"); /*cond*/ if (/*_#IS_STRING__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-modes.melt:869:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), melt_string_str((melt_ptr_t)(/*_.CURELEM__V11*/ meltfptr[10]))); } ; /*clear*/ /*_._IFELSE___V12*/ meltfptr[11] = 0 ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-modes.melt:868:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.CURELEM__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-modes.melt:870:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-modes.melt:871:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), ( "@code{")); } ; MELT_LOCATION("warmelt-modes.melt:872:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURELEM__V11*/ meltfptr[10]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V14*/ meltfptr[13] = slot; }; ; { /*^locexp*/ /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V14*/ meltfptr[13]))); } ; { MELT_LOCATION("warmelt-modes.melt:873:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), ( "}")); } ; MELT_LOCATION("warmelt-modes.melt:870:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_.NAMED_NAME__V14*/ meltfptr[13] = 0 ; } ; } else /*^cond.else*/ { /*_._IFELSE___V13*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_._IFELSE___V12*/ meltfptr[11] = /*_._IFELSE___V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:868:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V13*/ meltfptr[12] = 0 ; } ; } ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIR__V10*/ meltfptr[9] = NULL; /*_.CURELEM__V11*/ meltfptr[10] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:864:/ clear"); /*clear*/ /*_.CURPAIR__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.CURELEM__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_#IS_STRING__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V12*/ meltfptr[11] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; { MELT_LOCATION("warmelt-modes.melt:877:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:880:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DOC__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); /*_.SEXP_CONTENTS__V15*/ meltfptr[13] = slot; }; ; /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit2__EACHLIST */ for (/*_.CURPAIR__V16*/ meltfptr[12] = melt_list_first( (melt_ptr_t)/*_.SEXP_CONTENTS__V15*/ meltfptr[13]); melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V16*/ meltfptr[12]) == MELTOBMAG_PAIR; /*_.CURPAIR__V16*/ meltfptr[12] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V16*/ meltfptr[12])) { /*_.CURELEM__V17*/ meltfptr[16] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V16*/ meltfptr[12]); MELT_CHECK_SIGNAL(); ; /*_#IS_A__L5*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.CURELEM__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-modes.melt:883:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-modes.melt:884:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), ( "@vindex ")); } ; MELT_LOCATION("warmelt-modes.melt:885:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURELEM__V17*/ meltfptr[16]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V19*/ meltfptr[18] = slot; }; ; { /*^locexp*/ /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V19*/ meltfptr[18]))); } ; { MELT_LOCATION("warmelt-modes.melt:886:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ meltfptr[1]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:883:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_.NAMED_NAME__V19*/ meltfptr[18] = 0 ; } ; } else /*^cond.else*/ { /*_._IFELSE___V18*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; } /* end foreach_pair_component_in_list meltcit2__EACHLIST */ /*_.CURPAIR__V16*/ meltfptr[12] = NULL; /*_.CURELEM__V17*/ meltfptr[16] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:879:/ clear"); /*clear*/ /*_.CURPAIR__V16*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.CURELEM__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L5*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V18*/ meltfptr[17] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:858:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V9*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V15*/ meltfptr[13] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_OUTDOC", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF_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_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF fromline 1752 */ /** start of frame for meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF// fromline 1568 : public Melt_CallFrameWithValues<54> { public: /* fromline 1572*/ long mcfr_varnum[23]; /*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_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<54> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF), clos) {}; MeltFrame_meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF() //the constructor fromline 1642 : Melt_CallFrameWithValues<54> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<54> (fil,lin, sizeof(MeltFrame_meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF)) {}; MeltFrame_meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<54> (fil,lin, sizeof(MeltFrame_meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF /** end of frame for meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF fromline 1697**/ /* end of frame for routine meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF fromline 1756 */ /* classy proc frame meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF */ MeltFrame_meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF 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("MAKEDOC_OUTCLASSDEF", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:894:/ getarg"); /*_.MDINFO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.OUTB__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.CLADEF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CLADEF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#CLAIX__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:895:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:895:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:895:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mdinfo"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 895; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:895:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = 0 ; } ; } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:895:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:896:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:896:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:896:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 896; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:896:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:896:/ clear"); /*clear*/ /*_#IS_STRBUF__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:897:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CLADEF__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-modes.melt:897:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:897:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check cladef"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 897; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CLADEF__V4*/ meltfptr[3]; /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:897:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:897:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:898:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLADEF__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLADEF__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SCLASS_CLABIND"); /*_.SCLASS_CLABIND__V15*/ meltfptr[5] = slot; }; ; } else /*^cond.else*/ { /*_.SCLASS_CLABIND__V15*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:898:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SCLASS_CLABIND__V15*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCLASS_CLABIND__V15*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 3, "CBIND_CLASS"); /*_.CLA__V16*/ meltfptr[15] = slot; }; ; } else /*^cond.else*/ { /*_.CLA__V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:899:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLA__V16*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CLASS_ANCESTORS"); /*_.CLANCS__V17*/ meltfptr[16] = slot; }; ; } else /*^cond.else*/ { /*_.CLANCS__V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:900:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLA__V16*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); /*_.CLFLDS__V18*/ meltfptr[17] = slot; }; ; } else /*^cond.else*/ { /*_.CLFLDS__V18*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#NBCLANC__L5*/ meltfnum[1] = (melt_multiple_length((melt_ptr_t)(/*_.CLANCS__V17*/ meltfptr[16])));; /*^compute*/ /*_#NBCLFLDS__L6*/ meltfnum[5] = (melt_multiple_length((melt_ptr_t)(/*_.CLFLDS__V18*/ meltfptr[17])));; MELT_LOCATION("warmelt-modes.melt:903:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLADEF__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLADEF__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.DOC__V19*/ meltfptr[18] = slot; }; ; } else /*^cond.else*/ { /*_.DOC__V19*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:904:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 36, "MKDOC_SUBCLASSMAP"); /*_.MKDOC_SUBCLASSMAP__V20*/ meltfptr[19] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_SUBCLASSMAP__V20*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.SUBCLALIST__V21*/ meltfptr[20] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MKDOC_SUBCLASSMAP__V20*/ meltfptr[19]), (meltobject_ptr_t)(/*_.CLA__V16*/ meltfptr[15]));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:906:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L7*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.CLA__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-modes.melt:906:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[22] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:906:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check cla"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 906; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CLA__V16*/ meltfptr[15]; /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V23*/ meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:906:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = 0 ; } ; } ; /*_.IFCPP___V22*/ meltfptr[21] = /*_._IFELSE___V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:906:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V23*/ meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V22*/ meltfptr[21] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:907:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:908:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@subsection @var{")); } ; MELT_LOCATION("warmelt-modes.melt:909:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLA__V16*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V25*/ meltfptr[23] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V25*/ meltfptr[23] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:909:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V25*/ meltfptr[23]))); } ; { MELT_LOCATION("warmelt-modes.melt:910:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "}")); } ; { MELT_LOCATION("warmelt-modes.melt:911:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:912:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@vindex ")); } ; MELT_LOCATION("warmelt-modes.melt:913:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLA__V16*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V26*/ meltfptr[22] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V26*/ meltfptr[22] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:913:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V26*/ meltfptr[22]))); } ; { MELT_LOCATION("warmelt-modes.melt:914:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:915:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CLADEF__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_cstring = "Class defined at "; /*_.MAKEDOC_OUTDEFLOC__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*_#gtI__L8*/ meltfnum[6] = ((/*_#NBCLANC__L5*/ meltfnum[1]) > (0));; MELT_LOCATION("warmelt-modes.melt:917:/ cond"); /*cond*/ if (/*_#gtI__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-modes.melt:919:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:920:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@strong{")); } ; { MELT_LOCATION("warmelt-modes.melt:921:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (/*_#NBCLANC__L5*/ meltfnum[1])); } ; { MELT_LOCATION("warmelt-modes.melt:922:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " ancestors:}")); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CLANCS__V17*/ meltfptr[16]); for (/*_#ANCIX__L9*/ meltfnum[8] = 0; (/*_#ANCIX__L9*/ meltfnum[8] >= 0) && (/*_#ANCIX__L9*/ meltfnum[8] < meltcit1__EACHTUP_ln); /*_#ANCIX__L9*/ meltfnum[8]++) { /*_.CURANC__V28*/ meltfptr[27] = melt_multiple_nth((melt_ptr_t)(/*_.CLANCS__V17*/ meltfptr[16]), /*_#ANCIX__L9*/ meltfnum[8]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:926:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = /*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-modes.melt:926:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L11*/ 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-modes.melt:926:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 926; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_outclassdef curanc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURANC__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[5].meltbp_cstring = " ancix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#ANCIX__L9*/ meltfnum[8]; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V29*/ meltfptr[28] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:926:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V29*/ meltfptr[28] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:926:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V29*/ meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:927:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L12*/ meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.CURANC__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-modes.melt:927:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V32*/ meltfptr[28] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:927:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curanc"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 927; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURANC__V28*/ meltfptr[27]; /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V32*/ meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:927:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32] = 0 ; } ; } ; /*_.IFCPP___V31*/ meltfptr[29] = /*_._IFELSE___V32*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:927:/ clear"); /*clear*/ /*_#IS_A__L12*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V32*/ meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V31*/ meltfptr[29] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:928:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " @code{")); } ; MELT_LOCATION("warmelt-modes.melt:929:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURANC__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURANC__V28*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V34*/ meltfptr[32] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V34*/ meltfptr[32] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:929:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V34*/ meltfptr[32]))); } ; { MELT_LOCATION("warmelt-modes.melt:930:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "}")); } ; if (/*_#ANCIX__L9*/ meltfnum[8]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:923:/ clear"); /*clear*/ /*_.CURANC__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_#ANCIX__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V31*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V34*/ meltfptr[32] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-modes.melt:932:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( ".")); } ; { MELT_LOCATION("warmelt-modes.melt:933:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:918:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*_#gtI__L13*/ meltfnum[9] = ((/*_#NBCLFLDS__L6*/ meltfnum[5]) > (0));; MELT_LOCATION("warmelt-modes.melt:936:/ cond"); /*cond*/ if (/*_#gtI__L13*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-modes.melt:938:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:939:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@strong{")); } ; { MELT_LOCATION("warmelt-modes.melt:940:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (/*_#NBCLFLDS__L6*/ meltfnum[5])); } ; { MELT_LOCATION("warmelt-modes.melt:941:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " fields:}")); } ; { MELT_LOCATION("warmelt-modes.melt:942:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:943:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@multitable @columnfractions 0.08 0.4 0.4")); } ; { MELT_LOCATION("warmelt-modes.melt:944:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:945:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@headitem offset @tab name @tab class")); } ; { MELT_LOCATION("warmelt-modes.melt:946:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit2__EACHTUP */ long meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CLFLDS__V18*/ meltfptr[17]); for (/*_#FLDIX__L14*/ meltfnum[10] = 0; (/*_#FLDIX__L14*/ meltfnum[10] >= 0) && (/*_#FLDIX__L14*/ meltfnum[10] < meltcit2__EACHTUP_ln); /*_#FLDIX__L14*/ meltfnum[10]++) { /*_.CURFLD__V35*/ meltfptr[28] = melt_multiple_nth((melt_ptr_t)(/*_.CLFLDS__V18*/ meltfptr[17]), /*_#FLDIX__L14*/ meltfnum[10]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:950:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L15*/ meltfnum[14] = /*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-modes.melt:950:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L16*/ meltfnum[15] = /* 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-modes.melt:950:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L16*/ meltfnum[15]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 950; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_outclassdef curfld="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURFLD__V35*/ meltfptr[28]; /*^apply.arg*/ argtab[5].meltbp_cstring = " fldix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#FLDIX__L14*/ meltfnum[10]; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V36*/ meltfptr[35] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:950:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[15] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V36*/ meltfptr[35] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:950:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V36*/ meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:951:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L17*/ meltfnum[15] = melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V35*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-modes.melt:951:/ cond"); /*cond*/ if (/*_#IS_A__L17*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V39*/ meltfptr[35] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:951:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curfld"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 951; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFLD__V35*/ meltfptr[28]; /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V39*/ meltfptr[35] = /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:951:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V40*/ meltfptr[39] = 0 ; } ; } ; /*_.IFCPP___V38*/ meltfptr[36] = /*_._IFELSE___V39*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:951:/ clear"); /*clear*/ /*_#IS_A__L17*/ meltfnum[15] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V39*/ meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V38*/ meltfptr[36] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:952:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:953:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@item ")); } ; { MELT_LOCATION("warmelt-modes.melt:954:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (/*_#FLDIX__L14*/ meltfnum[10])); } ; MELT_LOCATION("warmelt-modes.melt:955:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V35*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[9]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLD__V35*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 2, "FLD_OWNCLASS"); /*_.FLDCLA__V41*/ meltfptr[39] = slot; }; ; } else /*^cond.else*/ { /*_.FLDCLA__V41*/ meltfptr[39] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#eqeq__L18*/ meltfnum[14] = ((/*_.FLDCLA__V41*/ meltfptr[39]) == (/*_.CLA__V16*/ meltfptr[15]));; MELT_LOCATION("warmelt-modes.melt:956:/ cond"); /*cond*/ if (/*_#eqeq__L18*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-modes.melt:958:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " @tab @strong{")); } ; MELT_LOCATION("warmelt-modes.melt:959:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V35*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLD__V35*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V42*/ meltfptr[35] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V42*/ meltfptr[35] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:959:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V42*/ meltfptr[35]))); } ; { MELT_LOCATION("warmelt-modes.melt:960:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "} @tab @emph{@code{")); } ; MELT_LOCATION("warmelt-modes.melt:961:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLDCLA__V41*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLDCLA__V41*/ meltfptr[39]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V43*/ meltfptr[42] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V43*/ meltfptr[42] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:961:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V43*/ meltfptr[42]))); } ; { MELT_LOCATION("warmelt-modes.melt:962:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "}}")); } ; { MELT_LOCATION("warmelt-modes.melt:963:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:964:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@vindex ")); } ; MELT_LOCATION("warmelt-modes.melt:965:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V35*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLD__V35*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V44*/ meltfptr[43] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V44*/ meltfptr[43] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:965:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V44*/ meltfptr[43]))); } ; { MELT_LOCATION("warmelt-modes.melt:966:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:957:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-modes.melt:956:/ clear"); /*clear*/ /*_.NAMED_NAME__V42*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V43*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V44*/ meltfptr[43] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-modes.melt:969:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " @tab @emph{")); } ; MELT_LOCATION("warmelt-modes.melt:970:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V35*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLD__V35*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V45*/ meltfptr[35] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V45*/ meltfptr[35] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:970:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V45*/ meltfptr[35]))); } ; { MELT_LOCATION("warmelt-modes.melt:971:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "}")); } ; { MELT_LOCATION("warmelt-modes.melt:972:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:973:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@tab @code{")); } ; MELT_LOCATION("warmelt-modes.melt:974:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLDCLA__V41*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FLDCLA__V41*/ meltfptr[39]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V46*/ meltfptr[42] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V46*/ meltfptr[42] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:974:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V46*/ meltfptr[42]))); } ; { MELT_LOCATION("warmelt-modes.melt:975:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "} ")); } ; MELT_LOCATION("warmelt-modes.melt:968:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-modes.melt:956:/ clear"); /*clear*/ /*_.NAMED_NAME__V45*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V46*/ meltfptr[42] = 0 ; } ; } ; { MELT_LOCATION("warmelt-modes.melt:977:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:955:/ clear"); /*clear*/ /*_.FLDCLA__V41*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_#eqeq__L18*/ meltfnum[14] = 0 ; if (/*_#FLDIX__L14*/ meltfnum[10]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:947:/ clear"); /*clear*/ /*_.CURFLD__V35*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_#FLDIX__L14*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V38*/ meltfptr[36] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-modes.melt:980:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@end multitable")); } ; { MELT_LOCATION("warmelt-modes.melt:981:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:937:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:985:/ cond"); /*cond*/ if (/*_.SUBCLALIST__V21*/ meltfptr[20]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:986:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[11]); /*_.RAWSUBCLATUP__V47*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SUBCLALIST__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:987:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[13]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[11]); /*_.SORTEDSUBCLATUP__V48*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.RAWSUBCLATUP__V47*/ meltfptr[43]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#NBSUBCLA__L19*/ meltfnum[15] = (melt_multiple_length((melt_ptr_t)(/*_.SORTEDSUBCLATUP__V48*/ meltfptr[35])));; { MELT_LOCATION("warmelt-modes.melt:992:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:993:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L20*/ meltfnum[14] = /*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-modes.melt:993:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L21*/ meltfnum[20] = /* 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-modes.melt:993:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L21*/ meltfnum[20]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 993; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_outclassdef sortedsubclatup="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SORTEDSUBCLATUP__V48*/ meltfptr[35]; /*_.MELT_DEBUG_FUN__V50*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V49*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V50*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:993:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V50*/ meltfptr[39] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V49*/ meltfptr[42] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:993:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V49*/ meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:994:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@strong{")); } ; { MELT_LOCATION("warmelt-modes.melt:995:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (/*_#NBSUBCLA__L19*/ meltfnum[15])); } ; { MELT_LOCATION("warmelt-modes.melt:996:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " sub-classes:}")); } ; { MELT_LOCATION("warmelt-modes.melt:997:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit3__EACHTUP */ long meltcit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDSUBCLATUP__V48*/ meltfptr[35]); for (/*_#SCLIX__L22*/ meltfnum[20] = 0; (/*_#SCLIX__L22*/ meltfnum[20] >= 0) && (/*_#SCLIX__L22*/ meltfnum[20] < meltcit3__EACHTUP_ln); /*_#SCLIX__L22*/ meltfnum[20]++) { /*_.SUBCLA__V51*/ meltfptr[39] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDSUBCLATUP__V48*/ meltfptr[35]), /*_#SCLIX__L22*/ meltfnum[20]); MELT_CHECK_SIGNAL(); ; /*_#gtI__L23*/ meltfnum[14] = ((/*_#SCLIX__L22*/ meltfnum[20]) > (0));; MELT_LOCATION("warmelt-modes.melt:1001:/ cond"); /*cond*/ if (/*_#gtI__L23*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-modes.melt:1002:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( ",")); } ; /*epilog*/ } ; } /*noelse*/ ; { MELT_LOCATION("warmelt-modes.melt:1003:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " @code{")); } ; MELT_LOCATION("warmelt-modes.melt:1004:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SUBCLA__V51*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SUBCLA__V51*/ meltfptr[39]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V52*/ meltfptr[42] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V52*/ meltfptr[42] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1004:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V52*/ meltfptr[42]))); } ; { MELT_LOCATION("warmelt-modes.melt:1005:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "}")); } ; if (/*_#SCLIX__L22*/ meltfnum[20]<0) break; } /* end foreach_in_multiple meltcit3__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:998:/ clear"); /*clear*/ /*_.SUBCLA__V51*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_#SCLIX__L22*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L23*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V52*/ meltfptr[42] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-modes.melt:1007:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( ".")); } ; { MELT_LOCATION("warmelt-modes.melt:1008:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:986:/ clear"); /*clear*/ /*_.RAWSUBCLATUP__V47*/ meltfptr[43] = 0 ; /*^clear*/ /*clear*/ /*_.SORTEDSUBCLATUP__V48*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_#NBSUBCLA__L19*/ meltfnum[15] = 0 ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1012:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DOC__V19*/ meltfptr[18]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{class description:} "; /*_.MAKEDOC_OUTDOC__V53*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1013:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1014:/ apply"); /*apply*/ { /*_.INCREMENT_MKDOC_COUNTER__V54*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!INCREMENT_MKDOC_COUNTER*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*_.LET___V14*/ meltfptr[12] = /*_.INCREMENT_MKDOC_COUNTER__V54*/ meltfptr[35];; MELT_LOCATION("warmelt-modes.melt:898:/ clear"); /*clear*/ /*_.SCLASS_CLABIND__V15*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.CLA__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.CLANCS__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.CLFLDS__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_#NBCLANC__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#NBCLFLDS__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DOC__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_SUBCLASSMAP__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.SUBCLALIST__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V25*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V26*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L13*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTDOC__V53*/ meltfptr[43] = 0 ; /*^clear*/ /*clear*/ /*_.INCREMENT_MKDOC_COUNTER__V54*/ meltfptr[35] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:894:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { MELT_LOCATION("warmelt-modes.melt:894:/ 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*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_OUTCLASSDEF", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO_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_22_WARMELTmiMODES_MAKEDOC_GENMACRO fromline 1752 */ /** start of frame for meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO// fromline 1568 : public Melt_CallFrameWithValues<41> { public: /* fromline 1572*/ long mcfr_varnum[17]; /*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_22_WARMELTmiMODES_MAKEDOC_GENMACRO(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<41> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO), clos) {}; MeltFrame_meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO() //the constructor fromline 1642 : Melt_CallFrameWithValues<41> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<41> (fil,lin, sizeof(MeltFrame_meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO)) {}; MeltFrame_meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<41> (fil,lin, sizeof(MeltFrame_meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO /** end of frame for meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO fromline 1697**/ /* end of frame for routine meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO fromline 1756 */ /* classy proc frame meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO */ MeltFrame_meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO 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("MAKEDOC_GENMACRO", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1020:/ getarg"); /*_.MDINFO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.OUTB__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1021:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1021:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1021:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mdinfo"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1021; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1021:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1021:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1022:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:1022:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1022:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1022; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1022:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1022:/ clear"); /*clear*/ /*_#IS_STRBUF__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1023:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@node MELT macros")); } ; { MELT_LOCATION("warmelt-modes.melt:1024:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1025:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@section MELT macros")); } ; { MELT_LOCATION("warmelt-modes.melt:1026:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1027:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1028:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 30, "MKDOC_MACROS"); /*_.MACLIST__V10*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.MACLIST__V10*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1030:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.TM__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.MACLIST__V10*/ meltfptr[8]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.TM__V12*/ meltfptr[11]); for (/*_#MACIX__L3*/ meltfnum[0] = 0; (/*_#MACIX__L3*/ meltfnum[0] >= 0) && (/*_#MACIX__L3*/ meltfnum[0] < meltcit1__EACHTUP_ln); /*_#MACIX__L3*/ meltfnum[0]++) { /*_.CURMAC__V13*/ meltfptr[12] = melt_multiple_nth((melt_ptr_t)(/*_.TM__V12*/ meltfptr[11]), /*_#MACIX__L3*/ meltfnum[0]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1035:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-modes.melt:1036:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_#OR___L5*/ meltfnum[4] = /*_#IS_A__L4*/ meltfnum[3];; } else { MELT_LOCATION("warmelt-modes.melt:1036:/ cond.else"); /*^block*/ /*anyblock*/ { /*_#IS_A__L6*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFMACRO*/ meltfrout->tabval[4])));; /*^compute*/ /*_#OR___L5*/ meltfnum[4] = /*_#IS_A__L6*/ meltfnum[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1036:/ clear"); /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ; } ; } ; MELT_LOCATION("warmelt-modes.melt:1035:/ cond"); /*cond*/ if (/*_#OR___L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[14] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1035:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curmac"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1035; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURMAC__V13*/ meltfptr[12]; /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V15*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1035:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; /*_.IFCPP___V14*/ meltfptr[13] = /*_._IFELSE___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1035:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V15*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V14*/ meltfptr[13] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; if (/*_#MACIX__L3*/ meltfnum[0]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1032:/ clear"); /*clear*/ /*_.CURMAC__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#MACIX__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V14*/ meltfptr[13] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*_.LET___V11*/ meltfptr[4] = /*_.TM__V12*/ meltfptr[11];; MELT_LOCATION("warmelt-modes.melt:1030:/ clear"); /*clear*/ /*_.TM__V12*/ meltfptr[11] = 0 ; /*_.UNSORTEDMACTUPLE__V17*/ meltfptr[15] = /*_.LET___V11*/ meltfptr[4];; MELT_LOCATION("warmelt-modes.melt:1043:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V19*/ meltfptr[11] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ meltfrout->tabval[10])), (0)); ; /*_.LAMBDA___V18*/ meltfptr[14] = /*_.LAMBDA___V19*/ meltfptr[11];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1042:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V18*/ meltfptr[14]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.SORTEDMACTUPLE__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.UNSORTEDMACTUPLE__V17*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1053:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[5] = /*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-modes.melt:1053:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L8*/ meltfnum[3] = /* 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-modes.melt:1053:/ apply"); /*apply*/ { union meltparam_un argtab[10]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[3]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1053; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_genmacro maclist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MACLIST__V10*/ meltfptr[8]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n * unsortedmactuple="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.UNSORTEDMACTUPLE__V17*/ meltfptr[15]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n * sortedmactuple="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.SORTEDMACTUPLE__V20*/ meltfptr[19]; /*^apply.arg*/ argtab[9].meltbp_cstring = "\n"; /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[11])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V21*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1053:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V21*/ meltfptr[20] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1053:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V21*/ meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1056:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "There are ")); } ; /*_#MULTIPLE_LENGTH__L9*/ meltfnum[4] = (melt_multiple_length((melt_ptr_t)(/*_.SORTEDMACTUPLE__V20*/ meltfptr[19])));; { MELT_LOCATION("warmelt-modes.melt:1057:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (/*_#MULTIPLE_LENGTH__L9*/ meltfnum[4])); } ; { MELT_LOCATION("warmelt-modes.melt:1058:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " documented macros.")); } ; { MELT_LOCATION("warmelt-modes.melt:1059:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1060:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit2__EACHTUP */ long meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDMACTUPLE__V20*/ meltfptr[19]); for (/*_#MACIX__L10*/ meltfnum[3] = 0; (/*_#MACIX__L10*/ meltfnum[3] >= 0) && (/*_#MACIX__L10*/ meltfnum[3] < meltcit2__EACHTUP_ln); /*_#MACIX__L10*/ meltfnum[3]++) { /*_.CURMAC__V23*/ meltfptr[21] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDMACTUPLE__V20*/ meltfptr[19]), /*_#MACIX__L10*/ meltfnum[3]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1064:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L11*/ meltfnum[5] = /*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-modes.melt:1064:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = /* 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-modes.melt:1064:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L12*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1064; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_genmacro curmac="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURMAC__V23*/ meltfptr[21]; /*^apply.arg*/ argtab[5].meltbp_cstring = " macix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#MACIX__L10*/ meltfnum[3]; /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[11])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V24*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1064:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V24*/ meltfptr[20] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1064:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V24*/ meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1065:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L13*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V23*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-modes.melt:1065:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_#OR___L14*/ meltfnum[5] = /*_#IS_A__L13*/ meltfnum[11];; } else { MELT_LOCATION("warmelt-modes.melt:1065:/ cond.else"); /*^block*/ /*anyblock*/ { /*_#IS_A__L15*/ meltfnum[14] = melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V23*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFMACRO*/ meltfrout->tabval[4])));; /*^compute*/ /*_#OR___L14*/ meltfnum[5] = /*_#IS_A__L15*/ meltfnum[14];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1065:/ clear"); /*clear*/ /*_#IS_A__L15*/ meltfnum[14] = 0 ; } ; } ; /*^cond*/ /*cond*/ if (/*_#OR___L14*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V27*/ meltfptr[20] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1065:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curmac"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1065; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURMAC__V23*/ meltfptr[21]; /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V27*/ meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1065:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27] = 0 ; } ; } ; /*_.IFCPP___V26*/ meltfptr[24] = /*_._IFELSE___V27*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1065:/ clear"); /*clear*/ /*_#IS_A__L13*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L14*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V27*/ meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V26*/ meltfptr[24] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1069:/ quasiblock"); /*_#ISDEFMACRO__L16*/ meltfnum[14] = melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V23*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFMACRO*/ meltfrout->tabval[4])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1071:/ cond"); /*cond*/ if (/*_#ISDEFMACRO__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1072:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V23*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[12]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURMAC__V23*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V30*/ meltfptr[20] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V30*/ meltfptr[20] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_._IFELSE___V29*/ meltfptr[27] = /*_.SDEF_NAME__V30*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1071:/ clear"); /*clear*/ /*_.SDEF_NAME__V30*/ meltfptr[20] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1073:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V23*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_ANY_MACRO*/ meltfrout->tabval[13]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURMAC__V23*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXPMAC_MNAME"); /*_.SEXPMAC_MNAME__V31*/ meltfptr[20] = slot; }; ; } else /*^cond.else*/ { /*_.SEXPMAC_MNAME__V31*/ meltfptr[20] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_._IFELSE___V29*/ meltfptr[27] = /*_.SEXPMAC_MNAME__V31*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1071:/ clear"); /*clear*/ /*_.SEXPMAC_MNAME__V31*/ meltfptr[20] = 0 ; } ; } ; /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_._IFELSE___V29*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[14]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_._IFELSE___V29*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.MNAM__V32*/ meltfptr[20] = slot; }; ; } else /*^cond.else*/ { /*_.MNAM__V32*/ meltfptr[20] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1074:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V23*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[15]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURMAC__V23*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.MLOC__V33*/ meltfptr[32] = slot; }; ; } else /*^cond.else*/ { /*_.MLOC__V33*/ meltfptr[32] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1075:/ cond"); /*cond*/ if (/*_#ISDEFMACRO__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V23*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[12]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURMAC__V23*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.SDEF_DOC__V35*/ meltfptr[34] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_DOC__V35*/ meltfptr[34] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.MDOC__V34*/ meltfptr[33] = /*_.SDEF_DOC__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1075:/ clear"); /*clear*/ /*_.SDEF_DOC__V35*/ meltfptr[34] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1076:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V23*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_ANY_MACRO*/ meltfrout->tabval[13]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURMAC__V23*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SEXPMAC_DOC"); /*_.SEXPMAC_DOC__V36*/ meltfptr[34] = slot; }; ; } else /*^cond.else*/ { /*_.SEXPMAC_DOC__V36*/ meltfptr[34] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.MDOC__V34*/ meltfptr[33] = /*_.SEXPMAC_DOC__V36*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1075:/ clear"); /*clear*/ /*_.SEXPMAC_DOC__V36*/ meltfptr[34] = 0 ; } ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1078:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRING__L17*/ meltfnum[11] = (melt_magic_discr((melt_ptr_t)(/*_.MNAM__V32*/ meltfptr[20])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:1078:/ cond"); /*cond*/ if (/*_#IS_STRING__L17*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V38*/ meltfptr[37] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1078:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mnam"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1078; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MNAM__V32*/ meltfptr[20]; /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V38*/ meltfptr[37] = /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1078:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V39*/ meltfptr[38] = 0 ; } ; } ; /*_.IFCPP___V37*/ meltfptr[34] = /*_._IFELSE___V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1078:/ clear"); /*clear*/ /*_#IS_STRING__L17*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V38*/ meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V37*/ meltfptr[34] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1079:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1080:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@subsection @var{")); } ; { MELT_LOCATION("warmelt-modes.melt:1081:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.MNAM__V32*/ meltfptr[20]))); } ; { MELT_LOCATION("warmelt-modes.melt:1082:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "}")); } ; { MELT_LOCATION("warmelt-modes.melt:1083:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1084:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@vindex ")); } ; { MELT_LOCATION("warmelt-modes.melt:1085:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.MNAM__V32*/ meltfptr[20]))); } ; { MELT_LOCATION("warmelt-modes.melt:1086:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1088:/ cond"); /*cond*/ if (/*_.MLOC__V33*/ meltfptr[32]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-modes.melt:1089:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "Macro defined at ")); } ; { MELT_LOCATION("warmelt-modes.melt:1090:/ locexp"); /*add2sbufteximixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.MLOC__V33*/ meltfptr[32])) == MELTOBMAG_MIXLOC) { location_t loc = melt_location_mixloc((melt_ptr_t)/*_.MLOC__V33*/ meltfptr[32]); meltgc_strbuf_printf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), "file @file{%s}, line %d", lbasename (LOCATION_FILE (loc)), LOCATION_LINE (loc)); } /*end add2sbufteximixloc*/; } ; { MELT_LOCATION("warmelt-modes.melt:1091:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( ".")); } ; { MELT_LOCATION("warmelt-modes.melt:1092:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1088:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1094:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MDOC__V34*/ meltfptr[33]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{macro description:} "; /*_.MAKEDOC_OUTDOC__V40*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1095:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1069:/ clear"); /*clear*/ /*_#ISDEFMACRO__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V29*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.MNAM__V32*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.MLOC__V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.MDOC__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V37*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTDOC__V40*/ meltfptr[38] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1097:/ apply"); /*apply*/ { /*_.INCREMENT_MKDOC_COUNTER__V41*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!INCREMENT_MKDOC_COUNTER*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; if (/*_#MACIX__L10*/ meltfnum[3]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1061:/ clear"); /*clear*/ /*_.CURMAC__V23*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_#MACIX__L10*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V26*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.INCREMENT_MKDOC_COUNTER__V41*/ meltfptr[37] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-modes.melt:1028:/ clear"); /*clear*/ /*_.MACLIST__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.UNSORTEDMACTUPLE__V17*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V18*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.SORTEDMACTUPLE__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ meltfnum[4] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1020:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_GENMACRO", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_WARMELTmiMODES_LAMBDA_cl9(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_23_WARMELTmiMODES_LAMBDA_cl9_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_23_WARMELTmiMODES_LAMBDA_cl9 fromline 1752 */ /** start of frame for meltrout_23_WARMELTmiMODES_LAMBDA_cl9 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_23_WARMELTmiMODES_LAMBDA_cl9// fromline 1568 : public Melt_CallFrameWithValues<10> { public: /* fromline 1572*/ // no classy longs /*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_23_WARMELTmiMODES_LAMBDA_cl9(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<10> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_23_WARMELTmiMODES_LAMBDA_cl9), clos) {}; MeltFrame_meltrout_23_WARMELTmiMODES_LAMBDA_cl9() //the constructor fromline 1642 : Melt_CallFrameWithValues<10> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_23_WARMELTmiMODES_LAMBDA_cl9)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_23_WARMELTmiMODES_LAMBDA_cl9(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<10> (fil,lin, sizeof(MeltFrame_meltrout_23_WARMELTmiMODES_LAMBDA_cl9)) {}; MeltFrame_meltrout_23_WARMELTmiMODES_LAMBDA_cl9(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<10> (fil,lin, sizeof(MeltFrame_meltrout_23_WARMELTmiMODES_LAMBDA_cl9), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_23_WARMELTmiMODES_LAMBDA_cl9 /** end of frame for meltrout_23_WARMELTmiMODES_LAMBDA_cl9 fromline 1697**/ /* end of frame for routine meltrout_23_WARMELTmiMODES_LAMBDA_cl9 fromline 1756 */ /* classy proc frame meltrout_23_WARMELTmiMODES_LAMBDA_cl9 */ MeltFrame_meltrout_23_WARMELTmiMODES_LAMBDA_cl9 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_23_WARMELTmiMODES_LAMBDA_cl9 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("LAMBDA_cl9", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1043:/ getarg"); /*_.MS1__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.MS2__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MS2__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1045:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MS1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_ANY_MACRO*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MS1__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXPMAC_MNAME"); /*_.SEXPMAC_MNAME__V4*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.SEXPMAC_MNAME__V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1045:/ cond"); /*cond*/ if (/*_.SEXPMAC_MNAME__V4*/ meltfptr[3]) /*then*/ { /*^cond.then*/ /*_.OR___V5*/ meltfptr[4] = /*_.SEXPMAC_MNAME__V4*/ meltfptr[3];; } else { MELT_LOCATION("warmelt-modes.melt:1045:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1046:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MS1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MS1__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V6*/ meltfptr[5] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V6*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.OR___V5*/ meltfptr[4] = /*_.SDEF_NAME__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1045:/ clear"); /*clear*/ /*_.SDEF_NAME__V6*/ meltfptr[5] = 0 ; } ; } ; MELT_LOCATION("warmelt-modes.melt:1047:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MS2__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_ANY_MACRO*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MS2__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXPMAC_MNAME"); /*_.SEXPMAC_MNAME__V7*/ meltfptr[5] = slot; }; ; } else /*^cond.else*/ { /*_.SEXPMAC_MNAME__V7*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1047:/ cond"); /*cond*/ if (/*_.SEXPMAC_MNAME__V7*/ meltfptr[5]) /*then*/ { /*^cond.then*/ /*_.OR___V8*/ meltfptr[7] = /*_.SEXPMAC_MNAME__V7*/ meltfptr[5];; } else { MELT_LOCATION("warmelt-modes.melt:1047:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1048:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MS2__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MS2__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V9*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V9*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.OR___V8*/ meltfptr[7] = /*_.SDEF_NAME__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1047:/ clear"); /*clear*/ /*_.SDEF_NAME__V9*/ meltfptr[8] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1044:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OR___V8*/ meltfptr[7]; /*_.COMPARE_NAMED_ALPHA__V10*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OR___V5*/ meltfptr[4]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1043:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.COMPARE_NAMED_ALPHA__V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-modes.melt:1043:/ 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*/ /*_.SEXPMAC_MNAME__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.OR___V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.SEXPMAC_MNAME__V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.OR___V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.COMPARE_NAMED_ALPHA__V10*/ meltfptr[8] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl9", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_23_WARMELTmiMODES_LAMBDA_cl9_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_23_WARMELTmiMODES_LAMBDA_cl9*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO_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_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO fromline 1752 */ /** start of frame for meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO// fromline 1568 : public Melt_CallFrameWithValues<36> { public: /* fromline 1572*/ long mcfr_varnum[12]; /*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_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<36> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO), clos) {}; MeltFrame_meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO() //the constructor fromline 1642 : Melt_CallFrameWithValues<36> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<36> (fil,lin, sizeof(MeltFrame_meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO)) {}; MeltFrame_meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<36> (fil,lin, sizeof(MeltFrame_meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO /** end of frame for meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO fromline 1697**/ /* end of frame for routine meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO fromline 1756 */ /* classy proc frame meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO */ MeltFrame_meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO 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("MAKEDOC_GENPATMACRO", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1104:/ getarg"); /*_.MDINFO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.OUTB__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1105:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1105:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1105:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mdinfo"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1105; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1105:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1105:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1106:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:1106:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1106:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1106; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1106:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1106:/ clear"); /*clear*/ /*_#IS_STRBUF__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1107:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@node MELT patterns")); } ; { MELT_LOCATION("warmelt-modes.melt:1108:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1109:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@section MELT pattern macros")); } ; { MELT_LOCATION("warmelt-modes.melt:1110:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1111:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1112:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 31, "MKDOC_PATMACROS"); /*_.PATMACLIST__V10*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.PATMACLIST__V10*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1113:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.RAWPATMACTUPLE__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.PATMACLIST__V10*/ meltfptr[8]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.RAWPATMACTUPLE__V11*/ meltfptr[4]); for (/*_#PMSIX__L3*/ meltfnum[0] = 0; (/*_#PMSIX__L3*/ meltfnum[0] >= 0) && (/*_#PMSIX__L3*/ meltfnum[0] < meltcit1__EACHTUP_ln); /*_#PMSIX__L3*/ meltfnum[0]++) { /*_.CURPMS__V12*/ meltfptr[11] = melt_multiple_nth((melt_ptr_t)(/*_.RAWPATMACTUPLE__V11*/ meltfptr[4]), /*_#PMSIX__L3*/ meltfnum[0]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1119:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.CURPMS__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-modes.melt:1119:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1119:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "makedoc_genpatmacro check curpms"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1119; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURPMS__V12*/ meltfptr[11]; /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V14*/ meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1119:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 0 ; } ; } ; /*_.IFCPP___V13*/ meltfptr[12] = /*_._IFELSE___V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1119:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V14*/ meltfptr[13] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V13*/ meltfptr[12] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; if (/*_#PMSIX__L3*/ meltfnum[0]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1116:/ clear"); /*clear*/ /*_.CURPMS__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#PMSIX__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V13*/ meltfptr[12] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-modes.melt:1122:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V17*/ meltfptr[13] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ meltfrout->tabval[8])), (0)); ; /*_.LAMBDA___V16*/ meltfptr[14] = /*_.LAMBDA___V17*/ meltfptr[13];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1121:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ meltfptr[14]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.MULTIPLE_SORT__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.RAWPATMACTUPLE__V11*/ meltfptr[4]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1115:/ quasiblock"); /*_.SORTEDPATMACTUPLE__V19*/ meltfptr[18] = /*_.MULTIPLE_SORT__V18*/ meltfptr[17];; { MELT_LOCATION("warmelt-modes.melt:1128:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "There are ")); } ; /*_#MULTIPLE_LENGTH__L5*/ meltfnum[3] = (melt_multiple_length((melt_ptr_t)(/*_.SORTEDPATMACTUPLE__V19*/ meltfptr[18])));; { MELT_LOCATION("warmelt-modes.melt:1129:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (/*_#MULTIPLE_LENGTH__L5*/ meltfnum[3])); } ; { MELT_LOCATION("warmelt-modes.melt:1130:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " documented pattern-macros.")); } ; { MELT_LOCATION("warmelt-modes.melt:1131:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1132:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L6*/ meltfnum[5] = /*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-modes.melt:1132:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L7*/ meltfnum[6] = /* 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-modes.melt:1132:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[6]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1132; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_genpatmacro rawpatmactuple="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RAWPATMACTUPLE__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[5].meltbp_cstring = " sortedpatmactuple="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SORTEDPATMACTUPLE__V19*/ meltfptr[18]; /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[9])), (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___V20*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1132:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V20*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1132:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[5] = 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*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit2__EACHTUP */ long meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDPATMACTUPLE__V19*/ meltfptr[18]); for (/*_#PMACIX__L8*/ meltfnum[6] = 0; (/*_#PMACIX__L8*/ meltfnum[6] >= 0) && (/*_#PMACIX__L8*/ meltfnum[6] < meltcit2__EACHTUP_ln); /*_#PMACIX__L8*/ meltfnum[6]++) { /*_.PATMAC__V22*/ meltfptr[20] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDPATMACTUPLE__V19*/ meltfptr[18]), /*_#PMACIX__L8*/ meltfnum[6]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1137:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L9*/ meltfnum[5] = /*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-modes.melt:1137:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = /* 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-modes.melt:1137:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[9]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1137; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_genpatmacro patmac="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PATMAC__V22*/ meltfptr[20]; /*^apply.arg*/ argtab[5].meltbp_cstring = " pmacix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#PMACIX__L8*/ meltfnum[6]; /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[9])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V23*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1137:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V23*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1137:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V23*/ meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1138:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L11*/ meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.PATMAC__V22*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_PATMACRO*/ meltfrout->tabval[10])));; MELT_LOCATION("warmelt-modes.melt:1138:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V26*/ meltfptr[19] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1138:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check patmac"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1138; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PATMAC__V22*/ meltfptr[20]; /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V26*/ meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1138:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V27*/ meltfptr[26] = 0 ; } ; } ; /*_.IFCPP___V25*/ meltfptr[23] = /*_._IFELSE___V26*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1138:/ clear"); /*clear*/ /*_#IS_A__L11*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V26*/ meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V25*/ meltfptr[23] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1139:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1140:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PATMAC__V22*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_ANY_MACRO*/ meltfrout->tabval[11]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PATMAC__V22*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXPMAC_MNAME"); /*_.SEXPMAC_MNAME__V28*/ meltfptr[26] = slot; }; ; } else /*^cond.else*/ { /*_.SEXPMAC_MNAME__V28*/ meltfptr[26] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1140:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SEXPMAC_MNAME__V28*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[12]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPMAC_MNAME__V28*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.MNAM__V29*/ meltfptr[19] = slot; }; ; } else /*^cond.else*/ { /*_.MNAM__V29*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1141:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PATMAC__V22*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[13]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PATMAC__V22*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.MLOC__V30*/ meltfptr[29] = slot; }; ; } else /*^cond.else*/ { /*_.MLOC__V30*/ meltfptr[29] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1142:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PATMAC__V22*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_ANY_MACRO*/ meltfrout->tabval[11]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PATMAC__V22*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SEXPMAC_DOC"); /*_.MDOC__V31*/ meltfptr[30] = slot; }; ; } else /*^cond.else*/ { /*_.MDOC__V31*/ meltfptr[30] = /*reallynil*/ NULL ;; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1144:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRING__L12*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.MNAM__V29*/ meltfptr[19])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:1144:/ cond"); /*cond*/ if (/*_#IS_STRING__L12*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V33*/ meltfptr[32] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1144:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mnam"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1144; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MNAM__V29*/ meltfptr[19]; /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V33*/ meltfptr[32] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1144:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = 0 ; } ; } ; /*_.IFCPP___V32*/ meltfptr[31] = /*_._IFELSE___V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1144:/ clear"); /*clear*/ /*_#IS_STRING__L12*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V33*/ meltfptr[32] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V32*/ meltfptr[31] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1145:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1146:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@subsection @var{")); } ; { MELT_LOCATION("warmelt-modes.melt:1147:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.MNAM__V29*/ meltfptr[19]))); } ; { MELT_LOCATION("warmelt-modes.melt:1148:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "}")); } ; { MELT_LOCATION("warmelt-modes.melt:1149:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1150:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@vindex ")); } ; { MELT_LOCATION("warmelt-modes.melt:1151:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.MNAM__V29*/ meltfptr[19]))); } ; { MELT_LOCATION("warmelt-modes.melt:1152:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1154:/ cond"); /*cond*/ if (/*_.MLOC__V30*/ meltfptr[29]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-modes.melt:1156:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "Pattern macro defined at ")); } ; { MELT_LOCATION("warmelt-modes.melt:1157:/ locexp"); /*add2sbufteximixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.MLOC__V30*/ meltfptr[29])) == MELTOBMAG_MIXLOC) { location_t loc = melt_location_mixloc((melt_ptr_t)/*_.MLOC__V30*/ meltfptr[29]); meltgc_strbuf_printf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), "file @file{%s}, line %d", lbasename (LOCATION_FILE (loc)), LOCATION_LINE (loc)); } /*end add2sbufteximixloc*/; } ; { MELT_LOCATION("warmelt-modes.melt:1158:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( ".")); } ; { MELT_LOCATION("warmelt-modes.melt:1159:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1155:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1161:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MDOC__V31*/ meltfptr[30]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{pattern macro description:} "; /*_.MAKEDOC_OUTDOC__V35*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1162:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1140:/ clear"); /*clear*/ /*_.SEXPMAC_MNAME__V28*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.MNAM__V29*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.MLOC__V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.MDOC__V31*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTDOC__V35*/ meltfptr[33] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1164:/ apply"); /*apply*/ { /*_.INCREMENT_MKDOC_COUNTER__V36*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!INCREMENT_MKDOC_COUNTER*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; if (/*_#PMACIX__L8*/ meltfnum[6]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1134:/ clear"); /*clear*/ /*_.PATMAC__V22*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_#PMACIX__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V25*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.INCREMENT_MKDOC_COUNTER__V36*/ meltfptr[32] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-modes.melt:1112:/ clear"); /*clear*/ /*_.PATMACLIST__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.RAWPATMACTUPLE__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V16*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.MULTIPLE_SORT__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.SORTEDPATMACTUPLE__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ meltfnum[3] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1104:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_GENPATMACRO", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_WARMELTmiMODES_LAMBDA_cl10(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_25_WARMELTmiMODES_LAMBDA_cl10_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_25_WARMELTmiMODES_LAMBDA_cl10 fromline 1752 */ /** start of frame for meltrout_25_WARMELTmiMODES_LAMBDA_cl10 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_25_WARMELTmiMODES_LAMBDA_cl10// fromline 1568 : public Melt_CallFrameWithValues<6> { public: /* fromline 1572*/ // no classy longs /*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_25_WARMELTmiMODES_LAMBDA_cl10(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<6> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_25_WARMELTmiMODES_LAMBDA_cl10), clos) {}; MeltFrame_meltrout_25_WARMELTmiMODES_LAMBDA_cl10() //the constructor fromline 1642 : Melt_CallFrameWithValues<6> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_25_WARMELTmiMODES_LAMBDA_cl10)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_25_WARMELTmiMODES_LAMBDA_cl10(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_25_WARMELTmiMODES_LAMBDA_cl10)) {}; MeltFrame_meltrout_25_WARMELTmiMODES_LAMBDA_cl10(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_25_WARMELTmiMODES_LAMBDA_cl10), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_25_WARMELTmiMODES_LAMBDA_cl10 /** end of frame for meltrout_25_WARMELTmiMODES_LAMBDA_cl10 fromline 1697**/ /* end of frame for routine meltrout_25_WARMELTmiMODES_LAMBDA_cl10 fromline 1756 */ /* classy proc frame meltrout_25_WARMELTmiMODES_LAMBDA_cl10 */ MeltFrame_meltrout_25_WARMELTmiMODES_LAMBDA_cl10 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_25_WARMELTmiMODES_LAMBDA_cl10 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("LAMBDA_cl10", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1122:/ getarg"); /*_.PMS1__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.PMS2__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PMS2__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1124:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PMS1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_ANY_MACRO*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PMS1__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXPMAC_MNAME"); /*_.SEXPMAC_MNAME__V4*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.SEXPMAC_MNAME__V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1125:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PMS2__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_ANY_MACRO*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PMS2__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXPMAC_MNAME"); /*_.SEXPMAC_MNAME__V5*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.SEXPMAC_MNAME__V5*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1123:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPMAC_MNAME__V5*/ meltfptr[4]; /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPMAC_MNAME__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1122:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5];; { MELT_LOCATION("warmelt-modes.melt:1122:/ 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*/ /*_.SEXPMAC_MNAME__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.SEXPMAC_MNAME__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl10", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_25_WARMELTmiMODES_LAMBDA_cl10_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_25_WARMELTmiMODES_LAMBDA_cl10*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS_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_26_WARMELTmiMODES_MAKEDOC_GENCLASS fromline 1752 */ /** start of frame for meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS// fromline 1568 : public Melt_CallFrameWithValues<37> { public: /* fromline 1572*/ long mcfr_varnum[12]; /*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_26_WARMELTmiMODES_MAKEDOC_GENCLASS(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<37> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS), clos) {}; MeltFrame_meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS() //the constructor fromline 1642 : Melt_CallFrameWithValues<37> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<37> (fil,lin, sizeof(MeltFrame_meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS)) {}; MeltFrame_meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<37> (fil,lin, sizeof(MeltFrame_meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS /** end of frame for meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS fromline 1697**/ /* end of frame for routine meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS fromline 1756 */ /* classy proc frame meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS */ MeltFrame_meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS 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("MAKEDOC_GENCLASS", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1172:/ getarg"); /*_.MDINFO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.OUTB__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1173:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1173:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1173:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mdinfo"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1173; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1173:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1173:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1174:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:1174:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1174:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1174; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1174:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1174:/ clear"); /*clear*/ /*_#IS_STRBUF__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1175:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@node MELT classes")); } ; { MELT_LOCATION("warmelt-modes.melt:1176:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1177:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@section MELT classes")); } ; { MELT_LOCATION("warmelt-modes.melt:1178:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1179:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1180:/ quasiblock"); /*_.QUOTEDONE__V10*/ meltfptr[8] = (/*!konst_2*/ meltfrout->tabval[2]);; /*^compute*/ /*_.QUOTEDZERO__V11*/ meltfptr[4] = (/*!konst_3*/ meltfrout->tabval[3]);; /*^compute*/ /*_.QUOTEDMINUSONE__V12*/ meltfptr[11] = (/*!konst_4*/ meltfrout->tabval[4]);; MELT_LOCATION("warmelt-modes.melt:1186:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 28, "MKDOC_CLASSES"); /*_.MKDOC_CLASSES__V13*/ meltfptr[12] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_CLASSES__V13*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1188:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V15*/ meltfptr[14] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ meltfrout->tabval[10])), (0)); ; /*_.LAMBDA___V14*/ meltfptr[13] = /*_.LAMBDA___V15*/ meltfptr[14];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1185:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[6]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V14*/ meltfptr[13]; /*_.UNSORTEDCLASSESTUPLE__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.MKDOC_CLASSES__V13*/ meltfptr[12]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1193:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V18*/ meltfptr[17] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ meltfrout->tabval[13])), (3)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ meltfptr[17])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ meltfptr[17]))); ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ meltfptr[17])->tabval[0] = (melt_ptr_t)(/*_.QUOTEDZERO__V11*/ meltfptr[4]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ meltfptr[17])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ meltfptr[17]))); ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ meltfptr[17])->tabval[1] = (melt_ptr_t)(/*_.QUOTEDMINUSONE__V12*/ meltfptr[11]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ meltfptr[17])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ meltfptr[17]))); ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ meltfptr[17])->tabval[2] = (melt_ptr_t)(/*_.QUOTEDONE__V10*/ meltfptr[8]); ; /*_.CMPCLASSDEPTHNAME__V17*/ meltfptr[16] = /*_.LAMBDA___V18*/ meltfptr[17];; MELT_LOCATION("warmelt-modes.melt:1223:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V20*/ meltfptr[19] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_16*/ meltfrout->tabval[16])), (3)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ meltfptr[19])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ meltfptr[19]))); ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ meltfptr[19])->tabval[0] = (melt_ptr_t)(/*_.QUOTEDZERO__V11*/ meltfptr[4]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ meltfptr[19])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ meltfptr[19]))); ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ meltfptr[19])->tabval[1] = (melt_ptr_t)(/*_.QUOTEDMINUSONE__V12*/ meltfptr[11]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ meltfptr[19])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ meltfptr[19]))); ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ meltfptr[19])->tabval[2] = (melt_ptr_t)(/*_.QUOTEDONE__V10*/ meltfptr[8]); ; /*_.CMPCLASSNAME__V19*/ meltfptr[18] = /*_.LAMBDA___V20*/ meltfptr[19];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1243:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CMPCLASSDEPTHNAME__V17*/ meltfptr[16]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[6]); /*_.DEPTHSORTEDCLASSESTUPLE__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.UNSORTEDCLASSESTUPLE__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1246:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V23*/ meltfptr[22] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_22*/ meltfrout->tabval[22])), (0)); ; /*_.CMPCLASSDEF__V22*/ meltfptr[21] = /*_.LAMBDA___V23*/ meltfptr[22];; MELT_LOCATION("warmelt-modes.melt:1253:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 28, "MKDOC_CLASSES"); /*_.MKDOC_CLASSES__V24*/ meltfptr[23] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_CLASSES__V24*/ meltfptr[23] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1253:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[6]); /*_.LIST_TO_MULTIPLE__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.MKDOC_CLASSES__V24*/ meltfptr[23]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1252:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CMPCLASSDEF__V22*/ meltfptr[21]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[6]); /*_.ALPHASORTEDCLASSDEFTUPLE__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V25*/ meltfptr[24]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#DEPTHIX__L3*/ meltfnum[0] = -1;; /*^compute*/ /*_#PREVCLAIX__L4*/ meltfnum[3] = -1;; { MELT_LOCATION("warmelt-modes.melt:1260:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "Table of classes sorted by inheritance depth.")); } ; { MELT_LOCATION("warmelt-modes.melt:1261:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1262:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@table @strong")); } ; { MELT_LOCATION("warmelt-modes.melt:1263:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.DEPTHSORTEDCLASSESTUPLE__V21*/ meltfptr[20]); for (/*_#CLAIX__L5*/ meltfnum[4] = 0; (/*_#CLAIX__L5*/ meltfnum[4] >= 0) && (/*_#CLAIX__L5*/ meltfnum[4] < meltcit1__EACHTUP_ln); /*_#CLAIX__L5*/ meltfnum[4]++) { /*_.CURCLA__V27*/ meltfptr[26] = melt_multiple_nth((melt_ptr_t)(/*_.DEPTHSORTEDCLASSESTUPLE__V21*/ meltfptr[20]), /*_#CLAIX__L5*/ meltfnum[4]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1267:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L6*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.CURCLA__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[23])));; MELT_LOCATION("warmelt-modes.melt:1267:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V29*/ meltfptr[28] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1267:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curcla"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1267; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCLA__V27*/ meltfptr[26]; /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V29*/ meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1267:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29] = 0 ; } ; } ; /*_.IFCPP___V28*/ meltfptr[27] = /*_._IFELSE___V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1267:/ clear"); /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V29*/ meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V28*/ meltfptr[27] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1268:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCLA__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[23]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCLA__V27*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CLASS_ANCESTORS"); /*_.CLASS_ANCESTORS__V31*/ meltfptr[29] = slot; }; ; } else /*^cond.else*/ { /*_.CLASS_ANCESTORS__V31*/ meltfptr[29] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#NBANC__L7*/ meltfnum[5] = (melt_multiple_length((melt_ptr_t)(/*_.CLASS_ANCESTORS__V31*/ meltfptr[29])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#ltI__L8*/ meltfnum[7] = ((/*_#DEPTHIX__L3*/ meltfnum[0]) < (/*_#NBANC__L7*/ meltfnum[5]));; MELT_LOCATION("warmelt-modes.melt:1269:/ cond"); /*cond*/ if (/*_#ltI__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1271:/ compute"); /*_#DEPTHIX__L3*/ meltfnum[0] = /*_#SETQ___L9*/ meltfnum[8] = /*_#NBANC__L7*/ meltfnum[5];; MELT_LOCATION("warmelt-modes.melt:1272:/ compute"); /*_#PREVCLAIX__L4*/ meltfnum[3] = /*_#SETQ___L10*/ meltfnum[9] = /*_#CLAIX__L5*/ meltfnum[4];; { MELT_LOCATION("warmelt-modes.melt:1273:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1274:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@item ")); } ; { MELT_LOCATION("warmelt-modes.melt:1275:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (/*_#DEPTHIX__L3*/ meltfnum[0])); } ; { MELT_LOCATION("warmelt-modes.melt:1276:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( ": ")); } ; { MELT_LOCATION("warmelt-modes.melt:1277:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1270:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1269:/ clear"); /*clear*/ /*_#SETQ___L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L10*/ meltfnum[9] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-modes.melt:1278:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( ",")); } ; /*epilog*/ } ; } ; { MELT_LOCATION("warmelt-modes.melt:1280:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " @code{")); } ; MELT_LOCATION("warmelt-modes.melt:1281:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCLA__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[24]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCLA__V27*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V32*/ meltfptr[28] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V32*/ meltfptr[28] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1281:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V32*/ meltfptr[28]))); } ; { MELT_LOCATION("warmelt-modes.melt:1282:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "}")); } ; MELT_LOCATION("warmelt-modes.melt:1268:/ clear"); /*clear*/ /*_.CLASS_ANCESTORS__V31*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_#NBANC__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V32*/ meltfptr[28] = 0 ; if (/*_#CLAIX__L5*/ meltfnum[4]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1264:/ clear"); /*clear*/ /*_.CURCLA__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_#CLAIX__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V28*/ meltfptr[27] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-modes.melt:1285:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1286:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@end table")); } ; { MELT_LOCATION("warmelt-modes.melt:1287:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit2__EACHTUP */ long meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.ALPHASORTEDCLASSDEFTUPLE__V26*/ meltfptr[25]); for (/*_#CLAIX__L11*/ meltfnum[8] = 0; (/*_#CLAIX__L11*/ meltfnum[8] >= 0) && (/*_#CLAIX__L11*/ meltfnum[8] < meltcit2__EACHTUP_ln); /*_#CLAIX__L11*/ meltfnum[8]++) { /*_.CURCLADEF__V33*/ meltfptr[29] = melt_multiple_nth((melt_ptr_t)(/*_.ALPHASORTEDCLASSDEFTUPLE__V26*/ meltfptr[25]), /*_#CLAIX__L11*/ meltfnum[8]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1291:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L12*/ meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.CURCLADEF__V33*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ meltfrout->tabval[25])));; MELT_LOCATION("warmelt-modes.melt:1291:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V35*/ meltfptr[34] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1291:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curcladef"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1291; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCLADEF__V33*/ meltfptr[29]; /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V35*/ meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1291:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V36*/ meltfptr[35] = 0 ; } ; } ; /*_.IFCPP___V34*/ meltfptr[28] = /*_._IFELSE___V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1291:/ clear"); /*clear*/ /*_#IS_A__L12*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V35*/ meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V34*/ meltfptr[28] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1292:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURCLADEF__V33*/ meltfptr[29]; /*^apply.arg*/ argtab[2].meltbp_long = /*_#CLAIX__L11*/ meltfnum[8]; /*_.MAKEDOC_OUTCLASSDEF__V37*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTCLASSDEF*/ meltfrout->tabval[26])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#CLAIX__L11*/ meltfnum[8]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1288:/ clear"); /*clear*/ /*_.CURCLADEF__V33*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_#CLAIX__L11*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V34*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTCLASSDEF__V37*/ meltfptr[35] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-modes.melt:1180:/ clear"); /*clear*/ /*_.QUOTEDONE__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.QUOTEDZERO__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.QUOTEDMINUSONE__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_CLASSES__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.UNSORTEDCLASSESTUPLE__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.CMPCLASSDEPTHNAME__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.CMPCLASSNAME__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.DEPTHSORTEDCLASSESTUPLE__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.CMPCLASSDEF__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_CLASSES__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_TO_MULTIPLE__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.ALPHASORTEDCLASSDEFTUPLE__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_#DEPTHIX__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#PREVCLAIX__L4*/ meltfnum[3] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1172:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_GENCLASS", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_WARMELTmiMODES_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_27_WARMELTmiMODES_LAMBDA_cl11_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_27_WARMELTmiMODES_LAMBDA_cl11 fromline 1752 */ /** start of frame for meltrout_27_WARMELTmiMODES_LAMBDA_cl11 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_27_WARMELTmiMODES_LAMBDA_cl11// fromline 1568 : public Melt_CallFrameWithValues<7> { public: /* fromline 1572*/ long mcfr_varnum[1]; /*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_27_WARMELTmiMODES_LAMBDA_cl11(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<7> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_27_WARMELTmiMODES_LAMBDA_cl11), clos) {}; MeltFrame_meltrout_27_WARMELTmiMODES_LAMBDA_cl11() //the constructor fromline 1642 : Melt_CallFrameWithValues<7> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_27_WARMELTmiMODES_LAMBDA_cl11)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_27_WARMELTmiMODES_LAMBDA_cl11(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<7> (fil,lin, sizeof(MeltFrame_meltrout_27_WARMELTmiMODES_LAMBDA_cl11)) {}; MeltFrame_meltrout_27_WARMELTmiMODES_LAMBDA_cl11(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<7> (fil,lin, sizeof(MeltFrame_meltrout_27_WARMELTmiMODES_LAMBDA_cl11), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_27_WARMELTmiMODES_LAMBDA_cl11 /** end of frame for meltrout_27_WARMELTmiMODES_LAMBDA_cl11 fromline 1697**/ /* end of frame for routine meltrout_27_WARMELTmiMODES_LAMBDA_cl11 fromline 1756 */ /* classy proc frame meltrout_27_WARMELTmiMODES_LAMBDA_cl11 */ MeltFrame_meltrout_27_WARMELTmiMODES_LAMBDA_cl11 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_27_WARMELTmiMODES_LAMBDA_cl11 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("LAMBDA_cl11", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1188:/ getarg"); /*_.CLDEF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1189:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CLDEF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1189:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1189:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check cldef"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1189; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CLDEF__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V4*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1189:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V5*/ meltfptr[4] = 0 ; } ; } ; /*_.IFCPP___V3*/ meltfptr[2] = /*_._IFELSE___V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1189:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1190:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLDEF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLDEF__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SCLASS_CLABIND"); /*_.SCLASS_CLABIND__V6*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.SCLASS_CLABIND__V6*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1190:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SCLASS_CLABIND__V6*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SCLASS_CLABIND__V6*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 3, "CBIND_CLASS"); /*_.CBIND_CLASS__V7*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.CBIND_CLASS__V7*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1188:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.CBIND_CLASS__V7*/ meltfptr[3];; { MELT_LOCATION("warmelt-modes.melt:1188:/ 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*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.SCLASS_CLABIND__V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND_CLASS__V7*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl11", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_27_WARMELTmiMODES_LAMBDA_cl11_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_27_WARMELTmiMODES_LAMBDA_cl11*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_WARMELTmiMODES_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_28_WARMELTmiMODES_LAMBDA_cl12_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_28_WARMELTmiMODES_LAMBDA_cl12 fromline 1752 */ /** start of frame for meltrout_28_WARMELTmiMODES_LAMBDA_cl12 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_28_WARMELTmiMODES_LAMBDA_cl12// fromline 1568 : public Melt_CallFrameWithValues<23> { 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_28_WARMELTmiMODES_LAMBDA_cl12(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<23> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_28_WARMELTmiMODES_LAMBDA_cl12), clos) {}; MeltFrame_meltrout_28_WARMELTmiMODES_LAMBDA_cl12() //the constructor fromline 1642 : Melt_CallFrameWithValues<23> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_28_WARMELTmiMODES_LAMBDA_cl12)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_28_WARMELTmiMODES_LAMBDA_cl12(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<23> (fil,lin, sizeof(MeltFrame_meltrout_28_WARMELTmiMODES_LAMBDA_cl12)) {}; MeltFrame_meltrout_28_WARMELTmiMODES_LAMBDA_cl12(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<23> (fil,lin, sizeof(MeltFrame_meltrout_28_WARMELTmiMODES_LAMBDA_cl12), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_28_WARMELTmiMODES_LAMBDA_cl12 /** end of frame for meltrout_28_WARMELTmiMODES_LAMBDA_cl12 fromline 1697**/ /* end of frame for routine meltrout_28_WARMELTmiMODES_LAMBDA_cl12 fromline 1756 */ /* classy proc frame meltrout_28_WARMELTmiMODES_LAMBDA_cl12 */ MeltFrame_meltrout_28_WARMELTmiMODES_LAMBDA_cl12 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_28_WARMELTmiMODES_LAMBDA_cl12 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("LAMBDA_cl12", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1193:/ getarg"); /*_.CL0__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.CL1__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CL1__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1194:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CL0__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1194:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1194:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check cl0"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1194; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CL0__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1194:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1194:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1195:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CL1__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1195:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1195:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check cl1"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1195; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CL1__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1195:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1195:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1196:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CL0__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CLASS_ANCESTORS"); /*_.CL0ANC__V11*/ meltfptr[4] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:1197:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CL1__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CLASS_ANCESTORS"); /*_.CL1ANC__V12*/ meltfptr[11] = slot; }; ; /*_#NBCL0ANC__L3*/ meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.CL0ANC__V11*/ meltfptr[4])));; /*^compute*/ /*_#NBCL1ANC__L4*/ meltfnum[3] = (melt_multiple_length((melt_ptr_t)(/*_.CL1ANC__V12*/ meltfptr[11])));; MELT_LOCATION("warmelt-modes.melt:1200:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CL0__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.CL0NAM__V13*/ meltfptr[12] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:1201:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CL1__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.CL1NAM__V14*/ meltfptr[13] = slot; }; ; MELT_CHECK_SIGNAL(); ; /*_#eqeq__L5*/ meltfnum[4] = ((/*_.CL0__V2*/ meltfptr[1]) == (/*_.CL1__V3*/ meltfptr[2]));; MELT_LOCATION("warmelt-modes.melt:1204:/ cond"); /*cond*/ if (/*_#eqeq__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[14] = (/*~QUOTEDZERO*/ meltfclos->tabval[0]);; } else { MELT_LOCATION("warmelt-modes.melt:1204:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#ltI__L6*/ meltfnum[5] = ((/*_#NBCL0ANC__L3*/ meltfnum[0]) < (/*_#NBCL1ANC__L4*/ meltfnum[3]));; MELT_LOCATION("warmelt-modes.melt:1206:/ cond"); /*cond*/ if (/*_#ltI__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[15] = (/*~QUOTEDMINUSONE*/ meltfclos->tabval[1]);; } else { MELT_LOCATION("warmelt-modes.melt:1206:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#gtI__L7*/ meltfnum[6] = ((/*_#NBCL0ANC__L3*/ meltfnum[0]) > (/*_#NBCL1ANC__L4*/ meltfnum[3]));; MELT_LOCATION("warmelt-modes.melt:1208:/ cond"); /*cond*/ if (/*_#gtI__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[16] = (/*~QUOTEDONE*/ meltfclos->tabval[2]);; } else { MELT_LOCATION("warmelt-modes.melt:1208:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#STRINGlt__L8*/ meltfnum[7] = melt_string_less((melt_ptr_t)(/*_.CL0NAM__V13*/ meltfptr[12]), (melt_ptr_t)(/*_.CL1NAM__V14*/ meltfptr[13]));; MELT_LOCATION("warmelt-modes.melt:1210:/ cond"); /*cond*/ if (/*_#STRINGlt__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[17] = (/*~QUOTEDMINUSONE*/ meltfclos->tabval[1]);; } else { MELT_LOCATION("warmelt-modes.melt:1210:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#STRINGgt__L9*/ meltfnum[8] = melt_string_less((melt_ptr_t)(/*_.CL1NAM__V14*/ meltfptr[13]), (melt_ptr_t)(/*_.CL0NAM__V13*/ meltfptr[12]));; MELT_LOCATION("warmelt-modes.melt:1212:/ cond"); /*cond*/ if (/*_#STRINGgt__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[18] = (/*~QUOTEDONE*/ meltfclos->tabval[2]);; } else { MELT_LOCATION("warmelt-modes.melt:1212:/ cond.else"); /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1216:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[20] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1216:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "cmpclassdepthname same name different classes!"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1216; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CL0__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CL1__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V21*/ meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1216:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; } ; } ; /*_.IFCPP___V20*/ meltfptr[19] = /*_._IFELSE___V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1216:/ clear"); /*clear*/ /*_._IFELSE___V21*/ meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V20*/ meltfptr[19] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1214:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[21] = (/*nil*/NULL);; /*^compute*/ /*_._IFELSE___V19*/ meltfptr[18] = /*_.PROGN___V23*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1212:/ clear"); /*clear*/ /*_.IFCPP___V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V23*/ meltfptr[21] = 0 ; } ; } ; /*_._IFELSE___V18*/ meltfptr[17] = /*_._IFELSE___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1210:/ clear"); /*clear*/ /*_#STRINGgt__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V19*/ meltfptr[18] = 0 ; } ; } ; /*_._IFELSE___V17*/ meltfptr[16] = /*_._IFELSE___V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1208:/ clear"); /*clear*/ /*_#STRINGlt__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V18*/ meltfptr[17] = 0 ; } ; } ; /*_._IFELSE___V16*/ meltfptr[15] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1206:/ clear"); /*clear*/ /*_#gtI__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; } ; } ; /*_._IFELSE___V15*/ meltfptr[14] = /*_._IFELSE___V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1204:/ clear"); /*clear*/ /*_#ltI__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V16*/ meltfptr[15] = 0 ; } ; } ; /*_.LET___V10*/ meltfptr[8] = /*_._IFELSE___V15*/ meltfptr[14];; MELT_LOCATION("warmelt-modes.melt:1196:/ clear"); /*clear*/ /*_.CL0ANC__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.CL1ANC__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#NBCL0ANC__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#NBCL1ANC__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.CL0NAM__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.CL1NAM__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#eqeq__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V15*/ meltfptr[14] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1193:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-modes.melt:1193:/ 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*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V10*/ meltfptr[8] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl12", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_28_WARMELTmiMODES_LAMBDA_cl12_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_28_WARMELTmiMODES_LAMBDA_cl12*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_WARMELTmiMODES_LAMBDA_cl13(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_29_WARMELTmiMODES_LAMBDA_cl13_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_29_WARMELTmiMODES_LAMBDA_cl13 fromline 1752 */ /** start of frame for meltrout_29_WARMELTmiMODES_LAMBDA_cl13 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_29_WARMELTmiMODES_LAMBDA_cl13// fromline 1568 : public Melt_CallFrameWithValues<19> { public: /* fromline 1572*/ long mcfr_varnum[5]; /*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_29_WARMELTmiMODES_LAMBDA_cl13(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<19> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_29_WARMELTmiMODES_LAMBDA_cl13), clos) {}; MeltFrame_meltrout_29_WARMELTmiMODES_LAMBDA_cl13() //the constructor fromline 1642 : Melt_CallFrameWithValues<19> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_29_WARMELTmiMODES_LAMBDA_cl13)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_29_WARMELTmiMODES_LAMBDA_cl13(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<19> (fil,lin, sizeof(MeltFrame_meltrout_29_WARMELTmiMODES_LAMBDA_cl13)) {}; MeltFrame_meltrout_29_WARMELTmiMODES_LAMBDA_cl13(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<19> (fil,lin, sizeof(MeltFrame_meltrout_29_WARMELTmiMODES_LAMBDA_cl13), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_29_WARMELTmiMODES_LAMBDA_cl13 /** end of frame for meltrout_29_WARMELTmiMODES_LAMBDA_cl13 fromline 1697**/ /* end of frame for routine meltrout_29_WARMELTmiMODES_LAMBDA_cl13 fromline 1756 */ /* classy proc frame meltrout_29_WARMELTmiMODES_LAMBDA_cl13 */ MeltFrame_meltrout_29_WARMELTmiMODES_LAMBDA_cl13 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_29_WARMELTmiMODES_LAMBDA_cl13 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("LAMBDA_cl13", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1223:/ getarg"); /*_.CL0__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.CL1__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CL1__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1224:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CL0__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1224:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1224:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check cl0"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1224; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CL0__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1224:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1224:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1225:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CL1__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1225:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1225:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check cl1"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1225; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CL1__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1225:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1225:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1226:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CL0__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.CL0NAM__V11*/ meltfptr[4] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:1227:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CL1__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.CL1NAM__V12*/ meltfptr[11] = slot; }; ; MELT_CHECK_SIGNAL(); ; /*_#eqeq__L3*/ meltfnum[0] = ((/*_.CL0__V2*/ meltfptr[1]) == (/*_.CL1__V3*/ meltfptr[2]));; MELT_LOCATION("warmelt-modes.melt:1230:/ cond"); /*cond*/ if (/*_#eqeq__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[12] = (/*~QUOTEDZERO*/ meltfclos->tabval[0]);; } else { MELT_LOCATION("warmelt-modes.melt:1230:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#STRINGlt__L4*/ meltfnum[3] = melt_string_less((melt_ptr_t)(/*_.CL0NAM__V11*/ meltfptr[4]), (melt_ptr_t)(/*_.CL1NAM__V12*/ meltfptr[11]));; MELT_LOCATION("warmelt-modes.melt:1232:/ cond"); /*cond*/ if (/*_#STRINGlt__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[13] = (/*~QUOTEDMINUSONE*/ meltfclos->tabval[1]);; } else { MELT_LOCATION("warmelt-modes.melt:1232:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#STRINGgt__L5*/ meltfnum[4] = melt_string_less((melt_ptr_t)(/*_.CL1NAM__V12*/ meltfptr[11]), (melt_ptr_t)(/*_.CL0NAM__V11*/ meltfptr[4]));; MELT_LOCATION("warmelt-modes.melt:1234:/ cond"); /*cond*/ if (/*_#STRINGgt__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[14] = (/*~QUOTEDONE*/ meltfclos->tabval[2]);; } else { MELT_LOCATION("warmelt-modes.melt:1234:/ cond.else"); /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1238:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1238:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "cmpclassname same name different classes!"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1238; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CL0__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CL1__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V17*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1238:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; } ; } ; /*_.IFCPP___V16*/ meltfptr[15] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1238:/ clear"); /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V16*/ meltfptr[15] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1236:/ quasiblock"); /*_.PROGN___V19*/ meltfptr[17] = (/*nil*/NULL);; /*^compute*/ /*_._IFELSE___V15*/ meltfptr[14] = /*_.PROGN___V19*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1234:/ clear"); /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V19*/ meltfptr[17] = 0 ; } ; } ; /*_._IFELSE___V14*/ meltfptr[13] = /*_._IFELSE___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1232:/ clear"); /*clear*/ /*_#STRINGgt__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V15*/ meltfptr[14] = 0 ; } ; } ; /*_._IFELSE___V13*/ meltfptr[12] = /*_._IFELSE___V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1230:/ clear"); /*clear*/ /*_#STRINGlt__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V14*/ meltfptr[13] = 0 ; } ; } ; /*_.LET___V10*/ meltfptr[8] = /*_._IFELSE___V13*/ meltfptr[12];; MELT_LOCATION("warmelt-modes.melt:1226:/ clear"); /*clear*/ /*_.CL0NAM__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.CL1NAM__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#eqeq__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V13*/ meltfptr[12] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1223:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-modes.melt:1223:/ 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*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V10*/ meltfptr[8] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl13", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_29_WARMELTmiMODES_LAMBDA_cl13_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_29_WARMELTmiMODES_LAMBDA_cl13*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_WARMELTmiMODES_LAMBDA_cl14(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_30_WARMELTmiMODES_LAMBDA_cl14_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_30_WARMELTmiMODES_LAMBDA_cl14 fromline 1752 */ /** start of frame for meltrout_30_WARMELTmiMODES_LAMBDA_cl14 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_30_WARMELTmiMODES_LAMBDA_cl14// fromline 1568 : public Melt_CallFrameWithValues<12> { 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_30_WARMELTmiMODES_LAMBDA_cl14(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<12> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_30_WARMELTmiMODES_LAMBDA_cl14), clos) {}; MeltFrame_meltrout_30_WARMELTmiMODES_LAMBDA_cl14() //the constructor fromline 1642 : Melt_CallFrameWithValues<12> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_30_WARMELTmiMODES_LAMBDA_cl14)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_30_WARMELTmiMODES_LAMBDA_cl14(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_30_WARMELTmiMODES_LAMBDA_cl14)) {}; MeltFrame_meltrout_30_WARMELTmiMODES_LAMBDA_cl14(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_30_WARMELTmiMODES_LAMBDA_cl14), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_30_WARMELTmiMODES_LAMBDA_cl14 /** end of frame for meltrout_30_WARMELTmiMODES_LAMBDA_cl14 fromline 1697**/ /* end of frame for routine meltrout_30_WARMELTmiMODES_LAMBDA_cl14 fromline 1756 */ /* classy proc frame meltrout_30_WARMELTmiMODES_LAMBDA_cl14 */ MeltFrame_meltrout_30_WARMELTmiMODES_LAMBDA_cl14 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_30_WARMELTmiMODES_LAMBDA_cl14 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("LAMBDA_cl14", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1246:/ getarg"); /*_.CDF0__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.CDF1__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CDF1__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1247:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CDF0__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1247:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1247:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check cdf0"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1247; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CDF0__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1247:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1247:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1248:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CDF1__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1248:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1248:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check cdf1"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1248; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CDF1__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1248:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1248:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1249:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CDF0__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CDF0__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V10*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V10*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1249:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CDF1__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CDF1__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V11*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V11*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1249:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SDEF_NAME__V11*/ meltfptr[4]; /*_.COMPARE_NAMED_ALPHA__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SDEF_NAME__V10*/ meltfptr[8]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1246:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.COMPARE_NAMED_ALPHA__V12*/ meltfptr[11];; { MELT_LOCATION("warmelt-modes.melt:1246:/ 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*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.COMPARE_NAMED_ALPHA__V12*/ meltfptr[11] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl14", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_30_WARMELTmiMODES_LAMBDA_cl14_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_30_WARMELTmiMODES_LAMBDA_cl14*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF_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_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF fromline 1752 */ /** start of frame for meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF// fromline 1568 : public Melt_CallFrameWithValues<25> { public: /* fromline 1572*/ long mcfr_varnum[4]; /*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_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<25> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF), clos) {}; MeltFrame_meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF() //the constructor fromline 1642 : Melt_CallFrameWithValues<25> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<25> (fil,lin, sizeof(MeltFrame_meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF)) {}; MeltFrame_meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<25> (fil,lin, sizeof(MeltFrame_meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF /** end of frame for meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF fromline 1697**/ /* end of frame for routine meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF fromline 1756 */ /* classy proc frame meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF */ MeltFrame_meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF 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("MAKEDOC_OUTPRIMITIVEDEF", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1299:/ getarg"); /*_.MDINFO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.OUTB__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.PRIMDEF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PRIMDEF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#PRIMIX__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1300:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1300:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1300:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mdinfo"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1300; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1300:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = 0 ; } ; } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1300:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1301:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:1301:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1301:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1301; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1301:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1301:/ clear"); /*clear*/ /*_#IS_STRBUF__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1302:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-modes.melt:1302:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1302:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check primdef"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1302; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PRIMDEF__V4*/ meltfptr[3]; /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1302:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1302:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1303:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PRIMDEF__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.PNAM__V14*/ meltfptr[12] = slot; }; ; } else /*^cond.else*/ { /*_.PNAM__V14*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1304:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION_FORMAL*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PRIMDEF__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS"); /*_.ARGS__V15*/ meltfptr[5] = slot; }; ; } else /*^cond.else*/ { /*_.ARGS__V15*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1305:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PRIMDEF__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SPRIM_TYPE"); /*_.TYPE__V16*/ meltfptr[15] = slot; }; ; } else /*^cond.else*/ { /*_.TYPE__V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1306:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PRIMDEF__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.DOC__V17*/ meltfptr[16] = slot; }; ; } else /*^cond.else*/ { /*_.DOC__V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1308:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1309:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@subsection @var{")); } ; MELT_LOCATION("warmelt-modes.melt:1310:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PNAM__V14*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PNAM__V14*/ meltfptr[12]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V18*/ meltfptr[17] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V18*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1310:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ meltfptr[17]))); } ; { MELT_LOCATION("warmelt-modes.melt:1311:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "}")); } ; { MELT_LOCATION("warmelt-modes.melt:1312:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1313:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@vindex ")); } ; MELT_LOCATION("warmelt-modes.melt:1314:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PNAM__V14*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PNAM__V14*/ meltfptr[12]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V19*/ meltfptr[18] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V19*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1314:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V19*/ meltfptr[18]))); } ; { MELT_LOCATION("warmelt-modes.melt:1315:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1316:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.PRIMDEF__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_cstring = "Primitive defined at "; /*_.MAKEDOC_OUTDEFLOC__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1317:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1318:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@strong{result type:} @code{")); } ; MELT_LOCATION("warmelt-modes.melt:1319:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TYPE__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_QUASI_CTYPE*/ meltfrout->tabval[7]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.TYPE__V16*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 2, "CTYPE_KEYWORD"); /*_.CTYPE_KEYWORD__V21*/ meltfptr[20] = slot; }; ; } else /*^cond.else*/ { /*_.CTYPE_KEYWORD__V21*/ meltfptr[20] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1319:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYPE_KEYWORD__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V22*/ meltfptr[21] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V22*/ meltfptr[21] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1319:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V22*/ meltfptr[21]))); } ; { MELT_LOCATION("warmelt-modes.melt:1320:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "}")); } ; { MELT_LOCATION("warmelt-modes.melt:1321:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1322:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ARGS__V15*/ meltfptr[5]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{primitive formals:}"; /*_.MAKEDOC_OUTFORMALS__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1324:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DOC__V17*/ meltfptr[16]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{primitive description:} "; /*_.MAKEDOC_OUTDOC__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1325:/ apply"); /*apply*/ { /*_.INCREMENT_MKDOC_COUNTER__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!INCREMENT_MKDOC_COUNTER*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1326:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1303:/ clear"); /*clear*/ /*_.PNAM__V14*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.ARGS__V15*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.TYPE__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.DOC__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.CTYPE_KEYWORD__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTFORMALS__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTDOC__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.INCREMENT_MKDOC_COUNTER__V25*/ meltfptr[24] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1299:/ clear"); /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_OUTPRIMITIVEDEF", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE_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_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE fromline 1752 */ /** start of frame for meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE// fromline 1568 : public Melt_CallFrameWithValues<26> { 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_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<26> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE), clos) {}; MeltFrame_meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE() //the constructor fromline 1642 : Melt_CallFrameWithValues<26> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<26> (fil,lin, sizeof(MeltFrame_meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE)) {}; MeltFrame_meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<26> (fil,lin, sizeof(MeltFrame_meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE /** end of frame for meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE fromline 1697**/ /* end of frame for routine meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE fromline 1756 */ /* classy proc frame meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE */ MeltFrame_meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE 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("MAKEDOC_GENPRIMITIVE", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1330:/ getarg"); /*_.MDINFO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.OUTB__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1331:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1331:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1331:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mdinfo"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1331; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1331:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1331:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1332:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:1332:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1332:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1332; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1332:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1332:/ clear"); /*clear*/ /*_#IS_STRBUF__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1333:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@node MELT primitives")); } ; { MELT_LOCATION("warmelt-modes.melt:1334:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1335:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@section MELT primitives")); } ; { MELT_LOCATION("warmelt-modes.melt:1336:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1337:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1338:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 22, "MKDOC_PRIMITIVES"); /*_.RAWPRIMLIST__V10*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.RAWPRIMLIST__V10*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1339:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.RAWPRIMTUP__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RAWPRIMLIST__V10*/ meltfptr[8]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.RAWPRIMTUP__V11*/ meltfptr[4]); for (/*_#PRIMIX__L3*/ meltfnum[0] = 0; (/*_#PRIMIX__L3*/ meltfnum[0] >= 0) && (/*_#PRIMIX__L3*/ meltfnum[0] < meltcit1__EACHTUP_ln); /*_#PRIMIX__L3*/ meltfnum[0]++) { /*_.CURPRIM__V12*/ meltfptr[11] = melt_multiple_nth((melt_ptr_t)(/*_.RAWPRIMTUP__V11*/ meltfptr[4]), /*_#PRIMIX__L3*/ meltfnum[0]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1345:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.CURPRIM__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-modes.melt:1345:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1345:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "makedoc_genprimitive check curprim"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1345; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURPRIM__V12*/ meltfptr[11]; /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V14*/ meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1345:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 0 ; } ; } ; /*_.IFCPP___V13*/ meltfptr[12] = /*_._IFELSE___V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1345:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V14*/ meltfptr[13] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V13*/ meltfptr[12] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; if (/*_#PRIMIX__L3*/ meltfnum[0]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1342:/ clear"); /*clear*/ /*_.CURPRIM__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#PRIMIX__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V13*/ meltfptr[12] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-modes.melt:1349:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V17*/ meltfptr[13] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ meltfrout->tabval[8])), (0)); ; /*_.LAMBDA___V16*/ meltfptr[14] = /*_.LAMBDA___V17*/ meltfptr[13];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1347:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ meltfptr[14]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.MULTIPLE_SORT__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.RAWPRIMTUP__V11*/ meltfptr[4]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1341:/ quasiblock"); /*_.SORTEDPRIMTUP__V19*/ meltfptr[18] = /*_.MULTIPLE_SORT__V18*/ meltfptr[17];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1355:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[3] = /*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-modes.melt:1355:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = /* 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-modes.melt:1355:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[5]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1355; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_genprimitive rawprimtup="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RAWPRIMTUP__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[5].meltbp_cstring = " sortedprimtup="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SORTEDPRIMTUP__V19*/ meltfptr[18]; /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[9])), (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___V20*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1355:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V20*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1355:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[3] = 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_LOCATION("warmelt-modes.melt:1357:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "There are ")); } ; /*_#MULTIPLE_LENGTH__L7*/ meltfnum[5] = (melt_multiple_length((melt_ptr_t)(/*_.SORTEDPRIMTUP__V19*/ meltfptr[18])));; { MELT_LOCATION("warmelt-modes.melt:1358:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (/*_#MULTIPLE_LENGTH__L7*/ meltfnum[5])); } ; { MELT_LOCATION("warmelt-modes.melt:1359:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " primitives.")); } ; { MELT_LOCATION("warmelt-modes.melt:1360:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit2__EACHTUP */ long meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDPRIMTUP__V19*/ meltfptr[18]); for (/*_#PRIMIX__L8*/ meltfnum[3] = 0; (/*_#PRIMIX__L8*/ meltfnum[3] >= 0) && (/*_#PRIMIX__L8*/ meltfnum[3] < meltcit2__EACHTUP_ln); /*_#PRIMIX__L8*/ meltfnum[3]++) { /*_.CURPRIMDEF__V22*/ meltfptr[20] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDPRIMTUP__V19*/ meltfptr[18]), /*_#PRIMIX__L8*/ meltfnum[3]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1364:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L9*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.CURPRIMDEF__V22*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-modes.melt:1364:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V24*/ meltfptr[23] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1364:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curprimdef"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1364; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURPRIMDEF__V22*/ meltfptr[20]; /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V24*/ meltfptr[23] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1364:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = 0 ; } ; } ; /*_.IFCPP___V23*/ meltfptr[19] = /*_._IFELSE___V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1364:/ clear"); /*clear*/ /*_#IS_A__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V24*/ meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V23*/ meltfptr[19] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1365:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURPRIMDEF__V22*/ meltfptr[20]; /*^apply.arg*/ argtab[2].meltbp_long = /*_#PRIMIX__L8*/ meltfnum[3]; /*_.MAKEDOC_OUTPRIMITIVEDEF__V26*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTPRIMITIVEDEF*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1366:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; if (/*_#PRIMIX__L8*/ meltfnum[3]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1361:/ clear"); /*clear*/ /*_.CURPRIMDEF__V22*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_#PRIMIX__L8*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V23*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTPRIMITIVEDEF__V26*/ meltfptr[24] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-modes.melt:1338:/ clear"); /*clear*/ /*_.RAWPRIMLIST__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.RAWPRIMTUP__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V16*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.MULTIPLE_SORT__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.SORTEDPRIMTUP__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ meltfnum[5] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1330:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_GENPRIMITIVE", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_WARMELTmiMODES_LAMBDA_cl15(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_33_WARMELTmiMODES_LAMBDA_cl15_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_33_WARMELTmiMODES_LAMBDA_cl15 fromline 1752 */ /** start of frame for meltrout_33_WARMELTmiMODES_LAMBDA_cl15 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_33_WARMELTmiMODES_LAMBDA_cl15// fromline 1568 : public Melt_CallFrameWithValues<6> { public: /* fromline 1572*/ // no classy longs /*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_33_WARMELTmiMODES_LAMBDA_cl15(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<6> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_33_WARMELTmiMODES_LAMBDA_cl15), clos) {}; MeltFrame_meltrout_33_WARMELTmiMODES_LAMBDA_cl15() //the constructor fromline 1642 : Melt_CallFrameWithValues<6> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_33_WARMELTmiMODES_LAMBDA_cl15)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_33_WARMELTmiMODES_LAMBDA_cl15(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_33_WARMELTmiMODES_LAMBDA_cl15)) {}; MeltFrame_meltrout_33_WARMELTmiMODES_LAMBDA_cl15(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_33_WARMELTmiMODES_LAMBDA_cl15), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_33_WARMELTmiMODES_LAMBDA_cl15 /** end of frame for meltrout_33_WARMELTmiMODES_LAMBDA_cl15 fromline 1697**/ /* end of frame for routine meltrout_33_WARMELTmiMODES_LAMBDA_cl15 fromline 1756 */ /* classy proc frame meltrout_33_WARMELTmiMODES_LAMBDA_cl15 */ MeltFrame_meltrout_33_WARMELTmiMODES_LAMBDA_cl15 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_33_WARMELTmiMODES_LAMBDA_cl15 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("LAMBDA_cl15", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1349:/ getarg"); /*_.SDPRI1__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.SDPRI2__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SDPRI2__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1351:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SDPRI1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDPRI1__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V4*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1352:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SDPRI2__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SDPRI2__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V5*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V5*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1350:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SDEF_NAME__V5*/ meltfptr[4]; /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SDEF_NAME__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1349:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5];; { MELT_LOCATION("warmelt-modes.melt:1349:/ 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*/ /*_.SDEF_NAME__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl15", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_33_WARMELTmiMODES_LAMBDA_cl15_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_33_WARMELTmiMODES_LAMBDA_cl15*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF_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_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF fromline 1752 */ /** start of frame for meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF// fromline 1568 : public Melt_CallFrameWithValues<22> { public: /* fromline 1572*/ long mcfr_varnum[4]; /*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_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<22> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF), clos) {}; MeltFrame_meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF() //the constructor fromline 1642 : Melt_CallFrameWithValues<22> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<22> (fil,lin, sizeof(MeltFrame_meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF)) {}; MeltFrame_meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<22> (fil,lin, sizeof(MeltFrame_meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF /** end of frame for meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF fromline 1697**/ /* end of frame for routine meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF fromline 1756 */ /* classy proc frame meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF */ MeltFrame_meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF 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("MAKEDOC_OUTFUNCTIONDEF", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1374:/ getarg"); /*_.MDINFO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.OUTB__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.FUNDEF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.FUNDEF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#PRIMIX__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1375:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1375:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1375:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mdinfo"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1375; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1375:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = 0 ; } ; } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1375:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1376:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:1376:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1376:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1376; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1376:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1376:/ clear"); /*clear*/ /*_#IS_STRBUF__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1377:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.FUNDEF__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFUN*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-modes.melt:1377:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1377:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check fundef"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1377; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FUNDEF__V4*/ meltfptr[3]; /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1377:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1377:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1378:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FUNDEF__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FUNDEF__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.FNAM__V14*/ meltfptr[12] = slot; }; ; } else /*^cond.else*/ { /*_.FNAM__V14*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1379:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FUNDEF__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION_FORMAL*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FUNDEF__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS"); /*_.ARGS__V15*/ meltfptr[5] = slot; }; ; } else /*^cond.else*/ { /*_.ARGS__V15*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1380:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FUNDEF__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FUNDEF__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.DOC__V16*/ meltfptr[15] = slot; }; ; } else /*^cond.else*/ { /*_.DOC__V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1382:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1383:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@subsection @var{")); } ; MELT_LOCATION("warmelt-modes.melt:1384:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FNAM__V14*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FNAM__V14*/ meltfptr[12]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V17*/ meltfptr[16] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1384:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V17*/ meltfptr[16]))); } ; { MELT_LOCATION("warmelt-modes.melt:1385:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "}")); } ; { MELT_LOCATION("warmelt-modes.melt:1386:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1387:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@vindex ")); } ; MELT_LOCATION("warmelt-modes.melt:1388:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FNAM__V14*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FNAM__V14*/ meltfptr[12]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V18*/ meltfptr[17] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V18*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1388:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ meltfptr[17]))); } ; { MELT_LOCATION("warmelt-modes.melt:1389:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1390:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FUNDEF__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].meltbp_cstring = "Function defined at "; /*_.MAKEDOC_OUTDEFLOC__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1391:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1392:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ARGS__V15*/ meltfptr[5]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{Function formals:}"; /*_.MAKEDOC_OUTFORMALS__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1394:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DOC__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{Function description:} "; /*_.MAKEDOC_OUTDOC__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1395:/ apply"); /*apply*/ { /*_.INCREMENT_MKDOC_COUNTER__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!INCREMENT_MKDOC_COUNTER*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1396:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1378:/ clear"); /*clear*/ /*_.FNAM__V14*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.ARGS__V15*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.DOC__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTFORMALS__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTDOC__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.INCREMENT_MKDOC_COUNTER__V22*/ meltfptr[21] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1374:/ clear"); /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_OUTFUNCTIONDEF", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION_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_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION fromline 1752 */ /** start of frame for meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION// fromline 1568 : public Melt_CallFrameWithValues<23> { 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_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<23> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION), clos) {}; MeltFrame_meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION() //the constructor fromline 1642 : Melt_CallFrameWithValues<23> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<23> (fil,lin, sizeof(MeltFrame_meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION)) {}; MeltFrame_meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<23> (fil,lin, sizeof(MeltFrame_meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION /** end of frame for meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION fromline 1697**/ /* end of frame for routine meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION fromline 1756 */ /* classy proc frame meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION */ MeltFrame_meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION 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("MAKEDOC_GENFUNCTION", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1400:/ getarg"); /*_.MDINFO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.OUTB__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1401:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1401:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1401:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mdinfo"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1401; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1401:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1401:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1402:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:1402:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1402:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1402; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1402:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1402:/ clear"); /*clear*/ /*_#IS_STRBUF__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1403:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@node MELT functions")); } ; { MELT_LOCATION("warmelt-modes.melt:1404:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1405:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@section MELT functions")); } ; { MELT_LOCATION("warmelt-modes.melt:1406:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1407:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1408:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 23, "MKDOC_FUNCTIONS"); /*_.RAWFUNLIST__V10*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.RAWFUNLIST__V10*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1409:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.RAWFUNTUP__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RAWFUNLIST__V10*/ meltfptr[8]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1412:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V13*/ meltfptr[12] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ meltfrout->tabval[7])), (0)); ; /*_.LAMBDA___V12*/ meltfptr[11] = /*_.LAMBDA___V13*/ meltfptr[12];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1410:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V12*/ meltfptr[11]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.SORTEDFUNTUP__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.RAWFUNTUP__V11*/ meltfptr[4]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1416:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L3*/ 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-modes.melt:1416:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = /* 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-modes.melt:1416:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L4*/ meltfnum[3]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1416; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_genfunction rawfuntup="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RAWFUNTUP__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n* sortedfuntup="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SORTEDFUNTUP__V14*/ meltfptr[13]; /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[8])), (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___V15*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1416:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V15*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1416:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V15*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1417:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "There are ")); } ; /*_#MULTIPLE_LENGTH__L5*/ meltfnum[3] = (melt_multiple_length((melt_ptr_t)(/*_.SORTEDFUNTUP__V14*/ meltfptr[13])));; { MELT_LOCATION("warmelt-modes.melt:1418:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (/*_#MULTIPLE_LENGTH__L5*/ meltfnum[3])); } ; { MELT_LOCATION("warmelt-modes.melt:1419:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " functions.")); } ; { MELT_LOCATION("warmelt-modes.melt:1420:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDFUNTUP__V14*/ meltfptr[13]); for (/*_#FUNIX__L6*/ meltfnum[0] = 0; (/*_#FUNIX__L6*/ meltfnum[0] >= 0) && (/*_#FUNIX__L6*/ meltfnum[0] < meltcit1__EACHTUP_ln); /*_#FUNIX__L6*/ meltfnum[0]++) { /*_.CURFUNDEF__V17*/ meltfptr[15] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDFUNTUP__V14*/ meltfptr[13]), /*_#FUNIX__L6*/ meltfnum[0]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1424:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L7*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.CURFUNDEF__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFUN*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-modes.melt:1424:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[18] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1424:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curfun"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1424; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFUNDEF__V17*/ meltfptr[15]; /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V19*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1424:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; } ; } ; /*_.IFCPP___V18*/ meltfptr[14] = /*_._IFELSE___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1424:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V19*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V18*/ meltfptr[14] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1425:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L8*/ meltfnum[6] = /*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-modes.melt:1425:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = /* 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-modes.melt:1425:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L9*/ meltfnum[8]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1425; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_genfunction curfundef="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURFUNDEF__V17*/ meltfptr[15]; /*^apply.arg*/ argtab[5].meltbp_cstring = " funix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#FUNIX__L6*/ meltfnum[0]; /*_.MELT_DEBUG_FUN__V22*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V21*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1425:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[18] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V21*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1425:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V21*/ 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-modes.melt:1426:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURFUNDEF__V17*/ meltfptr[15]; /*^apply.arg*/ argtab[2].meltbp_long = /*_#FUNIX__L6*/ meltfnum[0]; /*_.MAKEDOC_OUTFUNCTIONDEF__V23*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFUNCTIONDEF*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1427:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; if (/*_#FUNIX__L6*/ meltfnum[0]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1421:/ clear"); /*clear*/ /*_.CURFUNDEF__V17*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_#FUNIX__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V18*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTFUNCTIONDEF__V23*/ meltfptr[18] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-modes.melt:1408:/ clear"); /*clear*/ /*_.RAWFUNLIST__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.RAWFUNTUP__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.SORTEDFUNTUP__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ meltfnum[3] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1400:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_GENFUNCTION", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_WARMELTmiMODES_LAMBDA_cl16(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_36_WARMELTmiMODES_LAMBDA_cl16_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_36_WARMELTmiMODES_LAMBDA_cl16 fromline 1752 */ /** start of frame for meltrout_36_WARMELTmiMODES_LAMBDA_cl16 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_36_WARMELTmiMODES_LAMBDA_cl16// fromline 1568 : public Melt_CallFrameWithValues<6> { public: /* fromline 1572*/ // no classy longs /*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_36_WARMELTmiMODES_LAMBDA_cl16(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<6> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_36_WARMELTmiMODES_LAMBDA_cl16), clos) {}; MeltFrame_meltrout_36_WARMELTmiMODES_LAMBDA_cl16() //the constructor fromline 1642 : Melt_CallFrameWithValues<6> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_36_WARMELTmiMODES_LAMBDA_cl16)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_36_WARMELTmiMODES_LAMBDA_cl16(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_36_WARMELTmiMODES_LAMBDA_cl16)) {}; MeltFrame_meltrout_36_WARMELTmiMODES_LAMBDA_cl16(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_36_WARMELTmiMODES_LAMBDA_cl16), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_36_WARMELTmiMODES_LAMBDA_cl16 /** end of frame for meltrout_36_WARMELTmiMODES_LAMBDA_cl16 fromline 1697**/ /* end of frame for routine meltrout_36_WARMELTmiMODES_LAMBDA_cl16 fromline 1756 */ /* classy proc frame meltrout_36_WARMELTmiMODES_LAMBDA_cl16 */ MeltFrame_meltrout_36_WARMELTmiMODES_LAMBDA_cl16 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_36_WARMELTmiMODES_LAMBDA_cl16 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("LAMBDA_cl16", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1412:/ getarg"); /*_.DF1__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DF2__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DF2__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1413:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DF1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DF1__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V4*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1413:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DF2__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DF2__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V5*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V5*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1413:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SDEF_NAME__V5*/ meltfptr[4]; /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SDEF_NAME__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1412:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5];; { MELT_LOCATION("warmelt-modes.melt:1412:/ 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*/ /*_.SDEF_NAME__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl16", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_36_WARMELTmiMODES_LAMBDA_cl16_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_36_WARMELTmiMODES_LAMBDA_cl16*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR_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_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR fromline 1752 */ /** start of frame for meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR// fromline 1568 : public Melt_CallFrameWithValues<39> { public: /* fromline 1572*/ long mcfr_varnum[10]; /*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_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR(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_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR), clos) {}; MeltFrame_meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR() //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_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<39> (fil,lin, sizeof(MeltFrame_meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR)) {}; MeltFrame_meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<39> (fil,lin, sizeof(MeltFrame_meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR /** end of frame for meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR fromline 1697**/ /* end of frame for routine meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR fromline 1756 */ /* classy proc frame meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR */ MeltFrame_meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR 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("MAKEDOC_GENCITERATOR", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1435:/ getarg"); /*_.MDINFO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.OUTB__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1436:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1436:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1436:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mdinfo"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1436; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1436:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1436:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1437:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:1437:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1437:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1437; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1437:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1437:/ clear"); /*clear*/ /*_#IS_STRBUF__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1438:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@node MELT c-iterators")); } ; { MELT_LOCATION("warmelt-modes.melt:1439:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1440:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@section MELT c-iterators")); } ; { MELT_LOCATION("warmelt-modes.melt:1441:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1442:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1443:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 24, "MKDOC_CITERATORS"); /*_.RAWCITERLIST__V10*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.RAWCITERLIST__V10*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1444:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.RAWCITERTUP__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RAWCITERLIST__V10*/ meltfptr[8]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1448:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V13*/ meltfptr[12] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ meltfrout->tabval[7])), (0)); ; /*_.LAMBDA___V12*/ meltfptr[11] = /*_.LAMBDA___V13*/ meltfptr[12];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1446:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V12*/ meltfptr[11]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.SORTEDCITERTUP__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.RAWCITERTUP__V11*/ meltfptr[4]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1454:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L3*/ 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-modes.melt:1454:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = /* 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-modes.melt:1454:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L4*/ meltfnum[3]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1454; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_genciterator rawciterlist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RAWCITERLIST__V10*/ meltfptr[8]; /*^apply.arg*/ argtab[5].meltbp_cstring = " sortedcitertup="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SORTEDCITERTUP__V14*/ meltfptr[13]; /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[8])), (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___V15*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1454:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V15*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1454:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V15*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1456:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "There are ")); } ; /*_#MULTIPLE_LENGTH__L5*/ meltfnum[3] = (melt_multiple_length((melt_ptr_t)(/*_.SORTEDCITERTUP__V14*/ meltfptr[13])));; { MELT_LOCATION("warmelt-modes.melt:1457:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (/*_#MULTIPLE_LENGTH__L5*/ meltfnum[3])); } ; { MELT_LOCATION("warmelt-modes.melt:1458:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " c-iterators.")); } ; { MELT_LOCATION("warmelt-modes.melt:1459:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDCITERTUP__V14*/ meltfptr[13]); for (/*_#CITIX__L6*/ meltfnum[0] = 0; (/*_#CITIX__L6*/ meltfnum[0] >= 0) && (/*_#CITIX__L6*/ meltfnum[0] < meltcit1__EACHTUP_ln); /*_#CITIX__L6*/ meltfnum[0]++) { /*_.CURCITERDEF__V17*/ meltfptr[15] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDCITERTUP__V14*/ meltfptr[13]), /*_#CITIX__L6*/ meltfnum[0]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1463:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[6] = /*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-modes.melt:1463:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*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-modes.melt:1463:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[7]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1463; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_genciterator curciterdef="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCITERDEF__V17*/ meltfptr[15]; /*^apply.arg*/ argtab[5].meltbp_cstring = " citix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#CITIX__L6*/ meltfnum[0]; /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V18*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1463:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V18*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1463:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V18*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1464:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L9*/ meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCITERATOR*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-modes.melt:1464:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[14] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1464:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curciterdef"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1464; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCITERDEF__V17*/ meltfptr[15]; /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V21*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1464:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; } ; } ; /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1464:/ clear"); /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V21*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V20*/ meltfptr[18] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1465:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[10]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCITERDEF__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.SLOC__V23*/ meltfptr[21] = slot; }; ; } else /*^cond.else*/ { /*_.SLOC__V23*/ meltfptr[21] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1466:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[11]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCITERDEF__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SNAM__V24*/ meltfptr[14] = slot; }; ; } else /*^cond.else*/ { /*_.SNAM__V24*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1467:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[11]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCITERDEF__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.SDOC__V25*/ meltfptr[24] = slot; }; ; } else /*^cond.else*/ { /*_.SDOC__V25*/ meltfptr[24] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1468:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCITERATOR*/ meltfrout->tabval[9]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCITERDEF__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SCITERDEF_CITERATOR"); /*_.CITER__V26*/ meltfptr[25] = slot; }; ; } else /*^cond.else*/ { /*_.CITER__V26*/ meltfptr[25] = /*reallynil*/ NULL ;; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1470:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L10*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.CITER__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-modes.melt:1470:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V28*/ meltfptr[27] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1470:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check citer"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1470; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CITER__V26*/ meltfptr[25]; /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V28*/ meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1470:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = 0 ; } ; } ; /*_.IFCPP___V27*/ meltfptr[26] = /*_._IFELSE___V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1470:/ clear"); /*clear*/ /*_#IS_A__L10*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V28*/ meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V27*/ meltfptr[26] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1471:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1472:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@subsection @var{")); } ; MELT_LOCATION("warmelt-modes.melt:1473:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V24*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAM__V24*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V30*/ meltfptr[28] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V30*/ meltfptr[28] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1473:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V30*/ meltfptr[28]))); } ; { MELT_LOCATION("warmelt-modes.melt:1474:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "}")); } ; { MELT_LOCATION("warmelt-modes.melt:1475:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1476:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@vindex ")); } ; MELT_LOCATION("warmelt-modes.melt:1477:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V24*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAM__V24*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V31*/ meltfptr[27] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V31*/ meltfptr[27] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1477:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V31*/ meltfptr[27]))); } ; { MELT_LOCATION("warmelt-modes.melt:1478:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1479:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURCITERDEF__V17*/ meltfptr[15]; /*^apply.arg*/ argtab[1].meltbp_cstring = "C-iterator defined at "; /*_.MAKEDOC_OUTDEFLOC__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1480:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1481:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CITER__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[12]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CITER__V26*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 2, "CITER_START_FORMALS"); /*_.CITER_START_FORMALS__V33*/ meltfptr[32] = slot; }; ; } else /*^cond.else*/ { /*_.CITER_START_FORMALS__V33*/ meltfptr[32] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1481:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CITER_START_FORMALS__V33*/ meltfptr[32]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{c-iterator start formals:}"; /*_.MAKEDOC_OUTFORMALS__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1482:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1483:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CITER__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[12]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CITER__V26*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CITER_BODY_FORMALS"); /*_.CITER_BODY_FORMALS__V35*/ meltfptr[34] = slot; }; ; } else /*^cond.else*/ { /*_.CITER_BODY_FORMALS__V35*/ meltfptr[34] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1483:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CITER_BODY_FORMALS__V35*/ meltfptr[34]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{c-iterator body formals:}"; /*_.MAKEDOC_OUTFORMALS__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1485:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SDOC__V25*/ meltfptr[24]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{C-iterator description:} "; /*_.MAKEDOC_OUTDOC__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1486:/ apply"); /*apply*/ { /*_.INCREMENT_MKDOC_COUNTER__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!INCREMENT_MKDOC_COUNTER*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1487:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1465:/ clear"); /*clear*/ /*_.SLOC__V23*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.SNAM__V24*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.SDOC__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.CITER__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V30*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V31*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.CITER_START_FORMALS__V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTFORMALS__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.CITER_BODY_FORMALS__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTFORMALS__V36*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTDOC__V37*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.INCREMENT_MKDOC_COUNTER__V38*/ meltfptr[37] = 0 ; if (/*_#CITIX__L6*/ meltfnum[0]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1460:/ clear"); /*clear*/ /*_.CURCITERDEF__V17*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_#CITIX__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-modes.melt:1443:/ clear"); /*clear*/ /*_.RAWCITERLIST__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.RAWCITERTUP__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.SORTEDCITERTUP__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ meltfnum[3] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1491:/ quasiblock"); /*_._RETVAL___V39*/ meltfptr[21] = (/*nil*/NULL);; MELT_LOCATION("warmelt-modes.melt:1491:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_._RETVAL___V39*/ meltfptr[21];; { MELT_LOCATION("warmelt-modes.melt:1491:/ 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 ; /*^clear*/ /*clear*/ /*_._RETVAL___V39*/ meltfptr[21] = 0 ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1435:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_GENCITERATOR", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_WARMELTmiMODES_LAMBDA_cl17(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_38_WARMELTmiMODES_LAMBDA_cl17_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_38_WARMELTmiMODES_LAMBDA_cl17 fromline 1752 */ /** start of frame for meltrout_38_WARMELTmiMODES_LAMBDA_cl17 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_38_WARMELTmiMODES_LAMBDA_cl17// fromline 1568 : public Melt_CallFrameWithValues<6> { public: /* fromline 1572*/ // no classy longs /*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_38_WARMELTmiMODES_LAMBDA_cl17(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<6> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_38_WARMELTmiMODES_LAMBDA_cl17), clos) {}; MeltFrame_meltrout_38_WARMELTmiMODES_LAMBDA_cl17() //the constructor fromline 1642 : Melt_CallFrameWithValues<6> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_38_WARMELTmiMODES_LAMBDA_cl17)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_38_WARMELTmiMODES_LAMBDA_cl17(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_38_WARMELTmiMODES_LAMBDA_cl17)) {}; MeltFrame_meltrout_38_WARMELTmiMODES_LAMBDA_cl17(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_38_WARMELTmiMODES_LAMBDA_cl17), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_38_WARMELTmiMODES_LAMBDA_cl17 /** end of frame for meltrout_38_WARMELTmiMODES_LAMBDA_cl17 fromline 1697**/ /* end of frame for routine meltrout_38_WARMELTmiMODES_LAMBDA_cl17 fromline 1756 */ /* classy proc frame meltrout_38_WARMELTmiMODES_LAMBDA_cl17 */ MeltFrame_meltrout_38_WARMELTmiMODES_LAMBDA_cl17 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_38_WARMELTmiMODES_LAMBDA_cl17 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("LAMBDA_cl17", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1448:/ getarg"); /*_.IS1__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.IS2__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IS2__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1450:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.IS1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.IS1__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V4*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1451:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.IS2__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.IS2__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V5*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V5*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1449:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SDEF_NAME__V5*/ meltfptr[4]; /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SDEF_NAME__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1448:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5];; { MELT_LOCATION("warmelt-modes.melt:1448:/ 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*/ /*_.SDEF_NAME__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl17", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_38_WARMELTmiMODES_LAMBDA_cl17_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_38_WARMELTmiMODES_LAMBDA_cl17*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER_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_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER fromline 1752 */ /** start of frame for meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER// fromline 1568 : public Melt_CallFrameWithValues<40> { public: /* fromline 1572*/ long mcfr_varnum[7]; /*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_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<40> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER), clos) {}; MeltFrame_meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER() //the constructor fromline 1642 : Melt_CallFrameWithValues<40> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<40> (fil,lin, sizeof(MeltFrame_meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER)) {}; MeltFrame_meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<40> (fil,lin, sizeof(MeltFrame_meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER /** end of frame for meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER fromline 1697**/ /* end of frame for routine meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER fromline 1756 */ /* classy proc frame meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER */ MeltFrame_meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER 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("MAKEDOC_GENCMATCHER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1497:/ getarg"); /*_.MDINFO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.OUTB__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1498:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1498:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1498:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mdinfo"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1498; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1498:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1498:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1499:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:1499:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1499:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1499; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1499:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1499:/ clear"); /*clear*/ /*_#IS_STRBUF__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1500:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@node MELT c-matchers")); } ; { MELT_LOCATION("warmelt-modes.melt:1501:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1502:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@section MELT c-matchers")); } ; { MELT_LOCATION("warmelt-modes.melt:1503:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1504:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1505:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 25, "MKDOC_CMATCHERS"); /*_.RAWCMATCHLIST__V10*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.RAWCMATCHLIST__V10*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1506:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.RAWCMATCHTUP__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RAWCMATCHLIST__V10*/ meltfptr[8]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1510:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V13*/ meltfptr[12] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ meltfrout->tabval[7])), (0)); ; /*_.LAMBDA___V12*/ meltfptr[11] = /*_.LAMBDA___V13*/ meltfptr[12];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1508:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V12*/ meltfptr[11]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.SORTEDCMATCHTUP__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.RAWCMATCHTUP__V11*/ meltfptr[4]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1516:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "There are ")); } ; /*_#MULTIPLE_LENGTH__L3*/ meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.SORTEDCMATCHTUP__V14*/ meltfptr[13])));; { MELT_LOCATION("warmelt-modes.melt:1517:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (/*_#MULTIPLE_LENGTH__L3*/ meltfnum[0])); } ; { MELT_LOCATION("warmelt-modes.melt:1518:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " c-matchers.")); } ; { MELT_LOCATION("warmelt-modes.melt:1519:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDCMATCHTUP__V14*/ meltfptr[13]); for (/*_#CITIX__L4*/ meltfnum[3] = 0; (/*_#CITIX__L4*/ meltfnum[3] >= 0) && (/*_#CITIX__L4*/ meltfnum[3] < meltcit1__EACHTUP_ln); /*_#CITIX__L4*/ meltfnum[3]++) { /*_.CURCMATCHDEF__V15*/ meltfptr[14] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDCMATCHTUP__V14*/ meltfptr[13]), /*_#CITIX__L4*/ meltfnum[3]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1523:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ 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-modes.melt:1523:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = /* 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-modes.melt:1523:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[5]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1523; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_gencmatcher curcmatchdef="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCMATCHDEF__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[5].meltbp_cstring = " citix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#CITIX__L4*/ meltfnum[3]; /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V16*/ meltfptr[15] = /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1523:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1523:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 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*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1524:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L7*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.CURCMATCHDEF__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-modes.melt:1524:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[15] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1524:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curcmatchdef"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1524; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCMATCHDEF__V15*/ meltfptr[14]; /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V19*/ meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1524:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; } ; } ; /*_.IFCPP___V18*/ meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1524:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V19*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V18*/ meltfptr[16] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1525:/ quasiblock"); MELT_LOCATION("warmelt-modes.melt:1526:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCMATCHDEF__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[10]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCMATCHDEF__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SNAM__V22*/ meltfptr[15] = slot; }; ; } else /*^cond.else*/ { /*_.SNAM__V22*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1527:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCMATCHDEF__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[10]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCMATCHDEF__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.SDOC__V23*/ meltfptr[22] = slot; }; ; } else /*^cond.else*/ { /*_.SDOC__V23*/ meltfptr[22] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1528:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCMATCHDEF__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ meltfrout->tabval[9]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCMATCHDEF__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SCMATDEF_CMATCHER"); /*_.CMATCH__V24*/ meltfptr[23] = slot; }; ; } else /*^cond.else*/ { /*_.CMATCH__V24*/ meltfptr[23] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1529:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMATCH__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[11]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATCH__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 2, "AMATCH_IN"); /*_.CMIN__V25*/ meltfptr[24] = slot; }; ; } else /*^cond.else*/ { /*_.CMIN__V25*/ meltfptr[24] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1530:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMATCH__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[11]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATCH__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 3, "AMATCH_MATCHBIND"); /*_.CMABIND__V26*/ meltfptr[25] = slot; }; ; } else /*^cond.else*/ { /*_.CMABIND__V26*/ meltfptr[25] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1531:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMATCH__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[11]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMATCH__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 4, "AMATCH_OUT"); /*_.CMOUT__V27*/ meltfptr[26] = slot; }; ; } else /*^cond.else*/ { /*_.CMOUT__V27*/ meltfptr[26] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1533:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1534:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@subsection @var{")); } ; MELT_LOCATION("warmelt-modes.melt:1535:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V22*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[12]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAM__V22*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V28*/ meltfptr[27] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V28*/ meltfptr[27] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1535:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V28*/ meltfptr[27]))); } ; { MELT_LOCATION("warmelt-modes.melt:1536:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "}")); } ; { MELT_LOCATION("warmelt-modes.melt:1537:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1538:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@vindex ")); } ; MELT_LOCATION("warmelt-modes.melt:1539:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V22*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[12]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SNAM__V22*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V29*/ meltfptr[28] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V29*/ meltfptr[28] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1539:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V29*/ meltfptr[28]))); } ; { MELT_LOCATION("warmelt-modes.melt:1540:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1541:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURCMATCHDEF__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[1].meltbp_cstring = "C-matcher defined at "; /*_.MAKEDOC_OUTDEFLOC__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1542:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1543:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@strong{c-matcher matching formal:} @var{")); } ; MELT_LOCATION("warmelt-modes.melt:1544:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMABIND__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[14]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMABIND__V26*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); /*_.MANAMB__V31*/ meltfptr[30] = slot; }; ; } else /*^cond.else*/ { /*_.MANAMB__V31*/ meltfptr[30] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1545:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MANAMB__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[12]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MANAMB__V31*/ meltfptr[30]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V32*/ meltfptr[31] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V32*/ meltfptr[31] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1545:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V32*/ meltfptr[31]))); } ; { MELT_LOCATION("warmelt-modes.melt:1546:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "} - @slanted{")); } ; MELT_LOCATION("warmelt-modes.melt:1550:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMABIND__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[15]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CMABIND__V26*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); /*_.FBIND_TYPE__V33*/ meltfptr[32] = slot; }; ; } else /*^cond.else*/ { /*_.FBIND_TYPE__V33*/ meltfptr[32] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1549:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V33*/ meltfptr[32]), (melt_ptr_t)((/*!CLASS_QUASI_CTYPE*/ meltfrout->tabval[16]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V33*/ meltfptr[32]) /*=obj*/; melt_object_get_field(slot,obj, 2, "CTYPE_KEYWORD"); /*_.CTYPE_KEYWORD__V34*/ meltfptr[33] = slot; }; ; } else /*^cond.else*/ { /*_.CTYPE_KEYWORD__V34*/ meltfptr[33] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1548:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V34*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[12]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYPE_KEYWORD__V34*/ meltfptr[33]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V35*/ meltfptr[34] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V35*/ meltfptr[34] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1547:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V35*/ meltfptr[34]))); } ; { MELT_LOCATION("warmelt-modes.melt:1551:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "}")); } ; { MELT_LOCATION("warmelt-modes.melt:1552:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1553:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@vindex ")); } ; MELT_LOCATION("warmelt-modes.melt:1554:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MANAMB__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[12]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MANAMB__V31*/ meltfptr[30]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V36*/ meltfptr[35] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V36*/ meltfptr[35] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1554:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V36*/ meltfptr[35]))); } ; { MELT_LOCATION("warmelt-modes.melt:1555:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1544:/ clear"); /*clear*/ /*_.MANAMB__V31*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.FBIND_TYPE__V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.CTYPE_KEYWORD__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V36*/ meltfptr[35] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1557:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CMIN__V25*/ meltfptr[24]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{c-matcher input formals:}"; /*_.MAKEDOC_OUTFORMALS__V37*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1558:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1559:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CMOUT__V27*/ meltfptr[26]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{c-matcher output formals:}"; /*_.MAKEDOC_OUTFORMALS__V38*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1560:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1561:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SDOC__V23*/ meltfptr[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{C-matcher description:} "; /*_.MAKEDOC_OUTDOC__V39*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1562:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1563:/ apply"); /*apply*/ { /*_.INCREMENT_MKDOC_COUNTER__V40*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!INCREMENT_MKDOC_COUNTER*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*_.LET___V21*/ meltfptr[19] = /*_.INCREMENT_MKDOC_COUNTER__V40*/ meltfptr[33];; MELT_LOCATION("warmelt-modes.melt:1525:/ clear"); /*clear*/ /*_.SNAM__V22*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.SDOC__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.CMATCH__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.CMIN__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.CMABIND__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.CMOUT__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTFORMALS__V37*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTFORMALS__V38*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTDOC__V39*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.INCREMENT_MKDOC_COUNTER__V40*/ meltfptr[33] = 0 ; if (/*_#CITIX__L4*/ meltfnum[3]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1520:/ clear"); /*clear*/ /*_.CURCMATCHDEF__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#CITIX__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V18*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V21*/ meltfptr[19] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-modes.melt:1505:/ clear"); /*clear*/ /*_.RAWCMATCHLIST__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.RAWCMATCHTUP__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.SORTEDCMATCHTUP__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ meltfnum[0] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1497:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_GENCMATCHER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_WARMELTmiMODES_LAMBDA_cl18(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_40_WARMELTmiMODES_LAMBDA_cl18_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_40_WARMELTmiMODES_LAMBDA_cl18 fromline 1752 */ /** start of frame for meltrout_40_WARMELTmiMODES_LAMBDA_cl18 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_40_WARMELTmiMODES_LAMBDA_cl18// fromline 1568 : public Melt_CallFrameWithValues<6> { public: /* fromline 1572*/ // no classy longs /*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_40_WARMELTmiMODES_LAMBDA_cl18(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<6> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_40_WARMELTmiMODES_LAMBDA_cl18), clos) {}; MeltFrame_meltrout_40_WARMELTmiMODES_LAMBDA_cl18() //the constructor fromline 1642 : Melt_CallFrameWithValues<6> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_40_WARMELTmiMODES_LAMBDA_cl18)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_40_WARMELTmiMODES_LAMBDA_cl18(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_40_WARMELTmiMODES_LAMBDA_cl18)) {}; MeltFrame_meltrout_40_WARMELTmiMODES_LAMBDA_cl18(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_40_WARMELTmiMODES_LAMBDA_cl18), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_40_WARMELTmiMODES_LAMBDA_cl18 /** end of frame for meltrout_40_WARMELTmiMODES_LAMBDA_cl18 fromline 1697**/ /* end of frame for routine meltrout_40_WARMELTmiMODES_LAMBDA_cl18 fromline 1756 */ /* classy proc frame meltrout_40_WARMELTmiMODES_LAMBDA_cl18 */ MeltFrame_meltrout_40_WARMELTmiMODES_LAMBDA_cl18 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_40_WARMELTmiMODES_LAMBDA_cl18 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("LAMBDA_cl18", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1510:/ getarg"); /*_.SM1__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.SM2__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SM2__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1512:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SM1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SM1__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V4*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1513:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SM2__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SM2__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V5*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V5*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1511:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SDEF_NAME__V5*/ meltfptr[4]; /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SDEF_NAME__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1510:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5];; { MELT_LOCATION("warmelt-modes.melt:1510:/ 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*/ /*_.SDEF_NAME__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl18", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_40_WARMELTmiMODES_LAMBDA_cl18_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_40_WARMELTmiMODES_LAMBDA_cl18*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK_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_41_WARMELTmiMODES_MAKEDOC_GENHOOK fromline 1752 */ /** start of frame for meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK// fromline 1568 : public Melt_CallFrameWithValues<43> { 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_41_WARMELTmiMODES_MAKEDOC_GENHOOK(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<43> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK), clos) {}; MeltFrame_meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK() //the constructor fromline 1642 : Melt_CallFrameWithValues<43> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<43> (fil,lin, sizeof(MeltFrame_meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK)) {}; MeltFrame_meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<43> (fil,lin, sizeof(MeltFrame_meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK /** end of frame for meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK fromline 1697**/ /* end of frame for routine meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK fromline 1756 */ /* classy proc frame meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK */ MeltFrame_meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK 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("MAKEDOC_GENHOOK", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1571:/ getarg"); /*_.MDINFO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.OUTB__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1572:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-modes.melt:1572:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1572:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mdinfo"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1572; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1572:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1572:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1573:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:1573:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1573:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outb"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1573; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1573:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1573:/ clear"); /*clear*/ /*_#IS_STRBUF__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1574:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@node MELT hooks")); } ; { MELT_LOCATION("warmelt-modes.melt:1575:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1576:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@section MELT hooks")); } ; { MELT_LOCATION("warmelt-modes.melt:1577:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1578:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1579:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 32, "MKDOC_HOOKS"); /*_.RAWHOOKLIST__V10*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.RAWHOOKLIST__V10*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1580:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.RAWHOOKTUP__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RAWHOOKLIST__V10*/ meltfptr[8]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1584:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V13*/ meltfptr[12] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ meltfrout->tabval[7])), (0)); ; /*_.LAMBDA___V12*/ meltfptr[11] = /*_.LAMBDA___V13*/ meltfptr[12];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1582:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V12*/ meltfptr[11]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.SORTEDHOOKTUP__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.RAWHOOKTUP__V11*/ meltfptr[4]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1590:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "There are ")); } ; /*_#MULTIPLE_LENGTH__L3*/ meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.SORTEDHOOKTUP__V14*/ meltfptr[13])));; { MELT_LOCATION("warmelt-modes.melt:1591:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (/*_#MULTIPLE_LENGTH__L3*/ meltfnum[0])); } ; { MELT_LOCATION("warmelt-modes.melt:1592:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( " hooks.")); } ; { MELT_LOCATION("warmelt-modes.melt:1593:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDHOOKTUP__V14*/ meltfptr[13]); for (/*_#HIX__L4*/ meltfnum[3] = 0; (/*_#HIX__L4*/ meltfnum[3] >= 0) && (/*_#HIX__L4*/ meltfnum[3] < meltcit1__EACHTUP_ln); /*_#HIX__L4*/ meltfnum[3]++) { /*_.CURHOOK__V15*/ meltfptr[14] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDHOOKTUP__V14*/ meltfptr[13]), /*_#HIX__L4*/ meltfnum[3]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1597:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ 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-modes.melt:1597:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = /* 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-modes.melt:1597:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[5]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1597; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_genhook curhook="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURHOOK__V15*/ meltfptr[14]; /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[8])), (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-modes.melt:1597:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1597:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 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*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1598:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L7*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFHOOK*/ meltfrout->tabval[9])));; MELT_LOCATION("warmelt-modes.melt:1598:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[15] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1598:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curhook"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1598; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURHOOK__V15*/ meltfptr[14]; /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V19*/ meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1598:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; } ; } ; /*_.IFCPP___V18*/ meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1598:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V19*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V18*/ meltfptr[16] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1599:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[10]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); /*_.LOC__V22*/ meltfptr[15] = slot; }; ; } else /*^cond.else*/ { /*_.LOC__V22*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1600:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[11]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.NAME__V23*/ meltfptr[22] = slot; }; ; } else /*^cond.else*/ { /*_.NAME__V23*/ meltfptr[22] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1601:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[11]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 3, "SDEF_DOC"); /*_.DOC__V24*/ meltfptr[23] = slot; }; ; } else /*^cond.else*/ { /*_.DOC__V24*/ meltfptr[23] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1602:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION_FORMAL*/ meltfrout->tabval[12]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 4, "SFORMAL_ARGS"); /*_.INS__V25*/ meltfptr[24] = slot; }; ; } else /*^cond.else*/ { /*_.INS__V25*/ meltfptr[24] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1603:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFHOOK*/ meltfrout->tabval[9]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 5, "SHOOK_OUT_FORMALS"); /*_.OUTS__V26*/ meltfptr[25] = slot; }; ; } else /*^cond.else*/ { /*_.OUTS__V26*/ meltfptr[25] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1604:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFHOOK*/ meltfrout->tabval[9]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 6, "SHOOK_CTYPE"); /*_.HCTYP__V27*/ meltfptr[26] = slot; }; ; } else /*^cond.else*/ { /*_.HCTYP__V27*/ meltfptr[26] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1605:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFHOOK*/ meltfrout->tabval[9]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 7, "SHOOK_PREDEF"); /*_.PREDEF__V28*/ meltfptr[27] = slot; }; ; } else /*^cond.else*/ { /*_.PREDEF__V28*/ meltfptr[27] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1606:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFHOOK*/ meltfrout->tabval[9]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURHOOK__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 8, "SHOOK_VARIABLE"); /*_.HVAR__V29*/ meltfptr[28] = slot; }; ; } else /*^cond.else*/ { /*_.HVAR__V29*/ meltfptr[28] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1608:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1609:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@subsection @var{")); } ; MELT_LOCATION("warmelt-modes.melt:1610:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NAME__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NAME__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V30*/ meltfptr[29] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V30*/ meltfptr[29] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1610:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V30*/ meltfptr[29]))); } ; { MELT_LOCATION("warmelt-modes.melt:1611:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "} hook")); } ; { MELT_LOCATION("warmelt-modes.melt:1612:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1613:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), ( "@vindex ")); } ; MELT_LOCATION("warmelt-modes.melt:1614:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NAME__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.NAME__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V31*/ meltfptr[30] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V31*/ meltfptr[30] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1614:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V31*/ meltfptr[30]))); } ; { MELT_LOCATION("warmelt-modes.melt:1615:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1616:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURHOOK__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[1].meltbp_cstring = "Hook defined at "; /*_.MAKEDOC_OUTDEFLOC__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1617:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1618:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INS__V25*/ meltfptr[24]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{hook input formals:}"; /*_.MAKEDOC_OUTFORMALS__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1619:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1620:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTS__V26*/ meltfptr[25]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{hook output formals:}"; /*_.MAKEDOC_OUTFORMALS__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1621:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1625:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.HCTYP__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_QUASI_CTYPE*/ meltfrout->tabval[17]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HCTYP__V27*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 2, "CTYPE_KEYWORD"); /*_.CTYPE_KEYWORD__V35*/ meltfptr[34] = slot; }; ; } else /*^cond.else*/ { /*_.CTYPE_KEYWORD__V35*/ meltfptr[34] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1624:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V35*/ meltfptr[34]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYPE_KEYWORD__V35*/ meltfptr[34]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V36*/ meltfptr[35] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V36*/ meltfptr[35] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1622:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "@strong{hook result ctype:} "; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V36*/ meltfptr[35]; /*_.ADD2OUT__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1627:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; /*_#IS_A__L8*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.PREDEF__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-modes.melt:1628:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1630:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PREDEF__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.PREDEF__V28*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V38*/ meltfptr[37] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V38*/ meltfptr[37] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1629:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "Hook @strong{predefined as}: "; /*^apply.arg*/ argtab[1].meltbp_cstring = "@code{"; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V38*/ meltfptr[37]; /*^apply.arg*/ argtab[3].meltbp_cstring = "}."; /*_.ADD2OUT__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1631:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1632:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1628:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_.NAMED_NAME__V38*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V39*/ meltfptr[38] = 0 ; } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_A__L9*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.HVAR__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13])));; MELT_LOCATION("warmelt-modes.melt:1634:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1636:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.HVAR__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HVAR__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V40*/ meltfptr[37] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V40*/ meltfptr[37] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1635:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "Hook @strong{stored in module variable}: "; /*^apply.arg*/ argtab[1].meltbp_cstring = "@code{"; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V40*/ meltfptr[37]; /*^apply.arg*/ argtab[3].meltbp_cstring = "}."; /*_.ADD2OUT__V41*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1637:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1638:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1634:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_.NAMED_NAME__V40*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V41*/ meltfptr[38] = 0 ; } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1639:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DOC__V24*/ meltfptr[23]; /*^apply.arg*/ argtab[1].meltbp_cstring = "@strong{Hook description:} "; /*_.MAKEDOC_OUTDOC__V42*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1640:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1641:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ meltfptr[2]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1642:/ apply"); /*apply*/ { /*_.INCREMENT_MKDOC_COUNTER__V43*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!INCREMENT_MKDOC_COUNTER*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*_.LET___V21*/ meltfptr[19] = /*_.INCREMENT_MKDOC_COUNTER__V43*/ meltfptr[38];; MELT_LOCATION("warmelt-modes.melt:1599:/ clear"); /*clear*/ /*_.LOC__V22*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.NAME__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.DOC__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.INS__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.OUTS__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.HCTYP__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.PREDEF__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.HVAR__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V31*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTFORMALS__V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTFORMALS__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.CTYPE_KEYWORD__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V36*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V37*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L8*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L9*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_OUTDOC__V42*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.INCREMENT_MKDOC_COUNTER__V43*/ meltfptr[38] = 0 ; if (/*_#HIX__L4*/ meltfnum[3]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1594:/ clear"); /*clear*/ /*_.CURHOOK__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#HIX__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V18*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V21*/ meltfptr[19] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-modes.melt:1579:/ clear"); /*clear*/ /*_.RAWHOOKLIST__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.RAWHOOKTUP__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.SORTEDHOOKTUP__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ meltfnum[0] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1571:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_GENHOOK", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_WARMELTmiMODES_LAMBDA_cl19(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_42_WARMELTmiMODES_LAMBDA_cl19_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_42_WARMELTmiMODES_LAMBDA_cl19 fromline 1752 */ /** start of frame for meltrout_42_WARMELTmiMODES_LAMBDA_cl19 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_42_WARMELTmiMODES_LAMBDA_cl19// fromline 1568 : public Melt_CallFrameWithValues<6> { public: /* fromline 1572*/ // no classy longs /*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_42_WARMELTmiMODES_LAMBDA_cl19(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<6> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_42_WARMELTmiMODES_LAMBDA_cl19), clos) {}; MeltFrame_meltrout_42_WARMELTmiMODES_LAMBDA_cl19() //the constructor fromline 1642 : Melt_CallFrameWithValues<6> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_42_WARMELTmiMODES_LAMBDA_cl19)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_42_WARMELTmiMODES_LAMBDA_cl19(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_42_WARMELTmiMODES_LAMBDA_cl19)) {}; MeltFrame_meltrout_42_WARMELTmiMODES_LAMBDA_cl19(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_42_WARMELTmiMODES_LAMBDA_cl19), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_42_WARMELTmiMODES_LAMBDA_cl19 /** end of frame for meltrout_42_WARMELTmiMODES_LAMBDA_cl19 fromline 1697**/ /* end of frame for routine meltrout_42_WARMELTmiMODES_LAMBDA_cl19 fromline 1756 */ /* classy proc frame meltrout_42_WARMELTmiMODES_LAMBDA_cl19 */ MeltFrame_meltrout_42_WARMELTmiMODES_LAMBDA_cl19 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_42_WARMELTmiMODES_LAMBDA_cl19 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("LAMBDA_cl19", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1584:/ getarg"); /*_.SM1__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.SM2__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SM2__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1586:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SM1__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SM1__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V4*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:1587:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SM2__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SM2__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SDEF_NAME"); /*_.SDEF_NAME__V5*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.SDEF_NAME__V5*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1585:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SDEF_NAME__V5*/ meltfptr[4]; /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SDEF_NAME__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1584:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5];; { MELT_LOCATION("warmelt-modes.melt:1584:/ 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*/ /*_.SDEF_NAME__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.SDEF_NAME__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.COMPARE_NAMED_ALPHA__V6*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl19", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_42_WARMELTmiMODES_LAMBDA_cl19_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_42_WARMELTmiMODES_LAMBDA_cl19*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT_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_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT fromline 1752 */ /** start of frame for meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT// fromline 1568 : public Melt_CallFrameWithValues<36> { public: /* fromline 1572*/ long mcfr_varnum[8]; /*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_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<36> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT), clos) {}; MeltFrame_meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT() //the constructor fromline 1642 : Melt_CallFrameWithValues<36> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<36> (fil,lin, sizeof(MeltFrame_meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT)) {}; MeltFrame_meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<36> (fil,lin, sizeof(MeltFrame_meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT /** end of frame for meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT fromline 1697**/ /* end of frame for routine meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT fromline 1756 */ /* classy proc frame meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT */ MeltFrame_meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT 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("MAKEDOC_GENOUTPUT", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1651:/ getarg"); /*_.MDINFO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.OUTARG__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTARG__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1652:/ 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-modes.melt:1652:/ 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-modes.melt:1652:/ 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-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1652; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_genoutput mdinfo="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1652:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1652:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1653:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-modes.melt:1653:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1653:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check mdinfo"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1653; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1653:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1653:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1654:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRING__L4*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:1654:/ cond"); /*cond*/ if (/*_#IS_STRING__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1654:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check outarg"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1654; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1654:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1654:/ clear"); /*clear*/ /*_#IS_STRING__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1655:/ quasiblock"); /*_.OUTB__V13*/ meltfptr[3] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; { MELT_LOCATION("warmelt-modes.melt:1657:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), ( "@c **** makedoc generated file ")); } ; { MELT_LOCATION("warmelt-modes.melt:1658:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), melt_string_str((melt_ptr_t)(/*_.OUTARG__V3*/ meltfptr[2]))); } ; { MELT_LOCATION("warmelt-modes.melt:1659:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1660:/ locexp"); /* makedoc_genoutput OUTDAT__1 */ { time_t nowOUTDAT__1 = 0; time (&nowOUTDAT__1); meltgc_add_out_raw ((melt_ptr_t) /*_.OUTB__V13*/ meltfptr[3], "@c **** generated ") ; meltgc_add_out_raw ((melt_ptr_t) /*_.OUTB__V13*/ meltfptr[3], ctime (&nowOUTDAT__1)) ; } /* end makedoc_genoutput OUTDAT__1 */ ; } ; { MELT_LOCATION("warmelt-modes.melt:1667:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), ( "@node MELT Programming Reference")); } ; { MELT_LOCATION("warmelt-modes.melt:1668:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1669:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), ( "@chapter MELT Programming Reference")); } ; { MELT_LOCATION("warmelt-modes.melt:1670:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1671:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1673:/ quasiblock"); /*_.DATESTR__V14*/ meltfptr[13] = (/*nil*/NULL);; /*^compute*/ /*_.VERSIONSTR__V15*/ meltfptr[14] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-modes.melt:1676:/ locexp"); /* makedoc_genoutput GETDATESTR_CHK__1 */ time_t now = 0; char nowbuf[64]; time (&now); memset (nowbuf, 0, sizeof(nowbuf)); strftime (nowbuf, sizeof(nowbuf)-1, "%B %d, %Y", localtime(&now)); /*_.DATESTR__V14*/ meltfptr[13] = meltgc_new_string ((meltobject_ptr_t) MELT_PREDEF(DISCR_STRING), nowbuf); /*_.VERSIONSTR__V15*/ meltfptr[14] = meltgc_new_string ((meltobject_ptr_t) MELT_PREDEF(DISCR_STRING), melt_version_str ()); ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1687:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "This documentation is @strong{generated} on @emph{"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.DATESTR__V14*/ meltfptr[13]; /*^apply.arg*/ argtab[2].meltbp_cstring = "} by @emph{MELT "; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VERSIONSTR__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[4].meltbp_cstring = "}."; /*_.ADD2OUT__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1688:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; MELT_LOCATION("warmelt-modes.melt:1673:/ clear"); /*clear*/ /*_.DATESTR__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.VERSIONSTR__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V16*/ meltfptr[15] = 0 ; { MELT_LOCATION("warmelt-modes.melt:1698:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), ( "@menu")); } ; { MELT_LOCATION("warmelt-modes.melt:1699:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1700:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), ( "* MELT macros:: The MELT macros.")); } ; { MELT_LOCATION("warmelt-modes.melt:1701:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1702:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), ( "* MELT patterns:: The MELT pattern macros.")); } ; { MELT_LOCATION("warmelt-modes.melt:1703:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1704:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), ( "* MELT classes:: The MELT classes.")); } ; { MELT_LOCATION("warmelt-modes.melt:1705:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1706:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), ( "* MELT primitives:: The MELT primitives.")); } ; { MELT_LOCATION("warmelt-modes.melt:1707:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1708:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), ( "* MELT functions:: The MELT functions.")); } ; { MELT_LOCATION("warmelt-modes.melt:1709:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1710:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), ( "* MELT c-iterators:: The MELT c-iterators.")); } ; { MELT_LOCATION("warmelt-modes.melt:1711:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1712:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), ( "* MELT c-matchers:: The MELT c-matchers.")); } ; { MELT_LOCATION("warmelt-modes.melt:1713:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1714:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), ( "* MELT hooks:: The MELT hooks.")); } ; { MELT_LOCATION("warmelt-modes.melt:1715:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1716:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), ( "@end menu")); } ; { MELT_LOCATION("warmelt-modes.melt:1717:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1719:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V13*/ meltfptr[3]; /*_.MAKEDOC_GENMACRO__V17*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENMACRO*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1721:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V13*/ meltfptr[3]; /*_.MAKEDOC_GENPATMACRO__V18*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENPATMACRO*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1723:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V13*/ meltfptr[3]; /*_.MAKEDOC_GENCLASS__V19*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENCLASS*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1725:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V13*/ meltfptr[3]; /*_.MAKEDOC_GENPRIMITIVE__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENPRIMITIVE*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1727:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V13*/ meltfptr[3]; /*_.MAKEDOC_GENFUNCTION__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENFUNCTION*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1729:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V13*/ meltfptr[3]; /*_.MAKEDOC_GENCITERATOR__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENCITERATOR*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1731:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V13*/ meltfptr[3]; /*_.MAKEDOC_GENCMATCHER__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENCMATCHER*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1733:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTB__V13*/ meltfptr[3]; /*_.MAKEDOC_GENHOOK__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENHOOK*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1735:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; { MELT_LOCATION("warmelt-modes.melt:1736:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), ( "@c **** end of makedoc generated file ")); } ; { MELT_LOCATION("warmelt-modes.melt:1737:/ locexp"); /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), melt_string_str((melt_ptr_t)(/*_.OUTARG__V3*/ meltfptr[2]))); } ; { MELT_LOCATION("warmelt-modes.melt:1738:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V13*/ meltfptr[3]), (0), 0); } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_ERROR_COUNTER__L5*/ meltfnum[1] = melt_error_counter;; MELT_LOCATION("warmelt-modes.melt:1739:/ cond"); /*cond*/ if (/*_#MELT_ERROR_COUNTER__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1740:/ quasiblock"); /*_#GETPID_CHK__L6*/ meltfnum[0] = /* makedoc_genoutput GETPID_CHK__1 */ (long) getpid() ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1741:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_cstring = "-p"; /*^apply.arg*/ argtab[2].meltbp_long = /*_#GETPID_CHK__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[3].meltbp_cstring = ".tmp"; /*_.OUTERR__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[13])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1745:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "MELT makedoc failed so outputting $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OUTERR__V26*/ meltfptr[25]; /*_.ERROR_AT__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[15])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-modes.melt:1746:/ locexp"); /*output_sbuf_strval*/ melt_output_strbuf_to_file((melt_ptr_t) (/*_.OUTB__V13*/ meltfptr[3]), melt_string_str((melt_ptr_t) /*_.OUTERR__V26*/ meltfptr[25])) ; } ; /*_._IFELSE___V25*/ meltfptr[24] = /*_.ERROR_AT__V27*/ meltfptr[26];; MELT_LOCATION("warmelt-modes.melt:1740:/ clear"); /*clear*/ /*_#GETPID_CHK__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.OUTERR__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.ERROR_AT__V27*/ meltfptr[26] = 0 ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-modes.melt:1739:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-modes.melt:1750:/ locexp"); /*output_sbuf_strval*/ melt_output_strbuf_to_file((melt_ptr_t) (/*_.OUTB__V13*/ meltfptr[3]), melt_string_str((melt_ptr_t) /*_.OUTARG__V3*/ meltfptr[2])) ; } ; MELT_LOCATION("warmelt-modes.melt:1751:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 37, "MKDOC_BOXCOUNTER"); /*_.MKDOC_BOXCOUNTER__V29*/ meltfptr[26] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_BOXCOUNTER__V29*/ meltfptr[26] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#COUNTDOC__L7*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.MKDOC_BOXCOUNTER__V29*/ meltfptr[26])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1753:/ cond"); /*cond*/ if (/*_#COUNTDOC__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1754:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "MELT makedoc generated $1 documentation items"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#COUNTDOC__L7*/ meltfnum[0]; /*_.INFORM_AT__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!INFORM_AT*/ meltfrout->tabval[16])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V30*/ meltfptr[29] = /*_.INFORM_AT__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1753:/ clear"); /*clear*/ /*_.INFORM_AT__V31*/ meltfptr[30] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1756:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "MELT makedoc generate no documentation items for $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V3*/ meltfptr[2]; /*_.ERROR_AT__V32*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[15])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V30*/ meltfptr[29] = /*_.ERROR_AT__V32*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1753:/ clear"); /*clear*/ /*_.ERROR_AT__V32*/ meltfptr[30] = 0 ; } ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1758:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#gtI__L8*/ meltfnum[7] = ((/*_#COUNTDOC__L7*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-modes.melt:1758:/ cond"); /*cond*/ if (/*_#gtI__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V34*/ meltfptr[33] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1758:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "makedoc check counter"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1758; /*^apply.arg*/ argtab[3].meltbp_long = /*_#COUNTDOC__L7*/ meltfnum[0]; /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V34*/ meltfptr[33] = /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1758:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V35*/ meltfptr[34] = 0 ; } ; } ; /*_.IFCPP___V33*/ meltfptr[30] = /*_._IFELSE___V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1758:/ clear"); /*clear*/ /*_#gtI__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V34*/ meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V33*/ meltfptr[30] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; /*^compute*/ /*_.LET___V28*/ meltfptr[25] = /*_.IFCPP___V33*/ meltfptr[30];; MELT_LOCATION("warmelt-modes.melt:1751:/ clear"); /*clear*/ /*_.MKDOC_BOXCOUNTER__V29*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_#COUNTDOC__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V33*/ meltfptr[30] = 0 ; MELT_LOCATION("warmelt-modes.melt:1749:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[34] = /*_.LET___V28*/ meltfptr[25];; /*^compute*/ /*_._IFELSE___V25*/ meltfptr[24] = /*_.PROGN___V36*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1739:/ clear"); /*clear*/ /*_.LET___V28*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V36*/ meltfptr[34] = 0 ; } ; } ; /*_.LET___V12*/ meltfptr[10] = /*_._IFELSE___V25*/ meltfptr[24];; MELT_LOCATION("warmelt-modes.melt:1655:/ clear"); /*clear*/ /*_.OUTB__V13*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_GENMACRO__V17*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_GENPATMACRO__V18*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_GENCLASS__V19*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_GENPRIMITIVE__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_GENFUNCTION__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_GENCITERATOR__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_GENCMATCHER__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_GENHOOK__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_#MELT_ERROR_COUNTER__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V25*/ meltfptr[24] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1651:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION("warmelt-modes.melt:1651:/ 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*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_GENOUTPUT", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD_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_44_WARMELTmiMODES_MAKEDOC_DOCMD fromline 1752 */ /** start of frame for meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD// fromline 1568 : public Melt_CallFrameWithValues<100> { public: /* fromline 1572*/ long mcfr_varnum[31]; /*classy others*/ const char* loc_CSTRING__o0; const char* loc_CSTRING__o1; 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_44_WARMELTmiMODES_MAKEDOC_DOCMD(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<100> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD), clos) {}; MeltFrame_meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD() //the constructor fromline 1642 : Melt_CallFrameWithValues<100> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<100> (fil,lin, sizeof(MeltFrame_meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD)) {}; MeltFrame_meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<100> (fil,lin, sizeof(MeltFrame_meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD /** end of frame for meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD fromline 1697**/ /* end of frame for routine meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD fromline 1756 */ /* classy proc frame meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD */ MeltFrame_meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD 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("MAKEDOC_DOCMD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1770:/ getarg"); /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1771:/ 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-modes.melt:1771:/ 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-modes.melt:1771:/ 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-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1771; /*^apply.arg*/ argtab[3].meltbp_cstring = "start makedoc_docmd cmd="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CMD__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1771:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1771:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1772:/ quasiblock"); /*_.PARMODENV__V7*/ meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1774:/ cond"); /*cond*/ if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ { /*^cond.then*/ /*_.CURENV__V8*/ meltfptr[7] = /*_.MODULDATA__V3*/ meltfptr[2];; } else { MELT_LOCATION("warmelt-modes.melt:1774:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1776:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)( /*quasi.cur.mod.env.ref */ /* check quasi.cur.mod.env.ref 954309813 */ ((/*!konst_2*/ meltfrout->tabval[2])) ), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)( /*quasi.cur.mod.env.ref */ /* check quasi.cur.mod.env.ref 954309813 */ ((/*!konst_2*/ meltfrout->tabval[2])) ) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); /*_.REFERENCED_VALUE__V9*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.REFERENCED_VALUE__V9*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.CURENV__V8*/ meltfptr[7] = /*_.REFERENCED_VALUE__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1774:/ clear"); /*clear*/ /*_.REFERENCED_VALUE__V9*/ meltfptr[8] = 0 ; } ; } ; /*_?*/ meltfram__.loc_CSTRING__o0 = melt_argument( "arglist");; /*^compute*/ /*_.MAKE_STRINGCONST__V10*/ meltfptr[8] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[4])), (/*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute*/ /*_.ARGLIST__V11*/ meltfptr[10] = meltgc_new_split_string (melt_string_str ((melt_ptr_t) /*_.MAKE_STRINGCONST__V10*/ meltfptr[8]), ',', (melt_ptr_t) (/*!DISCR_STRING*/ meltfrout->tabval[4]));; /*^compute*/ /*_?*/ meltfram__.loc_CSTRING__o1 = melt_argument( "output");; /*^compute*/ /*_.OUTARG__V12*/ meltfptr[11] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[4])), (/*_?*/ meltfram__.loc_CSTRING__o1)));; /*^compute*/ /*_.RLIST__V13*/ meltfptr[12] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; MELT_LOCATION("warmelt-modes.melt:1780:/ quasiblock"); /*_.SBUF__V15*/ meltfptr[14] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[6])), (const char*)0);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1782:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "meltmakedoc_"; /*_.ADD2OUT__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.SBUF__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_.MAKE_STRING_NAKEDBASENAME__V17*/ meltfptr[16] = (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[4])), melt_string_str((melt_ptr_t)(/*_.OUTARG__V12*/ meltfptr[11]))));; { MELT_LOCATION("warmelt-modes.melt:1783:/ locexp"); meltgc_add_out_cident((melt_ptr_t)(/*_.SBUF__V15*/ meltfptr[14]), melt_string_str((melt_ptr_t)(/*_.MAKE_STRING_NAKEDBASENAME__V17*/ meltfptr[16]))); } ; /*_.STRBUF2STRING__V18*/ meltfptr[17] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[4])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V15*/ meltfptr[14]))));; /*^compute*/ /*_.LET___V14*/ meltfptr[13] = /*_.STRBUF2STRING__V18*/ meltfptr[17];; MELT_LOCATION("warmelt-modes.melt:1780:/ clear"); /*clear*/ /*_.SBUF__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.STRBUF2STRING__V18*/ meltfptr[17] = 0 ; /*_.MODNAM__V19*/ meltfptr[14] = /*_.LET___V14*/ meltfptr[13];; MELT_LOCATION("warmelt-modes.melt:1785:/ blockmultialloc"); /*multiallocblock*/ { struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x2; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x2*/ /*_.TUPLREC___V21*/ meltfptr[16] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x2; meltletrec_1_ptr->rtup_0__TUPLREC__x2.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x2.nbval = 2; /*^putuple*/ /*putupl#3*/ melt_assertmsg("putupl [:1785] #3 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V21*/ meltfptr[16]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:1785] #3 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V21*/ meltfptr[16])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V21*/ meltfptr[16]))->tabval[0] = (melt_ptr_t)((/*!konst_9_BASEmiDOC*/ meltfrout->tabval[9])); ; /*^putuple*/ /*putupl#4*/ melt_assertmsg("putupl [:1785] #4 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V21*/ meltfptr[16]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:1785] #4 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V21*/ meltfptr[16])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V21*/ meltfptr[16]))->tabval[1] = (melt_ptr_t)(/*_.OUTARG__V12*/ meltfptr[11]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V21*/ meltfptr[16]); ; /*_.TUPLE___V20*/ meltfptr[15] = /*_.TUPLREC___V21*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1785:/ clear"); /*clear*/ /*_.TUPLREC___V21*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V21*/ meltfptr[16] = 0 ; } /*end multiallocblock*/ ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.TUPLE___V20*/ meltfptr[15]; /*_.BASENV__V22*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.CURENV__V8*/ meltfptr[7]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1786:/ blockmultialloc"); /*multiallocblock*/ { struct meltletrec_2_st { struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x3; long meltletrec_2_endgap; } *meltletrec_2_ptr = 0; meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x3*/ /*_.TUPLREC___V24*/ meltfptr[23] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x3; meltletrec_2_ptr->rtup_0__TUPLREC__x3.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_2_ptr->rtup_0__TUPLREC__x3.nbval = 2; /*^putuple*/ /*putupl#5*/ melt_assertmsg("putupl [:1786] #5 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V24*/ meltfptr[23]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:1786] #5 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V24*/ meltfptr[23])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V24*/ meltfptr[23]))->tabval[0] = (melt_ptr_t)((/*!konst_10_MACROmiDOC*/ meltfrout->tabval[10])); ; /*^putuple*/ /*putupl#6*/ melt_assertmsg("putupl [:1786] #6 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V24*/ meltfptr[23]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:1786] #6 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V24*/ meltfptr[23])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V24*/ meltfptr[23]))->tabval[1] = (melt_ptr_t)(/*_.OUTARG__V12*/ meltfptr[11]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V24*/ meltfptr[23]); ; /*_.TUPLE___V23*/ meltfptr[16] = /*_.TUPLREC___V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1786:/ clear"); /*clear*/ /*_.TUPLREC___V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V24*/ meltfptr[23] = 0 ; } /*end multiallocblock*/ ; MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.TUPLE___V23*/ meltfptr[16]; /*_.MACROENV__V25*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.CURENV__V8*/ meltfptr[7]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*_.MAKE_MAPSTRING__V26*/ meltfptr[25] = (meltgc_new_mapstrings( (meltobject_ptr_t) ((/*!DISCR_MAP_STRINGS*/ meltfrout->tabval[12])), (211)));; /*^compute*/ /*_.MAKE_MAPSTRING__V27*/ meltfptr[26] = (meltgc_new_mapstrings( (meltobject_ptr_t) ((/*!DISCR_MAP_STRINGS*/ meltfrout->tabval[12])), (131)));; /*^compute*/ /*_.MAKE_INTEGERBOX__V28*/ meltfptr[27] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[13])), (0)));; /*^compute*/ /*_.MAKE_LIST__V29*/ meltfptr[28] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_LIST__V30*/ meltfptr[29] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_INTEGERBOX__V31*/ meltfptr[30] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[13])), (0)));; /*^compute*/ /*_.MAKE_LIST__V32*/ meltfptr[31] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_MAPSTRING__V33*/ meltfptr[32] = (meltgc_new_mapstrings( (meltobject_ptr_t) ((/*!DISCR_MAP_STRINGS*/ meltfrout->tabval[12])), (101)));; /*^compute*/ /*_.MAKE_LIST__V34*/ meltfptr[33] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_LIST__V35*/ meltfptr[34] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_LIST__V36*/ meltfptr[35] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_LIST__V37*/ meltfptr[36] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_LIST__V38*/ meltfptr[37] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_LIST__V39*/ meltfptr[38] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_LIST__V40*/ meltfptr[39] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_LIST__V41*/ meltfptr[40] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_LIST__V42*/ meltfptr[41] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_LIST__V43*/ meltfptr[42] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_LIST__V44*/ meltfptr[43] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_LIST__V45*/ meltfptr[44] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_LIST__V46*/ meltfptr[45] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_LIST__V47*/ meltfptr[46] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; /*^compute*/ /*_.MAKE_MAPOBJECT__V48*/ meltfptr[47] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[14])), (1000)));; /*^compute*/ /*_.MAKE_MAPOBJECT__V49*/ meltfptr[48] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[14])), (200)));; /*^compute*/ /*_.MAKE_MAPOBJECT__V50*/ meltfptr[49] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[14])), (400)));; /*^compute*/ /*_.MAKE_MAPOBJECT__V51*/ meltfptr[50] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[14])), (400)));; /*^compute*/ /*_.MAKE_INTEGERBOX__V52*/ meltfptr[51] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[13])), (0)));; MELT_LOCATION("warmelt-modes.melt:1788:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[11])), (38), "CLASS_MAKEDOC_MODULE_CONTEXT"); /*_.INST__V54*/ meltfptr[53] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_MODULENAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (1), (/*_.MODNAM__V19*/ meltfptr[14]), "MOCX_MODULENAME"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_EXPFIELDICT", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (2), (/*_.MAKE_MAPSTRING__V26*/ meltfptr[25]), "MOCX_EXPFIELDICT"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_EXPCLASSDICT", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (3), (/*_.MAKE_MAPSTRING__V27*/ meltfptr[26]), "MOCX_EXPCLASSDICT"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_INITIALENV", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (4), (/*_.CURENV__V8*/ meltfptr[7]), "MOCX_INITIALENV"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_MACROENV", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (5), (/*_.MACROENV__V25*/ meltfptr[23]), "MOCX_MACROENV"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_BASENV", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (6), (/*_.BASENV__V22*/ meltfptr[17]), "MOCX_BASENV"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_FUNCOUNT", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (7), (/*_.MAKE_INTEGERBOX__V28*/ meltfptr[27]), "MOCX_FUNCOUNT"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_FILETUPLE", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (8), ((/*nil*/NULL)), "MOCX_FILETUPLE"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_CHEADERLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (11), (/*_.MAKE_LIST__V29*/ meltfptr[28]), "MOCX_CHEADERLIST"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_CIMPLEMENTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (12), (/*_.MAKE_LIST__V30*/ meltfptr[29]), "MOCX_CIMPLEMENTLIST"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_VARCOUNT", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (17), (/*_.MAKE_INTEGERBOX__V31*/ meltfptr[30]), "MOCX_VARCOUNT"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_VARLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (18), (/*_.MAKE_LIST__V32*/ meltfptr[31]), "MOCX_VARLIST"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_HOOKDICT", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (19), (/*_.MAKE_MAPSTRING__V33*/ meltfptr[32]), "MOCX_HOOKDICT"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_MACROLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (20), (/*_.MAKE_LIST__V34*/ meltfptr[33]), "MOCX_MACROLIST"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_ISGPLCOMPATIBLE", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (21), ((/*nil*/NULL)), "MOCX_ISGPLCOMPATIBLE"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_PACKAGEPCLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (15), (/*_.MAKE_LIST__V35*/ meltfptr[34]), "MOCX_PACKAGEPCLIST"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MOCX_GENDEVLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (14), (/*_.MAKE_LIST__V36*/ meltfptr[35]), "MOCX_GENDEVLIST"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_PRIMITIVES", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (22), (/*_.MAKE_LIST__V37*/ meltfptr[36]), "MKDOC_PRIMITIVES"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_FUNCTIONS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (23), (/*_.MAKE_LIST__V38*/ meltfptr[37]), "MKDOC_FUNCTIONS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_CITERATORS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (24), (/*_.MAKE_LIST__V39*/ meltfptr[38]), "MKDOC_CITERATORS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_CMATCHERS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (25), (/*_.MAKE_LIST__V40*/ meltfptr[39]), "MKDOC_CMATCHERS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_SELECTORS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (26), (/*_.MAKE_LIST__V41*/ meltfptr[40]), "MKDOC_SELECTORS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (27), (/*_.MAKE_LIST__V42*/ meltfptr[41]), "MKDOC_FIELDS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_CLASSES", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (28), (/*_.MAKE_LIST__V43*/ meltfptr[42]), "MKDOC_CLASSES"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_INSTANCES", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (29), (/*_.MAKE_LIST__V44*/ meltfptr[43]), "MKDOC_INSTANCES"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_MACROS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (30), (/*_.MAKE_LIST__V45*/ meltfptr[44]), "MKDOC_MACROS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_PATMACROS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (31), (/*_.MAKE_LIST__V46*/ meltfptr[45]), "MKDOC_PATMACROS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_HOOKS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (32), (/*_.MAKE_LIST__V47*/ meltfptr[46]), "MKDOC_HOOKS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_FORMALOCCMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (33), (/*_.MAKE_MAPOBJECT__V48*/ meltfptr[47]), "MKDOC_FORMALOCCMAP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_PREDEFMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (34), (/*_.MAKE_MAPOBJECT__V49*/ meltfptr[48]), "MKDOC_PREDEFMAP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_DOCSYMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (35), (/*_.MAKE_MAPOBJECT__V50*/ meltfptr[49]), "MKDOC_DOCSYMAP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_SUBCLASSMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (36), (/*_.MAKE_MAPOBJECT__V51*/ meltfptr[50]), "MKDOC_SUBCLASSMAP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @MKDOC_BOXCOUNTER", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (37), (/*_.MAKE_INTEGERBOX__V52*/ meltfptr[51]), "MKDOC_BOXCOUNTER"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V54*/ meltfptr[53], "newly made instance"); ; /*_.MDINFO__V53*/ meltfptr[52] = /*_.INST__V54*/ meltfptr[53];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1826:/ 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-modes.melt:1826:/ 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-modes.melt:1826:/ apply"); /*apply*/ { union meltparam_un argtab[10]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1826; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_docmd arglist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ARGLIST__V11*/ meltfptr[10]; /*^apply.arg*/ argtab[5].meltbp_cstring = " outarg="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V12*/ meltfptr[11]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n.. empty mdinfo="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[15]); /*^apply.arg*/ argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V53*/ meltfptr[52]; /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V55*/ meltfptr[54] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1826:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V55*/ meltfptr[54] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1826:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V55*/ meltfptr[54] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_LIST__L5*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.RLIST__V13*/ meltfptr[12])) == MELTOBMAG_LIST);; /*^compute*/ /*_#NOT__L6*/ meltfnum[1] = (!(/*_#IS_LIST__L5*/ meltfnum[0]));; MELT_LOCATION("warmelt-modes.melt:1827:/ cond"); /*cond*/ if (/*_#NOT__L6*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1828:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "makedoc MELT mode needs an -f[plugin-arg-]melt-arglist of comma-separated\ *.melt file[s]"; /*_.ERROR_AT__V58*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[16])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V57*/ meltfptr[55] = /*_.ERROR_AT__V58*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1827:/ clear"); /*clear*/ /*_.ERROR_AT__V58*/ meltfptr[54] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V57*/ meltfptr[55] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_STRING__L7*/ meltfnum[6] = (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V12*/ meltfptr[11])) == MELTOBMAG_STRING);; /*^compute*/ /*_#NOT__L8*/ meltfnum[7] = (!(/*_#IS_STRING__L7*/ meltfnum[6]));; MELT_LOCATION("warmelt-modes.melt:1830:/ cond"); /*cond*/ if (/*_#NOT__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1831:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "makedoc MELT mode needs an -f[plugin-arg-]melt-output *.texi file"; /*_.ERROR_AT__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[16])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V59*/ meltfptr[54] = /*_.ERROR_AT__V60*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1830:/ clear"); /*clear*/ /*_.ERROR_AT__V60*/ meltfptr[59] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V59*/ meltfptr[54] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1833:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!MELT_MODE_REFERENCE*/ meltfrout->tabval[17])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)((/*!MELT_MODE_REFERENCE*/ meltfrout->tabval[17]))) == MELTOBMAG_OBJECT); melt_putfield_object(((/*!MELT_MODE_REFERENCE*/ meltfrout->tabval[17])), (0), (/*_.MDINFO__V53*/ meltfptr[52]), "REFERENCED_VALUE"); ; /*^touch*/ meltgc_touch((/*!MELT_MODE_REFERENCE*/ meltfrout->tabval[17])); ; /*^touchobj*/ melt_dbgtrace_written_object ((/*!MELT_MODE_REFERENCE*/ meltfrout->tabval[17]), "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1834:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_LIST__L9*/ meltfnum[8] = (melt_magic_discr((melt_ptr_t)(/*_.RLIST__V13*/ meltfptr[12])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-modes.melt:1834:/ cond"); /*cond*/ if (/*_#IS_LIST__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V62*/ meltfptr[61] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1834:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check rlist"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1834; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RLIST__V13*/ meltfptr[12]; /*_.MELT_ASSERT_FAILURE_FUN__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[18])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V62*/ meltfptr[61] = /*_.MELT_ASSERT_FAILURE_FUN__V63*/ meltfptr[62];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1834:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V63*/ meltfptr[62] = 0 ; } ; } ; /*_.IFCPP___V61*/ meltfptr[59] = /*_._IFELSE___V62*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1834:/ clear"); /*clear*/ /*_#IS_LIST__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V62*/ meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V61*/ meltfptr[59] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1835:/ quasiblock"); /*_.XALLLIST__V65*/ meltfptr[61] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[5]))));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1837:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = /*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-modes.melt:1837:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L11*/ 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-modes.melt:1837:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1837; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_docmd before looping inside arglist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ARGLIST__V11*/ meltfptr[10]; /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66] = 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___V66*/ meltfptr[65] = /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1837:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V66*/ meltfptr[65] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1837:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V66*/ meltfptr[65] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit1__EACHLIST */ for (/*_.CURPAIRINLISTSYMB__V68*/ meltfptr[66] = melt_list_first( (melt_ptr_t)/*_.ARGLIST__V11*/ meltfptr[10]); melt_magic_discr((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V68*/ meltfptr[66]) == MELTOBMAG_PAIR; /*_.CURPAIRINLISTSYMB__V68*/ meltfptr[66] = melt_pair_tail((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V68*/ meltfptr[66])) { /*_.CURARGFILE__V69*/ meltfptr[65] = melt_pair_head((melt_ptr_t) /*_.CURPAIRINLISTSYMB__V68*/ meltfptr[66]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1841:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = /*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-modes.melt:1841:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L13*/ meltfnum[8] = /* 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-modes.melt:1841:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L13*/ meltfnum[8]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1841; /*^apply.arg*/ argtab[3].meltbp_cstring = "make_list curargfile="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURARGFILE__V69*/ meltfptr[65]; /*_.MELT_DEBUG_FUN__V71*/ meltfptr[70] = 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___V70*/ meltfptr[69] = /*_.MELT_DEBUG_FUN__V71*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1841:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V71*/ meltfptr[70] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V70*/ meltfptr[69] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1841:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V70*/ meltfptr[69] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1842:/ quasiblock"); /*_.CUREAD__V73*/ meltfptr[69] = (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.CURARGFILE__V69*/ meltfptr[65])), (char*)0));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1844:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L14*/ meltfnum[8] = /*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-modes.melt:1844:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L15*/ 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-modes.melt:1844:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L15*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1844; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_docmd curead="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUREAD__V73*/ meltfptr[69]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n..curargfile="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURARGFILE__V69*/ meltfptr[65]; /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74] = 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___V74*/ meltfptr[73] = /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1844:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V74*/ meltfptr[73] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1844:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V74*/ meltfptr[73] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1845:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_LIST_OR_NULL__L16*/ meltfnum[10] = ((/*_.CUREAD__V73*/ meltfptr[69]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.CUREAD__V73*/ meltfptr[69])) == MELTOBMAG_LIST));; MELT_LOCATION("warmelt-modes.melt:1845:/ cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L16*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V77*/ meltfptr[73] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1845:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curead"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1845; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CUREAD__V73*/ meltfptr[69]; /*_.MELT_ASSERT_FAILURE_FUN__V78*/ meltfptr[77] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[18])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V77*/ meltfptr[73] = /*_.MELT_ASSERT_FAILURE_FUN__V78*/ meltfptr[77];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1845:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V78*/ meltfptr[77] = 0 ; } ; } ; /*_.IFCPP___V76*/ meltfptr[74] = /*_._IFELSE___V77*/ meltfptr[73];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1845:/ clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L16*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V77*/ meltfptr[73] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V76*/ meltfptr[74] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; /*^compute*/ /*_#LIST_LENGTH__L17*/ meltfnum[8] = (melt_list_length((melt_ptr_t)(/*_.CUREAD__V73*/ meltfptr[69])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1846:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "mode makedoc read $1 s-expressions from file $2"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#LIST_LENGTH__L17*/ meltfnum[8]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.CURARGFILE__V69*/ meltfptr[65]; /*_.INFORM_AT__V79*/ meltfptr[77] = melt_apply ((meltclosure_ptr_t)((/*!INFORM_AT*/ meltfrout->tabval[19])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1847:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CUREAD__V73*/ meltfptr[69]; /*_.LIST_APPEND2LIST__V80*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.RLIST__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1848:/ 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*) &/*_.BASENV__V22*/ meltfptr[17]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!MACROEXPAND_1*/ meltfrout->tabval[22]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V53*/ meltfptr[52]; /*_.CURXLIST__V82*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_TOPLEVEL_LIST*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.CUREAD__V73*/ meltfptr[69]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#CURXLISTLEN__L18*/ meltfnum[10] = (melt_list_length((melt_ptr_t)(/*_.CURXLIST__V82*/ meltfptr[81])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1851:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "mode makedoc macro-expanded $1 expressions from file $2"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#CURXLISTLEN__L18*/ meltfnum[10]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.CURARGFILE__V69*/ meltfptr[65]; /*_.INFORM_AT__V83*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!INFORM_AT*/ meltfrout->tabval[19])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1852:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L19*/ 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-modes.melt:1852:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L20*/ meltfnum[19] = /* 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-modes.melt:1852:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L20*/ meltfnum[19]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1852; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_docmd curxlist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURXLIST__V82*/ meltfptr[81]; /*_.MELT_DEBUG_FUN__V85*/ meltfptr[84] = 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___V84*/ meltfptr[83] = /*_.MELT_DEBUG_FUN__V85*/ meltfptr[84];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1852:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V85*/ meltfptr[84] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V84*/ meltfptr[83] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1852:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V84*/ meltfptr[83] = 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-modes.melt:1853:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURXLIST__V82*/ meltfptr[81]; /*_.LIST_APPEND2LIST__V86*/ meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.XALLLIST__V65*/ meltfptr[61]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V81*/ meltfptr[80] = /*_.LIST_APPEND2LIST__V86*/ meltfptr[84];; MELT_LOCATION("warmelt-modes.melt:1848:/ clear"); /*clear*/ /*_.CURXLIST__V82*/ meltfptr[81] = 0 ; /*^clear*/ /*clear*/ /*_#CURXLISTLEN__L18*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.INFORM_AT__V83*/ meltfptr[82] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_APPEND2LIST__V86*/ meltfptr[84] = 0 ; /*_.LET___V72*/ meltfptr[70] = /*_.LET___V81*/ meltfptr[80];; MELT_LOCATION("warmelt-modes.melt:1842:/ clear"); /*clear*/ /*_.CUREAD__V73*/ meltfptr[69] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V76*/ meltfptr[74] = 0 ; /*^clear*/ /*clear*/ /*_#LIST_LENGTH__L17*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.INFORM_AT__V79*/ meltfptr[77] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_APPEND2LIST__V80*/ meltfptr[73] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V81*/ meltfptr[80] = 0 ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1856:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L21*/ meltfnum[19] = /*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-modes.melt:1856:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L22*/ meltfnum[18] = /* 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-modes.melt:1856:/ apply"); /*apply*/ { union meltparam_un argtab[8]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L22*/ meltfnum[18]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1856; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_docmd have read rlist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RLIST__V13*/ meltfptr[12]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n.. expanded into xalllist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.XALLLIST__V65*/ meltfptr[61]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n"; /*_.MELT_DEBUG_FUN__V88*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V87*/ meltfptr[83] = /*_.MELT_DEBUG_FUN__V88*/ meltfptr[81];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1856:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V88*/ meltfptr[81] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V87*/ meltfptr[83] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1856:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V87*/ meltfptr[83] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIRINLISTSYMB__V68*/ meltfptr[66] = NULL; /*_.CURARGFILE__V69*/ meltfptr[65] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1838:/ clear"); /*clear*/ /*_.CURPAIRINLISTSYMB__V68*/ meltfptr[66] = 0 ; /*^clear*/ /*clear*/ /*_.CURARGFILE__V69*/ meltfptr[65] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V72*/ meltfptr[70] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1860:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L23*/ meltfnum[10] = /*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-modes.melt:1860:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L23*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L24*/ meltfnum[8] = /* 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-modes.melt:1860:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L24*/ meltfnum[8]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1860; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_docmd arglist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ARGLIST__V11*/ meltfptr[10]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n.. xalllist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.XALLLIST__V65*/ meltfptr[61]; /*_.MELT_DEBUG_FUN__V90*/ meltfptr[84] = 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___V89*/ meltfptr[82] = /*_.MELT_DEBUG_FUN__V90*/ meltfptr[84];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1860:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L24*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V90*/ meltfptr[84] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V89*/ meltfptr[82] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1860:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L23*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V89*/ meltfptr[82] = 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-modes.melt:1862:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ARGLIST__V11*/ meltfptr[10]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.XALLLIST__V65*/ meltfptr[61]; /*_.MAKEDOC_SCANINPUT__V91*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_SCANINPUT*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.MDINFO__V53*/ meltfptr[52]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#LIST_LENGTH__L25*/ meltfnum[18] = (melt_list_length((melt_ptr_t)(/*_.XALLLIST__V65*/ meltfptr[61])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1863:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "mode makedoc scanned $1 macro-expanded source trees"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#LIST_LENGTH__L25*/ meltfnum[18]; /*_.INFORM_AT__V92*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!INFORM_AT*/ meltfrout->tabval[19])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1864:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L26*/ meltfnum[19] = /*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-modes.melt:1864:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L27*/ meltfnum[8] = /* 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-modes.melt:1864:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L27*/ meltfnum[8]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1864; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_docmd after scan mdinfo="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V53*/ meltfptr[52]; /*_.MELT_DEBUG_FUN__V94*/ meltfptr[73] = 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___V93*/ meltfptr[77] = /*_.MELT_DEBUG_FUN__V94*/ meltfptr[73];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1864:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V94*/ meltfptr[73] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V93*/ meltfptr[77] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1864:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V93*/ meltfptr[77] = 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-modes.melt:1866:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V12*/ meltfptr[11]; /*_.MAKEDOC_GENOUTPUT__V95*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENOUTPUT*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.MDINFO__V53*/ meltfptr[52]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1867:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L28*/ meltfnum[10] = /*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-modes.melt:1867:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L28*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L29*/ meltfnum[8] = /* 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-modes.melt:1867:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L29*/ meltfnum[8]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1867; /*^apply.arg*/ argtab[3].meltbp_cstring = "makedoc_docmd done mdinfo="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MDINFO__V53*/ meltfptr[52]; /*^apply.arg*/ argtab[5].meltbp_cstring = " outarg="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V12*/ meltfptr[11]; /*_.MELT_DEBUG_FUN__V97*/ meltfptr[83] = 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___V96*/ meltfptr[81] = /*_.MELT_DEBUG_FUN__V97*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1867:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L29*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V97*/ meltfptr[83] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V96*/ meltfptr[81] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1867:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L28*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V96*/ meltfptr[81] = 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-modes.melt:1869:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V53*/ meltfptr[52]), (melt_ptr_t)((/*!CLASS_MAKEDOC_MODULE_CONTEXT*/ meltfrout->tabval[11]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MDINFO__V53*/ meltfptr[52]) /*=obj*/; melt_object_get_field(slot,obj, 37, "MKDOC_BOXCOUNTER"); /*_.MKDOC_BOXCOUNTER__V98*/ meltfptr[84] = slot; }; ; } else /*^cond.else*/ { /*_.MKDOC_BOXCOUNTER__V98*/ meltfptr[84] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#GET_INT__L30*/ meltfnum[19] = (melt_get_int((melt_ptr_t)(/*_.MKDOC_BOXCOUNTER__V98*/ meltfptr[84])));; /*^compute*/ /*_#gtI__L31*/ meltfnum[8] = ((/*_#GET_INT__L30*/ meltfnum[19]) > (0));; MELT_LOCATION("warmelt-modes.melt:1869:/ cond"); /*cond*/ if (/*_#gtI__L31*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1870:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_25_TRUE*/ meltfrout->tabval[25]);; { MELT_LOCATION("warmelt-modes.melt:1870:/ 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 ; /*_._IF___V99*/ meltfptr[82] = /*_.RETURN___V100*/ meltfptr[73];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1869:/ clear"); /*clear*/ /*_.RETURN___V100*/ meltfptr[73] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V99*/ meltfptr[82] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V64*/ meltfptr[62] = /*_._IF___V99*/ meltfptr[82];; MELT_LOCATION("warmelt-modes.melt:1835:/ clear"); /*clear*/ /*_.XALLLIST__V65*/ meltfptr[61] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_SCANINPUT__V91*/ meltfptr[69] = 0 ; /*^clear*/ /*clear*/ /*_#LIST_LENGTH__L25*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_.INFORM_AT__V92*/ meltfptr[74] = 0 ; /*^clear*/ /*clear*/ /*_.MAKEDOC_GENOUTPUT__V95*/ meltfptr[80] = 0 ; /*^clear*/ /*clear*/ /*_.MKDOC_BOXCOUNTER__V98*/ meltfptr[84] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L30*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L31*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V99*/ meltfptr[82] = 0 ; /*_.LET___V6*/ meltfptr[4] = /*_.LET___V64*/ meltfptr[62];; MELT_LOCATION("warmelt-modes.melt:1772:/ clear"); /*clear*/ /*_.PARMODENV__V7*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.CURENV__V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_STRINGCONST__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.ARGLIST__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o1 = 0 ; /*^clear*/ /*clear*/ /*_.OUTARG__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.RLIST__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.MODNAM__V19*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLE___V20*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.BASENV__V22*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLE___V23*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.MACROENV__V25*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_MAPSTRING__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_MAPSTRING__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V31*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_MAPSTRING__V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V36*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V37*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V38*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V39*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V40*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V41*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V42*/ meltfptr[41] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V43*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V44*/ meltfptr[43] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V45*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V46*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_LIST__V47*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_MAPOBJECT__V48*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_MAPOBJECT__V49*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_MAPOBJECT__V50*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_MAPOBJECT__V51*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V52*/ meltfptr[51] = 0 ; /*^clear*/ /*clear*/ /*_.MDINFO__V53*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_#IS_LIST__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L6*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V57*/ meltfptr[55] = 0 ; /*^clear*/ /*clear*/ /*_#IS_STRING__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V59*/ meltfptr[54] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V61*/ meltfptr[59] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V64*/ meltfptr[62] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1770:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-modes.melt:1770:/ 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___V6*/ meltfptr[4] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKEDOC_DOCMD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD_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_45_WARMELTmiMODES_SHOWVAR_DOCMD fromline 1752 */ /** start of frame for meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD// fromline 1568 : public Melt_CallFrameWithValues<25> { public: /* fromline 1572*/ long mcfr_varnum[6]; /*classy others*/ const char* loc_CSTRING__o0; 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_45_WARMELTmiMODES_SHOWVAR_DOCMD(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<25> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD), clos) {}; MeltFrame_meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD() //the constructor fromline 1642 : Melt_CallFrameWithValues<25> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<25> (fil,lin, sizeof(MeltFrame_meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD)) {}; MeltFrame_meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<25> (fil,lin, sizeof(MeltFrame_meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD /** end of frame for meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD fromline 1697**/ /* end of frame for routine meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD fromline 1756 */ /* classy proc frame meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD */ MeltFrame_meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD 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("SHOWVAR_DOCMD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1887:/ getarg"); /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1888:/ 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-modes.melt:1888:/ 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-modes.melt:1888:/ 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-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1888; /*^apply.arg*/ argtab[3].meltbp_cstring = "start showvar_docmd cmd="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CMD__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1888:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1888:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1889:/ quasiblock"); /*_.PARMODENV__V7*/ meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1891:/ cond"); /*cond*/ if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ { /*^cond.then*/ /*_.ENV__V8*/ meltfptr[7] = /*_.MODULDATA__V3*/ meltfptr[2];; } else { MELT_LOCATION("warmelt-modes.melt:1891:/ cond.else"); /*_.ENV__V8*/ meltfptr[7] = /*_.PARMODENV__V7*/ meltfptr[3];; } ; /*^compute*/ /*_?*/ meltfram__.loc_CSTRING__o0 = melt_argument( "arg");; /*^compute*/ /*_.INARG__V9*/ meltfptr[8] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[2])), (/*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute*/ /*_.INSYMB__V10*/ meltfptr[9] = melthookproc_HOOK_NAMED_SYMBOL (melt_string_str((melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8])), (long)MELT_GET);; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1895:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-modes.melt:1895:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[11] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1895:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check moduldata"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1895; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V12*/ meltfptr[11] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1895:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; /*_.IFCPP___V11*/ meltfptr[10] = /*_._IFELSE___V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1895:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V12*/ meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V11*/ meltfptr[10] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.INSYMB__V10*/ meltfptr[9]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-modes.melt:1896:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-modes.melt:1897:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INSYMB__V10*/ meltfptr[9]; /*_.SYMBIND__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V8*/ meltfptr[7]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1898:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.INSYMB__V10*/ meltfptr[9]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.SYMNAME__V17*/ meltfptr[16] = slot; }; ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1900:/ cond"); /*cond*/ if (/*_.SYMBIND__V16*/ meltfptr[15]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1902:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ 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-modes.melt:1902:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = /* 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-modes.melt:1902:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[5]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1902; /*^apply.arg*/ argtab[3].meltbp_cstring = "showvar_docmd symbind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBIND__V16*/ meltfptr[15]; /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 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___V19*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1902:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V19*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1902:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V19*/ meltfptr[18] = 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-modes.melt:1903:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "found binding for $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SYMNAME__V17*/ meltfptr[16]; /*_.INFORM_AT__V21*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!INFORM_AT*/ meltfrout->tabval[7])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:1904:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-modes.melt:1904:/ 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-modes.melt:1901:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[22] = /*_.RETURN___V22*/ meltfptr[18];; /*^compute*/ /*_._IFELSE___V18*/ meltfptr[17] = /*_.PROGN___V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1900:/ clear"); /*clear*/ /*_.INFORM_AT__V21*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V22*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V23*/ meltfptr[22] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1905:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "no binding found for $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SYMNAME__V17*/ meltfptr[16]; /*_.ERROR_AT__V24*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V18*/ meltfptr[17] = /*_.ERROR_AT__V24*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1900:/ clear"); /*clear*/ /*_.ERROR_AT__V24*/ meltfptr[19] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1907:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "unknown symbol $1 to show"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.INARG__V9*/ meltfptr[8]; /*_.ERROR_AT__V25*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V15*/ meltfptr[11] = /*_.ERROR_AT__V25*/ meltfptr[18];; MELT_LOCATION("warmelt-modes.melt:1897:/ clear"); /*clear*/ /*_.SYMBIND__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.SYMNAME__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.ERROR_AT__V25*/ meltfptr[18] = 0 ; /*_._IF___V14*/ meltfptr[12] = /*_.LET___V15*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1896:/ clear"); /*clear*/ /*_.LET___V15*/ meltfptr[11] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V14*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V6*/ meltfptr[4] = /*_._IF___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-modes.melt:1889:/ clear"); /*clear*/ /*_.PARMODENV__V7*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.ENV__V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ /*clear*/ /*_.INARG__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.INSYMB__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V14*/ meltfptr[12] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1887:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-modes.melt:1887:/ 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___V6*/ meltfptr[4] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("SHOWVAR_DOCMD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_WARMELTmiMODES_HELP_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_46_WARMELTmiMODES_HELP_DOCMD_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_46_WARMELTmiMODES_HELP_DOCMD fromline 1752 */ /** start of frame for meltrout_46_WARMELTmiMODES_HELP_DOCMD of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_46_WARMELTmiMODES_HELP_DOCMD// fromline 1568 : public Melt_CallFrameWithValues<23> { public: /* fromline 1572*/ long mcfr_varnum[6]; /*classy others*/ const char* loc_CSTRING__o0; 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_46_WARMELTmiMODES_HELP_DOCMD(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<23> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_46_WARMELTmiMODES_HELP_DOCMD), clos) {}; MeltFrame_meltrout_46_WARMELTmiMODES_HELP_DOCMD() //the constructor fromline 1642 : Melt_CallFrameWithValues<23> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_46_WARMELTmiMODES_HELP_DOCMD)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_46_WARMELTmiMODES_HELP_DOCMD(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<23> (fil,lin, sizeof(MeltFrame_meltrout_46_WARMELTmiMODES_HELP_DOCMD)) {}; MeltFrame_meltrout_46_WARMELTmiMODES_HELP_DOCMD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<23> (fil,lin, sizeof(MeltFrame_meltrout_46_WARMELTmiMODES_HELP_DOCMD), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_46_WARMELTmiMODES_HELP_DOCMD /** end of frame for meltrout_46_WARMELTmiMODES_HELP_DOCMD fromline 1697**/ /* end of frame for routine meltrout_46_WARMELTmiMODES_HELP_DOCMD fromline 1756 */ /* classy proc frame meltrout_46_WARMELTmiMODES_HELP_DOCMD */ MeltFrame_meltrout_46_WARMELTmiMODES_HELP_DOCMD meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_46_WARMELTmiMODES_HELP_DOCMD 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("HELP_DOCMD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1912:/ getarg"); /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-modes.melt:1913:/ locexp"); melt_debugeputs(( "starting help_docmd")); } ; MELT_LOCATION("warmelt-modes.melt:1914:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 2, "SYSDATA_MODE_DICT"); /*_.CMDICT__V5*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.CMDICT__V5*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.CMDLIST__V6*/ meltfptr[5] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));; /*citerblock FOREACH_IN_MAPSTRING*/ { /*foreach_in_mapstring meltcit1__EACHSTRMAP :*/ int meltcit1__EACHSTRMAP_ix=0, meltcit1__EACHSTRMAP_siz=0; for (meltcit1__EACHSTRMAP_ix=0; /* we retrieve in meltcit1__EACHSTRMAP_siz the size at each iteration since it could change. */ meltcit1__EACHSTRMAP_ix>=0 && (meltcit1__EACHSTRMAP_siz = melt_size_mapstrings((struct meltmapstrings_st*)/*_.CMDICT__V5*/ meltfptr[4])) > 0 && meltcit1__EACHSTRMAP_ix < meltcit1__EACHSTRMAP_siz; meltcit1__EACHSTRMAP_ix++) { const char* meltcit1__EACHSTRMAP_str = NULL; const char* meltcit1__EACHSTRMAP_nam = NULL; /*_.CURNAME__V7*/ meltfptr[6] = NULL; /*_.CURCMD__V8*/ meltfptr[7] = NULL; meltcit1__EACHSTRMAP_str = ((struct meltmapstrings_st*)/*_.CMDICT__V5*/ meltfptr[4])->entab[meltcit1__EACHSTRMAP_ix].e_at; if (!meltcit1__EACHSTRMAP_str || meltcit1__EACHSTRMAP_str == HTAB_DELETED_ENTRY) continue; /*foreach_in_mapstring meltcit1__EACHSTRMAP inside before*/ /*_.CURCMD__V8*/ meltfptr[7] = ((struct meltmapstrings_st*)/*_.CMDICT__V5*/ meltfptr[4])->entab[meltcit1__EACHSTRMAP_ix].e_va; if (!/*_.CURCMD__V8*/ meltfptr[7]) continue; if (melt_is_instance_of((melt_ptr_t) /*_.CURCMD__V8*/ meltfptr[7], (melt_ptr_t) MELT_PREDEF (CLASS_NAMED)) && (/*_.CURNAME__V7*/ meltfptr[6] = melt_object_nth_field ((melt_ptr_t) /*_.CURCMD__V8*/ meltfptr[7], MELTFIELD_NAMED_NAME)) != NULL && (meltcit1__EACHSTRMAP_nam = melt_string_str ((melt_ptr_t) /*_.CURNAME__V7*/ meltfptr[6])) != (char*)0 && !strcmp (meltcit1__EACHSTRMAP_nam, meltcit1__EACHSTRMAP_str)) /*_.CURNAME__V7*/ meltfptr[6] = /*_.CURNAME__V7*/ meltfptr[6]; else { /*_.CURNAME__V7*/ meltfptr[6] = NULL; /*_.CURNAME__V7*/ meltfptr[6] = meltgc_new_stringdup ((meltobject_ptr_t) MELT_PREDEF (DISCR_STRING), meltcit1__EACHSTRMAP_str); } meltcit1__EACHSTRMAP_str = (const char*)0; meltcit1__EACHSTRMAP_nam = (const char*)0; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1920:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURCMD__V8*/ meltfptr[7]), (melt_ptr_t)((/*!CLASS_MELT_MODE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-modes.melt:1920:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1920:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curcmd"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1920; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCMD__V8*/ meltfptr[7]; /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[9] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1920:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; /*_.IFCPP___V9*/ meltfptr[8] = /*_._IFELSE___V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1920:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[9] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[8] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1921:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.CMDLIST__V6*/ meltfptr[5]), (melt_ptr_t)(/*_.CURCMD__V8*/ meltfptr[7])); } ; /* end foreach_in_mapstring meltcit1__EACHSTRMAP */ /*_.CURNAME__V7*/ meltfptr[6] = NULL; /*_.CURCMD__V8*/ meltfptr[7] = NULL; } /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1917:/ clear"); /*clear*/ /*_.CURNAME__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.CURCMD__V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[8] = 0 ; } /*endciterblock FOREACH_IN_MAPSTRING*/ ; MELT_LOCATION("warmelt-modes.melt:1923:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { /*_.RAWCMDTUP__V13*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.CMDLIST__V6*/ meltfptr[5]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1924:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[7]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[8]); /*_.SORTEDCMDTUP__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.RAWCMDTUP__V13*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#NBCMD__L2*/ meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.SORTEDCMDTUP__V14*/ meltfptr[13])));; /*^compute*/ /*_?*/ meltfram__.loc_CSTRING__o0 = (melt_version_str());; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1928:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L3*/ meltfnum[2] = /*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-modes.melt:1928:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = /* 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-modes.melt:1928:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L4*/ meltfnum[3]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1928; /*^apply.arg*/ argtab[3].meltbp_cstring = "help_docmd sortedcmdtup="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SORTEDCMDTUP__V14*/ meltfptr[13]; /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[9])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V15*/ meltfptr[14] = /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1928:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V15*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-modes.melt:1928:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V15*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-modes.melt:1929:/ locexp"); /* SAYNBMODE_CHK__1 */ inform (UNKNOWN_LOCATION, "There are %ld modes in MELT %s", /*_#NBCMD__L2*/ meltfnum[0], /*_?*/ meltfram__.loc_CSTRING__o0); fflush (stderr); fflush (stdout); ; } ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit2__EACHTUP */ long meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDCMDTUP__V14*/ meltfptr[13]); for (/*_#MODIX__L5*/ meltfnum[3] = 0; (/*_#MODIX__L5*/ meltfnum[3] >= 0) && (/*_#MODIX__L5*/ meltfnum[3] < meltcit2__EACHTUP_ln); /*_#MODIX__L5*/ meltfnum[3]++) { /*_.CURMOD__V17*/ meltfptr[15] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDCMDTUP__V14*/ meltfptr[13]), /*_#MODIX__L5*/ meltfnum[3]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-modes.melt:1940:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L6*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CURMOD__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_MELT_MODE*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-modes.melt:1940:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[18] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-modes.melt:1940:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check curmod"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1940; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURMOD__V17*/ meltfptr[15]; /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V19*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1940:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; } ; } ; /*_.IFCPP___V18*/ meltfptr[14] = /*_._IFELSE___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1940:/ clear"); /*clear*/ /*_#IS_A__L6*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V19*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V18*/ meltfptr[14] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-modes.melt:1941:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURMOD__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.MODNAM__V21*/ meltfptr[19] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:1942:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURMOD__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 2, "MELTMODE_HELP"); /*_.MODHELP__V22*/ meltfptr[18] = slot; }; ; { MELT_LOCATION("warmelt-modes.melt:1944:/ locexp"); printf (" * %s : %s\n", /* SAYMODE_CHK__1 */ melt_string_str ((melt_ptr_t) /*_.MODNAM__V21*/ meltfptr[19]), melt_string_str ((melt_ptr_t) /*_.MODHELP__V22*/ meltfptr[18])) ; ; } ; MELT_LOCATION("warmelt-modes.melt:1941:/ clear"); /*clear*/ /*_.MODNAM__V21*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.MODHELP__V22*/ meltfptr[18] = 0 ; if (/*_#MODIX__L5*/ meltfnum[3]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:1937:/ clear"); /*clear*/ /*_.CURMOD__V17*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_#MODIX__L5*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V18*/ meltfptr[14] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-modes.melt:1950:/ locexp"); putchar ('\n'); fflush (stderr); fflush (stdout); #ifdef MELT_IS_PLUGIN inform (UNKNOWN_LOCATION, " use -fplugin-arg-melt-mode= to set the MELT mode[s] separated by comma"); #else inform (UNKNOWN_LOCATION, " use -fmelt-mode= to set the MELT mode[s] separated by comma"); #endif /*MELT_IS_PLUGIN*/ ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1961:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-modes.melt:1961:/ 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[10] = /*_.RETURN___V23*/ meltfptr[19];; MELT_LOCATION("warmelt-modes.melt:1923:/ clear"); /*clear*/ /*_.RAWCMDTUP__V13*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.SORTEDCMDTUP__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#NBCMD__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V23*/ meltfptr[19] = 0 ; /*_.LET___V4*/ meltfptr[3] = /*_.LET___V12*/ meltfptr[10];; MELT_LOCATION("warmelt-modes.melt:1914:/ clear"); /*clear*/ /*_.CMDICT__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.CMDLIST__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1912:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[3];; { MELT_LOCATION("warmelt-modes.melt:1912:/ 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___V4*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("HELP_DOCMD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_46_WARMELTmiMODES_HELP_DOCMD_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_46_WARMELTmiMODES_HELP_DOCMD*/ /**** end of warmelt-modes+01.cc ****/