/* GCC MELT GENERATED C++ FILE warmelt-hooks+03.cc - DO NOT EDIT - see http://gcc-melt.org/ */ /* secondary MELT generated C++ file of rank #3 */ #include "melt-run.h" /* used hash from melt-run.h when compiling this file: */ MELT_EXTERN const char meltrun_used_md5_melt_f3[] = MELT_RUN_HASHMD5 /* from melt-run.h */; /**** warmelt-hooks+03.cc declarations ****/ /**** MELT GENERATED DECLARATIONS for warmelt-hooks ** DO NOT EDIT ; see gcc-melt.org ****/ /****++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *** Copyright 2012 - 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-hooks**/ #define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usualmodule*/ class Melt_InitialClassyFrame_WARMELTmiHOOKS_h390879946; // forward declaration fromline 6712 typedef Melt_InitialClassyFrame_WARMELTmiHOOKS_h390879946 Melt_InitialFrame; /*** 8 MELT module variables declarations ****/ MELT_EXTERN void melt_forwarding_module_data (void); MELT_EXTERN void melt_discrforwarding_module_data (void); MELT_EXTERN void melt_marking_module_data (void); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY melt_WARMELTmiHOOKS_module_var_ptr_tab[16]; MELT_EXTERN bool MELT_MODULE_VISIBILITY melt_WARMELTmiHOOKS_module_var_flags[1]; static inline melt_ptr_t melt_module_var_fetch (int ix) { return (ix > 0 && ix <= 8)?melt_WARMELTmiHOOKS_module_var_ptr_tab[ix]:NULL; } static inline void melt_module_var_put (int ix, melt_ptr_t val) { if (ix > 0 && ix <= 8) { melt_WARMELTmiHOOKS_module_var_ptr_tab[ix]= val; melt_WARMELTmiHOOKS_module_var_flags[ix/16] = true; } } /* MELT module variables indexes */ enum { meltmodatix_none, meltmodvarix_GCC_ATTRIBUTE_DICT_symb = 1, meltmodvarix_GCC_ATTRIBUTE_INSTALLER_LIST_symb = 2, meltmodvarix_PRAGMA_PROCESSOR_symb = 3, meltmodvarix_PRAGMA_HANDLER_TUPLE_symb = 4, meltmodvarix_MELT_INPCHANBUCK_symb = 5, meltmodvarix_JSON_NAME_DICT_symb = 6, meltmodvarix_MELT_ALARMBUCKET_symb = 7, meltmodvarix_MELT_CHILDBUCK_symb = 8, meltmodatix_last }; /* end MELT module variables indexes */ /*** 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_MACRO_EXPORTER **/ MELT_EXTERN void melthook_HOOK_MACRO_EXPORTER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_SYM, melt_ptr_t meltinp1_VAL, melt_ptr_t meltinp2_CONTENV); /*declare MELT called hook #2 HOOK_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 ***/ /*** 29 extra MELT c-headers ***/ /** MELT extra c-header 1 : h697608842 **/ /* cheader for override gate in warmelt-hooks.melt */ static void melt_override_gate_callback (void* gccdata, void* userdata ATTRIBUTE_UNUSED) { bool *pgatestatus = (bool*) gccdata; bool gatsta = false; long oldgatstalng = 0, newgatstalng = 0; gcc_assert (pgatestatus != NULL); gatsta = *pgatestatus; oldgatstalng = newgatstalng = (long)gatsta; melthookproc_HOOK_OVERRIDE_GATE (oldgatstalng, &newgatstalng); gatsta = (newgatstalng != 0L); *pgatestatus = gatsta; } /* end of melt_override_gate_callback */ /** MELT extra c-header 2 : h600596833 **/ /* flag for PLUGIN_OVERRIDE_GATE */ MELT_EXTERN bool MELT_MODULE_VISIBILITY melthk_override_gate_registered_flag; /** MELT extra c-header 3 : h365838022 **/ /* flag for PLUGIN_START_UNIT */ MELT_EXTERN bool MELT_MODULE_VISIBILITY melthk_start_unit_registered_flag; /** MELT extra c-header 4 : h923888311 **/ void MELT_MODULE_VISIBILITY melt_startunithook_callback (void* gcc_data ATTRIBUTE_UNUSED, void* user_data ATTRIBUTE_UNUSED); /** MELT extra c-header 5 : h493946185 **/ /* flag for PLUGIN_FINISH_UNIT */ MELT_EXTERN bool MELT_MODULE_VISIBILITY melthk_finish_unit_registered_flag; /** MELT extra c-header 6 : h557617242 **/ void MELT_MODULE_VISIBILITY melt_finishunithook_callback (void* gcc_data ATTRIBUTE_UNUSED, void* user_data ATTRIBUTE_UNUSED); /** MELT extra c-header 7 : h311103506 **/ /* flag for PLUGIN_ALL_PASSES_START declare */ MELT_EXTERN bool MELT_MODULE_VISIBILITY melthk_all_passes_start_registered_flag; /** MELT extra c-header 8 : h906818343 **/ void MELT_MODULE_VISIBILITY melt_all_passes_start_hook_callback (void* gcc_data ATTRIBUTE_UNUSED, void* user_data ATTRIBUTE_UNUSED); /** MELT extra c-header 9 : h437226435 **/ /* flag for PLUGIN_ALL_PASSES_END declare */ MELT_EXTERN bool MELT_MODULE_VISIBILITY melthk_all_passes_end_registered_flag; /** MELT extra c-header 10 : h314368337 **/ void MELT_MODULE_VISIBILITY melt_all_passes_end_hook_callback (void* gcc_data ATTRIBUTE_UNUSED, void* user_data ATTRIBUTE_UNUSED); /** MELT extra c-header 11 : h726461425 **/ /* flag for PLUGIN_ALL_IPA_PASSES_START declare */ MELT_EXTERN bool MELT_MODULE_VISIBILITY melthk_all_ipa_passes_start_registered_flag; /** MELT extra c-header 12 : h332147569 **/ void MELT_MODULE_VISIBILITY melt_all_ipa_passes_start_hook_callback (void* gcc_data ATTRIBUTE_UNUSED, void* user_data ATTRIBUTE_UNUSED); /** MELT extra c-header 13 : h654498005 **/ /* flag for PLUGIN_ALL_IPA_PASSES_END declare */ MELT_EXTERN bool MELT_MODULE_VISIBILITY melthk_all_ipa_passes_end_registered_flag; /** MELT extra c-header 14 : h404412520 **/ void MELT_MODULE_VISIBILITY melt_all_ipa_passes_end_hook_callback (void* gcc_data ATTRIBUTE_UNUSED, void* user_data ATTRIBUTE_UNUSED); /** MELT extra c-header 15 : h996359653 **/ /* flag for PLUGIN_EARLY_GIMPLE_PASSES_START declare */ MELT_EXTERN bool MELT_MODULE_VISIBILITY melthk_early_gimple_passes_start_registered_flag; /** MELT extra c-header 16 : h767490554 **/ void MELT_MODULE_VISIBILITY melt_early_gimple_passes_start_hook_callback (void* gcc_data ATTRIBUTE_UNUSED, void* user_data ATTRIBUTE_UNUSED); /** MELT extra c-header 17 : h302736096 **/ /* flag for PLUGIN_EARLY_GIMPLE_PASSES_END declare */ MELT_EXTERN bool MELT_MODULE_VISIBILITY melthk_early_gimple_passes_end_registered_flag; /** MELT extra c-header 18 : h885295403 **/ void MELT_MODULE_VISIBILITY melt_early_gimple_passes_end_hook_callback (void* gcc_data ATTRIBUTE_UNUSED, void* user_data ATTRIBUTE_UNUSED); /** MELT extra c-header 19 : h873638779 **/ /* flag for PLUGIN_PRE_GENERICIZE declare */ MELT_EXTERN bool MELT_MODULE_VISIBILITY melthk_pre_genericize_registered_flag; /** MELT extra c-header 20 : h839663553 **/ void MELT_MODULE_VISIBILITY melt_pre_genericize_hook_callback (void* gcc_data ATTRIBUTE_UNUSED, void* user_data ATTRIBUTE_UNUSED); /** MELT extra c-header 21 : h44239696 **/ /* flag for PLUGIN_FINISH_TYPE declare */ MELT_EXTERN bool MELT_MODULE_VISIBILITY melthk_finish_type_registered_flag; /** MELT extra c-header 22 : h543668428 **/ void MELT_MODULE_VISIBILITY melt_finish_type_hook_callback (void* gcc_data ATTRIBUTE_UNUSED, void* user_data ATTRIBUTE_UNUSED); /** MELT extra c-header 23 : h873176525 **/ /* flag for PLUGIN_FINISH_DECL declare */ MELT_EXTERN bool MELT_MODULE_VISIBILITY melthk_finish_decl_registered_flag; /** MELT extra c-header 24 : h57495874 **/ void MELT_MODULE_VISIBILITY melt_finish_decl_hook_callback (void* gcc_data ATTRIBUTE_UNUSED, void* user_data ATTRIBUTE_UNUSED); /** MELT extra c-header 25 : h924642333 **/ /* flag for PLUGIN_PASS_EXECUTION declare */ MELT_EXTERN bool MELT_MODULE_VISIBILITY melthk_pass_execution_registered_flag; /** MELT extra c-header 26 : h346546371 **/ void MELT_MODULE_VISIBILITY melt_pass_execution_hook_callback (void* gcc_data ATTRIBUTE_UNUSED, void* user_data ATTRIBUTE_UNUSED); /** MELT extra c-header 27 : h847478415 **/ /* cheader for attributes in warmelt-hooks.melt */ #if MELT_GCC_VERSION >= 4009 /* GCC 4.9 or later */ #include "attribs.h" #endif /*GCC 4.9*/ MELT_EXTERN tree MELT_MODULE_VISIBILITY melt_attribute_handler_glue (tree *pnode, tree name, tree args, int flags, bool *no_add_attrs); /** MELT extra c-header 28 : h373856008 **/ /* header from warmelt-hooks.melt for poll etc... */ #include #define MELT_BUFSIZE 8192 #define MELT_POLL_DELAY_MILLISEC 500 /** MELT extra c-header 29 : h3984784 **/ /* headers before connect_to_server */ #include #include #include #include #include #include #include #include #include struct Melt_connect_info { std::string mci_service; int mci_family; int mci_socktype; int mci_protocol; socklen_t mci_addrlen; struct sockaddr_storage mci_sockaddr; }; typedef std::map melt_connect_info_map_t; /* end of headers for connect_to_server */ /*** end of 29 extra MELT c-headers ***/ /** start of declaration for hook melthook_HOOK_LOW_DEBUG_VALUE_AT**/ /** declaration of hook melthook_HOOK_LOW_DEBUG_VALUE_AT */ MELT_EXTERN void melthook_HOOK_LOW_DEBUG_VALUE_AT(melt_ptr_t melthookdatap, melt_ptr_t meltinp0_VAL, const char* meltinp1_FILENAME, long meltinp2_LINENO, const char* meltinp3_MSG, long meltinp4_COUNT) ; /** end of declaration for hook melthook_HOOK_LOW_DEBUG_VALUE_AT**/ /** start of declaration for hook melthook_HOOK_LOW_STDERR_VALUE_AT**/ /** declaration of hook melthook_HOOK_LOW_STDERR_VALUE_AT */ MELT_EXTERN void melthook_HOOK_LOW_STDERR_VALUE_AT(melt_ptr_t melthookdatap, melt_ptr_t meltinp0_VAL, const char* meltinp1_FILENAME, long meltinp2_LINENO, const char* meltinp3_MSG, long meltinp4_COUNT) ; /** end of declaration for hook melthook_HOOK_LOW_STDERR_VALUE_AT**/ /** start of declaration for hook melthook_HOOK_OVERRIDE_GATE**/ /** declaration of hook melthook_HOOK_OVERRIDE_GATE */ MELT_EXTERN void melthook_HOOK_OVERRIDE_GATE(melt_ptr_t melthookdatap, long meltinp0_BEFOREGATE, long* meltoutp0_AFTERGATE) ; /** end of declaration for hook melthook_HOOK_OVERRIDE_GATE**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_WARMELTmiHOOKS_ENABLE_OVERRIDE_GATE(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_WARMELTmiHOOKS_MAYBE_DISABLE_OVERRIDE_GATE(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_WARMELTmiHOOKS_REGISTER_OVERRIDE_GATE_FIRST(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_WARMELTmiHOOKS_REGISTER_OVERRIDE_GATE_LAST(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_WARMELTmiHOOKS_UNREGISTER_OVERRIDE_GATE_FIRST(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_WARMELTmiHOOKS_UNREGISTER_OVERRIDE_GATE_LAST(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_WARMELTmiHOOKS_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_11_WARMELTmiHOOKS_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_12_WARMELTmiHOOKS_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_); /** start of declaration for hook melthook_HOOK_START_UNIT**/ /** declaration of hook melthook_HOOK_START_UNIT */ MELT_EXTERN void melthook_HOOK_START_UNIT(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_START_UNIT**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_WARMELTmiHOOKS_ENABLE_START_UNIT(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_WARMELTmiHOOKS_AT_START_UNIT_FIRST(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_WARMELTmiHOOKS_AT_START_UNIT_LAST(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_WARMELTmiHOOKS_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_18_WARMELTmiHOOKS_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_19_WARMELTmiHOOKS_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_); /** start of declaration for hook melthook_HOOK_FINISH_UNIT**/ /** declaration of hook melthook_HOOK_FINISH_UNIT */ MELT_EXTERN void melthook_HOOK_FINISH_UNIT(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_FINISH_UNIT**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_WARMELTmiHOOKS_ENABLE_FINISH_UNIT(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_WARMELTmiHOOKS_AT_FINISH_UNIT_FIRST(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_WARMELTmiHOOKS_AT_FINISH_UNIT_LAST(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_); /** start of declaration for hook melthook_HOOK_ALL_PASSES_START**/ /** declaration of hook melthook_HOOK_ALL_PASSES_START */ MELT_EXTERN void melthook_HOOK_ALL_PASSES_START(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_ALL_PASSES_START**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_WARMELTmiHOOKS_ENABLE_ALL_PASSES_START(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_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_FIRST(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_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_LAST(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_); /** start of declaration for hook melthook_HOOK_ALL_PASSES_END**/ /** declaration of hook melthook_HOOK_ALL_PASSES_END */ MELT_EXTERN void melthook_HOOK_ALL_PASSES_END(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_ALL_PASSES_END**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_WARMELTmiHOOKS_ENABLE_ALL_PASSES_END(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_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_FIRST(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_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_LAST(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_); /** start of declaration for hook melthook_HOOK_ALL_IPA_PASSES_START**/ /** declaration of hook melthook_HOOK_ALL_IPA_PASSES_START */ MELT_EXTERN void melthook_HOOK_ALL_IPA_PASSES_START(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_ALL_IPA_PASSES_START**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_START(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_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_FIRST(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_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_LAST(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_); /** start of declaration for hook melthook_HOOK_ALL_IPA_PASSES_END**/ /** declaration of hook melthook_HOOK_ALL_IPA_PASSES_END */ MELT_EXTERN void melthook_HOOK_ALL_IPA_PASSES_END(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_ALL_IPA_PASSES_END**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_END(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_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_FIRST(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_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_LAST(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_); /** start of declaration for hook melthook_HOOK_EARLY_GIMPLE_PASSES_START**/ /** declaration of hook melthook_HOOK_EARLY_GIMPLE_PASSES_START */ MELT_EXTERN void melthook_HOOK_EARLY_GIMPLE_PASSES_START(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_EARLY_GIMPLE_PASSES_START**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_WARMELTmiHOOKS_ENABLE_EARLY_GIMPLE_PASSES_START(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_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_FIRST(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_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_LAST(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_); /** start of declaration for hook melthook_HOOK_EARLY_GIMPLE_PASSES_END**/ /** declaration of hook melthook_HOOK_EARLY_GIMPLE_PASSES_END */ MELT_EXTERN void melthook_HOOK_EARLY_GIMPLE_PASSES_END(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_EARLY_GIMPLE_PASSES_END**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_WARMELTmiHOOKS_ENABLE_EARLY_GIMPLE_PASSES_END(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_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_END_FIRST(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_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_END_LAST(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_WARMELTmiHOOKS_ENABLE_PRE_GENERICIZE(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_); /** start of declaration for hook melthook_HOOK_PRE_GENERICIZE**/ /** declaration of hook melthook_HOOK_PRE_GENERICIZE */ MELT_EXTERN void melthook_HOOK_PRE_GENERICIZE(melt_ptr_t melthookdatap, melt_treeptr_t meltinp0_TFNDECL) ; /** end of declaration for hook melthook_HOOK_PRE_GENERICIZE**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_WARMELTmiHOOKS_REGISTER_PRE_GENERICIZE_FIRST(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_WARMELTmiHOOKS_REGISTER_PRE_GENERICIZE_LAST(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_WARMELTmiHOOKS_ENABLE_FINISH_TYPE(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_); /** start of declaration for hook melthook_HOOK_FINISH_TYPE**/ /** declaration of hook melthook_HOOK_FINISH_TYPE */ MELT_EXTERN void melthook_HOOK_FINISH_TYPE(melt_ptr_t melthookdatap, melt_treeptr_t meltinp0_TFNDECL) ; /** end of declaration for hook melthook_HOOK_FINISH_TYPE**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_WARMELTmiHOOKS_REGISTER_FINISH_TYPE_FIRST(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_WARMELTmiHOOKS_REGISTER_FINISH_TYPE_LAST(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_WARMELTmiHOOKS_RUN_ENDMELTPASS_FUNCTIONS(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_WARMELTmiHOOKS_AT_END_OF_THIS_MELT_PASS_FIRST(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_WARMELTmiHOOKS_AT_END_OF_THIS_MELT_PASS_LAST(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_WARMELTmiHOOKS_ENABLE_FINISH_DECL(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_); /** start of declaration for hook melthook_HOOK_FINISH_DECL**/ /** declaration of hook melthook_HOOK_FINISH_DECL */ MELT_EXTERN void melthook_HOOK_FINISH_DECL(melt_ptr_t melthookdatap, melt_treeptr_t meltinp0_TFNDECL) ; /** end of declaration for hook melthook_HOOK_FINISH_DECL**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_WARMELTmiHOOKS_REGISTER_FINISH_DECL_FIRST(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_WARMELTmiHOOKS_REGISTER_FINISH_DECL_LAST(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_); /** start of declaration for hook melthook_HOOK_PASS_EXECUTION**/ /** declaration of hook melthook_HOOK_PASS_EXECUTION */ MELT_EXTERN void melthook_HOOK_PASS_EXECUTION(melt_ptr_t melthookdatap, const char* meltinp0_PASSNAME, long meltinp1_PASSNUM, long meltinp2_TYPENUM) ; /** end of declaration for hook melthook_HOOK_PASS_EXECUTION**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_WARMELTmiHOOKS_REGISTER_PASS_EXECUTION_FIRST(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_WARMELTmiHOOKS_REGISTER_PASS_EXECUTION_LAST(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_); /** start of declaration for hook melthook_HOOK_GIMPLE_GATE**/ /** declaration of hook melthook_HOOK_GIMPLE_GATE */ MELT_EXTERN long melthook_HOOK_GIMPLE_GATE(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_GIMPLE_GATE**/ /** start of declaration for hook melthook_HOOK_GIMPLE_EXECUTE**/ /** declaration of hook melthook_HOOK_GIMPLE_EXECUTE */ MELT_EXTERN long melthook_HOOK_GIMPLE_EXECUTE(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_GIMPLE_EXECUTE**/ /** start of declaration for hook melthook_HOOK_RTL_GATE**/ /** declaration of hook melthook_HOOK_RTL_GATE */ MELT_EXTERN long melthook_HOOK_RTL_GATE(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_RTL_GATE**/ /** start of declaration for hook melthook_HOOK_RTL_EXECUTE**/ /** declaration of hook melthook_HOOK_RTL_EXECUTE */ MELT_EXTERN long melthook_HOOK_RTL_EXECUTE(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_RTL_EXECUTE**/ /** start of declaration for hook melthook_HOOK_SIMPLE_IPA_EXECUTE**/ /** declaration of hook melthook_HOOK_SIMPLE_IPA_EXECUTE */ MELT_EXTERN long melthook_HOOK_SIMPLE_IPA_EXECUTE(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_SIMPLE_IPA_EXECUTE**/ /** start of declaration for hook melthook_HOOK_MELT_DO_INITIAL_MODE**/ /** declaration of hook melthook_HOOK_MELT_DO_INITIAL_MODE */ MELT_EXTERN void melthook_HOOK_MELT_DO_INITIAL_MODE(melt_ptr_t melthookdatap, melt_ptr_t meltinp0_MODATA, const char* meltinp1_MODSTR) ; /** end of declaration for hook melthook_HOOK_MELT_DO_INITIAL_MODE**/ /** start of declaration for hook melthook_HOOK_INSTALL_ATTRIBUTES**/ /** declaration of hook melthook_HOOK_INSTALL_ATTRIBUTES */ MELT_EXTERN void melthook_HOOK_INSTALL_ATTRIBUTES(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_INSTALL_ATTRIBUTES**/ /** start of declaration for hook melthook_HOOK_HANDLE_ATTRIBUTE**/ /** declaration of hook melthook_HOOK_HANDLE_ATTRIBUTE */ MELT_EXTERN melt_treeptr_t melthook_HOOK_HANDLE_ATTRIBUTE(melt_ptr_t melthookdatap, melt_treeptr_t meltinp0_TR_IN_NODE, melt_treeptr_t meltinp1_TR_NAME, melt_treeptr_t meltinp2_TR_ARGS, long meltinp3_FLAGS, melt_treeptr_t* meltoutp0_TR_OUT_NODE, long* meltoutp1_OUT_NO_ADD_ATTRS) ; /** end of declaration for hook melthook_HOOK_HANDLE_ATTRIBUTE**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_WARMELTmiHOOKS_REGISTER_GCC_ATTRIBUTE(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_WARMELTmiHOOKS_MELT_REGISTER_GCC_ATTRIBUTE_AT(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_76_WARMELTmiHOOKS_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_); /** start of declaration for hook melthook_HOOK_EXIT_FINALIZER**/ /** declaration of hook melthook_HOOK_EXIT_FINALIZER */ MELT_EXTERN void melthook_HOOK_EXIT_FINALIZER(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_EXIT_FINALIZER**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_WARMELTmiHOOKS_AT_EXIT_FIRST(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_79_WARMELTmiHOOKS_AT_EXIT_LAST(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_80_WARMELTmiHOOKS_REGISTER_PRAGMA_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_); /** start of declaration for hook melthook_HOOK_PROCESS_PRAGMA**/ /** declaration of hook melthook_HOOK_PROCESS_PRAGMA */ MELT_EXTERN void melthook_HOOK_PROCESS_PRAGMA(melt_ptr_t melthookdatap, long meltinp0_LIX) ; /** end of declaration for hook melthook_HOOK_PROCESS_PRAGMA**/ /** start of declaration for hook melthook_HOOK_REGISTER_PRAGMAS**/ /** declaration of hook melthook_HOOK_REGISTER_PRAGMAS */ MELT_EXTERN void melthook_HOOK_REGISTER_PRAGMAS(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_REGISTER_PRAGMAS**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER(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_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER(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_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS(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_); /** start of declaration for hook melthook_HOOK_POLL_INPUTS**/ /** declaration of hook melthook_HOOK_POLL_INPUTS */ MELT_EXTERN void melthook_HOOK_POLL_INPUTS(melt_ptr_t melthookdatap, long meltinp0_DELAYMS) ; /** end of declaration for hook melthook_HOOK_POLL_INPUTS**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS(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_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT(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_89_WARMELTmiHOOKS_GET_POLLING_INPUT(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_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER(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_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER(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_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL(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_93_WARMELTmiHOOKS_CONNECT_TO_SERVER(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_94_WARMELTmiHOOKS_JSON_LEXER(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_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE(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_96_WARMELTmiHOOKS_MAKE_JSON_PARSER(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_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_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_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL(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_99_WARMELTmiHOOKS_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_100_WARMELTmiHOOKS_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_); /** start of declaration for hook melthook_HOOK_HANDLE_SIGIO**/ /** declaration of hook melthook_HOOK_HANDLE_SIGIO */ MELT_EXTERN void melthook_HOOK_HANDLE_SIGIO(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_HANDLE_SIGIO**/ /** start of declaration for hook melthook_HOOK_HANDLE_SIGALRM**/ /** declaration of hook melthook_HOOK_HANDLE_SIGALRM */ MELT_EXTERN void melthook_HOOK_HANDLE_SIGALRM(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_HANDLE_SIGALRM**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER(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_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER(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_); /** start of declaration for hook melthook_HOOK_HANDLE_SIGCHLD**/ /** declaration of hook melthook_HOOK_HANDLE_SIGCHLD */ MELT_EXTERN void melthook_HOOK_HANDLE_SIGCHLD(melt_ptr_t melthookdatap) ; /** end of declaration for hook melthook_HOOK_HANDLE_SIGCHLD**/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER(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_107_WARMELTmiHOOKS_UNREGISTER_CHILD_PROCESS_HANDLER(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_WARMELTmiHOOKS_h390879946 /*opaqueinitialclassy*/ meltinitial_frame_t; /* define different names when debugging or not */ #if MELT_HAVE_DEBUG > 0 MELT_EXTERN const char meltmodule_WARMELTmiHOOKS__melt_have_debug_enabled[]; #define melt_have_debug_string meltmodule_WARMELTmiHOOKS__melt_have_debug_enabled #else /*!MELT_HAVE_DEBUG*/ MELT_EXTERN const char meltmodule_WARMELTmiHOOKS__melt_have_debug_disabled[]; #define melt_have_debug_string meltmodule_WARMELTmiHOOKS__melt_have_debug_disabled #endif /*!MELT_HAVE_DEBUG*/ void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_0 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_1 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_2 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_3 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_4 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_5 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_6 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_7 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_8 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_9 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_10 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_11 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_12 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_13 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_14 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_15 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiHOOKS__initialmeltchunk_16 (meltinitial_frame_t*, char*); //declare /**** warmelt-hooks+03.cc implementations ****/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST(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_79_WARMELTmiHOOKS_AT_EXIT_LAST_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_79_WARMELTmiHOOKS_AT_EXIT_LAST fromline 1752 */ /** start of frame for meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST// fromline 1568 : public Melt_CallFrameWithValues<3> { 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_79_WARMELTmiHOOKS_AT_EXIT_LAST(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<3> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST), clos) {}; MeltFrame_meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST() //the constructor fromline 1642 : Melt_CallFrameWithValues<3> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<3> (fil,lin, sizeof(MeltFrame_meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST)) {}; MeltFrame_meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<3> (fil,lin, sizeof(MeltFrame_meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST /** end of frame for meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST fromline 1697**/ /* end of frame for routine meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST fromline 1756 */ /* classy proc frame meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST */ MeltFrame_meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST 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("AT_EXIT_LAST", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:2697:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:2700:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!FINAL_EXIT_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 3, "DELQU_LAST"); /*_.LASTLIST__V3*/ meltfptr[2] = slot; }; ; MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:2702:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ meltgc_append_list((melt_ptr_t)(/*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])); } ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-hooks.melt:2700:/ clear"); /*clear*/ /*_.LASTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("AT_EXIT_LAST", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_79_WARMELTmiHOOKS_AT_EXIT_LAST*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_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_) { long current_blocklevel_signals_meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR_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_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR fromline 1752 */ /** start of frame for meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR// fromline 1568 : public Melt_CallFrameWithValues<13> { 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_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR(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_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR), clos) {}; MeltFrame_meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR() //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_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<13> (fil,lin, sizeof(MeltFrame_meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR)) {}; MeltFrame_meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<13> (fil,lin, sizeof(MeltFrame_meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR /** end of frame for meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR fromline 1697**/ /* end of frame for routine meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR fromline 1756 */ /* classy proc frame meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR */ MeltFrame_meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR 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("REGISTER_PRAGMA_PROCESSOR", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:2713:/ getarg"); /*_.PFUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2714:/ 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-hooks.melt:2714:/ 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 */ ;; /*^compute*/ /*_.PRAGMA_PROCESSOR__V4*/ meltfptr[3] = (melt_module_var_fetch (meltmodvarix_PRAGMA_PROCESSOR_symb));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:2714:/ 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-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2714; /*^apply.arg*/ argtab[3].meltbp_cstring = "register_pragma_processor pfun="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PFUN__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " pragma_processor="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.PRAGMA_PROCESSOR__V4*/ meltfptr[3]; /*_.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___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2714:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.PRAGMA_PROCESSOR__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V3*/ meltfptr[2] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2714:/ 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*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2715:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_.PRAGMA_PROCESSOR__V7*/ meltfptr[4] = (melt_module_var_fetch (meltmodvarix_PRAGMA_PROCESSOR_symb));; /*^compute*/ /*_#NULL__L3*/ meltfnum[1] = (/*null*/(/*_.PRAGMA_PROCESSOR__V7*/ meltfptr[4]) == NULL);; MELT_LOCATION("warmelt-hooks.melt:2715:/ cond"); /*cond*/ if (/*_#NULL__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[2] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:2715:/ cond.else"); /*^block*/ /*anyblock*/ { /*_.PRAGMA_PROCESSOR__V9*/ meltfptr[8] = (melt_module_var_fetch (meltmodvarix_PRAGMA_PROCESSOR_symb));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:2715:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check no pragma_processor"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2715; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.PRAGMA_PROCESSOR__V9*/ meltfptr[8]; /*_.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___V8*/ meltfptr[2] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2715:/ clear"); /*clear*/ /*_.PRAGMA_PROCESSOR__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[3] = /*_._IFELSE___V8*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2715:/ clear"); /*clear*/ /*_.PRAGMA_PROCESSOR__V7*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-hooks.melt:2716:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "register_pragma_processor"), (12)); #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L4*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.PFUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:2717:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:2718:/ putmodvar"); melt_module_var_put (meltmodvarix_PRAGMA_PROCESSOR_symb, (melt_ptr_t)(/*_.PFUN__V2*/ meltfptr[1])); ; /*epilog*/ } ; } /*noelse*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2719:/ 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-hooks.melt:2719:/ 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 */ ;; /*^compute*/ /*_.PRAGMA_PROCESSOR__V12*/ meltfptr[9] = (melt_module_var_fetch (meltmodvarix_PRAGMA_PROCESSOR_symb));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:2719:/ 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-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2719; /*^apply.arg*/ argtab[3].meltbp_cstring = "register_pragma_processor now pragma_processor="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PRAGMA_PROCESSOR__V12*/ meltfptr[9]; /*_.MELT_DEBUG_FUN__V13*/ 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___V11*/ meltfptr[8] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2719:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.PRAGMA_PROCESSOR__V12*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V11*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2719:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V11*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2713:/ clear"); /*clear*/ /*_.IFCPP___V6*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L4*/ meltfnum[0] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("REGISTER_PRAGMA_PROCESSOR", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_80_WARMELTmiHOOKS_REGISTER_PRAGMA_PROCESSOR*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER(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_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER_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_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER fromline 1752 */ /** start of frame for meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER// fromline 1568 : public Melt_CallFrameWithValues<25> { public: /* fromline 1572*/ long mcfr_varnum[19]; /*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_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER(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_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER), clos) {}; MeltFrame_meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER() //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_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<25> (fil,lin, sizeof(MeltFrame_meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER)) {}; MeltFrame_meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<25> (fil,lin, sizeof(MeltFrame_meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER /** end of frame for meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER fromline 1697**/ /* end of frame for routine meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER fromline 1756 */ /* classy proc frame meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER */ MeltFrame_meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER 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("ADD_PRAGMA_HANDLER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:2755:/ getarg"); /*_.PH__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2759:/ 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-hooks.melt:2759:/ 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 */ ;; /*^compute*/ /*_.PRAGMA_HANDLER_TUPLE__V4*/ meltfptr[3] = (melt_module_var_fetch (meltmodvarix_PRAGMA_HANDLER_TUPLE_symb));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:2759:/ 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-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2759; /*^apply.arg*/ argtab[3].meltbp_cstring = "add_pragma_handler start ph="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PH__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " pragma_handler_tuple="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.PRAGMA_HANDLER_TUPLE__V4*/ meltfptr[3]; /*_.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___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2759:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.PRAGMA_HANDLER_TUPLE__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V3*/ meltfptr[2] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2759:/ 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-hooks.melt:2761:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "add_pragma_handler"), (12)); #endif ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2762:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.PH__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_GCC_PRAGMA*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-hooks.melt:2762:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:2762:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check ph"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2762; /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2762:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[2] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[3] = /*_._IFELSE___V7*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2762:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V7*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_.PRAGMA_HANDLER_TUPLE__V9*/ meltfptr[2] = (melt_module_var_fetch (meltmodvarix_PRAGMA_HANDLER_TUPLE_symb));; /*^compute*/ /*_#NULL__L4*/ meltfnum[0] = (/*null*/(/*_.PRAGMA_HANDLER_TUPLE__V9*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-hooks.melt:2763:/ cond"); /*cond*/ if (/*_#NULL__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_.MAKE_MULTIPLE__V10*/ meltfptr[4] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[3])), (16)));; MELT_LOCATION("warmelt-hooks.melt:2764:/ putmodvar"); melt_module_var_put (meltmodvarix_PRAGMA_HANDLER_TUPLE_symb, (melt_ptr_t)(/*_.MAKE_MULTIPLE__V10*/ meltfptr[4])); ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2763:/ clear"); /*clear*/ /*_.MAKE_MULTIPLE__V10*/ meltfptr[4] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-hooks.melt:2765:/ quasiblock"); /*_#LIX__L5*/ meltfnum[1] = 0;; /*^compute*/ /*_.PRAGMA_HANDLER_TUPLE__V12*/ meltfptr[11] = (melt_module_var_fetch (meltmodvarix_PRAGMA_HANDLER_TUPLE_symb));; /*^compute*/ /*_#NBPH__L6*/ meltfnum[5] = (melt_multiple_length((melt_ptr_t)(/*_.PRAGMA_HANDLER_TUPLE__V12*/ meltfptr[11])));; /*^compute*/ /*_.PRAGMA_HANDLER_TUPLE__V13*/ meltfptr[12] = (melt_module_var_fetch (meltmodvarix_PRAGMA_HANDLER_TUPLE_symb));; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.PRAGMA_HANDLER_TUPLE__V13*/ meltfptr[12]); for (/*_#IX__L7*/ meltfnum[6] = 0; (/*_#IX__L7*/ meltfnum[6] >= 0) && (/*_#IX__L7*/ meltfnum[6] < meltcit1__EACHTUP_ln); /*_#IX__L7*/ meltfnum[6]++) { /*_.COMP__V14*/ meltfptr[13] = melt_multiple_nth((melt_ptr_t)(/*_.PRAGMA_HANDLER_TUPLE__V13*/ meltfptr[12]), /*_#IX__L7*/ meltfnum[6]); MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:2771:/ cond"); /*cond*/ if (/*_#IX__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:2772:/ cond"); /*cond*/ if (/*_.COMP__V14*/ meltfptr[13]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:2772:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:2773:/ compute"); /*_#LIX__L5*/ meltfnum[1] = /*_#SETQ___L8*/ meltfnum[7] = /*_#IX__L7*/ meltfnum[6];; /*_#plI__L9*/ meltfnum[8] = ((/*_#NBPH__L6*/ meltfnum[5]) + (1));; MELT_LOCATION("warmelt-hooks.melt:2774:/ compute"); /*_#IX__L7*/ meltfnum[6] = /*_#SETQ___L10*/ meltfnum[9] = /*_#plI__L9*/ meltfnum[8];; { MELT_LOCATION("warmelt-hooks.melt:2775:/ locexp"); /*void*/(void)0; } ; MELT_LOCATION("warmelt-hooks.melt:2772:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_#SETQ___L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L10*/ meltfnum[9] = 0 ; } ; } ; MELT_LOCATION("warmelt-hooks.melt:2771:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[16] = /*_._IFELSE___V16*/ meltfptr[15];; /*^compute*/ /*_._IF___V15*/ meltfptr[14] = /*_.PROGN___V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2771:/ clear"); /*clear*/ /*_._IFELSE___V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V17*/ meltfptr[16] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V15*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; if (/*_#IX__L7*/ meltfnum[6]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-hooks.melt:2768:/ clear"); /*clear*/ /*_.COMP__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V15*/ meltfptr[14] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:2776:/ cond"); /*cond*/ if (/*_#LIX__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[15] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:2776:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:2777:/ quasiblock"); /*_#plI__L11*/ meltfnum[7] = ((/*_#NBPH__L6*/ meltfnum[5]) + (16));; /*^compute*/ /*_#diI__L12*/ meltfnum[8] = (melt_idiv((/*_#NBPH__L6*/ meltfnum[5]), (8)));; /*^compute*/ /*_#stI__L13*/ meltfnum[9] = ((2) * (/*_#diI__L12*/ meltfnum[8]));; /*^compute*/ /*_#NEWNBPH__L14*/ meltfnum[13] = ((/*_#plI__L11*/ meltfnum[7]) + (/*_#stI__L13*/ meltfnum[9]));; /*^compute*/ /*_.NEWTUP__V19*/ meltfptr[16] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[3])), (/*_#NEWNBPH__L14*/ meltfnum[13])));; /*^compute*/ /*_.PRAGMA_HANDLER_TUPLE__V20*/ meltfptr[19] = (melt_module_var_fetch (meltmodvarix_PRAGMA_HANDLER_TUPLE_symb));; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit2__EACHTUP */ long meltcit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.PRAGMA_HANDLER_TUPLE__V20*/ meltfptr[19]); for (/*_#IX__L15*/ meltfnum[14] = 0; (/*_#IX__L15*/ meltfnum[14] >= 0) && (/*_#IX__L15*/ meltfnum[14] < meltcit2__EACHTUP_ln); /*_#IX__L15*/ meltfnum[14]++) { /*_.COMP__V21*/ meltfptr[20] = melt_multiple_nth((melt_ptr_t)(/*_.PRAGMA_HANDLER_TUPLE__V20*/ meltfptr[19]), /*_#IX__L15*/ meltfnum[14]); MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:2783:/ cond"); /*cond*/ if (/*_#IX__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ meltgc_multiple_put_nth((melt_ptr_t)(/*_.NEWTUP__V19*/ meltfptr[16]), (/*_#IX__L15*/ meltfnum[14]), (melt_ptr_t)(/*_.COMP__V21*/ meltfptr[20])); } ; /*epilog*/ } ; } /*noelse*/ ; if (/*_#IX__L15*/ meltfnum[14]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-hooks.melt:2780:/ clear"); /*clear*/ /*_.COMP__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L15*/ meltfnum[14] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-hooks.melt:2784:/ putmodvar"); melt_module_var_put (meltmodvarix_PRAGMA_HANDLER_TUPLE_symb, (melt_ptr_t)(/*_.NEWTUP__V19*/ meltfptr[16])); ; MELT_LOCATION("warmelt-hooks.melt:2785:/ compute"); /*_#LIX__L5*/ meltfnum[1] = /*_#SETQ___L16*/ meltfnum[15] = /*_#NBPH__L6*/ meltfnum[5];; MELT_LOCATION("warmelt-hooks.melt:2786:/ compute"); /*_#NBPH__L6*/ meltfnum[5] = /*_#SETQ___L17*/ meltfnum[16] = /*_#NEWNBPH__L14*/ meltfnum[13];; { MELT_LOCATION("warmelt-hooks.melt:2787:/ locexp"); /*void*/(void)0; } ; MELT_LOCATION("warmelt-hooks.melt:2777:/ clear"); /*clear*/ /*_#plI__L11*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#diI__L12*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#stI__L13*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_#NEWNBPH__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.NEWTUP__V19*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.PRAGMA_HANDLER_TUPLE__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L16*/ meltfnum[15] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L17*/ meltfnum[16] = 0 ; MELT_LOCATION("warmelt-hooks.melt:2776:/ quasiblock"); /*epilog*/ } ; } ; { MELT_LOCATION("warmelt-hooks.melt:2789:/ locexp"); melt_put_int((melt_ptr_t)(/*_.PH__V2*/ meltfptr[1]), (/*_#LIX__L5*/ meltfnum[1])); } ; /*_.PRAGMA_HANDLER_TUPLE__V22*/ meltfptr[16] = (melt_module_var_fetch (meltmodvarix_PRAGMA_HANDLER_TUPLE_symb));; { MELT_LOCATION("warmelt-hooks.melt:2790:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.PRAGMA_HANDLER_TUPLE__V22*/ meltfptr[16]), (/*_#LIX__L5*/ meltfnum[1]), (melt_ptr_t)(/*_.PH__V2*/ meltfptr[1])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2791:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L18*/ meltfnum[7] = /*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-hooks.melt:2791:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L19*/ 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-hooks.melt:2791:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L19*/ meltfnum[8]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2791; /*^apply.arg*/ argtab[3].meltbp_cstring = "add_pragma_handler ph="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PH__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " lix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#LIX__L5*/ meltfnum[1]; /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V23*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2791:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V23*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2791:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[7] = 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*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:2792:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.PH__V2*/ meltfptr[1];; { MELT_LOCATION("warmelt-hooks.melt:2792:/ 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___V11*/ meltfptr[4] = /*_.RETURN___V25*/ meltfptr[23];; MELT_LOCATION("warmelt-hooks.melt:2765:/ clear"); /*clear*/ /*_#LIX__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.PRAGMA_HANDLER_TUPLE__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#NBPH__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.PRAGMA_HANDLER_TUPLE__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V18*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.PRAGMA_HANDLER_TUPLE__V22*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V25*/ meltfptr[23] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:2755:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[4];; { MELT_LOCATION("warmelt-hooks.melt:2755:/ 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[3] = 0 ; /*^clear*/ /*clear*/ /*_.PRAGMA_HANDLER_TUPLE__V9*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V11*/ meltfptr[4] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("ADD_PRAGMA_HANDLER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_83_WARMELTmiHOOKS_ADD_PRAGMA_HANDLER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER(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_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER_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_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER fromline 1752 */ /** start of frame for meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER// fromline 1568 : public Melt_CallFrameWithValues<11> { 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_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER(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_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER), clos) {}; MeltFrame_meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER() //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_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER)) {}; MeltFrame_meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER /** end of frame for meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER fromline 1697**/ /* end of frame for routine meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER fromline 1756 */ /* classy proc frame meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER */ MeltFrame_meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER 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("REMOVE_PRAGMA_HANDLER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:2796:/ getarg"); /*_.PH__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2799:/ 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-hooks.melt:2799:/ 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-hooks.melt:2799:/ 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-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2799; /*^apply.arg*/ argtab[3].meltbp_cstring = "remove_pragma_handler ph="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.PH__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-hooks.melt:2799:/ 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-hooks.melt:2799:/ 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-hooks.melt:2800:/ locexp"); #if MELT_HAVE_DEBUG > 0 if (melt_need_debug (0)) melt_dbgshortbacktrace(( "remove_pragma_handler"), (12)); #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#IS_INTEGERBOX__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.PH__V2*/ meltfptr[1])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-hooks.melt:2801:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_.PRAGMA_HANDLER_TUPLE__V6*/ meltfptr[2] = (melt_module_var_fetch (meltmodvarix_PRAGMA_HANDLER_TUPLE_symb));; /*^compute*/ /*_#GET_INT__L4*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.PH__V2*/ meltfptr[1])));; /*^compute*/ /*_.MULTIPLE_NTH__V7*/ meltfptr[6] = (melt_multiple_nth((melt_ptr_t)(/*_.PRAGMA_HANDLER_TUPLE__V6*/ meltfptr[2]), (/*_#GET_INT__L4*/ meltfnum[0])));; MELT_LOCATION("warmelt-hooks.melt:2802:/ compute"); /*_.PH__V2*/ meltfptr[1] = /*_.SETQ___V8*/ meltfptr[7] = /*_.MULTIPLE_NTH__V7*/ meltfptr[6];; /*_._IF___V5*/ meltfptr[3] = /*_.SETQ___V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2801:/ clear"); /*clear*/ /*_.PRAGMA_HANDLER_TUPLE__V6*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MULTIPLE_NTH__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V8*/ meltfptr[7] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V5*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PH__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_GCC_PRAGMA*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-hooks.melt:2803:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:2804:/ quasiblock"); /*_#PHRK__L6*/ meltfnum[5] = (melt_get_int((melt_ptr_t)(/*_.PH__V2*/ meltfptr[1])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_.PRAGMA_HANDLER_TUPLE__V9*/ meltfptr[2] = (melt_module_var_fetch (meltmodvarix_PRAGMA_HANDLER_TUPLE_symb));; /*^compute*/ /*_.MULTIPLE_NTH__V10*/ meltfptr[6] = (melt_multiple_nth((melt_ptr_t)(/*_.PRAGMA_HANDLER_TUPLE__V9*/ meltfptr[2]), (/*_#PHRK__L6*/ meltfnum[5])));; /*^compute*/ /*_#eqeq__L7*/ meltfnum[6] = ((/*_.MULTIPLE_NTH__V10*/ meltfptr[6]) == (/*_.PH__V2*/ meltfptr[1]));; MELT_LOCATION("warmelt-hooks.melt:2806:/ cond"); /*cond*/ if (/*_#eqeq__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_.PRAGMA_HANDLER_TUPLE__V11*/ meltfptr[7] = (melt_module_var_fetch (meltmodvarix_PRAGMA_HANDLER_TUPLE_symb));; { MELT_LOCATION("warmelt-hooks.melt:2807:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.PRAGMA_HANDLER_TUPLE__V11*/ meltfptr[7]), (/*_#PHRK__L6*/ meltfnum[5]), (melt_ptr_t)((/*nil*/NULL))); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2806:/ clear"); /*clear*/ /*_.PRAGMA_HANDLER_TUPLE__V11*/ meltfptr[7] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-hooks.melt:2804:/ clear"); /*clear*/ /*_#PHRK__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.PRAGMA_HANDLER_TUPLE__V9*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.MULTIPLE_NTH__V10*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_#eqeq__L7*/ meltfnum[6] = 0 ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2796:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V5*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("REMOVE_PRAGMA_HANDLER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_84_WARMELTmiHOOKS_REMOVE_PRAGMA_HANDLER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS(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_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS_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_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS fromline 1752 */ /** start of frame for meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS// fromline 1568 : public Melt_CallFrameWithValues<60> { public: /* fromline 1572*/ long mcfr_varnum[33]; /*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_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<60> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS), clos) {}; MeltFrame_meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS() //the constructor fromline 1642 : Melt_CallFrameWithValues<60> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<60> (fil,lin, sizeof(MeltFrame_meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS)) {}; MeltFrame_meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<60> (fil,lin, sizeof(MeltFrame_meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS /** end of frame for meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS fromline 1697**/ /* end of frame for routine meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS fromline 1756 */ /* classy proc frame meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS */ MeltFrame_meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS 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("MELT_INVOKE_INPUT_CALLBACKS", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:2892:/ getarg"); /*_.TUPINCH__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.TUPSTATE__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.TUPSTATE__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#NBINS__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2896:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L2*/ 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-hooks.melt:2896:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = /* 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-hooks.melt:2896:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L3*/ meltfnum[2]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2896; /*^apply.arg*/ argtab[3].meltbp_cstring = "melt_invoke_input_callbacks tupinch="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TUPINCH__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n.. tupstate="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.TUPSTATE__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[7].meltbp_cstring = "\n.. nbins="; /*^apply.arg*/ argtab[8].meltbp_long = /*_#NBINS__L1*/ meltfnum[0]; /*_.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 MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2896:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2896:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 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*/ ; /*citerblock BLOCK_SIGNALS*/ { /* block_signals meltcit1__BLKSIGNAL start */ long meltcit1__BLKSIGNAL_lev = melt_blocklevel_signals; melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev + 1; MELT_LOCATION("warmelt-hooks.melt:2901:/ quasiblock"); /*_.REMOVELIST__V6*/ meltfptr[4] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[1]))));; /*^compute*/ /*_.BUCK__V7*/ meltfptr[3] = (melt_module_var_fetch (meltmodvarix_MELT_INPCHANBUCK_symb));; /*^compute*/ /*_#miI__L4*/ meltfnum[2] = ((/*_#NBINS__L1*/ meltfnum[0]) - (1));; /*citerblock FOREACH_LONG_UPTO*/ { /* foreach_long_upto start meltcit2__EACHLONG */ long meltcit2__EACHLONG_min = 0; long meltcit2__EACHLONG_max = /*_#miI__L4*/ meltfnum[2]; long meltcit2__EACHLONG_cur = 0; for (meltcit2__EACHLONG_cur = meltcit2__EACHLONG_min; meltcit2__EACHLONG_cur <= meltcit2__EACHLONG_max; meltcit2__EACHLONG_cur ++) { /*_#IX__L5*/ meltfnum[1] = meltcit2__EACHLONG_cur; MELT_LOCATION("warmelt-hooks.melt:2907:/ quasiblock"); /*_.CURINCH__V9*/ meltfptr[8] = (melt_multiple_nth((melt_ptr_t)(/*_.TUPINCH__V2*/ meltfptr[1]), (/*_#IX__L5*/ meltfnum[1])));; /*^compute*/ /*_.CURSTATE__V10*/ meltfptr[9] = (melt_multiple_nth((melt_ptr_t)(/*_.TUPSTATE__V3*/ meltfptr[2]), (/*_#IX__L5*/ meltfnum[1])));; /*^compute*/ /*_#CURFD__L6*/ meltfnum[5] = (melt_get_int((melt_ptr_t)(/*_.CURINCH__V9*/ meltfptr[8])));; /*^compute*/ /*_#READCNT__L7*/ meltfnum[6] = -2;; MELT_LOCATION("warmelt-hooks.melt:2911:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINCH__V9*/ meltfptr[8]), (melt_ptr_t)((/*!CLASS_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINCH__V9*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 1, "INCH_SBUF"); /*_.SBUF__V11*/ meltfptr[10] = slot; }; ; } else /*^cond.else*/ { /*_.SBUF__V11*/ meltfptr[10] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-hooks.melt:2912:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINCH__V9*/ meltfptr[8]), (melt_ptr_t)((/*!CLASS_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINCH__V9*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 2, "INCH_CLOS"); /*_.CLOS__V12*/ meltfptr[11] = slot; }; ; } else /*^cond.else*/ { /*_.CLOS__V12*/ meltfptr[11] = /*reallynil*/ NULL ;; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2914:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = /*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-hooks.melt:2914:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*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-hooks.melt:2914:/ apply"); /*apply*/ { union meltparam_un argtab[11]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L9*/ meltfnum[8]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2914; /*^apply.arg*/ argtab[3].meltbp_cstring = "melt_invoke_input_callbacks ix#"; /*^apply.arg*/ argtab[4].meltbp_long = /*_#IX__L5*/ meltfnum[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " curfd#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#CURFD__L6*/ meltfnum[5]; /*^apply.arg*/ argtab[7].meltbp_cstring = " curinch="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.CURINCH__V9*/ meltfptr[8]; /*^apply.arg*/ argtab[9].meltbp_cstring = "\n.. curstate="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.CURSTATE__V10*/ meltfptr[9]; /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 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_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V13*/ meltfptr[12] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2914:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V13*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2914:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V13*/ meltfptr[12] = 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-hooks.melt:2916:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L10*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.CURINCH__V9*/ meltfptr[8]), (melt_ptr_t)((/*!CLASS_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-hooks.melt:2916:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[12] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:2916:/ 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 curinch"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2916; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURINCH__V9*/ meltfptr[8]; /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V16*/ meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2916:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; } ; } ; /*_.IFCPP___V15*/ meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2916:/ clear"); /*clear*/ /*_#IS_A__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V16*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V15*/ meltfptr[13] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2917:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#gteqI__L11*/ meltfnum[7] = ((/*_#CURFD__L6*/ meltfnum[5]) >= (0));; MELT_LOCATION("warmelt-hooks.melt:2917:/ cond"); /*cond*/ if (/*_#gteqI__L11*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[12] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:2917:/ 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 curfd"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2917; /*^apply.arg*/ argtab[3].meltbp_long = /*_#CURFD__L6*/ meltfnum[5]; /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V19*/ meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2917:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; } ; } ; /*_.IFCPP___V18*/ meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2917:/ clear"); /*clear*/ /*_#gteqI__L11*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V19*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V18*/ meltfptr[16] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:2918:/ cond"); /*cond*/ if (/*_.CURSTATE__V10*/ meltfptr[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:2920:/ locexp"); /* melt_invoke_input_callbacks READ_CHK__1 */ static char rdbuf[MELT_BUFSIZE] ; memset (&rdbuf, 0, sizeof (rdbuf)) ; /*_#READCNT__L7*/ meltfnum[6] = read (/*_#CURFD__L6*/ meltfnum[5], rdbuf, sizeof(rdbuf)) ; if (/*_#READCNT__L7*/ meltfnum[6] > 0) meltgc_add_out_raw_len ((melt_ptr_t) /*_.SBUF__V11*/ meltfptr[10], rdbuf, /*_#READCNT__L7*/ meltfnum[6]) ; ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2929:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L12*/ 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-hooks.melt:2929:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L13*/ 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-hooks.melt:2929:/ apply"); /*apply*/ { union meltparam_un argtab[11]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L13*/ meltfnum[7]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2929; /*^apply.arg*/ argtab[3].meltbp_cstring = "melt_invoke_input_callbacks"; /*^apply.arg*/ argtab[4].meltbp_cstring = "after read curfd="; /*^apply.arg*/ argtab[5].meltbp_long = /*_#CURFD__L6*/ meltfnum[5]; /*^apply.arg*/ argtab[6].meltbp_cstring = ", readcnt="; /*^apply.arg*/ argtab[7].meltbp_long = /*_#READCNT__L7*/ meltfnum[6]; /*^apply.arg*/ argtab[8].meltbp_cstring = ", sbuf="; /*^apply.arg*/ argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V11*/ meltfptr[10]; /*^apply.arg*/ argtab[10].meltbp_cstring = "\n"; /*_.MELT_DEBUG_FUN__V22*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V21*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2929:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[12] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V21*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2929:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[8] = 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(); ; /*_#eqeqI__L14*/ meltfnum[7] = ((/*_#READCNT__L7*/ meltfnum[6]) == (0));; MELT_LOCATION("warmelt-hooks.melt:2931:/ cond"); /*cond*/ if (/*_#eqeqI__L14*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:2932:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.REMOVELIST__V6*/ meltfptr[4]), (melt_ptr_t)(/*_.CURINCH__V9*/ meltfptr[8])); } ; MELT_LOCATION("warmelt-hooks.melt:2933:/ compute"); /*_.CURSTATE__V10*/ meltfptr[9] = /*_.SETQ___V24*/ meltfptr[19] = (/*nil*/NULL);; MELT_LOCATION("warmelt-hooks.melt:2931:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[24] = /*_.SETQ___V24*/ meltfptr[19];; /*^compute*/ /*_._IF___V23*/ meltfptr[12] = /*_.PROGN___V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2931:/ clear"); /*clear*/ /*_.SETQ___V24*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V25*/ meltfptr[24] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V23*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2934:/ locexp"); /*void*/(void)0; } ; MELT_LOCATION("warmelt-hooks.melt:2919:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2918:/ clear"); /*clear*/ /*_#eqeqI__L14*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V23*/ meltfptr[12] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2937:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L15*/ 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-hooks.melt:2937:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L16*/ 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-hooks.melt:2937:/ apply"); /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L16*/ meltfnum[7]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2937; /*^apply.arg*/ argtab[3].meltbp_cstring = "melt_invoke_input_callbacks"; /*^apply.arg*/ argtab[4].meltbp_cstring = " no curstate curinch="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.CURINCH__V9*/ meltfptr[8]; /*_.MELT_DEBUG_FUN__V27*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V26*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2937:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[24] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V26*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2937:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V26*/ 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-hooks.melt:2938:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.REMOVELIST__V6*/ meltfptr[4]), (melt_ptr_t)(/*_.CURINCH__V9*/ meltfptr[8])); } ; MELT_LOCATION("warmelt-hooks.melt:2936:/ quasiblock"); /*epilog*/ } ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2940:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L17*/ meltfnum[7] = /*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-hooks.melt:2940:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L18*/ 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-hooks.melt:2940:/ apply"); /*apply*/ { union meltparam_un argtab[10]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L18*/ meltfnum[8]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2940; /*^apply.arg*/ argtab[3].meltbp_cstring = "melt_invoke_input_callbacks"; /*^apply.arg*/ argtab[4].meltbp_cstring = " readcnt="; /*^apply.arg*/ argtab[5].meltbp_long = /*_#READCNT__L7*/ meltfnum[6]; /*^apply.arg*/ argtab[6].meltbp_cstring = " sbuf="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V11*/ meltfptr[10]; /*^apply.arg*/ argtab[8].meltbp_cstring = ";\n curinch="; /*^apply.arg*/ argtab[9].meltbp_aptr = (melt_ptr_t*) &/*_.CURINCH__V9*/ meltfptr[8]; /*_.MELT_DEBUG_FUN__V29*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V28*/ meltfptr[12] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2940:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ meltfptr[24] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V28*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2940:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V28*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_A__L19*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.CURINCH__V9*/ meltfptr[8]), (melt_ptr_t)((/*!CLASS_PARAGRAPH_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-hooks.melt:2942:/ cond"); /*cond*/ if (/*_#IS_A__L19*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:2944:/ loop"); /*loop*/ { meltlabloop_SCANLOOP_1:;/*^loopbody*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:2946:/ quasiblock"); /*_#STOP__L20*/ meltfnum[7] = 0;; /*^compute*/ /*_.SEQV__V33*/ meltfptr[32] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:2949:/ locexp"); /* melt_invoke_input_callbacks EAT_CHK__1 */ const char* bufdata = melt_strbuf_str ((melt_ptr_t) /*_.SBUF__V11*/ meltfptr[10]) ; char* buf2nl = bufdata ? CONST_CAST (char*, strstr(bufdata,"\n\n")) : NULL ; if (buf2nl) { int paralen = buf2nl - bufdata + 2 ; ((char*) buf2nl)[1] = '\0' ; /*_.SEQV__V33*/ meltfptr[32] = meltgc_read_from_rawstring (bufdata, NULL, UNKNOWN_LOCATION) ; melt_strbuf_consume ((melt_ptr_t) /*_.SBUF__V11*/ meltfptr[10], paralen) ; } else { /*_#STOP__L20*/ meltfnum[7] = 1; if (!/*_.CURSTATE__V10*/ meltfptr[9] && bufdata) { int buflen = strlen (bufdata) ; /*_.SEQV__V33*/ meltfptr[32] = meltgc_read_from_rawstring (bufdata, NULL, UNKNOWN_LOCATION) ; melt_strbuf_consume ((melt_ptr_t) /*_.SBUF__V11*/ meltfptr[10], buflen) ; } } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:2973:/ cond"); /*cond*/ if (/*_.SEQV__V33*/ meltfptr[32]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2974:/ 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-hooks.melt:2974:/ 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-hooks.melt:2974:/ 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-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2974; /*^apply.arg*/ argtab[3].meltbp_cstring = "melt_invoke_input_callbacks paragraph seqv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEQV__V33*/ meltfptr[32]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n curinch="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURINCH__V9*/ meltfptr[8]; /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V35*/ meltfptr[34] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2974:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V35*/ meltfptr[34] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2974:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V35*/ meltfptr[34] = 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-hooks.melt:2975:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SEQV__V33*/ meltfptr[32]; /*_.CLOS__V37*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)(/*_.CLOS__V12*/ meltfptr[11]), (melt_ptr_t)(/*_.CURINCH__V9*/ meltfptr[8]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:2973:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[34] = /*_.CLOS__V37*/ meltfptr[35];; /*^compute*/ /*_._IF___V34*/ meltfptr[33] = /*_.PROGN___V38*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2973:/ clear"); /*clear*/ /*_.CLOS__V37*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V38*/ meltfptr[34] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V34*/ meltfptr[33] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:2976:/ cond"); /*cond*/ if (/*_#STOP__L20*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^quasiblock*/ /*^compute*/ /*_.SCANLOOP__V32*/ meltfptr[12] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_SCANLOOP_1; } ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-hooks.melt:2946:/ clear"); /*clear*/ /*_#STOP__L20*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.SEQV__V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V34*/ meltfptr[33] = 0 ; /*epilog*/ } ; ; goto meltlabloop_SCANLOOP_1; meltlabexit_SCANLOOP_1: ; MELT_LOCATION("warmelt-hooks.melt:2944:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V31*/ meltfptr[24] = /*_.SCANLOOP__V32*/ meltfptr[12];; } ; /*^compute*/ /*_._IFELSE___V30*/ meltfptr[19] = /*_.FOREVER___V31*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2942:/ clear"); /*clear*/ /*_.FOREVER___V31*/ meltfptr[24] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L23*/ meltfnum[21] = melt_is_instance_of((melt_ptr_t)(/*_.CURINCH__V9*/ meltfptr[8]), (melt_ptr_t)((/*!CLASS_RAW_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-hooks.melt:2980:/ cond"); /*cond*/ if (/*_#IS_A__L23*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2981:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L24*/ 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-hooks.melt:2981:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L24*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L25*/ 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-hooks.melt:2981:/ apply"); /*apply*/ { union meltparam_un argtab[8]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L25*/ meltfnum[7]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2981; /*^apply.arg*/ argtab[3].meltbp_cstring = "melt_invoke_input_callbacks"; /*^apply.arg*/ argtab[4].meltbp_cstring = " raw sbuf="; /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V11*/ meltfptr[10]; /*^apply.arg*/ argtab[6].meltbp_cstring = ";\n curinch="; /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.CURINCH__V9*/ meltfptr[8]; /*_.MELT_DEBUG_FUN__V41*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V40*/ meltfptr[34] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2981:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L25*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ meltfptr[32] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V40*/ meltfptr[34] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2981:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L24*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V40*/ meltfptr[34] = 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-hooks.melt:2983:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V11*/ meltfptr[10]; /*_.CLOS__V42*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)(/*_.CLOS__V12*/ meltfptr[11]), (melt_ptr_t)(/*_.CURINCH__V9*/ meltfptr[8]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:2980:/ quasiblock"); /*_.PROGN___V43*/ meltfptr[24] = /*_.CLOS__V42*/ meltfptr[33];; /*^compute*/ /*_._IFELSE___V39*/ meltfptr[35] = /*_.PROGN___V43*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2980:/ clear"); /*clear*/ /*_.CLOS__V42*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V43*/ meltfptr[24] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2986:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V45*/ meltfptr[34] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:2986:/ 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 = "melt_invoke_input_callbacks invalid curinch"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2986; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURINCH__V9*/ meltfptr[8]; /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V45*/ meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2986:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V46*/ meltfptr[33] = 0 ; } ; } ; /*_.IFCPP___V44*/ meltfptr[32] = /*_._IFELSE___V45*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2986:/ clear"); /*clear*/ /*_._IFELSE___V45*/ meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V44*/ meltfptr[32] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:2985:/ quasiblock"); /*_.PROGN___V47*/ meltfptr[24] = /*_.IFCPP___V44*/ meltfptr[32];; /*^compute*/ /*_._IFELSE___V39*/ meltfptr[35] = /*_.PROGN___V47*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2980:/ clear"); /*clear*/ /*_.IFCPP___V44*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V47*/ meltfptr[24] = 0 ; } ; } ; /*_._IFELSE___V30*/ meltfptr[19] = /*_._IFELSE___V39*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2942:/ clear"); /*clear*/ /*_#IS_A__L23*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V39*/ meltfptr[35] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; /*_#NULL__L26*/ meltfnum[7] = (/*null*/(/*_.CURSTATE__V10*/ meltfptr[9]) == NULL);; MELT_LOCATION("warmelt-hooks.melt:2988:/ cond"); /*cond*/ if (/*_#NULL__L26*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2989:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L27*/ 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-hooks.melt:2989:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L27*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L28*/ 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-hooks.melt:2989:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L28*/ meltfnum[21]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2989; /*^apply.arg*/ argtab[3].meltbp_cstring = "melt_invoke_input_callbacks eof curinch="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURINCH__V9*/ meltfptr[8]; /*_.MELT_DEBUG_FUN__V50*/ meltfptr[32] = 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___V49*/ meltfptr[34] = /*_.MELT_DEBUG_FUN__V50*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2989:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L28*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V50*/ meltfptr[32] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V49*/ meltfptr[34] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2989:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L27*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V49*/ meltfptr[34] = 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-hooks.melt:2990:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; /*_.CLOS__V51*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)(/*_.CLOS__V12*/ meltfptr[11]), (melt_ptr_t)(/*_.CURINCH__V9*/ meltfptr[8]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:2988:/ quasiblock"); /*_.PROGN___V52*/ meltfptr[35] = /*_.CLOS__V51*/ meltfptr[24];; /*^compute*/ /*_._IF___V48*/ meltfptr[33] = /*_.PROGN___V52*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2988:/ clear"); /*clear*/ /*_.CLOS__V51*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V52*/ meltfptr[35] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V48*/ meltfptr[33] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V8*/ meltfptr[7] = /*_._IF___V48*/ meltfptr[33];; MELT_LOCATION("warmelt-hooks.melt:2907:/ clear"); /*clear*/ /*_.CURINCH__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.CURSTATE__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_#CURFD__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#READCNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.CLOS__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V18*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L19*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V30*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L26*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V48*/ meltfptr[33] = 0 ; } /*end foreach_long_upto meltcit2__EACHLONG */ /*citerepilog*/ MELT_LOCATION("warmelt-hooks.melt:2904:/ clear"); /*clear*/ /*_#IX__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V8*/ meltfptr[7] = 0 ; } /*endciterblock FOREACH_LONG_UPTO*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2994:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L29*/ 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-hooks.melt:2994:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L29*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L30*/ 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-hooks.melt:2994:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L30*/ meltfnum[20]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2994; /*^apply.arg*/ argtab[3].meltbp_cstring = "melt_invoke_input_callbacks removelist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.REMOVELIST__V6*/ meltfptr[4]; /*_.MELT_DEBUG_FUN__V54*/ meltfptr[34] = 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___V53*/ meltfptr[32] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2994:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L30*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ meltfptr[34] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V53*/ meltfptr[32] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2994:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L29*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V53*/ meltfptr[32] = 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 meltcit3__EACHLIST */ for (/*_.CURPAIR__V55*/ meltfptr[24] = melt_list_first( (melt_ptr_t)/*_.REMOVELIST__V6*/ meltfptr[4]); melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V55*/ meltfptr[24]) == MELTOBMAG_PAIR; /*_.CURPAIR__V55*/ meltfptr[24] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V55*/ meltfptr[24])) { /*_.CUREMOVE__V56*/ meltfptr[35] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V55*/ meltfptr[24]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:2998:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L31*/ 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-hooks.melt:2998:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L31*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L32*/ 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-hooks.melt:2998:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L32*/ meltfnum[6]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2998; /*^apply.arg*/ argtab[3].meltbp_cstring = "melt_invoke_input_callbacks curemove="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CUREMOVE__V56*/ meltfptr[35]; /*_.MELT_DEBUG_FUN__V58*/ meltfptr[9] = 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___V57*/ meltfptr[8] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:2998:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L32*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V58*/ meltfptr[9] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V57*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:2998:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L31*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V57*/ meltfptr[8] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*_#GET_INT__L33*/ meltfnum[8] = (melt_get_int((melt_ptr_t)(/*_.CUREMOVE__V56*/ meltfptr[35])));; /*^compute*/ /*_.BUCKETLONG_REMOVE__V59*/ meltfptr[10] = meltgc_longsbucket_remove ((melt_ptr_t) /*_.BUCK__V7*/ meltfptr[3], (/*_#GET_INT__L33*/ meltfnum[8]));; MELT_LOCATION("warmelt-hooks.melt:2999:/ compute"); /*_.BUCK__V7*/ meltfptr[3] = /*_.SETQ___V60*/ meltfptr[11] = /*_.BUCKETLONG_REMOVE__V59*/ meltfptr[10];; } /* end foreach_pair_component_in_list meltcit3__EACHLIST */ /*_.CURPAIR__V55*/ meltfptr[24] = NULL; /*_.CUREMOVE__V56*/ meltfptr[35] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-hooks.melt:2995:/ clear"); /*clear*/ /*_.CURPAIR__V55*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.CUREMOVE__V56*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L33*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.BUCKETLONG_REMOVE__V59*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V60*/ meltfptr[11] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_LOCATION("warmelt-hooks.melt:3001:/ putmodvar"); melt_module_var_put (meltmodvarix_MELT_INPCHANBUCK_symb, (melt_ptr_t)(/*_.BUCK__V7*/ meltfptr[3])); ; MELT_LOCATION("warmelt-hooks.melt:2901:/ clear"); /*clear*/ /*_.REMOVELIST__V6*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.BUCK__V7*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#miI__L4*/ meltfnum[2] = 0 ; /* block_signals meltcit1__BLKSIGNAL end */ melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev; MELT_CHECK_SIGNAL(); /*citerepilog*/ } /*endciterblock BLOCK_SIGNALS*/ ; MELT_CHECK_SIGNAL(); ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MELT_INVOKE_INPUT_CALLBACKS", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_85_WARMELTmiHOOKS_MELT_INVOKE_INPUT_CALLBACKS*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS(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_87_WARMELTmiHOOKS_IS_POLLING_INPUTS_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_87_WARMELTmiHOOKS_IS_POLLING_INPUTS fromline 1752 */ /** start of frame for meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS// fromline 1568 : public Melt_CallFrameWithValues<6> { 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_87_WARMELTmiHOOKS_IS_POLLING_INPUTS(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_87_WARMELTmiHOOKS_IS_POLLING_INPUTS), clos) {}; MeltFrame_meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS() //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_87_WARMELTmiHOOKS_IS_POLLING_INPUTS)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS)) {}; MeltFrame_meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS /** end of frame for meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS fromline 1697**/ /* end of frame for routine meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS fromline 1756 */ /* classy proc frame meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS */ MeltFrame_meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS 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("IS_POLLING_INPUTS", 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-hooks.melt:3114:/ block"); /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3117:/ quasiblock"); /*_.INCHBUCK__V3*/ meltfptr[2] = (melt_module_var_fetch (meltmodvarix_MELT_INPCHANBUCK_symb));; /*^compute*/ /*_#NBINCH__L1*/ meltfnum[0] = melt_longsbucket_count ((melt_ptr_t) /*_.INCHBUCK__V3*/ meltfptr[2]);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3120:/ cond"); /*cond*/ if (/*_#NBINCH__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^quasiblock*/ /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_0_TRUE*/ meltfrout->tabval[0]);; MELT_LOCATION("warmelt-hooks.melt:3120:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_LONG) goto meltlabend_rout; if (meltxrestab_[0].meltbp_longptr) *(meltxrestab_[0].meltbp_longptr) = (/*_#NBINCH__L1*/ meltfnum[0]); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_._IFELSE___V4*/ meltfptr[3] = /*_.RETURN___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3120:/ clear"); /*clear*/ /*_.RETURN___V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3121:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; MELT_LOCATION("warmelt-hooks.melt:3121:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_LONG) goto meltlabend_rout; if (meltxrestab_[0].meltbp_longptr) *(meltxrestab_[0].meltbp_longptr) = (0); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_._IFELSE___V4*/ meltfptr[3] = /*_.RETURN___V6*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3120:/ clear"); /*clear*/ /*_.RETURN___V6*/ meltfptr[4] = 0 ; } ; } ; /*_.LET___V2*/ meltfptr[1] = /*_._IFELSE___V4*/ meltfptr[3];; MELT_LOCATION("warmelt-hooks.melt:3117:/ clear"); /*clear*/ /*_.INCHBUCK__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#NBINCH__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V4*/ meltfptr[3] = 0 ; MELT_LOCATION("warmelt-hooks.melt:3114:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V2*/ meltfptr[1];; { MELT_LOCATION("warmelt-hooks.melt:3114:/ 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___V2*/ meltfptr[1] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("IS_POLLING_INPUTS", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_87_WARMELTmiHOOKS_IS_POLLING_INPUTS*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT(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_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT_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_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT fromline 1752 */ /** start of frame for meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT// fromline 1568 : public Melt_CallFrameWithValues<12> { 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_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT(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_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT), clos) {}; MeltFrame_meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT() //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_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT)) {}; MeltFrame_meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT /** end of frame for meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT fromline 1697**/ /* end of frame for routine meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT fromline 1756 */ /* classy proc frame meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT */ MeltFrame_meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT 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("EVERY_POLLING_INPUT", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:3124:/ getarg"); /*_.F__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3127:/ quasiblock"); /*_.INCHBUCK__V3*/ meltfptr[2] = (melt_module_var_fetch (meltmodvarix_MELT_INPCHANBUCK_symb));; /*^compute*/ /*_#NBINCH__L1*/ meltfnum[0] = melt_longsbucket_count ((melt_ptr_t) /*_.INCHBUCK__V3*/ meltfptr[2]);; /*^compute*/ /*_.LISCHAN__V4*/ meltfptr[3] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[0]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3131:/ cond"); /*cond*/ if (/*_#NBINCH__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*citerblock BLOCK_SIGNALS*/ { /* block_signals meltcit1__BLKSIGNAL start */ long meltcit1__BLKSIGNAL_lev = melt_blocklevel_signals; melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev + 1; /*citerblock FOREACH_IN_BUCKETLONG*/ { /*foreach_in_bucketlong meltcit2__EACHBUCKLONG*/ unsigned meltcit2__EACHBUCKLONG_ix = 0, meltcit2__EACHBUCKLONG_cnt =0; /*_#FD__L2*/ meltfnum[1] = 0L; /*_.CHV__V5*/ meltfptr[4] = NULL; for (meltcit2__EACHBUCKLONG_ix = 0; /* retrieve in meltcit2__EACHBUCKLONG iteration the count, it might change! */ (meltcit2__EACHBUCKLONG_cnt = melt_longsbucket_count ((melt_ptr_t) /*_.INCHBUCK__V3*/ meltfptr[2])) > 0 && meltcit2__EACHBUCKLONG_ix < meltcit2__EACHBUCKLONG_cnt; meltcit2__EACHBUCKLONG_ix++) { /*_#FD__L2*/ meltfnum[1] = 0L; /*_.CHV__V5*/ meltfptr[4] = NULL; { struct melt_bucketlongentry_st* meltcit2__EACHBUCKLONG_buent = ((struct meltbucketlongs_st*)/*_.INCHBUCK__V3*/ meltfptr[2])->buckl_entab + meltcit2__EACHBUCKLONG_ix; if (!meltcit2__EACHBUCKLONG_buent->ebl_va) continue; /*_#FD__L2*/ meltfnum[1] = meltcit2__EACHBUCKLONG_buent->ebl_at; /*_.CHV__V5*/ meltfptr[4] = meltcit2__EACHBUCKLONG_buent->ebl_va; meltcit2__EACHBUCKLONG_buent = NULL; } /*foreach_in_bucketlong meltcit2__EACHBUCKLONG body:*/ MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CHV__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-hooks.melt:3137:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3138:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.LISCHAN__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.CHV__V5*/ meltfptr[4])); } ; /*epilog*/ } ; } /*noelse*/ ; /* ending foreach_in_bucketlong meltcit2__EACHBUCKLONG*/ /*_#FD__L2*/ meltfnum[1] = 0L; /*_.CHV__V5*/ meltfptr[4] = NULL; } /* end foreach_in_bucketlong meltcit2__EACHBUCKLONG_ix */ /*citerepilog*/ MELT_LOCATION("warmelt-hooks.melt:3134:/ clear"); /*clear*/ /*_#FD__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.CHV__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L3*/ meltfnum[2] = 0 ; } /*endciterblock FOREACH_IN_BUCKETLONG*/ ; /* block_signals meltcit1__BLKSIGNAL end */ melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev; MELT_CHECK_SIGNAL(); /*citerepilog*/ } /*endciterblock BLOCK_SIGNALS*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L4*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.F__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:3140:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit3__EACHLIST */ for (/*_.CURPAIR__V6*/ meltfptr[5] = melt_list_first( (melt_ptr_t)/*_.LISCHAN__V4*/ meltfptr[3]); melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V6*/ meltfptr[5]) == MELTOBMAG_PAIR; /*_.CURPAIR__V6*/ meltfptr[5] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V6*/ meltfptr[5])) { /*_.CURCHAN__V7*/ meltfptr[6] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V6*/ meltfptr[5]); #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3144:/ 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-hooks.melt:3144:/ 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-hooks.melt:3144:/ 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-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3144; /*^apply.arg*/ argtab[3].meltbp_cstring = "every_polling_input curchan="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCHAN__V7*/ meltfptr[6]; /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V8*/ meltfptr[7] = /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3144:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V8*/ meltfptr[7] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3144:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V8*/ meltfptr[7] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3145:/ apply"); /*apply*/ { /*_.F__V10*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)(/*_.F__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.CURCHAN__V7*/ meltfptr[6]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*_#NULL__L7*/ meltfnum[5] = (/*null*/(/*_.F__V10*/ meltfptr[8]) == NULL);; MELT_LOCATION("warmelt-hooks.melt:3145:/ cond"); /*cond*/ if (/*_#NULL__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3146:/ compute"); /*_.CURPAIR__V6*/ meltfptr[5] = /*_.SETQ___V12*/ meltfptr[11] = (/*nil*/NULL);; /*_._IF___V11*/ meltfptr[7] = /*_.SETQ___V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3145:/ clear"); /*clear*/ /*_.SETQ___V12*/ meltfptr[11] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V11*/ meltfptr[7] = /*reallynil*/ NULL ;; } ; } /* end foreach_pair_component_in_list meltcit3__EACHLIST */ /*_.CURPAIR__V6*/ meltfptr[5] = NULL; /*_.CURCHAN__V7*/ meltfptr[6] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-hooks.melt:3141:/ clear"); /*clear*/ /*_.CURPAIR__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.CURCHAN__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.F__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V11*/ meltfptr[7] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; MELT_LOCATION("warmelt-hooks.melt:3140:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-hooks.melt:3131:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L4*/ meltfnum[3] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-hooks.melt:3127:/ clear"); /*clear*/ /*_.INCHBUCK__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#NBINCH__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.LISCHAN__V4*/ meltfptr[3] = 0 ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("EVERY_POLLING_INPUT", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_88_WARMELTmiHOOKS_EVERY_POLLING_INPUT*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT(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_89_WARMELTmiHOOKS_GET_POLLING_INPUT_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_89_WARMELTmiHOOKS_GET_POLLING_INPUT fromline 1752 */ /** start of frame for meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT// fromline 1568 : public Melt_CallFrameWithValues<9> { 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_89_WARMELTmiHOOKS_GET_POLLING_INPUT(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_89_WARMELTmiHOOKS_GET_POLLING_INPUT), clos) {}; MeltFrame_meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT() //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_89_WARMELTmiHOOKS_GET_POLLING_INPUT)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<9> (fil,lin, sizeof(MeltFrame_meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT)) {}; MeltFrame_meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<9> (fil,lin, sizeof(MeltFrame_meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT /** end of frame for meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT fromline 1697**/ /* end of frame for routine meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT fromline 1756 */ /* classy proc frame meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT */ MeltFrame_meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT 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("GET_POLLING_INPUT", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:3148:/ getarg"); /*_.BI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3150:/ quasiblock"); /*_.INCHBUCK__V4*/ meltfptr[3] = (melt_module_var_fetch (meltmodvarix_MELT_INPCHANBUCK_symb));; /*^compute*/ /*_#NBINCH__L1*/ meltfnum[0] = melt_longsbucket_count ((melt_ptr_t) /*_.INCHBUCK__V4*/ meltfptr[3]);; /*^compute*/ /*_#I__L2*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.BI__V2*/ meltfptr[1])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3154:/ cond"); /*cond*/ if (/*_#NBINCH__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*citerblock BLOCK_SIGNALS*/ { /* block_signals meltcit1__BLKSIGNAL start */ long meltcit1__BLKSIGNAL_lev = melt_blocklevel_signals; melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev + 1; MELT_LOCATION("warmelt-hooks.melt:3157:/ quasiblock"); /*_.CURB__V6*/ meltfptr[5] = melt_longsbucket_get((melt_ptr_t)/*_.INCHBUCK__V4*/ meltfptr[3], /*_#I__L2*/ meltfnum[1]);; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_A__L3*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CURB__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-hooks.melt:3159:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3160:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.CURB__V6*/ meltfptr[5];; { MELT_LOCATION("warmelt-hooks.melt:3160:/ 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[6] = /*_.RETURN___V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3159:/ clear"); /*clear*/ /*_.RETURN___V8*/ meltfptr[7] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V7*/ meltfptr[6] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V5*/ meltfptr[4] = /*_._IF___V7*/ meltfptr[6];; MELT_LOCATION("warmelt-hooks.melt:3157:/ clear"); /*clear*/ /*_.CURB__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; /* block_signals meltcit1__BLKSIGNAL end */ melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev; MELT_CHECK_SIGNAL(); /*citerepilog*/ MELT_LOCATION("warmelt-hooks.melt:3155:/ clear"); /*clear*/ /*_.LET___V5*/ meltfptr[4] = 0 ; } /*endciterblock BLOCK_SIGNALS*/ ; MELT_LOCATION("warmelt-hooks.melt:3154:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3161:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3161:/ 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___V3*/ meltfptr[2] = /*_.RETURN___V9*/ meltfptr[7];; MELT_LOCATION("warmelt-hooks.melt:3150:/ clear"); /*clear*/ /*_.INCHBUCK__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#NBINCH__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#I__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V9*/ meltfptr[7] = 0 ; MELT_LOCATION("warmelt-hooks.melt:3148:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { MELT_LOCATION("warmelt-hooks.melt:3148:/ 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___V3*/ meltfptr[2] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("GET_POLLING_INPUT", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_89_WARMELTmiHOOKS_GET_POLLING_INPUT*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER(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_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER_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_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER fromline 1752 */ /** start of frame for meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER// fromline 1568 : public Melt_CallFrameWithValues<20> { 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_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<20> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER), clos) {}; MeltFrame_meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER() //the constructor fromline 1642 : Melt_CallFrameWithValues<20> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<20> (fil,lin, sizeof(MeltFrame_meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER)) {}; MeltFrame_meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<20> (fil,lin, sizeof(MeltFrame_meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER /** end of frame for meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER fromline 1697**/ /* end of frame for routine meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER fromline 1756 */ /* classy proc frame meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER */ MeltFrame_meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER 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("REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:3165:/ getarg"); /*_.CLOS__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); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#INCHFD__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3179:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L2*/ 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-hooks.melt:3179:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = /* 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-hooks.melt:3179:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L3*/ meltfnum[2]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3179; /*^apply.arg*/ argtab[3].meltbp_cstring = "register_paragraph_input_channel_handler clos="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOS__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " data="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DATA__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[7].meltbp_cstring = " inchfd="; /*^apply.arg*/ argtab[8].meltbp_long = /*_#INCHFD__L1*/ meltfnum[0]; /*_.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 MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3179:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3179:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 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-hooks.melt:3181:/ quasiblock"); /*_#GOODINCHFD__L4*/ meltfnum[2] = 0;; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_CLOSURE__L5*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.CLOS__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:3182:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#gteqI__L7*/ meltfnum[6] = ((/*_#INCHFD__L1*/ meltfnum[0]) >= (0));; /*^compute*/ /*_#_IF___L6*/ meltfnum[5] = /*_#gteqI__L7*/ meltfnum[6];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3182:/ clear"); /*clear*/ /*_#gteqI__L7*/ meltfnum[6] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L6*/ meltfnum[5] = 0;; } ; MELT_LOCATION("warmelt-hooks.melt:3182:/ cond"); /*cond*/ if (/*_#_IF___L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3184:/ locexp"); /*register_paragraph_input_channel_handler STATINCHFDCHK__1 */ { struct stat STATINCHFDCHK__1_stat; memset (& STATINCHFDCHK__1_stat, 0, sizeof(struct stat)); if (fstat (/*_#INCHFD__L1*/ meltfnum[0], & STATINCHFDCHK__1_stat)) warning(0, "MELT bad registered paragraph input channel fd#%d - %s", (int) /*_#INCHFD__L1*/ meltfnum[0], xstrerror (errno)); else /*_#GOODINCHFD__L4*/ meltfnum[2] = 1; } /* end STATINCHFDCHK__1 */ ; } ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*_#NOT__L8*/ meltfnum[6] = (!(/*_#GOODINCHFD__L4*/ meltfnum[2]));; MELT_LOCATION("warmelt-hooks.melt:3196:/ cond"); /*cond*/ if (/*_#NOT__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^quasiblock*/ /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3196:/ 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[3] = /*_.RETURN___V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3196:/ clear"); /*clear*/ /*_.RETURN___V8*/ meltfptr[7] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V7*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V6*/ meltfptr[4] = /*_._IF___V7*/ meltfptr[3];; MELT_LOCATION("warmelt-hooks.melt:3181:/ clear"); /*clear*/ /*_#GOODINCHFD__L4*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V7*/ meltfptr[3] = 0 ; MELT_LOCATION("warmelt-hooks.melt:3197:/ quasiblock"); /*_.INSBUF__V10*/ meltfptr[3] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[1])), (const char*)0);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3198:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_PARAGRAPH_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[2])), (4), "CLASS_PARAGRAPH_INPUT_CHANNEL_HANDLER"); /*_.INST__V12*/ meltfptr[11] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @INCH_SBUF", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ meltfptr[11])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V12*/ meltfptr[11]), (1), (/*_.INSBUF__V10*/ meltfptr[3]), "INCH_SBUF"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @INCH_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ meltfptr[11])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V12*/ meltfptr[11]), (2), (/*_.CLOS__V2*/ meltfptr[1]), "INCH_CLOS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @INCH_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ meltfptr[11])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V12*/ meltfptr[11]), (3), (/*_.DATA__V3*/ meltfptr[2]), "INCH_DATA"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V12*/ meltfptr[11], "newly made instance"); ; /*_.INCHDLR__V11*/ meltfptr[10] = /*_.INST__V12*/ meltfptr[11];; /*^compute*/ /*_.INBUCK__V13*/ meltfptr[12] = (melt_module_var_fetch (meltmodvarix_MELT_INPCHANBUCK_symb));; { MELT_LOCATION("warmelt-hooks.melt:3204:/ locexp"); melt_put_int((melt_ptr_t)(/*_.INCHDLR__V11*/ meltfptr[10]), (/*_#INCHFD__L1*/ meltfnum[0])); } ; MELT_CHECK_SIGNAL(); ; /*_#IS_BUCKETLONG__L9*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t) (/*_.INBUCK__V13*/ meltfptr[12])) == MELTOBMAG_BUCKETLONGS);; /*^compute*/ /*_#NOT__L10*/ meltfnum[1] = (!(/*_#IS_BUCKETLONG__L9*/ meltfnum[2]));; MELT_LOCATION("warmelt-hooks.melt:3205:/ cond"); /*cond*/ if (/*_#NOT__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3206:/ quasiblock"); /*_.NEWINBUCK__V16*/ meltfptr[15] = (meltgc_new_longsbucket((meltobject_ptr_t) (/*!DISCR_BUCKET_LONGS*/ meltfrout->tabval[3]), (50)));; MELT_LOCATION("warmelt-hooks.melt:3208:/ compute"); /*_.INBUCK__V13*/ meltfptr[12] = /*_.SETQ___V17*/ meltfptr[16] = /*_.NEWINBUCK__V16*/ meltfptr[15];; /*_.LET___V15*/ meltfptr[14] = /*_.SETQ___V17*/ meltfptr[16];; MELT_LOCATION("warmelt-hooks.melt:3206:/ clear"); /*clear*/ /*_.NEWINBUCK__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V17*/ meltfptr[16] = 0 ; /*_._IF___V14*/ meltfptr[13] = /*_.LET___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3205:/ clear"); /*clear*/ /*_.LET___V15*/ meltfptr[14] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V14*/ meltfptr[13] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-hooks.melt:3209:/ quasiblock"); /*_.UPDATEDINBUCK__V19*/ meltfptr[16] = meltgc_longsbucket_put ((melt_ptr_t) /*_.INBUCK__V13*/ meltfptr[12], (/*_#INCHFD__L1*/ meltfnum[0]), (melt_ptr_t) /*_.INCHDLR__V11*/ meltfptr[10]);; MELT_LOCATION("warmelt-hooks.melt:3211:/ putmodvar"); melt_module_var_put (meltmodvarix_MELT_INPCHANBUCK_symb, (melt_ptr_t)(/*_.UPDATEDINBUCK__V19*/ meltfptr[16])); ; { MELT_LOCATION("warmelt-hooks.melt:3212:/ locexp"); /* register_paragraph_input_channel_handler FCNTLINCHFDCHK__1 start */ if (fcntl (/*_#INCHFD__L1*/ meltfnum[0], F_SETOWN, getpid())) melt_fatal_error("MELT failed to set ownership (F_SETOWN) fd #%d - %s", (int) /*_#INCHFD__L1*/ meltfnum[0], xstrerror (errno)); /* end FCNTLINCHFDCHK__1 register_paragraph_input_channel_handler */ ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3220:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.INCHDLR__V11*/ meltfptr[10];; { MELT_LOCATION("warmelt-hooks.melt:3220:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V18*/ meltfptr[15] = /*_.RETURN___V20*/ meltfptr[14];; MELT_LOCATION("warmelt-hooks.melt:3209:/ clear"); /*clear*/ /*_.UPDATEDINBUCK__V19*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V20*/ meltfptr[14] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V18*/ meltfptr[15];; MELT_LOCATION("warmelt-hooks.melt:3197:/ clear"); /*clear*/ /*_.INSBUF__V10*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.INCHDLR__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.INBUCK__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#IS_BUCKETLONG__L9*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L10*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V18*/ meltfptr[15] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3165:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; { MELT_LOCATION("warmelt-hooks.melt:3165:/ 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 ; /*^clear*/ /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_90_WARMELTmiHOOKS_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER(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_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER_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_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER fromline 1752 */ /** start of frame for meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER// fromline 1568 : public Melt_CallFrameWithValues<20> { 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_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<20> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER), clos) {}; MeltFrame_meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER() //the constructor fromline 1642 : Melt_CallFrameWithValues<20> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<20> (fil,lin, sizeof(MeltFrame_meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER)) {}; MeltFrame_meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<20> (fil,lin, sizeof(MeltFrame_meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER /** end of frame for meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER fromline 1697**/ /* end of frame for routine meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER fromline 1756 */ /* classy proc frame meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER */ MeltFrame_meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER 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("REGISTER_RAW_INPUT_CHANNEL_HANDLER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:3224:/ getarg"); /*_.CLOS__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); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#INCHFD__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3237:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L2*/ 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-hooks.melt:3237:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = /* 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-hooks.melt:3237:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L3*/ meltfnum[2]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3237; /*^apply.arg*/ argtab[3].meltbp_cstring = "register_raw_input_channel_handler clos="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOS__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " data="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DATA__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[7].meltbp_cstring = " inchfd="; /*^apply.arg*/ argtab[8].meltbp_long = /*_#INCHFD__L1*/ meltfnum[0]; /*_.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 MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3237:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3237:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 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-hooks.melt:3239:/ quasiblock"); /*_#GOODINCHFD__L4*/ meltfnum[2] = 0;; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_CLOSURE__L5*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.CLOS__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:3240:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#gteqI__L7*/ meltfnum[6] = ((/*_#INCHFD__L1*/ meltfnum[0]) >= (0));; /*^compute*/ /*_#_IF___L6*/ meltfnum[5] = /*_#gteqI__L7*/ meltfnum[6];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3240:/ clear"); /*clear*/ /*_#gteqI__L7*/ meltfnum[6] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L6*/ meltfnum[5] = 0;; } ; MELT_LOCATION("warmelt-hooks.melt:3240:/ cond"); /*cond*/ if (/*_#_IF___L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3242:/ locexp"); /*register_raw_input_channel_handler STATINCHFDCHK__2 */ { struct stat STATINCHFDCHK__2_stat; memset (& STATINCHFDCHK__2_stat, 0, sizeof(struct stat)); if (fstat (/*_#INCHFD__L1*/ meltfnum[0], & STATINCHFDCHK__2_stat)) warning(0, "MELT bad registered raw input channel fd#%d - %s", (int) /*_#INCHFD__L1*/ meltfnum[0], xstrerror (errno)); else /*_#GOODINCHFD__L4*/ meltfnum[2] = 1; } /* end STATINCHFDCHK__2 */ ; } ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*_#NOT__L8*/ meltfnum[6] = (!(/*_#GOODINCHFD__L4*/ meltfnum[2]));; MELT_LOCATION("warmelt-hooks.melt:3254:/ cond"); /*cond*/ if (/*_#NOT__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^quasiblock*/ /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3254:/ 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[3] = /*_.RETURN___V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3254:/ clear"); /*clear*/ /*_.RETURN___V8*/ meltfptr[7] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V7*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V6*/ meltfptr[4] = /*_._IF___V7*/ meltfptr[3];; MELT_LOCATION("warmelt-hooks.melt:3239:/ clear"); /*clear*/ /*_#GOODINCHFD__L4*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V7*/ meltfptr[3] = 0 ; MELT_LOCATION("warmelt-hooks.melt:3255:/ quasiblock"); /*_.INSBUF__V10*/ meltfptr[3] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[1])), (const char*)0);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3256:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_RAW_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[2])), (4), "CLASS_RAW_INPUT_CHANNEL_HANDLER"); /*_.INST__V12*/ meltfptr[11] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @INCH_SBUF", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ meltfptr[11])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V12*/ meltfptr[11]), (1), (/*_.INSBUF__V10*/ meltfptr[3]), "INCH_SBUF"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @INCH_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ meltfptr[11])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V12*/ meltfptr[11]), (2), (/*_.CLOS__V2*/ meltfptr[1]), "INCH_CLOS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @INCH_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ meltfptr[11])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V12*/ meltfptr[11]), (3), (/*_.DATA__V3*/ meltfptr[2]), "INCH_DATA"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V12*/ meltfptr[11], "newly made instance"); ; /*_.INCHDLR__V11*/ meltfptr[10] = /*_.INST__V12*/ meltfptr[11];; /*^compute*/ /*_.INBUCK__V13*/ meltfptr[12] = (melt_module_var_fetch (meltmodvarix_MELT_INPCHANBUCK_symb));; { MELT_LOCATION("warmelt-hooks.melt:3262:/ locexp"); melt_put_int((melt_ptr_t)(/*_.INCHDLR__V11*/ meltfptr[10]), (/*_#INCHFD__L1*/ meltfnum[0])); } ; MELT_CHECK_SIGNAL(); ; /*_#IS_BUCKETLONG__L9*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t) (/*_.INBUCK__V13*/ meltfptr[12])) == MELTOBMAG_BUCKETLONGS);; /*^compute*/ /*_#NOT__L10*/ meltfnum[1] = (!(/*_#IS_BUCKETLONG__L9*/ meltfnum[2]));; MELT_LOCATION("warmelt-hooks.melt:3263:/ cond"); /*cond*/ if (/*_#NOT__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3264:/ quasiblock"); /*_.NEWINBUCK__V16*/ meltfptr[15] = (meltgc_new_longsbucket((meltobject_ptr_t) (/*!DISCR_BUCKET_LONGS*/ meltfrout->tabval[3]), (50)));; MELT_LOCATION("warmelt-hooks.melt:3266:/ compute"); /*_.INBUCK__V13*/ meltfptr[12] = /*_.SETQ___V17*/ meltfptr[16] = /*_.NEWINBUCK__V16*/ meltfptr[15];; /*_.LET___V15*/ meltfptr[14] = /*_.SETQ___V17*/ meltfptr[16];; MELT_LOCATION("warmelt-hooks.melt:3264:/ clear"); /*clear*/ /*_.NEWINBUCK__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V17*/ meltfptr[16] = 0 ; /*_._IF___V14*/ meltfptr[13] = /*_.LET___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3263:/ clear"); /*clear*/ /*_.LET___V15*/ meltfptr[14] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V14*/ meltfptr[13] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-hooks.melt:3267:/ quasiblock"); /*_.UPDATEDINBUCK__V19*/ meltfptr[16] = meltgc_longsbucket_put ((melt_ptr_t) /*_.INBUCK__V13*/ meltfptr[12], (/*_#INCHFD__L1*/ meltfnum[0]), (melt_ptr_t) /*_.INCHDLR__V11*/ meltfptr[10]);; MELT_LOCATION("warmelt-hooks.melt:3269:/ putmodvar"); melt_module_var_put (meltmodvarix_MELT_INPCHANBUCK_symb, (melt_ptr_t)(/*_.UPDATEDINBUCK__V19*/ meltfptr[16])); ; { MELT_LOCATION("warmelt-hooks.melt:3270:/ locexp"); /* register_raw_input_channel_handler FCNTLINCHFDCHK__2 start */ if (fcntl (/*_#INCHFD__L1*/ meltfnum[0], F_SETOWN, getpid())) melt_fatal_error("MELT failed to set ownership (F_SETOWN) fd #%d - %s", (int) /*_#INCHFD__L1*/ meltfnum[0], xstrerror (errno)); /* end FCNTLINCHFDCHK__2 register_raw_input_channel_handler */ ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3278:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.INCHDLR__V11*/ meltfptr[10];; { MELT_LOCATION("warmelt-hooks.melt:3278:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V18*/ meltfptr[15] = /*_.RETURN___V20*/ meltfptr[14];; MELT_LOCATION("warmelt-hooks.melt:3267:/ clear"); /*clear*/ /*_.UPDATEDINBUCK__V19*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V20*/ meltfptr[14] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V18*/ meltfptr[15];; MELT_LOCATION("warmelt-hooks.melt:3255:/ clear"); /*clear*/ /*_.INSBUF__V10*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.INCHDLR__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.INBUCK__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#IS_BUCKETLONG__L9*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L10*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V18*/ meltfptr[15] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3224:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; { MELT_LOCATION("warmelt-hooks.melt:3224:/ 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 ; /*^clear*/ /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("REGISTER_RAW_INPUT_CHANNEL_HANDLER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_91_WARMELTmiHOOKS_REGISTER_RAW_INPUT_CHANNEL_HANDLER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL(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_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL_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_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL fromline 1752 */ /** start of frame for meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL// fromline 1568 : public Melt_CallFrameWithValues<14> { 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_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL(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_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL), clos) {}; MeltFrame_meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL() //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_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL)) {}; MeltFrame_meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL /** end of frame for meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL fromline 1697**/ /* end of frame for routine meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL fromline 1756 */ /* classy proc frame meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL */ MeltFrame_meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL 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("UNREGISTER_INPUT_CHANNEL", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:3282:/ getarg"); /*_.CHANV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3286:/ 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-hooks.melt:3286:/ 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-hooks.melt:3286:/ 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-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3286; /*^apply.arg*/ argtab[3].meltbp_cstring = "unregister_input_channel start chanv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CHANV__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-hooks.melt:3286:/ 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-hooks.melt:3286:/ 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-hooks.melt:3287:/ quasiblock"); /*_#INCHFD__L3*/ meltfnum[1] = -1;; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CHANV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-hooks.melt:3289:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#GET_INT__L5*/ meltfnum[4] = (melt_get_int((melt_ptr_t)(/*_.CHANV__V2*/ meltfptr[1])));; MELT_LOCATION("warmelt-hooks.melt:3290:/ compute"); /*_#INCHFD__L3*/ meltfnum[1] = /*_#SETQ___L6*/ meltfnum[5] = /*_#GET_INT__L5*/ meltfnum[4];; { MELT_LOCATION("warmelt-hooks.melt:3291:/ locexp"); /*void*/(void)0; } ; MELT_LOCATION("warmelt-hooks.melt:3289:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_#GET_INT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L6*/ meltfnum[5] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_INTEGERBOX__L7*/ meltfnum[4] = (melt_magic_discr((melt_ptr_t)(/*_.CHANV__V2*/ meltfptr[1])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-hooks.melt:3292:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L7*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#GET_INT__L8*/ meltfnum[5] = (melt_get_int((melt_ptr_t)(/*_.CHANV__V2*/ meltfptr[1])));; MELT_LOCATION("warmelt-hooks.melt:3293:/ compute"); /*_#INCHFD__L3*/ meltfnum[1] = /*_#SETQ___L9*/ meltfnum[8] = /*_#GET_INT__L8*/ meltfnum[5];; { MELT_LOCATION("warmelt-hooks.melt:3294:/ locexp"); /*void*/(void)0; } ; MELT_LOCATION("warmelt-hooks.melt:3292:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_#GET_INT__L8*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L9*/ meltfnum[8] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3296:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3296:/ 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-hooks.melt:3295:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[7] = /*_.RETURN___V7*/ meltfptr[6];; /*^compute*/ /*_._IFELSE___V6*/ meltfptr[2] = /*_.PROGN___V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3292:/ clear"); /*clear*/ /*_.RETURN___V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V8*/ meltfptr[7] = 0 ; } ; } ; /*_._IFELSE___V5*/ meltfptr[3] = /*_._IFELSE___V6*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3289:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L7*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V6*/ meltfptr[2] = 0 ; } ; } ; /*citerblock BLOCK_SIGNALS*/ { /* block_signals meltcit1__BLKSIGNAL start */ long meltcit1__BLKSIGNAL_lev = melt_blocklevel_signals; melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev + 1; MELT_LOCATION("warmelt-hooks.melt:3299:/ quasiblock"); /*_.BUCK__V9*/ meltfptr[6] = (melt_module_var_fetch (meltmodvarix_MELT_INPCHANBUCK_symb));; /*^compute*/ /*_.INCHAN__V10*/ meltfptr[7] = melt_longsbucket_get((melt_ptr_t)/*_.BUCK__V9*/ meltfptr[6], /*_#INCHFD__L3*/ meltfnum[1]);; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_A__L10*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.INCHAN__V10*/ meltfptr[7]), (melt_ptr_t)((/*!CLASS_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-hooks.melt:3302:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_.BUCKETLONG_REMOVE__V11*/ meltfptr[2] = meltgc_longsbucket_remove ((melt_ptr_t) /*_.BUCK__V9*/ meltfptr[6], (/*_#INCHFD__L3*/ meltfnum[1]));; MELT_LOCATION("warmelt-hooks.melt:3303:/ compute"); /*_.BUCK__V9*/ meltfptr[6] = /*_.SETQ___V12*/ meltfptr[11] = /*_.BUCKETLONG_REMOVE__V11*/ meltfptr[2];; MELT_LOCATION("warmelt-hooks.melt:3304:/ putmodvar"); melt_module_var_put (meltmodvarix_MELT_INPCHANBUCK_symb, (melt_ptr_t)(/*_.BUCK__V9*/ meltfptr[6])); ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3305:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L11*/ 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-hooks.melt:3305:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L12*/ 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-hooks.melt:3305:/ apply"); /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L12*/ meltfnum[4]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3305; /*^apply.arg*/ argtab[3].meltbp_cstring = "unregister_input_channel removed inchan="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!DEBUG_LESS*/ meltfrout->tabval[2]); /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.INCHAN__V10*/ meltfptr[7]; /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 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_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V13*/ meltfptr[12] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3305:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V13*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3305:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V13*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:3302:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_.BUCKETLONG_REMOVE__V11*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V12*/ meltfptr[11] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-hooks.melt:3299:/ clear"); /*clear*/ /*_.BUCK__V9*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.INCHAN__V10*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L10*/ meltfnum[5] = 0 ; /* block_signals meltcit1__BLKSIGNAL end */ melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev; MELT_CHECK_SIGNAL(); /*citerepilog*/ } /*endciterblock BLOCK_SIGNALS*/ ; MELT_LOCATION("warmelt-hooks.melt:3287:/ clear"); /*clear*/ /*_#INCHFD__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[3] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("UNREGISTER_INPUT_CHANNEL", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_92_WARMELTmiHOOKS_UNREGISTER_INPUT_CHANNEL*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER(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_93_WARMELTmiHOOKS_CONNECT_TO_SERVER_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_93_WARMELTmiHOOKS_CONNECT_TO_SERVER fromline 1752 */ /** start of frame for meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER// fromline 1568 : public Melt_CallFrameWithValues<50> { public: /* fromline 1572*/ long mcfr_varnum[21]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<50> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER), clos) {}; MeltFrame_meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER() //the constructor fromline 1642 : Melt_CallFrameWithValues<50> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<50> (fil,lin, sizeof(MeltFrame_meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER)) {}; MeltFrame_meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<50> (fil,lin, sizeof(MeltFrame_meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER /** end of frame for meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER fromline 1697**/ /* end of frame for routine meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER fromline 1756 */ /* classy proc frame meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER */ MeltFrame_meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER 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("CONNECT_TO_SERVER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:3338:/ getarg"); /*_.SERVICE__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#QUIET__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3349:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L2*/ 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-hooks.melt:3349:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = /* 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-hooks.melt:3349:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L3*/ meltfnum[2]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3349; /*^apply.arg*/ argtab[3].meltbp_cstring = "connect_to_server start service="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SERVICE__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-hooks.melt:3349:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V3*/ meltfptr[2] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3349:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 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_CHECK_SIGNAL(); ; /*_#IS_INTEGERBOX__L4*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.SERVICE__V2*/ meltfptr[1])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-hooks.melt:3352:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3355:/ quasiblock"); /*_#SERVICENUMFD__L5*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.SERVICE__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-hooks.melt:3357:/ locexp"); /* connect_to_server GETPEER_CHK__1 */ struct sockaddr_storage sa ; char sahname[80] ; memset ((void*)&sa, 0, sizeof(sa)) ; memset ((void*)sahname, 0, sizeof(sahname)) ; socklen_t salen = sizeof(sa) ; if (getpeername((int)/*_#SERVICENUMFD__L5*/ meltfnum[1], (struct sockaddr*)&sa, &salen)) { warning (0, "MELT connect_to_server: on file descriptor #%d failed getpeername: %s", (int)/*_#SERVICENUMFD__L5*/ meltfnum[1], xstrerror(errno)) ; /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3367:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3367:/ 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 ; { /*^locexp*/ /*ignore*/(void)(/*_.RETURN___V7*/ meltfptr[6]); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3357:/ clear"); /*clear*/ /*_.RETURN___V7*/ meltfptr[6] = 0 ; } ; } ; if (!/*_#QUIET__L1*/ meltfnum[0]) { if (getnameinfo((const struct sockaddr *)(&sa), salen, sahname, sizeof(sahname), NULL, 0, 0)) { warning (0, "MELT connect_to_server: on file descriptor #%d failed getnameinfo: %s", (int)/*_#SERVICENUMFD__L5*/ meltfnum[1], xstrerror(errno)) ; /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3375:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3375:/ 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 ; { /*^locexp*/ /*ignore*/(void)(/*_.RETURN___V8*/ meltfptr[6]); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3357:/ clear"); /*clear*/ /*_.RETURN___V8*/ meltfptr[6] = 0 ; } ; } ; inform (UNKNOWN_LOCATION, "MELT connect_to_server with file descriptor #%d of peer %s", (int)/*_#SERVICENUMFD__L5*/ meltfnum[1], sahname) ; } ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3382:/ 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-hooks.melt:3382:/ 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-hooks.melt:3382:/ 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-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3382; /*^apply.arg*/ argtab[3].meltbp_cstring = "connect_to_server service="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SERVICE__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " good peered file descriptor#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#SERVICENUMFD__L5*/ meltfnum[1]; /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V9*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3382:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V9*/ meltfptr[6] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3382:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V9*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*_.BOX__V11*/ meltfptr[9] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#SERVICENUMFD__L5*/ meltfnum[1]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3383:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.BOX__V11*/ meltfptr[9];; { MELT_LOCATION("warmelt-hooks.melt:3383:/ 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___V6*/ meltfptr[2] = /*_.RETURN___V12*/ meltfptr[6];; MELT_LOCATION("warmelt-hooks.melt:3355:/ clear"); /*clear*/ /*_#SERVICENUMFD__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.BOX__V11*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V12*/ meltfptr[6] = 0 ; /*_._IFELSE___V5*/ meltfptr[3] = /*_.LET___V6*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3352:/ clear"); /*clear*/ /*_.LET___V6*/ meltfptr[2] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRING__L8*/ meltfnum[6] = (melt_magic_discr((melt_ptr_t)(/*_.SERVICE__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; /*^compute*/ /*_#NOT__L9*/ meltfnum[5] = (!(/*_#IS_STRING__L8*/ meltfnum[6]));; MELT_LOCATION("warmelt-hooks.melt:3387:/ cond"); /*cond*/ if (/*_#NOT__L9*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3388:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "connect_to_server invalid service $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SERVICE__V2*/ meltfptr[1]; /*_.WARNING_AT__V14*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!WARNING_AT*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:3389:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3389:/ 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-hooks.melt:3387:/ quasiblock"); /*_.PROGN___V16*/ meltfptr[15] = /*_.RETURN___V15*/ meltfptr[2];; /*^compute*/ /*_._IFELSE___V13*/ meltfptr[9] = /*_.PROGN___V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3387:/ clear"); /*clear*/ /*_.WARNING_AT__V14*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V15*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V16*/ meltfptr[15] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#STRING_LENGTH__L10*/ meltfnum[1] = melt_string_length((melt_ptr_t)(/*_.SERVICE__V2*/ meltfptr[1]));; /*^compute*/ /*_#gtI__L11*/ meltfnum[10] = ((/*_#STRING_LENGTH__L10*/ meltfnum[1]) > (100));; MELT_LOCATION("warmelt-hooks.melt:3390:/ cond"); /*cond*/ if (/*_#gtI__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3391:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "connect_to_server too long service $1, more than 100 chars"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SERVICE__V2*/ meltfptr[1]; /*_.WARNING_AT__V18*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!WARNING_AT*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:3392:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3392:/ 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-hooks.melt:3390:/ quasiblock"); /*_.PROGN___V20*/ meltfptr[19] = /*_.RETURN___V19*/ meltfptr[15];; /*^compute*/ /*_._IFELSE___V17*/ meltfptr[6] = /*_.PROGN___V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3390:/ clear"); /*clear*/ /*_.WARNING_AT__V18*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V19*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V20*/ meltfptr[19] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#UNIXSOCKSLASH_CHK__L12*/ meltfnum[11] = /* connect_to_server UNIXSOCKSLASH_CHK__1 */ strchr (melt_string_str (/*_.SERVICE__V2*/ meltfptr[1]), '/') != NULL;; MELT_LOCATION("warmelt-hooks.melt:3394:/ cond"); /*cond*/ if (/*_#UNIXSOCKSLASH_CHK__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3396:/ quasiblock"); /*_#UNIXSOCKFD__L13*/ meltfnum[12] = -1;; { MELT_LOCATION("warmelt-hooks.melt:3398:/ locexp"); /* connect_to_server CONNECTUNIX_CHK__1 */ /* UNIX_PATH_MAX might be defined, but usually not, see unix(7) man page */ #ifndef UNIX_PATH_MAX #define UNIX_PATH_MAX 100 #endif /*UNIX_PATH_MAX */ struct sockaddr_un saun; memset (&saun, 0, sizeof(saun)); melt_debugeprintf("connect_to_server unix service %s", melt_string_str(/*_.SERVICE__V2*/ meltfptr[1])); if (strlen(melt_string_str(/*_.SERVICE__V2*/ meltfptr[1]))>=UNIX_PATH_MAX) { warning (0, "MELT connect_to_server: AF_UNIX too long path %s", melt_string_str(/*_.SERVICE__V2*/ meltfptr[1])); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3410:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3410:/ 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 ; { /*^locexp*/ /*ignore*/(void)(/*_.RETURN___V23*/ meltfptr[19]); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3398:/ clear"); /*clear*/ /*_.RETURN___V23*/ meltfptr[19] = 0 ; } ; }; saun.sun_family = AF_UNIX; strncpy (saun.sun_path, melt_string_str(/*_.SERVICE__V2*/ meltfptr[1]), UNIX_PATH_MAX); /*_#UNIXSOCKFD__L13*/ meltfnum[12] = socket (AF_UNIX, SOCK_STREAM, 0); if ((int)/*_#UNIXSOCKFD__L13*/ meltfnum[12]<0) { warning (0, "MELT connect_to_server: AF_UNIX %s socket failure: %s", saun.sun_path, xstrerror(errno)); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3418:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3418:/ 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 ; { /*^locexp*/ /*ignore*/(void)(/*_.RETURN___V24*/ meltfptr[19]); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3398:/ clear"); /*clear*/ /*_.RETURN___V24*/ meltfptr[19] = 0 ; } ; }; // read man page unix(7) socklen_t saulen = offsetof(struct sockaddr_un, sun_path) + strlen(saun.sun_path) + 1; melt_debugeprintf ("connect_to_server: connect sun_path %s saulen=%d", saun.sun_path, (int)saulen); if (connect ((int)/*_#UNIXSOCKFD__L13*/ meltfnum[12], (const struct sockaddr*)&saun, saulen)) { warning (0, "MELT connect_to_server: AF_UNIX %s connect failure: %s", saun.sun_path, xstrerror(errno)); (void) close((int)/*_#UNIXSOCKFD__L13*/ meltfnum[12]); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3428:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3428:/ 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 ; { /*^locexp*/ /*ignore*/(void)(/*_.RETURN___V25*/ meltfptr[19]); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3398:/ clear"); /*clear*/ /*_.RETURN___V25*/ meltfptr[19] = 0 ; } ; }; if (!/*_#QUIET__L1*/ meltfnum[0]) inform (UNKNOWN_LOCATION, "MELT connect_to_server: connected to Unix socket %s file descriptor #%d", saun.sun_path, (int)/*_#UNIXSOCKFD__L13*/ meltfnum[12]) ; ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3435:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = /*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-hooks.melt:3435:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = /* 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-hooks.melt:3435:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L15*/ meltfnum[14]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3435; /*^apply.arg*/ argtab[3].meltbp_cstring = "connect_to_server service="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SERVICE__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " unixsockfd="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#UNIXSOCKFD__L13*/ meltfnum[12]; /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V26*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3435:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V26*/ meltfptr[19] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3435:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V26*/ meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*_.BOX__V28*/ meltfptr[26] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#UNIXSOCKFD__L13*/ meltfnum[12]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3436:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.BOX__V28*/ meltfptr[26];; { MELT_LOCATION("warmelt-hooks.melt:3436:/ 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___V22*/ meltfptr[15] = /*_.RETURN___V29*/ meltfptr[19];; MELT_LOCATION("warmelt-hooks.melt:3396:/ clear"); /*clear*/ /*_#UNIXSOCKFD__L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.BOX__V28*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V29*/ meltfptr[19] = 0 ; /*_._IFELSE___V21*/ meltfptr[2] = /*_.LET___V22*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3394:/ clear"); /*clear*/ /*_.LET___V22*/ meltfptr[15] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#UNIXSOCKSLASH_CHK__L16*/ meltfnum[14] = /* connect_to_server UNIXSOCKSLASH_CHK__2 */ strchr (melt_string_str (/*_.SERVICE__V2*/ meltfptr[1]), ':') != NULL;; MELT_LOCATION("warmelt-hooks.melt:3439:/ cond"); /*cond*/ if (/*_#UNIXSOCKSLASH_CHK__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3441:/ quasiblock"); /*_#TCPSOCKFD__L17*/ meltfnum[13] = -1;; { MELT_LOCATION("warmelt-hooks.melt:3443:/ locexp"); /* connect_to_server CONNECTTCP_CHK__1 */ int locportnum = -1; int pos = -1; struct addrinfo hints = { 0 }; char remservicename[24] = { 0 }; char remhostname[80] = { 0 }; struct addrinfo *adinf = NULL; int gstatus = -1; static melt_connect_info_map_t coninfmap; Melt_connect_info conninfo; bool gotconninfo = false; const char* servicestr = melt_string_str (/*_.SERVICE__V2*/ meltfptr[1]); melt_debugeprintf("connect_to_server TCPlike servicestr=%s", servicestr); if ((sscanf(servicestr, "localhost:%d", &locportnum)>0 || sscanf(servicestr, ":%d", &locportnum)>0) && locportnum>0) { melt_debugeprintf("connect_to_server locportnum=%d", locportnum); struct sockaddr_in sain; memset (&sain, 0, sizeof (sain)); servicestr = NULL; sain.sin_family = AF_INET; sain.sin_port = htons ((int)locportnum); sain.sin_addr.s_addr = htonl (INADDR_LOOPBACK); /*_#TCPSOCKFD__L17*/ meltfnum[13] = (long) socket (AF_INET, SOCK_STREAM, IPPROTO_TCP); if ((int)/*_#TCPSOCKFD__L17*/ meltfnum[13]<0) { warning (0, "MELT connect_to_server: localhost:%d socket failure: %s", locportnum, xstrerror(errno)); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3472:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3472:/ 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 ; { /*^locexp*/ /*ignore*/(void)(/*_.RETURN___V32*/ meltfptr[15]); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3443:/ clear"); /*clear*/ /*_.RETURN___V32*/ meltfptr[15] = 0 ; } ; } if (connect ((int)/*_#TCPSOCKFD__L17*/ meltfnum[13], (const struct sockaddr*)&sain, (socklen_t)sizeof(sain))) { warning (0, "MELT connect_to_server: localhost:%d connect failure: %s", locportnum, xstrerror(errno)); (void) close((int)/*_#TCPSOCKFD__L17*/ meltfnum[13]); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3478:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3478:/ 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 ; { /*^locexp*/ /*ignore*/(void)(/*_.RETURN___V33*/ meltfptr[15]); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3443:/ clear"); /*clear*/ /*_.RETURN___V33*/ meltfptr[15] = 0 ; } ; } } else /* try IPv6 connection with getaddrinfo, : */ { memset (&hints, 0, sizeof (hints)); /// use the memoized connect info, if available { const char* servicestr = melt_string_str (/*_.SERVICE__V2*/ meltfptr[1]); gcc_assert (servicestr != NULL); melt_connect_info_map_t::iterator iterconninfo = coninfmap.find(std::string(servicestr)); if (iterconninfo != coninfmap.end()) { conninfo = iterconninfo->second; gotconninfo = true; } melt_debugeprintf("connect_to_server gotconninfo=%d", (int) gotconninfo); if (strlen(servicestr) >= sizeof(remhostname)) { warning (0, "MELT connect_to_server: too long service name %s", servicestr); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3496:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3496:/ 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 ; { /*^locexp*/ /*ignore*/(void)(/*_.RETURN___V34*/ meltfptr[15]); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3443:/ clear"); /*clear*/ /*_.RETURN___V34*/ meltfptr[15] = 0 ; } ; }; const char* lastcolon = strrchr(servicestr, ':'); gcc_assert (lastcolon != NULL && lastcolon > servicestr+1); strncpy (remhostname, servicestr, MIN((unsigned)(lastcolon-servicestr), (unsigned)sizeof(remhostname))); strncpy (remservicename, lastcolon+1, sizeof(remservicename)-1); melt_debugeprintf("connect_to_server remhostname=%s remservicename=%s", remhostname, remservicename); if (gotconninfo) // cached network info from previous call { gcc_assert (!strcmp(conninfo.mci_service.c_str(), melt_string_str(/*_.SERVICE__V2*/ meltfptr[1]))); /*_#TCPSOCKFD__L17*/ meltfnum[13] = (long) socket (conninfo.mci_family, conninfo.mci_socktype, conninfo.mci_protocol); if ((int)/*_#TCPSOCKFD__L17*/ meltfnum[13]<0) { warning (0, "MELT connect_to_server: cached service %s socket failed: %s", melt_string_str(/*_.SERVICE__V2*/ meltfptr[1]), xstrerror(errno)); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3511:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3511:/ 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 ; { /*^locexp*/ /*ignore*/(void)(/*_.RETURN___V35*/ meltfptr[15]); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3443:/ clear"); /*clear*/ /*_.RETURN___V35*/ meltfptr[15] = 0 ; } ; } if (connect ((int)/*_#TCPSOCKFD__L17*/ meltfnum[13], (struct sockaddr *) &conninfo.mci_sockaddr, conninfo.mci_addrlen) < 0) { warning (0, "MELT connect_to_server: cached service %s connect failed: %s", melt_string_str(/*_.SERVICE__V2*/ meltfptr[1]), xstrerror(errno)); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3517:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3517:/ 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 ; { /*^locexp*/ /*ignore*/(void)(/*_.RETURN___V36*/ meltfptr[15]); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3443:/ clear"); /*clear*/ /*_.RETURN___V36*/ meltfptr[15] = 0 ; } ; }; /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3519:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L18*/ meltfnum[12] = /*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-hooks.melt:3519:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L19*/ 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-hooks.melt:3519:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L19*/ meltfnum[18]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3519; /*^apply.arg*/ argtab[3].meltbp_cstring = "connect_to_server cached service="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SERVICE__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " tcpsockfd="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#TCPSOCKFD__L17*/ meltfnum[13]; /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V37*/ meltfptr[15] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3519:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V37*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3519:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V37*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*_.BOX__V39*/ meltfptr[37] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#TCPSOCKFD__L17*/ meltfnum[13]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3520:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.BOX__V39*/ meltfptr[37];; { MELT_LOCATION("warmelt-hooks.melt:3520:/ 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-hooks.melt:3521:/ locexp"); /*void*/(void)0; } ; MELT_LOCATION("warmelt-hooks.melt:3519:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3443:/ clear"); /*clear*/ /*_.BOX__V39*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V40*/ meltfptr[15] = 0 ; } };// end if gotconninfo }; hints.ai_family = AF_UNSPEC; hints.ai_socktype = SOCK_STREAM; hints.ai_flags = AI_PASSIVE | AI_CANONNAME; if ((gstatus = getaddrinfo (remhostname, remservicename, &hints, &adinf)) != 0) { warning (0, "MELT connect_to_server: getaddrinfo host %s service %s failed: %s", remhostname, remservicename, gai_strerror(gstatus)); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3530:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3530:/ 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 ; { /*^locexp*/ /*ignore*/(void)(/*_.RETURN___V41*/ meltfptr[37]); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3443:/ clear"); /*clear*/ /*_.RETURN___V41*/ meltfptr[37] = 0 ; } ; }; for (struct addrinfo * curadinf = adinf; curadinf != NULL; curadinf = curadinf->ai_next) { errno = 0; /*_#TCPSOCKFD__L17*/ meltfnum[13] = (long) socket (curadinf->ai_family, curadinf->ai_socktype, curadinf->ai_protocol); if ((int)/*_#TCPSOCKFD__L17*/ meltfnum[13]<0 && curadinf->ai_next) continue; if ((int)/*_#TCPSOCKFD__L17*/ meltfnum[13]<0) { int errnosocket = errno; struct protoent *protoent = getprotobynumber (curadinf->ai_protocol); char protonumbuf[8] = { 0 }; char* protoname = NULL; if (protoent) protoname = protoent->p_name; else { snprintf (protonumbuf, sizeof (protonumbuf), "%d", curadinf->ai_protocol); protoname = protonumbuf; }; warning (0, "MELT connect_to_server socket remote host %s service %s failed for protocol %s: %s", remhostname, remservicename, protoname, xstrerror(errnosocket)); freeaddrinfo (adinf); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3557:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3557:/ 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 ; { /*^locexp*/ /*ignore*/(void)(/*_.RETURN___V42*/ meltfptr[15]); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3443:/ clear"); /*clear*/ /*_.RETURN___V42*/ meltfptr[15] = 0 ; } ; }; // end if (int)/*_#TCPSOCKFD__L17*/ meltfnum[13]<0 if (connect ((int)/*_#TCPSOCKFD__L17*/ meltfnum[13], (struct sockaddr *) curadinf->ai_addr, curadinf->ai_addrlen) < 0) { int errnoconnect = errno; struct protoent *protoent = getprotobynumber (curadinf->ai_protocol); char protonumbuf[8] = { 0 }; char* protoname = NULL; if (protoent) protoname = protoent->p_name; else { snprintf (protonumbuf, sizeof (protonumbuf), "%d", curadinf->ai_protocol); protoname = protonumbuf; }; warning (0, "MELT connect_to_server connect remote host %s service %s failed for protocol %s: %s", remhostname, remservicename, protoname, xstrerror(errnoconnect)); freeaddrinfo (adinf); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3576:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3576:/ 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 ; { /*^locexp*/ /*ignore*/(void)(/*_.RETURN___V43*/ meltfptr[37]); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3443:/ clear"); /*clear*/ /*_.RETURN___V43*/ meltfptr[37] = 0 ; } ; } // end if connect failed else { // memoize and break the loop Melt_connect_info newconninfo; std::string strservice(melt_string_str(/*_.SERVICE__V2*/ meltfptr[1])); newconninfo.mci_service = strservice; newconninfo.mci_family = curadinf->ai_family; newconninfo.mci_socktype = curadinf->ai_socktype; newconninfo.mci_protocol = curadinf->ai_protocol; newconninfo.mci_addrlen = curadinf->ai_addrlen; memset (&newconninfo.mci_sockaddr, 0, sizeof(struct sockaddr_storage)); memcpy (&newconninfo.mci_sockaddr, curadinf->ai_addr, curadinf->ai_addrlen); coninfmap[strservice] = newconninfo; break; }; }; /* end for curadinf */ freeaddrinfo(adinf), adinf = NULL; } /* end IP with getaddrinfo */ /* end connect_to_server CONNECTTCP_CHK__1 */ ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3597:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L20*/ meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG > 0 (/*melt_need_dbg*/ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-hooks.melt:3597:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L21*/ meltfnum[12] = /* 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-hooks.melt:3597:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L21*/ meltfnum[12]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3597; /*^apply.arg*/ argtab[3].meltbp_cstring = "connect_to_server service="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SERVICE__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " tcpsockfd="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#TCPSOCKFD__L17*/ meltfnum[13]; /*_.MELT_DEBUG_FUN__V45*/ meltfptr[37] = 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V44*/ meltfptr[15] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3597:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ meltfptr[37] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V44*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3597:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V44*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*_.BOX__V46*/ meltfptr[37] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#TCPSOCKFD__L17*/ meltfnum[13]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3598:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.BOX__V46*/ meltfptr[37];; { MELT_LOCATION("warmelt-hooks.melt:3598:/ 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___V31*/ meltfptr[19] = /*_.RETURN___V47*/ meltfptr[15];; MELT_LOCATION("warmelt-hooks.melt:3441:/ clear"); /*clear*/ /*_#TCPSOCKFD__L17*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.BOX__V46*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V47*/ meltfptr[15] = 0 ; /*_._IFELSE___V30*/ meltfptr[26] = /*_.LET___V31*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3439:/ clear"); /*clear*/ /*_.LET___V31*/ meltfptr[19] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3601:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "connect_to_server: invalid service $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SERVICE__V2*/ meltfptr[1]; /*_.WARNING_AT__V48*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!WARNING_AT*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:3602:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3602:/ 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-hooks.melt:3600:/ quasiblock"); /*_.PROGN___V50*/ meltfptr[19] = /*_.RETURN___V49*/ meltfptr[15];; /*^compute*/ /*_._IFELSE___V30*/ meltfptr[26] = /*_.PROGN___V50*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3439:/ clear"); /*clear*/ /*_.WARNING_AT__V48*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V49*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V50*/ meltfptr[19] = 0 ; } ; } ; /*_._IFELSE___V21*/ meltfptr[2] = /*_._IFELSE___V30*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3394:/ clear"); /*clear*/ /*_#UNIXSOCKSLASH_CHK__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V30*/ meltfptr[26] = 0 ; } ; } ; /*_._IFELSE___V17*/ meltfptr[6] = /*_._IFELSE___V21*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3390:/ clear"); /*clear*/ /*_#UNIXSOCKSLASH_CHK__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V21*/ meltfptr[2] = 0 ; } ; } ; /*_._IFELSE___V13*/ meltfptr[9] = /*_._IFELSE___V17*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3387:/ clear"); /*clear*/ /*_#STRING_LENGTH__L10*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V17*/ meltfptr[6] = 0 ; } ; } ; /*_._IFELSE___V5*/ meltfptr[3] = /*_._IFELSE___V13*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3352:/ clear"); /*clear*/ /*_#IS_STRING__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L9*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V13*/ meltfptr[9] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3338:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V5*/ meltfptr[3];; { MELT_LOCATION("warmelt-hooks.melt:3338:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_#IS_INTEGERBOX__L4*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("CONNECT_TO_SERVER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_93_WARMELTmiHOOKS_CONNECT_TO_SERVER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_WARMELTmiHOOKS_JSON_LEXER(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_94_WARMELTmiHOOKS_JSON_LEXER_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_94_WARMELTmiHOOKS_JSON_LEXER fromline 1752 */ /** start of frame for meltrout_94_WARMELTmiHOOKS_JSON_LEXER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_94_WARMELTmiHOOKS_JSON_LEXER// fromline 1568 : public Melt_CallFrameWithValues<113> { public: /* fromline 1572*/ long mcfr_varnum[111]; /*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_94_WARMELTmiHOOKS_JSON_LEXER(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<113> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_94_WARMELTmiHOOKS_JSON_LEXER), clos) {}; MeltFrame_meltrout_94_WARMELTmiHOOKS_JSON_LEXER() //the constructor fromline 1642 : Melt_CallFrameWithValues<113> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_94_WARMELTmiHOOKS_JSON_LEXER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_94_WARMELTmiHOOKS_JSON_LEXER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<113> (fil,lin, sizeof(MeltFrame_meltrout_94_WARMELTmiHOOKS_JSON_LEXER)) {}; MeltFrame_meltrout_94_WARMELTmiHOOKS_JSON_LEXER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<113> (fil,lin, sizeof(MeltFrame_meltrout_94_WARMELTmiHOOKS_JSON_LEXER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_94_WARMELTmiHOOKS_JSON_LEXER /** end of frame for meltrout_94_WARMELTmiHOOKS_JSON_LEXER fromline 1697**/ /* end of frame for routine meltrout_94_WARMELTmiHOOKS_JSON_LEXER fromline 1756 */ /* classy proc frame meltrout_94_WARMELTmiHOOKS_JSON_LEXER */ MeltFrame_meltrout_94_WARMELTmiHOOKS_JSON_LEXER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_94_WARMELTmiHOOKS_JSON_LEXER 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("JSON_LEXER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:3633:/ getarg"); /*_.SBUF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-hooks.melt:3634:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V3*/ meltfptr[2] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:3634:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3635:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3635:/ 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-hooks.melt:3634:/ quasiblock"); /*_.PROGN___V5*/ meltfptr[4] = /*_.RETURN___V4*/ meltfptr[3];; /*^compute*/ /*_._IFELSE___V3*/ meltfptr[2] = /*_.PROGN___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3634:/ clear"); /*clear*/ /*_.RETURN___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V5*/ meltfptr[4] = 0 ; } ; } ; MELT_LOCATION("warmelt-hooks.melt:3636:/ loop"); /*loop*/ { meltlabloop_LEXLOOP_1:;/*^loopbody*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3638:/ quasiblock"); /*_#CURCH__L2*/ meltfnum[1] = -1;; /*^compute*/ /*_#NEXTCH__L3*/ meltfnum[2] = -1;; /*^compute*/ /*_#BULEN__L4*/ meltfnum[3] = melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#lteqI__L5*/ meltfnum[4] = ((/*_#BULEN__L4*/ meltfnum[3]) <= (0));; MELT_LOCATION("warmelt-hooks.melt:3642:/ cond"); /*cond*/ if (/*_#lteqI__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3643:/ 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-hooks.melt:3643:/ 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-hooks.melt:3643:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[6]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3643; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer eof"; /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V10*/ meltfptr[9] = /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3643:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V10*/ meltfptr[9] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3643:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V10*/ meltfptr[9] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:3644:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3644:/ 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-hooks.melt:3642:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[9] = /*_.RETURN___V12*/ meltfptr[10];; /*^compute*/ /*_._IF___V9*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3642:/ clear"); /*clear*/ /*_.RETURN___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V13*/ meltfptr[9] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V9*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3645:/ locexp"); /* json_lexer GETCH2_CHK__1 */ const char* pc = melt_strbuf_unsafe_byte_address(/*_.SBUF__V2*/ meltfptr[1], 0); if (/*_#BULEN__L4*/ meltfnum[3]>0) /*_#CURCH__L2*/ meltfnum[1]= pc[0]; if (/*_#BULEN__L4*/ meltfnum[3]>1) /*_#NEXTCH__L3*/ meltfnum[2]= pc[1]; ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3651:/ 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-hooks.melt:3651:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L9*/ 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-hooks.melt:3651:/ apply"); /*apply*/ { union meltparam_un argtab[11]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L9*/ meltfnum[5]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3651; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer loop sbuf="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " curch="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#CURCH__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[7].meltbp_cstring = " nextch="; /*^apply.arg*/ argtab[8].meltbp_long = /*_#NEXTCH__L3*/ meltfnum[2]; /*^apply.arg*/ argtab[9].meltbp_cstring = " bulen="; /*^apply.arg*/ argtab[10].meltbp_long = /*_#BULEN__L4*/ meltfnum[3]; /*_.MELT_DEBUG_FUN__V15*/ meltfptr[9] = 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_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V14*/ meltfptr[10] = /*_.MELT_DEBUG_FUN__V15*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3651:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V15*/ meltfptr[9] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V14*/ meltfptr[10] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3651:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V14*/ meltfptr[10] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*_#TESTSPACE_CHK__L10*/ meltfnum[5] = ISSPACE(/*_#CURCH__L2*/ meltfnum[1]);; MELT_LOCATION("warmelt-hooks.melt:3655:/ cond"); /*cond*/ if (/*_#TESTSPACE_CHK__L10*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3656:/ locexp"); /*strbuf_consume*/ melt_strbuf_consume((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(1)); } ; MELT_LOCATION("warmelt-hooks.melt:3657:/ again"); /*again*/ { goto meltlabloop_LEXLOOP_1; } ; MELT_LOCATION("warmelt-hooks.melt:3655:/ quasiblock"); /*epilog*/ } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#eqeqI__L11*/ meltfnum[6] = ((/*_#CURCH__L2*/ meltfnum[1]) == (91));; MELT_LOCATION("warmelt-hooks.melt:3659:/ cond"); /*cond*/ if (/*_#eqeqI__L11*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3660:/ locexp"); /*strbuf_consume*/ melt_strbuf_consume((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(1)); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3661:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L12*/ meltfnum[11] = /*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-hooks.melt:3661:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = /* 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-hooks.melt:3661:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L13*/ meltfnum[12]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3661; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer leftbacket"; /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V18*/ meltfptr[17] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3661:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V18*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3661:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V18*/ meltfptr[17] = 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-hooks.melt:3662:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_1_DELIM*/ meltfrout->tabval[1]);; MELT_LOCATION("warmelt-hooks.melt:3662:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*!konst_2_LEFT_BRACKET*/ meltfrout->tabval[2])); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-hooks.melt:3659:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[17] = /*_.RETURN___V20*/ meltfptr[18];; /*^compute*/ /*_._IFELSE___V17*/ meltfptr[10] = /*_.PROGN___V21*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3659:/ clear"); /*clear*/ /*_.RETURN___V20*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V21*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#eqeqI__L14*/ meltfnum[12] = ((/*_#CURCH__L2*/ meltfnum[1]) == (93));; MELT_LOCATION("warmelt-hooks.melt:3663:/ cond"); /*cond*/ if (/*_#eqeqI__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3664:/ locexp"); /*strbuf_consume*/ melt_strbuf_consume((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(1)); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3665:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L15*/ meltfnum[11] = /*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-hooks.melt:3665:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[11]) /*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-hooks.melt:3665:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L16*/ meltfnum[15]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3665; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer rightbracket"; /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V23*/ meltfptr[17] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3665:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[15] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V23*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3665:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V23*/ meltfptr[17] = 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-hooks.melt:3666:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_1_DELIM*/ meltfrout->tabval[1]);; MELT_LOCATION("warmelt-hooks.melt:3666:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*!konst_3_RIGHT_BRACKET*/ meltfrout->tabval[3])); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-hooks.melt:3663:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[17] = /*_.RETURN___V25*/ meltfptr[23];; /*^compute*/ /*_._IFELSE___V22*/ meltfptr[18] = /*_.PROGN___V26*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3663:/ clear"); /*clear*/ /*_.RETURN___V25*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V26*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#eqeqI__L17*/ meltfnum[15] = ((/*_#CURCH__L2*/ meltfnum[1]) == (44));; MELT_LOCATION("warmelt-hooks.melt:3667:/ cond"); /*cond*/ if (/*_#eqeqI__L17*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3668:/ locexp"); /*strbuf_consume*/ melt_strbuf_consume((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(1)); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3669:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L18*/ meltfnum[11] = /*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-hooks.melt:3669:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L19*/ 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-hooks.melt:3669:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L19*/ meltfnum[18]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3669; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer comma"; /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V28*/ meltfptr[17] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3669:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V28*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3669:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V28*/ meltfptr[17] = 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-hooks.melt:3670:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_1_DELIM*/ meltfrout->tabval[1]);; MELT_LOCATION("warmelt-hooks.melt:3670:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*!konst_4_COMMA*/ meltfrout->tabval[4])); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-hooks.melt:3667:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[17] = /*_.RETURN___V30*/ meltfptr[28];; /*^compute*/ /*_._IFELSE___V27*/ meltfptr[23] = /*_.PROGN___V31*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3667:/ clear"); /*clear*/ /*_.RETURN___V30*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V31*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#eqeqI__L20*/ meltfnum[18] = ((/*_#CURCH__L2*/ meltfnum[1]) == (58));; MELT_LOCATION("warmelt-hooks.melt:3671:/ cond"); /*cond*/ if (/*_#eqeqI__L20*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3672:/ locexp"); /*strbuf_consume*/ melt_strbuf_consume((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(1)); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3673:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L21*/ meltfnum[11] = /*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-hooks.melt:3673:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[11]) /*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-hooks.melt:3673:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L22*/ meltfnum[21]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3673; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer colon"; /*_.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 ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V33*/ meltfptr[17] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3673:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V33*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3673:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V33*/ meltfptr[17] = 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-hooks.melt:3674:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_1_DELIM*/ meltfrout->tabval[1]);; MELT_LOCATION("warmelt-hooks.melt:3674:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*!konst_5_COLON*/ meltfrout->tabval[5])); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-hooks.melt:3671:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[17] = /*_.RETURN___V35*/ meltfptr[33];; /*^compute*/ /*_._IFELSE___V32*/ meltfptr[28] = /*_.PROGN___V36*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3671:/ clear"); /*clear*/ /*_.RETURN___V35*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V36*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#eqeqI__L23*/ meltfnum[21] = ((/*_#CURCH__L2*/ meltfnum[1]) == (123));; MELT_LOCATION("warmelt-hooks.melt:3675:/ cond"); /*cond*/ if (/*_#eqeqI__L23*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3676:/ locexp"); /*strbuf_consume*/ melt_strbuf_consume((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(1)); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3677:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L24*/ meltfnum[11] = /*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-hooks.melt:3677:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L24*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L25*/ meltfnum[24] = /* 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-hooks.melt:3677:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L25*/ meltfnum[24]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3677; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer leftbrace"; /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V38*/ meltfptr[17] = /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3677:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L25*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V38*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3677:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L24*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V38*/ meltfptr[17] = 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-hooks.melt:3678:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_1_DELIM*/ meltfrout->tabval[1]);; MELT_LOCATION("warmelt-hooks.melt:3678:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*!konst_6_LEFT_BRACE*/ meltfrout->tabval[6])); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-hooks.melt:3675:/ quasiblock"); /*_.PROGN___V41*/ meltfptr[17] = /*_.RETURN___V40*/ meltfptr[38];; /*^compute*/ /*_._IFELSE___V37*/ meltfptr[33] = /*_.PROGN___V41*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3675:/ clear"); /*clear*/ /*_.RETURN___V40*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V41*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#eqeqI__L26*/ meltfnum[24] = ((/*_#CURCH__L2*/ meltfnum[1]) == (125));; MELT_LOCATION("warmelt-hooks.melt:3679:/ cond"); /*cond*/ if (/*_#eqeqI__L26*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3680:/ locexp"); /*strbuf_consume*/ melt_strbuf_consume((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(1)); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3681:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L27*/ meltfnum[11] = /*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-hooks.melt:3681:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L27*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L28*/ meltfnum[27] = /* 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-hooks.melt:3681:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L28*/ meltfnum[27]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3681; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer rightbrace"; /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V43*/ meltfptr[17] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3681:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L28*/ meltfnum[27] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V43*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3681:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L27*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V43*/ meltfptr[17] = 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-hooks.melt:3682:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_1_DELIM*/ meltfrout->tabval[1]);; MELT_LOCATION("warmelt-hooks.melt:3682:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*!konst_7_RIGHT_BRACE*/ meltfrout->tabval[7])); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-hooks.melt:3679:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[17] = /*_.RETURN___V45*/ meltfptr[43];; /*^compute*/ /*_._IFELSE___V42*/ meltfptr[38] = /*_.PROGN___V46*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3679:/ clear"); /*clear*/ /*_.RETURN___V45*/ meltfptr[43] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V46*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#TESTDIGITMINUS_CHK__L29*/ meltfnum[27] = /* json_lexer TESTDIGITMINUS_CHK__1 */ (ISDIGIT(/*_#CURCH__L2*/ meltfnum[1]) || ((char)/*_#CURCH__L2*/ meltfnum[1]== '-' && ISDIGIT((char)/*_#NEXTCH__L3*/ meltfnum[2])));; MELT_LOCATION("warmelt-hooks.melt:3685:/ cond"); /*cond*/ if (/*_#TESTDIGITMINUS_CHK__L29*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3690:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L30*/ meltfnum[11] = /*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-hooks.melt:3690:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L30*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L31*/ meltfnum[30] = /* 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-hooks.melt:3690:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L31*/ meltfnum[30]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3690; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer number start"; /*_.MELT_DEBUG_FUN__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V48*/ meltfptr[17] = /*_.MELT_DEBUG_FUN__V49*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3690:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L31*/ meltfnum[30] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V49*/ meltfptr[48] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V48*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3690:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L30*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V48*/ meltfptr[17] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:3691:/ quasiblock"); /*_#EATLEN__L32*/ meltfnum[30] = 0;; /*^compute*/ /*_.VAL__V51*/ meltfptr[17] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3695:/ locexp"); /* json_lexer begin PARSEJSONNUM_CHK__1 */ long l = 0 ; double x = 0.0 ; int lnum = melt_strbuf_peek_long_number(/*_.SBUF__V2*/ meltfptr[1],0,&l) ; int ldbl = melt_strbuf_peek_double_number(/*_.SBUF__V2*/ meltfptr[1],0,&x) ; melt_debugeprintf("json_lexer PARSEJSONNUM_CHK__1 lnum=%d ldbl=%d l=%ld x=%g bulen=%ld", lnum, ldbl, l, x, /*_#BULEN__L4*/ meltfnum[3]); if (lnum>0 && lnum>=ldbl && (long)lnum0 && (long)ldbl0 MELT_LOCATION("warmelt-hooks.melt:3720:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L33*/ meltfnum[11] = /*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-hooks.melt:3720:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L33*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L34*/ meltfnum[33] = /* 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-hooks.melt:3720:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L34*/ meltfnum[33]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3720; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer number eatlen="; /*^apply.arg*/ argtab[4].meltbp_long = /*_#EATLEN__L32*/ meltfnum[30]; /*^apply.arg*/ argtab[5].meltbp_cstring = " val="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.VAL__V51*/ meltfptr[17]; /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52] = 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_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V52*/ meltfptr[51] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3720:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L34*/ meltfnum[33] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V52*/ meltfptr[51] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3720:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L33*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V52*/ meltfptr[51] = 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-hooks.melt:3721:/ cond"); /*cond*/ if (/*_#EATLEN__L32*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3722:/ locexp"); /*strbuf_consume*/ melt_strbuf_consume((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(/*_#EATLEN__L32*/ meltfnum[30])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3723:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L35*/ meltfnum[33] = /*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-hooks.melt:3723:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L35*/ meltfnum[33]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L36*/ 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-hooks.melt:3723:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L36*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3723; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer number val="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.VAL__V51*/ meltfptr[17]; /*_.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 ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V55*/ meltfptr[51] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3723:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L36*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V55*/ meltfptr[51] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3723:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L35*/ meltfnum[33] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V55*/ meltfptr[51] = 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-hooks.melt:3724:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_8_NUMBER*/ meltfrout->tabval[8]);; MELT_LOCATION("warmelt-hooks.melt:3724:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.VAL__V51*/ meltfptr[17]); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-hooks.melt:3721:/ quasiblock"); /*_.PROGN___V58*/ meltfptr[51] = /*_.RETURN___V57*/ meltfptr[55];; /*^compute*/ /*_._IF___V54*/ meltfptr[52] = /*_.PROGN___V58*/ meltfptr[51];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3721:/ clear"); /*clear*/ /*_.RETURN___V57*/ meltfptr[55] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V58*/ meltfptr[51] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V54*/ meltfptr[52] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V50*/ meltfptr[48] = /*_._IF___V54*/ meltfptr[52];; MELT_LOCATION("warmelt-hooks.melt:3691:/ clear"); /*clear*/ /*_#EATLEN__L32*/ meltfnum[30] = 0 ; /*^clear*/ /*clear*/ /*_.VAL__V51*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V54*/ meltfptr[52] = 0 ; MELT_LOCATION("warmelt-hooks.melt:3685:/ quasiblock"); /*_.PROGN___V59*/ meltfptr[55] = /*_.LET___V50*/ meltfptr[48];; /*^compute*/ /*_._IFELSE___V47*/ meltfptr[43] = /*_.PROGN___V59*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3685:/ clear"); /*clear*/ /*_.LET___V50*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V59*/ meltfptr[55] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#eqeqI__L37*/ meltfnum[11] = ((/*_#CURCH__L2*/ meltfnum[1]) == (34));; MELT_LOCATION("warmelt-hooks.melt:3728:/ cond"); /*cond*/ if (/*_#eqeqI__L37*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3729:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L38*/ meltfnum[33] = /*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-hooks.melt:3729:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L38*/ meltfnum[33]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L39*/ meltfnum[30] = /* 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-hooks.melt:3729:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L39*/ meltfnum[30]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3729; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer string start"; /*_.MELT_DEBUG_FUN__V62*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V61*/ meltfptr[17] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3729:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L39*/ meltfnum[30] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ meltfptr[52] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V61*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3729:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L38*/ meltfnum[33] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V61*/ meltfptr[17] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:3734:/ quasiblock"); /*_.NSTR__V64*/ meltfptr[55] = (/*nil*/NULL);; /*^compute*/ /*_#ENDOFF__L40*/ meltfnum[30] = 0;; { MELT_LOCATION("warmelt-hooks.melt:3737:/ locexp"); /* json_lexer PEEKJSONSTR_CHK__1 */ int iend = 0 ; /*_.NSTR__V64*/ meltfptr[55] = meltgc_strbuf_json_string_peek (/*_.SBUF__V2*/ meltfptr[1], 0, &iend) ; if (/*_.NSTR__V64*/ meltfptr[55]) /*_#ENDOFF__L40*/ meltfnum[30] = (long) iend ; ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3744:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L41*/ meltfnum[33] = /*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-hooks.melt:3744:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L41*/ meltfnum[33]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L42*/ meltfnum[41] = /* 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-hooks.melt:3744:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L42*/ meltfnum[41]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3744; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer string nstr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NSTR__V64*/ meltfptr[55]; /*^apply.arg*/ argtab[5].meltbp_cstring = " endoff="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#ENDOFF__L40*/ meltfnum[30]; /*_.MELT_DEBUG_FUN__V66*/ meltfptr[17] = 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V65*/ meltfptr[52] = /*_.MELT_DEBUG_FUN__V66*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3744:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L42*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V66*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V65*/ meltfptr[52] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3744:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L41*/ meltfnum[33] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V65*/ meltfptr[52] = 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-hooks.melt:3745:/ cond"); /*cond*/ if (/*_.NSTR__V64*/ meltfptr[55]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3746:/ locexp"); /*strbuf_consume*/ melt_strbuf_consume((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(/*_#ENDOFF__L40*/ meltfnum[30])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3747:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_9_STRING*/ meltfrout->tabval[9]);; MELT_LOCATION("warmelt-hooks.melt:3747:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NSTR__V64*/ meltfptr[55]); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-hooks.melt:3745:/ quasiblock"); /*_.PROGN___V69*/ meltfptr[68] = /*_.RETURN___V68*/ meltfptr[52];; /*^compute*/ /*_._IF___V67*/ meltfptr[17] = /*_.PROGN___V69*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3745:/ clear"); /*clear*/ /*_.RETURN___V68*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V69*/ meltfptr[68] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V67*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V63*/ meltfptr[48] = /*_._IF___V67*/ meltfptr[17];; MELT_LOCATION("warmelt-hooks.melt:3734:/ clear"); /*clear*/ /*_.NSTR__V64*/ meltfptr[55] = 0 ; /*^clear*/ /*clear*/ /*_#ENDOFF__L40*/ meltfnum[30] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V67*/ meltfptr[17] = 0 ; MELT_LOCATION("warmelt-hooks.melt:3728:/ quasiblock"); /*_.PROGN___V70*/ meltfptr[52] = /*_.LET___V63*/ meltfptr[48];; /*^compute*/ /*_._IFELSE___V60*/ meltfptr[51] = /*_.PROGN___V70*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3728:/ clear"); /*clear*/ /*_.LET___V63*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V70*/ meltfptr[52] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#eqeqI__L43*/ meltfnum[41] = ((/*_#CURCH__L2*/ meltfnum[1]) == (110));; MELT_LOCATION("warmelt-hooks.melt:3752:/ cond"); /*cond*/ if (/*_#eqeqI__L43*/ meltfnum[41]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#eqeqI__L45*/ meltfnum[30] = ((/*_#NEXTCH__L3*/ meltfnum[2]) == (117));; MELT_LOCATION("warmelt-hooks.melt:3752:/ cond"); /*cond*/ if (/*_#eqeqI__L45*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#gtI__L47*/ meltfnum[46] = ((/*_#BULEN__L4*/ meltfnum[3]) > (4));; MELT_LOCATION("warmelt-hooks.melt:3752:/ cond"); /*cond*/ if (/*_#gtI__L47*/ meltfnum[46]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#STRBUF_PEEK__L49*/ meltfnum[48] = /*strbuf_peek*/ melt_strbuf_peek ((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(2)) ;; /*^compute*/ /*_#eqeqI__L50*/ meltfnum[49] = ((/*_#STRBUF_PEEK__L49*/ meltfnum[48]) == (108));; MELT_LOCATION("warmelt-hooks.melt:3752:/ cond"); /*cond*/ if (/*_#eqeqI__L50*/ meltfnum[49]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#STRBUF_PEEK__L52*/ meltfnum[51] = /*strbuf_peek*/ melt_strbuf_peek ((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(3)) ;; /*^compute*/ /*_#eqeqI__L53*/ meltfnum[52] = ((/*_#STRBUF_PEEK__L52*/ meltfnum[51]) == (108));; MELT_LOCATION("warmelt-hooks.melt:3752:/ cond"); /*cond*/ if (/*_#eqeqI__L53*/ meltfnum[52]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3757:/ quasiblock"); /*_#C4__L56*/ meltfnum[55] = /*strbuf_peek*/ melt_strbuf_peek ((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(4)) ;; /*^compute*/ /*_#TESTC4NULL_CHK__L57*/ meltfnum[56] = /* json_lexer TESTC4NULL_CHK__1 */ (!ISALNUM(/*_#C4__L56*/ meltfnum[55]) && /*_#C4__L56*/ meltfnum[55] != '_');; /*^compute*/ /*_#LET___L55*/ meltfnum[54] = /*_#TESTC4NULL_CHK__L57*/ meltfnum[56];; MELT_LOCATION("warmelt-hooks.melt:3757:/ clear"); /*clear*/ /*_#C4__L56*/ meltfnum[55] = 0 ; /*^clear*/ /*clear*/ /*_#TESTC4NULL_CHK__L57*/ meltfnum[56] = 0 ; /*_#_IF___L54*/ meltfnum[53] = /*_#LET___L55*/ meltfnum[54];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3752:/ clear"); /*clear*/ /*_#LET___L55*/ meltfnum[54] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L54*/ meltfnum[53] = 0;; } ; /*^compute*/ /*_#_IF___L51*/ meltfnum[50] = /*_#_IF___L54*/ meltfnum[53];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3752:/ clear"); /*clear*/ /*_#STRBUF_PEEK__L52*/ meltfnum[51] = 0 ; /*^clear*/ /*clear*/ /*_#eqeqI__L53*/ meltfnum[52] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L54*/ meltfnum[53] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L51*/ meltfnum[50] = 0;; } ; /*^compute*/ /*_#_IF___L48*/ meltfnum[47] = /*_#_IF___L51*/ meltfnum[50];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3752:/ clear"); /*clear*/ /*_#STRBUF_PEEK__L49*/ meltfnum[48] = 0 ; /*^clear*/ /*clear*/ /*_#eqeqI__L50*/ meltfnum[49] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L51*/ meltfnum[50] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L48*/ meltfnum[47] = 0;; } ; /*^compute*/ /*_#_IF___L46*/ meltfnum[45] = /*_#_IF___L48*/ meltfnum[47];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3752:/ clear"); /*clear*/ /*_#gtI__L47*/ meltfnum[46] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L48*/ meltfnum[47] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L46*/ meltfnum[45] = 0;; } ; /*^compute*/ /*_#_IF___L44*/ meltfnum[33] = /*_#_IF___L46*/ meltfnum[45];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3752:/ clear"); /*clear*/ /*_#eqeqI__L45*/ meltfnum[30] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L46*/ meltfnum[45] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L44*/ meltfnum[33] = 0;; } ; MELT_LOCATION("warmelt-hooks.melt:3752:/ cond"); /*cond*/ if (/*_#_IF___L44*/ meltfnum[33]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3761:/ locexp"); /*strbuf_consume*/ melt_strbuf_consume((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(4)); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3762:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L58*/ meltfnum[55] = /*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-hooks.melt:3762:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L58*/ meltfnum[55]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L59*/ meltfnum[56] = /* 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-hooks.melt:3762:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L59*/ meltfnum[56]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3762; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer null"; /*_.MELT_DEBUG_FUN__V73*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V72*/ meltfptr[55] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3762:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L59*/ meltfnum[56] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V72*/ meltfptr[55] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3762:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L58*/ meltfnum[55] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V72*/ meltfptr[55] = 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-hooks.melt:3763:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_10_KEYWORD*/ meltfrout->tabval[10]);; MELT_LOCATION("warmelt-hooks.melt:3763:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*!konst_11_JSON_NIL*/ meltfrout->tabval[11])); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-hooks.melt:3752:/ quasiblock"); /*_.PROGN___V75*/ meltfptr[52] = /*_.RETURN___V74*/ meltfptr[48];; /*^compute*/ /*_._IFELSE___V71*/ meltfptr[68] = /*_.PROGN___V75*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3752:/ clear"); /*clear*/ /*_.RETURN___V74*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V75*/ meltfptr[52] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#eqeqI__L60*/ meltfnum[54] = ((/*_#CURCH__L2*/ meltfnum[1]) == (116));; MELT_LOCATION("warmelt-hooks.melt:3766:/ cond"); /*cond*/ if (/*_#eqeqI__L60*/ meltfnum[54]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#eqeqI__L62*/ meltfnum[52] = ((/*_#NEXTCH__L3*/ meltfnum[2]) == (114));; MELT_LOCATION("warmelt-hooks.melt:3766:/ cond"); /*cond*/ if (/*_#eqeqI__L62*/ meltfnum[52]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#gtI__L64*/ meltfnum[48] = ((/*_#BULEN__L4*/ meltfnum[3]) > (4));; MELT_LOCATION("warmelt-hooks.melt:3766:/ cond"); /*cond*/ if (/*_#gtI__L64*/ meltfnum[48]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#STRBUF_PEEK__L66*/ meltfnum[50] = /*strbuf_peek*/ melt_strbuf_peek ((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(2)) ;; /*^compute*/ /*_#eqeqI__L67*/ meltfnum[46] = ((/*_#STRBUF_PEEK__L66*/ meltfnum[50]) == (117));; MELT_LOCATION("warmelt-hooks.melt:3766:/ cond"); /*cond*/ if (/*_#eqeqI__L67*/ meltfnum[46]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#STRBUF_PEEK__L69*/ meltfnum[30] = /*strbuf_peek*/ melt_strbuf_peek ((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(3)) ;; /*^compute*/ /*_#eqeqI__L70*/ meltfnum[45] = ((/*_#STRBUF_PEEK__L69*/ meltfnum[30]) == (101));; MELT_LOCATION("warmelt-hooks.melt:3766:/ cond"); /*cond*/ if (/*_#eqeqI__L70*/ meltfnum[45]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3771:/ quasiblock"); /*_#C4__L73*/ meltfnum[72] = /*strbuf_peek*/ melt_strbuf_peek ((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(4)) ;; /*^compute*/ /*_#TESTC4TRUE_CHK__L74*/ meltfnum[73] = /* json_lexer TESTC4TRUE_CHK__1 */ (!ISALNUM(/*_#C4__L73*/ meltfnum[72]) && /*_#C4__L73*/ meltfnum[72] != '_');; /*^compute*/ /*_#LET___L72*/ meltfnum[55] = /*_#TESTC4TRUE_CHK__L74*/ meltfnum[73];; MELT_LOCATION("warmelt-hooks.melt:3771:/ clear"); /*clear*/ /*_#C4__L73*/ meltfnum[72] = 0 ; /*^clear*/ /*clear*/ /*_#TESTC4TRUE_CHK__L74*/ meltfnum[73] = 0 ; /*_#_IF___L71*/ meltfnum[56] = /*_#LET___L72*/ meltfnum[55];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3766:/ clear"); /*clear*/ /*_#LET___L72*/ meltfnum[55] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L71*/ meltfnum[56] = 0;; } ; /*^compute*/ /*_#_IF___L68*/ meltfnum[47] = /*_#_IF___L71*/ meltfnum[56];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3766:/ clear"); /*clear*/ /*_#STRBUF_PEEK__L69*/ meltfnum[30] = 0 ; /*^clear*/ /*clear*/ /*_#eqeqI__L70*/ meltfnum[45] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L71*/ meltfnum[56] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L68*/ meltfnum[47] = 0;; } ; /*^compute*/ /*_#_IF___L65*/ meltfnum[49] = /*_#_IF___L68*/ meltfnum[47];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3766:/ clear"); /*clear*/ /*_#STRBUF_PEEK__L66*/ meltfnum[50] = 0 ; /*^clear*/ /*clear*/ /*_#eqeqI__L67*/ meltfnum[46] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L68*/ meltfnum[47] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L65*/ meltfnum[49] = 0;; } ; /*^compute*/ /*_#_IF___L63*/ meltfnum[53] = /*_#_IF___L65*/ meltfnum[49];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3766:/ clear"); /*clear*/ /*_#gtI__L64*/ meltfnum[48] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L65*/ meltfnum[49] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L63*/ meltfnum[53] = 0;; } ; /*^compute*/ /*_#_IF___L61*/ meltfnum[51] = /*_#_IF___L63*/ meltfnum[53];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3766:/ clear"); /*clear*/ /*_#eqeqI__L62*/ meltfnum[52] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L63*/ meltfnum[53] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L61*/ meltfnum[51] = 0;; } ; MELT_LOCATION("warmelt-hooks.melt:3766:/ cond"); /*cond*/ if (/*_#_IF___L61*/ meltfnum[51]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3775:/ locexp"); /*strbuf_consume*/ melt_strbuf_consume((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(4)); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3776:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L75*/ meltfnum[72] = /*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-hooks.melt:3776:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L75*/ meltfnum[72]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L76*/ meltfnum[73] = /* 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-hooks.melt:3776:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L76*/ meltfnum[73]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3776; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer true"; /*_.MELT_DEBUG_FUN__V78*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V77*/ meltfptr[55] = /*_.MELT_DEBUG_FUN__V78*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3776:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L76*/ meltfnum[73] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V78*/ meltfptr[48] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V77*/ meltfptr[55] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3776:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L75*/ meltfnum[72] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V77*/ meltfptr[55] = 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-hooks.melt:3777:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_10_KEYWORD*/ meltfrout->tabval[10]);; MELT_LOCATION("warmelt-hooks.melt:3777:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*!konst_12_TRUE*/ meltfrout->tabval[12])); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-hooks.melt:3766:/ quasiblock"); /*_.PROGN___V80*/ meltfptr[48] = /*_.RETURN___V79*/ meltfptr[52];; /*^compute*/ /*_._IFELSE___V76*/ meltfptr[17] = /*_.PROGN___V80*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3766:/ clear"); /*clear*/ /*_.RETURN___V79*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V80*/ meltfptr[48] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#eqeqI__L77*/ meltfnum[55] = ((/*_#CURCH__L2*/ meltfnum[1]) == (102));; MELT_LOCATION("warmelt-hooks.melt:3780:/ cond"); /*cond*/ if (/*_#eqeqI__L77*/ meltfnum[55]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#eqeqI__L79*/ meltfnum[45] = ((/*_#NEXTCH__L3*/ meltfnum[2]) == (97));; MELT_LOCATION("warmelt-hooks.melt:3780:/ cond"); /*cond*/ if (/*_#eqeqI__L79*/ meltfnum[45]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#gtI__L81*/ meltfnum[50] = ((/*_#BULEN__L4*/ meltfnum[3]) > (5));; MELT_LOCATION("warmelt-hooks.melt:3780:/ cond"); /*cond*/ if (/*_#gtI__L81*/ meltfnum[50]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#STRBUF_PEEK__L83*/ meltfnum[47] = /*strbuf_peek*/ melt_strbuf_peek ((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(2)) ;; /*^compute*/ /*_#eqeqI__L84*/ meltfnum[48] = ((/*_#STRBUF_PEEK__L83*/ meltfnum[47]) == (108));; MELT_LOCATION("warmelt-hooks.melt:3780:/ cond"); /*cond*/ if (/*_#eqeqI__L84*/ meltfnum[48]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#STRBUF_PEEK__L86*/ meltfnum[52] = /*strbuf_peek*/ melt_strbuf_peek ((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(3)) ;; /*^compute*/ /*_#eqeqI__L87*/ meltfnum[53] = ((/*_#STRBUF_PEEK__L86*/ meltfnum[52]) == (115));; MELT_LOCATION("warmelt-hooks.melt:3780:/ cond"); /*cond*/ if (/*_#eqeqI__L87*/ meltfnum[53]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#STRBUF_PEEK__L89*/ meltfnum[72] = /*strbuf_peek*/ melt_strbuf_peek ((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(4)) ;; /*^compute*/ /*_#eqeqI__L90*/ meltfnum[89] = ((/*_#STRBUF_PEEK__L89*/ meltfnum[72]) == (101));; MELT_LOCATION("warmelt-hooks.melt:3780:/ cond"); /*cond*/ if (/*_#eqeqI__L90*/ meltfnum[89]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3786:/ quasiblock"); /*_#C5__L93*/ meltfnum[92] = /*strbuf_peek*/ melt_strbuf_peek ((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(5)) ;; /*^compute*/ /*_#TESTC5FALSE_CHK__L94*/ meltfnum[93] = /* json_lexer TESTC5FALSE_CHK__1 */ (!ISALNUM(/*_#C5__L93*/ meltfnum[92]) && /*_#C5__L93*/ meltfnum[92] != '_');; /*^compute*/ /*_#LET___L92*/ meltfnum[91] = /*_#TESTC5FALSE_CHK__L94*/ meltfnum[93];; MELT_LOCATION("warmelt-hooks.melt:3786:/ clear"); /*clear*/ /*_#C5__L93*/ meltfnum[92] = 0 ; /*^clear*/ /*clear*/ /*_#TESTC5FALSE_CHK__L94*/ meltfnum[93] = 0 ; /*_#_IF___L91*/ meltfnum[90] = /*_#LET___L92*/ meltfnum[91];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3780:/ clear"); /*clear*/ /*_#LET___L92*/ meltfnum[91] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L91*/ meltfnum[90] = 0;; } ; /*^compute*/ /*_#_IF___L88*/ meltfnum[73] = /*_#_IF___L91*/ meltfnum[90];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3780:/ clear"); /*clear*/ /*_#STRBUF_PEEK__L89*/ meltfnum[72] = 0 ; /*^clear*/ /*clear*/ /*_#eqeqI__L90*/ meltfnum[89] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L91*/ meltfnum[90] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L88*/ meltfnum[73] = 0;; } ; /*^compute*/ /*_#_IF___L85*/ meltfnum[49] = /*_#_IF___L88*/ meltfnum[73];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3780:/ clear"); /*clear*/ /*_#STRBUF_PEEK__L86*/ meltfnum[52] = 0 ; /*^clear*/ /*clear*/ /*_#eqeqI__L87*/ meltfnum[53] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L88*/ meltfnum[73] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L85*/ meltfnum[49] = 0;; } ; /*^compute*/ /*_#_IF___L82*/ meltfnum[46] = /*_#_IF___L85*/ meltfnum[49];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3780:/ clear"); /*clear*/ /*_#STRBUF_PEEK__L83*/ meltfnum[47] = 0 ; /*^clear*/ /*clear*/ /*_#eqeqI__L84*/ meltfnum[48] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L85*/ meltfnum[49] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L82*/ meltfnum[46] = 0;; } ; /*^compute*/ /*_#_IF___L80*/ meltfnum[56] = /*_#_IF___L82*/ meltfnum[46];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3780:/ clear"); /*clear*/ /*_#gtI__L81*/ meltfnum[50] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L82*/ meltfnum[46] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L80*/ meltfnum[56] = 0;; } ; /*^compute*/ /*_#_IF___L78*/ meltfnum[30] = /*_#_IF___L80*/ meltfnum[56];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3780:/ clear"); /*clear*/ /*_#eqeqI__L79*/ meltfnum[45] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L80*/ meltfnum[56] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L78*/ meltfnum[30] = 0;; } ; MELT_LOCATION("warmelt-hooks.melt:3780:/ cond"); /*cond*/ if (/*_#_IF___L78*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-hooks.melt:3790:/ locexp"); /*strbuf_consume*/ melt_strbuf_consume((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(5)); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3791:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L95*/ meltfnum[92] = /*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-hooks.melt:3791:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L95*/ meltfnum[92]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L96*/ meltfnum[93] = /* 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-hooks.melt:3791:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L96*/ meltfnum[93]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3791; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer false"; /*_.MELT_DEBUG_FUN__V83*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V82*/ meltfptr[52] = /*_.MELT_DEBUG_FUN__V83*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3791:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L96*/ meltfnum[93] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V83*/ meltfptr[48] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V82*/ meltfptr[52] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3791:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L95*/ meltfnum[92] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V82*/ meltfptr[52] = 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-hooks.melt:3792:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_10_KEYWORD*/ meltfrout->tabval[10]);; MELT_LOCATION("warmelt-hooks.melt:3792:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*!konst_13_JSON_FALSE*/ meltfrout->tabval[13])); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-hooks.melt:3780:/ quasiblock"); /*_.PROGN___V85*/ meltfptr[52] = /*_.RETURN___V84*/ meltfptr[48];; /*^compute*/ /*_._IFELSE___V81*/ meltfptr[55] = /*_.PROGN___V85*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3780:/ clear"); /*clear*/ /*_.RETURN___V84*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V85*/ meltfptr[52] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#TESTALPHA_CHK__L97*/ meltfnum[91] = /* json_lexer TESTALPHA_CHK__1 */ (ISALPHA((char)/*_#CURCH__L2*/ meltfnum[1]) || (/*_#CURCH__L2*/ meltfnum[1]== '_')) ;; MELT_LOCATION("warmelt-hooks.melt:3795:/ cond"); /*cond*/ if (/*_#TESTALPHA_CHK__L97*/ meltfnum[91]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3798:/ quasiblock"); /*_.NAMBUF__V88*/ meltfptr[87] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[14])), (const char*)0);; /*^compute*/ /*_#IX__L98*/ meltfnum[72] = 0;; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3801:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L99*/ meltfnum[89] = /*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-hooks.melt:3801:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L99*/ meltfnum[89]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L100*/ meltfnum[90] = /* 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-hooks.melt:3801:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L100*/ meltfnum[90]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3801; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer start keyword"; /*_.MELT_DEBUG_FUN__V90*/ meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V89*/ meltfptr[88] = /*_.MELT_DEBUG_FUN__V90*/ meltfptr[89];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3801:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L100*/ meltfnum[90] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V90*/ meltfptr[89] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V89*/ meltfptr[88] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3801:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L99*/ meltfnum[89] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V89*/ meltfptr[88] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:3802:/ loop"); /*loop*/ { meltlabloop_GETALNUMLOOP_1:;/*^loopbody*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#gtI__L101*/ meltfnum[52] = ((/*_#IX__L98*/ meltfnum[72]) > (/*_#BULEN__L4*/ meltfnum[3]));; MELT_LOCATION("warmelt-hooks.melt:3803:/ cond"); /*cond*/ if (/*_#gtI__L101*/ meltfnum[52]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^quasiblock*/ /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3803:/ 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___V93*/ meltfptr[92] = /*_.RETURN___V94*/ meltfptr[93];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3803:/ clear"); /*clear*/ /*_.RETURN___V94*/ meltfptr[93] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V93*/ meltfptr[92] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-hooks.melt:3804:/ quasiblock"); /*_#CURC__L102*/ meltfnum[53] = /*strbuf_peek*/ melt_strbuf_peek ((melt_ptr_t)(/*_.SBUF__V2*/ meltfptr[1]), (int)(/*_#IX__L98*/ meltfnum[72])) ;; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#TESTNOTALNUMU_CHK__L103*/ meltfnum[73] = /* json_lexer TESTNOTALNUMU_CHK__1 */ (!(ISALNUM((char)/*_#CURCH__L2*/ meltfnum[1]) || (/*_#CURCH__L2*/ meltfnum[1]== '_'))) ;; MELT_LOCATION("warmelt-hooks.melt:3805:/ cond"); /*cond*/ if (/*_#TESTNOTALNUMU_CHK__L103*/ meltfnum[73]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3810:/ quasiblock"); /*^compute*/ /*_.GETALNUMLOOP__V92*/ meltfptr[88] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_GETALNUMLOOP_1; } ; /*epilog*/ } ; } /*noelse*/ ; { MELT_LOCATION("warmelt-hooks.melt:3811:/ locexp"); /* json_lexer ADDTONAME_CHK__1 */ char buf_ADDTONAME_CHK__1[4] = {0,0,0,0} ; buf_ADDTONAME_CHK__1[0] = (char) /*_#CURCH__L2*/ meltfnum[1] ; meltgc_add_strbuf_raw_len(/*_.NAMBUF__V88*/ meltfptr[87], buf_ADDTONAME_CHK__1, 1) ; ; } ; MELT_LOCATION("warmelt-hooks.melt:3804:/ clear"); /*clear*/ /*_#CURC__L102*/ meltfnum[53] = 0 ; /*^clear*/ /*clear*/ /*_#TESTNOTALNUMU_CHK__L103*/ meltfnum[73] = 0 ; /*_#plI__L104*/ meltfnum[47] = ((/*_#IX__L98*/ meltfnum[72]) + (1));; MELT_LOCATION("warmelt-hooks.melt:3817:/ compute"); /*_#IX__L98*/ meltfnum[72] = /*_#SETQ___L105*/ meltfnum[48] = /*_#plI__L104*/ meltfnum[47];; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3802:/ clear"); /*clear*/ /*_#gtI__L101*/ meltfnum[52] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V93*/ meltfptr[92] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L104*/ meltfnum[47] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L105*/ meltfnum[48] = 0 ; } ; ; goto meltlabloop_GETALNUMLOOP_1; meltlabexit_GETALNUMLOOP_1:;/*^loopepilog*/ /*loopepilog*/ /*_.FOREVER___V91*/ meltfptr[89] = /*_.GETALNUMLOOP__V92*/ meltfptr[88];; } ; MELT_LOCATION("warmelt-hooks.melt:3819:/ quasiblock"); /*_.NAMSTR__V96*/ meltfptr[92] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[15])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V88*/ meltfptr[87]))));; /*^compute*/ /*_.JSON_NAME_DICT__V97*/ meltfptr[96] = (melt_module_var_fetch (meltmodvarix_JSON_NAME_DICT_symb));; /*^compute*/ /*_.NAMJSON__V98*/ meltfptr[97] = (melt_get_mapstrings((struct meltmapstrings_st*)(/*_.JSON_NAME_DICT__V97*/ meltfptr[96]), melt_string_str((melt_ptr_t)(/*_.NAMSTR__V96*/ meltfptr[92]))));; /*^compute*/ /*_.NAMSYMB__V99*/ meltfptr[98] = melthookproc_HOOK_NAMED_SYMBOL (melt_string_str((melt_ptr_t)(/*_.NAMSTR__V96*/ meltfptr[92])), (long)MELT_GET);; /*^compute*/ /*_.NAMKEYW__V100*/ meltfptr[99] = melthookproc_HOOK_NAMED_KEYWORD (melt_string_str((melt_ptr_t)(/*_.NAMSTR__V96*/ meltfptr[92])), (long) MELT_GET);; MELT_LOCATION("warmelt-hooks.melt:3823:/ cond"); /*cond*/ if (/*_.NAMJSON__V98*/ meltfptr[97]) /*then*/ { /*^cond.then*/ /*_.NAME__V101*/ meltfptr[100] = /*_.NAMJSON__V98*/ meltfptr[97];; } else { MELT_LOCATION("warmelt-hooks.melt:3823:/ cond.else"); /*^block*/ /*anyblock*/ { /*^cond*/ /*cond*/ if (/*_.NAMSYMB__V99*/ meltfptr[98]) /*then*/ { /*^cond.then*/ /*_.OR___V102*/ meltfptr[101] = /*_.NAMSYMB__V99*/ meltfptr[98];; } else { MELT_LOCATION("warmelt-hooks.melt:3823:/ cond.else"); /*^block*/ /*anyblock*/ { /*^cond*/ /*cond*/ if (/*_.NAMKEYW__V100*/ meltfptr[99]) /*then*/ { /*^cond.then*/ /*_.OR___V103*/ meltfptr[102] = /*_.NAMKEYW__V100*/ meltfptr[99];; } else { MELT_LOCATION("warmelt-hooks.melt:3823:/ cond.else"); /*_.OR___V103*/ meltfptr[102] = /*_.NAMSTR__V96*/ meltfptr[92];; } ; /*^compute*/ /*_.OR___V102*/ meltfptr[101] = /*_.OR___V103*/ meltfptr[102];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3823:/ clear"); /*clear*/ /*_.OR___V103*/ meltfptr[102] = 0 ; } ; } ; /*_.NAME__V101*/ meltfptr[100] = /*_.OR___V102*/ meltfptr[101];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3823:/ clear"); /*clear*/ /*_.OR___V102*/ meltfptr[101] = 0 ; } ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3825:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L106*/ meltfnum[49] = /*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-hooks.melt:3825:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L106*/ meltfnum[49]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L107*/ meltfnum[50] = /* 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-hooks.melt:3825:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L107*/ meltfnum[50]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3825; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer keyword name="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NAME__V101*/ meltfptr[100]; /*_.MELT_DEBUG_FUN__V105*/ meltfptr[101] = 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___V104*/ meltfptr[102] = /*_.MELT_DEBUG_FUN__V105*/ meltfptr[101];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3825:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L107*/ meltfnum[50] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V105*/ meltfptr[101] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V104*/ meltfptr[102] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3825:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L106*/ meltfnum[49] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V104*/ meltfptr[102] = 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-hooks.melt:3826:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_10_KEYWORD*/ meltfrout->tabval[10]);; MELT_LOCATION("warmelt-hooks.melt:3826:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.NAME__V101*/ meltfptr[100]); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V95*/ meltfptr[93] = /*_.RETURN___V106*/ meltfptr[101];; MELT_LOCATION("warmelt-hooks.melt:3819:/ clear"); /*clear*/ /*_.NAMSTR__V96*/ meltfptr[92] = 0 ; /*^clear*/ /*clear*/ /*_.JSON_NAME_DICT__V97*/ meltfptr[96] = 0 ; /*^clear*/ /*clear*/ /*_.NAMJSON__V98*/ meltfptr[97] = 0 ; /*^clear*/ /*clear*/ /*_.NAMSYMB__V99*/ meltfptr[98] = 0 ; /*^clear*/ /*clear*/ /*_.NAMKEYW__V100*/ meltfptr[99] = 0 ; /*^clear*/ /*clear*/ /*_.NAME__V101*/ meltfptr[100] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V106*/ meltfptr[101] = 0 ; /*_.LET___V87*/ meltfptr[52] = /*_.LET___V95*/ meltfptr[93];; MELT_LOCATION("warmelt-hooks.melt:3798:/ clear"); /*clear*/ /*_.NAMBUF__V88*/ meltfptr[87] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L98*/ meltfnum[72] = 0 ; /*^clear*/ /*clear*/ /*_.FOREVER___V91*/ meltfptr[89] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V95*/ meltfptr[93] = 0 ; /*_._IFELSE___V86*/ meltfptr[48] = /*_.LET___V87*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3795:/ clear"); /*clear*/ /*_.LET___V87*/ meltfptr[52] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3833:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L108*/ meltfnum[46] = /*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-hooks.melt:3833:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L108*/ meltfnum[46]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L109*/ meltfnum[45] = /* 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-hooks.melt:3833:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L109*/ meltfnum[45]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3833; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer error sbuf="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V108*/ meltfptr[92] = 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___V107*/ meltfptr[102] = /*_.MELT_DEBUG_FUN__V108*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3833:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L109*/ meltfnum[45] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V108*/ meltfptr[92] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V107*/ meltfptr[102] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3833:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L108*/ meltfnum[46] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V107*/ meltfptr[102] = 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-hooks.melt:3834:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_16_ERROR*/ meltfrout->tabval[16]);; MELT_LOCATION("warmelt-hooks.melt:3834:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.SBUF__V2*/ meltfptr[1]); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-hooks.melt:3832:/ quasiblock"); /*_.PROGN___V110*/ meltfptr[97] = /*_.RETURN___V109*/ meltfptr[96];; /*^compute*/ /*_._IFELSE___V86*/ meltfptr[48] = /*_.PROGN___V110*/ meltfptr[97];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3795:/ clear"); /*clear*/ /*_.RETURN___V109*/ meltfptr[96] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V110*/ meltfptr[97] = 0 ; } ; } ; /*_._IFELSE___V81*/ meltfptr[55] = /*_._IFELSE___V86*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3780:/ clear"); /*clear*/ /*_#TESTALPHA_CHK__L97*/ meltfnum[91] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V86*/ meltfptr[48] = 0 ; } ; } ; /*_._IFELSE___V76*/ meltfptr[17] = /*_._IFELSE___V81*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3766:/ clear"); /*clear*/ /*_#eqeqI__L77*/ meltfnum[55] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L78*/ meltfnum[30] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V81*/ meltfptr[55] = 0 ; } ; } ; /*_._IFELSE___V71*/ meltfptr[68] = /*_._IFELSE___V76*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3752:/ clear"); /*clear*/ /*_#eqeqI__L60*/ meltfnum[54] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L61*/ meltfnum[51] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V76*/ meltfptr[17] = 0 ; } ; } ; /*_._IFELSE___V60*/ meltfptr[51] = /*_._IFELSE___V71*/ meltfptr[68];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3728:/ clear"); /*clear*/ /*_#eqeqI__L43*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L44*/ meltfnum[33] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V71*/ meltfptr[68] = 0 ; } ; } ; /*_._IFELSE___V47*/ meltfptr[43] = /*_._IFELSE___V60*/ meltfptr[51];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3685:/ clear"); /*clear*/ /*_#eqeqI__L37*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V60*/ meltfptr[51] = 0 ; } ; } ; /*_._IFELSE___V42*/ meltfptr[38] = /*_._IFELSE___V47*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3679:/ clear"); /*clear*/ /*_#TESTDIGITMINUS_CHK__L29*/ meltfnum[27] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V47*/ meltfptr[43] = 0 ; } ; } ; /*_._IFELSE___V37*/ meltfptr[33] = /*_._IFELSE___V42*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3675:/ clear"); /*clear*/ /*_#eqeqI__L26*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V42*/ meltfptr[38] = 0 ; } ; } ; /*_._IFELSE___V32*/ meltfptr[28] = /*_._IFELSE___V37*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3671:/ clear"); /*clear*/ /*_#eqeqI__L23*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V37*/ meltfptr[33] = 0 ; } ; } ; /*_._IFELSE___V27*/ meltfptr[23] = /*_._IFELSE___V32*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3667:/ clear"); /*clear*/ /*_#eqeqI__L20*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V32*/ meltfptr[28] = 0 ; } ; } ; /*_._IFELSE___V22*/ meltfptr[18] = /*_._IFELSE___V27*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3663:/ clear"); /*clear*/ /*_#eqeqI__L17*/ meltfnum[15] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V27*/ meltfptr[23] = 0 ; } ; } ; /*_._IFELSE___V17*/ meltfptr[10] = /*_._IFELSE___V22*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3659:/ clear"); /*clear*/ /*_#eqeqI__L14*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V22*/ meltfptr[18] = 0 ; } ; } ; /*_._IFELSE___V16*/ meltfptr[9] = /*_._IFELSE___V17*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3655:/ clear"); /*clear*/ /*_#eqeqI__L11*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V17*/ meltfptr[10] = 0 ; } ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3836:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L110*/ meltfnum[56] = /*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-hooks.melt:3836:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L110*/ meltfnum[56]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L111*/ meltfnum[93] = /* 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-hooks.melt:3836:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L111*/ meltfnum[93]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3836; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_lexer fail"; /*_.MELT_DEBUG_FUN__V112*/ meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V111*/ meltfptr[98] = /*_.MELT_DEBUG_FUN__V112*/ meltfptr[99];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3836:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L111*/ meltfnum[93] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V112*/ meltfptr[99] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V111*/ meltfptr[98] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3836:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L110*/ meltfnum[56] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V111*/ meltfptr[98] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:3837:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3837:/ 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___V8*/ meltfptr[7] = /*_.RETURN___V113*/ meltfptr[100];; MELT_LOCATION("warmelt-hooks.melt:3638:/ clear"); /*clear*/ /*_#CURCH__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#NEXTCH__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#BULEN__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_#lteqI__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_#TESTSPACE_CHK__L10*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V16*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V113*/ meltfptr[100] = 0 ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3636:/ clear"); /*clear*/ /*_.LET___V8*/ meltfptr[7] = 0 ; } ; ; goto meltlabloop_LEXLOOP_1; meltlabexit_LEXLOOP_1:;/*^loopepilog*/ /*loopepilog*/ /*_.FOREVER___V6*/ meltfptr[3] = /*_.LEXLOOP__V7*/ meltfptr[4];; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3633:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.FOREVER___V6*/ meltfptr[3];; { MELT_LOCATION("warmelt-hooks.melt:3633:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_#IS_STRBUF__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.FOREVER___V6*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("JSON_LEXER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_94_WARMELTmiHOOKS_JSON_LEXER_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_94_WARMELTmiHOOKS_JSON_LEXER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE(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_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE_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_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE fromline 1752 */ /** start of frame for meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE// 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_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE(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_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE), clos) {}; MeltFrame_meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE() //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_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<10> (fil,lin, sizeof(MeltFrame_meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE)) {}; MeltFrame_meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<10> (fil,lin, sizeof(MeltFrame_meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE /** end of frame for meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE fromline 1697**/ /* end of frame for routine meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE fromline 1756 */ /* classy proc frame meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE */ MeltFrame_meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE 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("JSON_STATE_ACCEPTING_JVALUE", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:3857:/ getarg"); /*_.JSTATE__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3858:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch1_0; ; /*objlabel*/ mtch1_0: ; MELT_LOCATION("warmelt-hooks.melt:3859:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_15; meltlab_count_15++; melt_debugeprintf("objlabel_15 mtch1_*CLASS_NORMTESTER_TUPLE/ee74866. *CLASS_OBJLABELINSTR/171f3bd9. %ld", meltlab_count_15); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V4*/ meltfptr[3] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JSTATE__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JSTATE__V2*/ meltfptr[1]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V4*/ meltfptr[3] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JSTATE__V2*/ meltfptr[1]))->tabval[0];; MELT_LOCATION("warmelt-hooks.melt:3858:/ objgoto"); /*objgoto*/ goto mtch1_1; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3859:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3860:/ objgoto"); /*objgoto*/ goto mtch1_3; ; } ; } ; /*objlabel*/ mtch1_1: ; MELT_LOCATION("warmelt-hooks.melt:3858:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_16; meltlab_count_16++; melt_debugeprintf("objlabel_16 mtch1_*CLASS_NORMTESTER_SAME/1d562383. *CLASS_OBJLABELINSTR/167e1fe6. %ld", meltlab_count_16); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V4*/ meltfptr[3] == (/*!konst_0_JSON_RESULT*/ meltfrout->tabval[0]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3859:/ objgoto"); /*objgoto*/ goto mtch1_2; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3858:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3860:/ objgoto"); /*objgoto*/ goto mtch1_3; ; } ; } ; /*objlabel*/ mtch1_2: ; MELT_LOCATION("warmelt-hooks.melt:3859:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_17; meltlab_count_17++; melt_debugeprintf("objlabel_17 mtch1_*CLASS_NORMTESTER_SUCCESS/3f733cf3. *CLASS_OBJLABELINSTR/125aa4b4. %ld", meltlab_count_17); #endif ; /*^quasiblock*/ MELT_CHECK_SIGNAL(); ; /*^quasiblock*/ /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_1_TRUE*/ meltfrout->tabval[1]);; { MELT_LOCATION("warmelt-hooks.melt:3859:/ 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 ; /*_.MATCHRES___V3*/ meltfptr[2] = /*_.RETURN___V5*/ meltfptr[3];; MELT_LOCATION("warmelt-hooks.melt:3859:/ clear"); /*clear*/ /*_.RETURN___V5*/ meltfptr[3] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_3: ; MELT_LOCATION("warmelt-hooks.melt:3860:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_18; meltlab_count_18++; melt_debugeprintf("objlabel_18 mtch1_*CLASS_NORMTESTER_TUPLE/3a3874eb. *CLASS_OBJLABELINSTR/24b29dcb. %ld", meltlab_count_18); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V6*/ meltfptr[3] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JSTATE__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JSTATE__V2*/ meltfptr[1]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V6*/ meltfptr[3] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JSTATE__V2*/ meltfptr[1]))->tabval[0];; MELT_LOCATION("warmelt-hooks.melt:3858:/ objgoto"); /*objgoto*/ goto mtch1_4; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3860:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3861:/ objgoto"); /*objgoto*/ goto mtch1_6; ; } ; } ; /*objlabel*/ mtch1_4: ; MELT_LOCATION("warmelt-hooks.melt:3858:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_19; meltlab_count_19++; melt_debugeprintf("objlabel_19 mtch1_*CLASS_NORMTESTER_SAME/d3ffb76. *CLASS_OBJLABELINSTR/81cdb26. %ld", meltlab_count_19); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V6*/ meltfptr[3] == (/*!konst_2_JSON_ARRAY*/ meltfrout->tabval[2]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3860:/ objgoto"); /*objgoto*/ goto mtch1_5; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3858:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3861:/ objgoto"); /*objgoto*/ goto mtch1_6; ; } ; } ; /*objlabel*/ mtch1_5: ; MELT_LOCATION("warmelt-hooks.melt:3860:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_20; meltlab_count_20++; melt_debugeprintf("objlabel_20 mtch1_*CLASS_NORMTESTER_SUCCESS/f942435. *CLASS_OBJLABELINSTR/d3a29da. %ld", meltlab_count_20); #endif ; /*^quasiblock*/ MELT_CHECK_SIGNAL(); ; /*^quasiblock*/ /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_1_TRUE*/ meltfrout->tabval[1]);; { MELT_LOCATION("warmelt-hooks.melt:3860:/ 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 ; /*_.MATCHRES___V3*/ meltfptr[2] = /*_.RETURN___V7*/ meltfptr[3];; MELT_LOCATION("warmelt-hooks.melt:3860:/ clear"); /*clear*/ /*_.RETURN___V7*/ meltfptr[3] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_6: ; MELT_LOCATION("warmelt-hooks.melt:3861:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_21; meltlab_count_21++; melt_debugeprintf("objlabel_21 mtch1_*CLASS_NORMTESTER_TUPLE/1a02a227. *CLASS_OBJLABELINSTR/3ab974f. %ld", meltlab_count_21); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V8*/ meltfptr[3] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JSTATE__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JSTATE__V2*/ meltfptr[1]))->nbval == 3)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V8*/ meltfptr[3] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JSTATE__V2*/ meltfptr[1]))->tabval[0];; MELT_LOCATION("warmelt-hooks.melt:3858:/ objgoto"); /*objgoto*/ goto mtch1_7; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3861:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3862:/ objgoto"); /*objgoto*/ goto mtch1_9; ; } ; } ; /*objlabel*/ mtch1_7: ; MELT_LOCATION("warmelt-hooks.melt:3858:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_22; meltlab_count_22++; melt_debugeprintf("objlabel_22 mtch1_*CLASS_NORMTESTER_SAME/2c36bd42. *CLASS_OBJLABELINSTR/21b93990. %ld", meltlab_count_22); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V8*/ meltfptr[3] == (/*!konst_3_JSON_OBJECT_VAL*/ meltfrout->tabval[3]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3861:/ objgoto"); /*objgoto*/ goto mtch1_8; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3858:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3862:/ objgoto"); /*objgoto*/ goto mtch1_9; ; } ; } ; /*objlabel*/ mtch1_8: ; MELT_LOCATION("warmelt-hooks.melt:3861:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_23; meltlab_count_23++; melt_debugeprintf("objlabel_23 mtch1_*CLASS_NORMTESTER_SUCCESS/31673b81. *CLASS_OBJLABELINSTR/3dacc6ed. %ld", meltlab_count_23); #endif ; /*^quasiblock*/ MELT_CHECK_SIGNAL(); ; /*^quasiblock*/ /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_1_TRUE*/ meltfrout->tabval[1]);; { MELT_LOCATION("warmelt-hooks.melt:3861:/ 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 ; /*_.MATCHRES___V3*/ meltfptr[2] = /*_.RETURN___V9*/ meltfptr[3];; MELT_LOCATION("warmelt-hooks.melt:3861:/ clear"); /*clear*/ /*_.RETURN___V9*/ meltfptr[3] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_9: ; MELT_LOCATION("warmelt-hooks.melt:3862:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_24; meltlab_count_24++; melt_debugeprintf("objlabel_24 mtch1_*CLASS_NORMTESTER_SUCCESS/38037fb0. *CLASS_OBJLABELINSTR/3048bdd1. %ld", meltlab_count_24); #endif ; /*^quasiblock*/ MELT_CHECK_SIGNAL(); ; /*^quasiblock*/ /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:3862:/ 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 ; /*_.MATCHRES___V3*/ meltfptr[2] = /*_.RETURN___V10*/ meltfptr[3];; MELT_LOCATION("warmelt-hooks.melt:3862:/ clear"); /*clear*/ /*_.RETURN___V10*/ meltfptr[3] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1__end: ; MELT_LOCATION("warmelt-hooks.melt:3858:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_25; meltlab_count_25++; melt_debugeprintf("objlabel_25 mtch1__end_h287733881 *CLASS_OBJLABELINSTR/11267879. %ld", meltlab_count_25); #endif ; } ; MELT_LOCATION("warmelt-hooks.melt:3857:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.MATCHRES___V3*/ meltfptr[2];; { MELT_LOCATION("warmelt-hooks.melt:3857:/ 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*/ /*_.MATCHRES___V3*/ meltfptr[2] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("JSON_STATE_ACCEPTING_JVALUE", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_95_WARMELTmiHOOKS_JSON_STATE_ACCEPTING_JVALUE*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER(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_96_WARMELTmiHOOKS_MAKE_JSON_PARSER_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_96_WARMELTmiHOOKS_MAKE_JSON_PARSER fromline 1752 */ /** start of frame for meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER// fromline 1568 : public Melt_CallFrameWithValues<16> { 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_96_WARMELTmiHOOKS_MAKE_JSON_PARSER(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<16> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER), clos) {}; MeltFrame_meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER() //the constructor fromline 1642 : Melt_CallFrameWithValues<16> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<16> (fil,lin, sizeof(MeltFrame_meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER)) {}; MeltFrame_meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<16> (fil,lin, sizeof(MeltFrame_meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER /** end of frame for meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER fromline 1697**/ /* end of frame for routine meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER fromline 1756 */ /* classy proc frame meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER */ MeltFrame_meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER 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("MAKE_JSON_PARSER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:3866:/ getarg"); /*_.RESCLOS__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.ERRCLOS__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ERRCLOS__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DATA__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DATA__V4*/ meltfptr[3])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3870:/ quasiblock"); MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3872:/ blockmultialloc"); /*multiallocblock*/ { struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x1; 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__x1*/ /*_.TUPLREC___V7*/ meltfptr[6] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x1; meltletrec_1_ptr->rtup_0__TUPLREC__x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x1.nbval = 2; /*^putuple*/ /*putupl#1*/ melt_assertmsg("putupl [:3872] #1 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[6]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:3872] #1 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[6])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[6]))->tabval[0] = (melt_ptr_t)((/*!konst_1_JSON_RESULT*/ meltfrout->tabval[1])); ; /*^putuple*/ /*putupl#2*/ melt_assertmsg("putupl [:3872] #2 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[6]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:3872] #2 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[6])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V7*/ meltfptr[6]))->tabval[1] = (melt_ptr_t)(/*_.RESCLOS__V2*/ meltfptr[1]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V7*/ meltfptr[6]); ; /*_.TUPLE___V6*/ meltfptr[5] = /*_.TUPLREC___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3872:/ clear"); /*clear*/ /*_.TUPLREC___V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V7*/ meltfptr[6] = 0 ; } /*end multiallocblock*/ ; /*^blockmultialloc*/ /*multiallocblock*/ { struct meltletrec_2_st { struct meltpair_st rpair_0___PAIROFLIST_x1; struct meltlist_st rlist_1__LIST_; 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*/ /*inipair rpair_0___PAIROFLIST_x1*/ /*_._PAIROFLIST__V9*/ meltfptr[8] = (melt_ptr_t) &meltletrec_2_ptr->rpair_0___PAIROFLIST_x1; meltletrec_2_ptr->rpair_0___PAIROFLIST_x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ /*_.LIST___V10*/ meltfptr[9] = (melt_ptr_t) &meltletrec_2_ptr->rlist_1__LIST_; meltletrec_2_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); /*^putpairhead*/ /*putpairhead*/ melt_assertmsg("putpairhead /1 checkpair", melt_magic_discr((melt_ptr_t)(/*_._PAIROFLIST__V9*/ meltfptr[8]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_._PAIROFLIST__V9*/ meltfptr[8]))->hd = (melt_ptr_t) (/*_.TUPLE___V6*/ meltfptr[5]); ; /*^touch*/ meltgc_touch(/*_._PAIROFLIST__V9*/ meltfptr[8]); ; /*^putlist*/ /*putlist*/ melt_assertmsg("putlist checklist", melt_magic_discr((melt_ptr_t)(/*_.LIST___V10*/ meltfptr[9]))== MELTOBMAG_LIST); ((meltlist_ptr_t)(/*_.LIST___V10*/ meltfptr[9]))->first = (meltpair_ptr_t) (/*_._PAIROFLIST__V9*/ meltfptr[8]); ((meltlist_ptr_t)(/*_.LIST___V10*/ meltfptr[9]))->last = (meltpair_ptr_t) (/*_._PAIROFLIST__V9*/ meltfptr[8]); ; /*^touch*/ meltgc_touch(/*_.LIST___V10*/ meltfptr[9]); ; /*_.LIST___V8*/ meltfptr[6] = /*_.LIST___V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3872:/ clear"); /*clear*/ /*_._PAIROFLIST__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.LIST___V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_._PAIROFLIST__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.LIST___V10*/ meltfptr[9] = 0 ; } /*end multiallocblock*/ ; /*_.BOX__V11*/ meltfptr[8] = /*full boxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_INTEGER)))), (0));; MELT_LOCATION("warmelt-hooks.melt:3870:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_JSON_PARSER*/ meltfrout->tabval[0])), (5), "CLASS_JSON_PARSER"); /*_.INST__V13*/ meltfptr[12] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @JSONPARSE_JDATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ meltfptr[12])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V13*/ meltfptr[12]), (1), (/*_.DATA__V4*/ meltfptr[3]), "JSONPARSE_JDATA"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @JSONPARSE_STACK", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ meltfptr[12])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V13*/ meltfptr[12]), (2), (/*_.LIST___V8*/ meltfptr[6]), "JSONPARSE_STACK"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @JSONPARSE_ERRORHANDLER", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ meltfptr[12])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V13*/ meltfptr[12]), (3), (/*_.ERRCLOS__V3*/ meltfptr[2]), "JSONPARSE_ERRORHANDLER"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @JSONPARSE_COUNTER", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ meltfptr[12])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V13*/ meltfptr[12]), (4), (/*_.BOX__V11*/ meltfptr[8]), "JSONPARSE_COUNTER"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V13*/ meltfptr[12], "newly made instance"); ; /*_.JP__V12*/ meltfptr[9] = /*_.INST__V13*/ meltfptr[12];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3877:/ 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-hooks.melt:3877:/ 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-hooks.melt:3877:/ 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-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3877; /*^apply.arg*/ argtab[3].meltbp_cstring = "make_json_parser jp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JP__V12*/ meltfptr[9]; /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V14*/ meltfptr[13] = /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3877:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V14*/ meltfptr[13] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3877:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V14*/ meltfptr[13] = 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-hooks.melt:3878:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.JP__V12*/ meltfptr[9];; { MELT_LOCATION("warmelt-hooks.melt:3878:/ 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___V5*/ meltfptr[4] = /*_.RETURN___V16*/ meltfptr[14];; MELT_LOCATION("warmelt-hooks.melt:3870:/ clear"); /*clear*/ /*_.TUPLE___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LIST___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.BOX__V11*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.JP__V12*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V16*/ meltfptr[14] = 0 ; MELT_LOCATION("warmelt-hooks.melt:3866:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[4];; { MELT_LOCATION("warmelt-hooks.melt:3866:/ 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___V5*/ meltfptr[4] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("MAKE_JSON_PARSER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_96_WARMELTmiHOOKS_MAKE_JSON_PARSER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_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_) { long current_blocklevel_signals_meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR_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_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR fromline 1752 */ /** start of frame for meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR// fromline 1568 : public Melt_CallFrameWithValues<348> { public: /* fromline 1572*/ long mcfr_varnum[129]; /*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_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<348> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR), clos) {}; MeltFrame_meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR() //the constructor fromline 1642 : Melt_CallFrameWithValues<348> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<348> (fil,lin, sizeof(MeltFrame_meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR)) {}; MeltFrame_meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<348> (fil,lin, sizeof(MeltFrame_meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR /** end of frame for meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR fromline 1697**/ /* end of frame for routine meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR fromline 1756 */ /* classy proc frame meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR */ MeltFrame_meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR 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("JSON_PARSER_INPUT_PROCESSOR", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:3882:/ getarg"); /*_.INCH__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.ARG__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ARG__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3883:/ 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-hooks.melt:3883:/ 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-hooks.melt:3883:/ 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-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3883; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor inch="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.INCH__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " arg="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.ARG__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-hooks.melt:3883:/ 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-hooks.melt:3883:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3884:/ cond"); /*cond*/ if (/*_.ARG__V3*/ meltfptr[2]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:3884:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3885:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3885:/ 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-hooks.melt:3884:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[7] = /*_.RETURN___V7*/ meltfptr[3];; /*^compute*/ /*_._IFELSE___V6*/ meltfptr[4] = /*_.PROGN___V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3884:/ clear"); /*clear*/ /*_.RETURN___V7*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V8*/ meltfptr[7] = 0 ; } ; } ; MELT_LOCATION("warmelt-hooks.melt:3886:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.INCH__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.INCH__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "INCH_DATA"); /*_.JPARSER__V9*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.JPARSER__V9*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-hooks.melt:3887:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.INCH__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.INCH__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "INCH_SBUF"); /*_.SBUF__V10*/ meltfptr[7] = slot; }; ; } else /*^cond.else*/ { /*_.SBUF__V10*/ meltfptr[7] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-hooks.melt:3888:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.JPARSER__V9*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_JSON_PARSER*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.JPARSER__V9*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 2, "JSONPARSE_STACK"); /*_.JSTACK__V11*/ meltfptr[10] = slot; }; ; } else /*^cond.else*/ { /*_.JSTACK__V11*/ meltfptr[10] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-hooks.melt:3889:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.JPARSER__V9*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_JSON_PARSER*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.JPARSER__V9*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 3, "JSONPARSE_ERRORHANDLER"); /*_.JERROR__V12*/ meltfptr[11] = slot; }; ; } else /*^cond.else*/ { /*_.JERROR__V12*/ meltfptr[11] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-hooks.melt:3890:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.JPARSER__V9*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_JSON_PARSER*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.JPARSER__V9*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 4, "JSONPARSE_COUNTER"); /*_.JCOUNTBOX__V13*/ meltfptr[12] = slot; }; ; } else /*^cond.else*/ { /*_.JCOUNTBOX__V13*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#COUNT__L3*/ meltfnum[1] = 0;; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3893:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.JPARSER__V9*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_JSON_PARSER*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-hooks.melt:3893:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[14] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:3893:/ 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 = "check jparser"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3893; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.JPARSER__V9*/ meltfptr[3]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.INCH__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V15*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3893:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; /*_.IFCPP___V14*/ meltfptr[13] = /*_._IFELSE___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3893:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 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 MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3894:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.INCH__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_RAW_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-hooks.melt:3894:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[14] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:3894:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check inch"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3894; /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V18*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3894:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = 0 ; } ; } ; /*_.IFCPP___V17*/ meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3894:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V18*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3895:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.SBUF__V10*/ meltfptr[7])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-hooks.melt:3895:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[14] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:3895:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check sbuf"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3895; /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V21*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3895:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; } ; } ; /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3895:/ clear"); /*clear*/ /*_#IS_STRBUF__L6*/ meltfnum[0] = 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*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3896:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_LIST__L7*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.JSTACK__V11*/ meltfptr[10])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-hooks.melt:3896:/ cond"); /*cond*/ if (/*_#IS_LIST__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V24*/ meltfptr[14] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:3896:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check jstack"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3896; /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V24*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3896:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V25*/ meltfptr[24] = 0 ; } ; } ; /*_.IFCPP___V23*/ meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3896:/ clear"); /*clear*/ /*_#IS_LIST__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V24*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V23*/ meltfptr[21] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3897:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_INTEGERBOX__L8*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.JCOUNTBOX__V13*/ meltfptr[12])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-hooks.melt:3897:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V27*/ meltfptr[14] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:3897:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check jcountbox"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3897; /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V27*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3897:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27] = 0 ; } ; } ; /*_.IFCPP___V26*/ meltfptr[24] = /*_._IFELSE___V27*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3897:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L8*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V27*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V26*/ meltfptr[24] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:3898:/ loop"); /*loop*/ { meltlabloop_JSONPARSELOOP_1:;/*^loopbody*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#plI__L9*/ meltfnum[0] = ((/*_#COUNT__L3*/ meltfnum[1]) + (1));; MELT_LOCATION("warmelt-hooks.melt:3900:/ compute"); /*_#COUNT__L3*/ meltfnum[1] = /*_#SETQ___L10*/ meltfnum[9] = /*_#plI__L9*/ meltfnum[0];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3901:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L11*/ 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-hooks.melt:3901:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*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-hooks.melt:3901:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L12*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3901; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor parseloop start count="; /*^apply.arg*/ argtab[4].meltbp_long = /*_#COUNT__L3*/ meltfnum[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " sbuf="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SBUF__V10*/ meltfptr[7]; /*^apply.arg*/ argtab[7].meltbp_cstring = " jparser="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.JPARSER__V9*/ meltfptr[3]; /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 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_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V31*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3901:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V31*/ meltfptr[30] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3901:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V31*/ meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:3903:/ quasiblock"); /*_.JTOPSTATE__V33*/ meltfptr[31] = (melt_pair_head (melt_list_first((melt_ptr_t)(/*_.JSTACK__V11*/ meltfptr[10]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3905:/ quasiblock"); /*^multiapply*/ /*multiapply 1args, 1x.res*/ { union meltparam_un restab[1]; memset(&restab, 0, sizeof(restab)); /*^multiapply.xres*/ restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DETAIL__V35*/ meltfptr[34]; /*^multiapply.appl*/ /*_.KIND__V34*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!JSON_LEXER*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.SBUF__V10*/ meltfptr[7]), (""), (union meltparam_un*)0, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3908:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L13*/ meltfnum[11] = /*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-hooks.melt:3908:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L14*/ 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-hooks.melt:3908:/ apply"); /*apply*/ { union meltparam_un argtab[10]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L14*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3908; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor lexed kind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.KIND__V34*/ meltfptr[30]; /*^apply.arg*/ argtab[5].meltbp_cstring = ", detail="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DETAIL__V35*/ meltfptr[34]; /*^apply.arg*/ argtab[7].meltbp_cstring = "; jtopstate="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*^apply.arg*/ argtab[9].meltbp_cstring = "\n"; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V36*/ meltfptr[35] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3908:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V36*/ meltfptr[35] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3908:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[11] = 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*/ ; { MELT_LOCATION("warmelt-hooks.melt:3910:/ locexp"); melt_put_int((melt_ptr_t)(/*_.JCOUNTBOX__V13*/ meltfptr[12]), (/*_#COUNT__L3*/ meltfnum[1])); } ; MELT_LOCATION("warmelt-hooks.melt:3912:/ 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___V39*/ meltfptr[35] = (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 [:3912] #3 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V39*/ meltfptr[35]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:3912] #3 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V39*/ meltfptr[35])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V39*/ meltfptr[35]))->tabval[0] = (melt_ptr_t)(/*_.KIND__V34*/ meltfptr[30]); ; /*^putuple*/ /*putupl#4*/ melt_assertmsg("putupl [:3912] #4 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V39*/ meltfptr[35]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:3912] #4 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V39*/ meltfptr[35])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V39*/ meltfptr[35]))->tabval[1] = (melt_ptr_t)(/*_.DETAIL__V35*/ meltfptr[34]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V39*/ meltfptr[35]); ; /*_.TUPLE___V38*/ meltfptr[36] = /*_.TUPLREC___V39*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3912:/ clear"); /*clear*/ /*_.TUPLREC___V39*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V39*/ meltfptr[35] = 0 ; } /*end multiallocblock*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3911:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch1_0; ; /*objlabel*/ mtch1_0: ; MELT_LOCATION("warmelt-hooks.melt:3913:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_26; meltlab_count_26++; melt_debugeprintf("objlabel_26 mtch1_*CLASS_NORMTESTER_TUPLE/1437a465. *CLASS_OBJLABELINSTR/28ed9bdc. %ld", meltlab_count_26); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V40*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V41*/ meltfptr[40] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V40*/ meltfptr[35] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V41*/ meltfptr[40] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3911:/ objgoto"); /*objgoto*/ goto mtch1_1; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3913:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3926:/ objgoto"); /*objgoto*/ goto mtch1_4; ; } ; } ; /*objlabel*/ mtch1_1: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_27; meltlab_count_27++; melt_debugeprintf("objlabel_27 mtch1_*CLASS_NORMTESTER_SAME/223068e7. *CLASS_OBJLABELINSTR/1a432df3. %ld", meltlab_count_27); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V40*/ meltfptr[35] == (/*!konst_6_DELIM*/ meltfrout->tabval[6]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch1_2; ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3926:/ objgoto"); /*objgoto*/ goto mtch1_4; ; } ; } ; /*objlabel*/ mtch1_2: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_28; meltlab_count_28++; melt_debugeprintf("objlabel_28 mtch1_*CLASS_NORMTESTER_SAME/1fffd6b0. *CLASS_OBJLABELINSTR/f8453ba. %ld", meltlab_count_28); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V41*/ meltfptr[40] == (/*!konst_7_LEFT_BRACE*/ meltfrout->tabval[7]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3913:/ objgoto"); /*objgoto*/ goto mtch1_3; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3911:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3926:/ objgoto"); /*objgoto*/ goto mtch1_4; ; } ; } ; /*objlabel*/ mtch1_3: ; MELT_LOCATION("warmelt-hooks.melt:3913:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_29; meltlab_count_29++; melt_debugeprintf("objlabel_29 mtch1_*CLASS_NORMTESTER_SUCCESS/34817703. *CLASS_OBJLABELINSTR/38e9edac. %ld", meltlab_count_29); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3914:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L15*/ 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-hooks.melt:3914:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L15*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L16*/ 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-hooks.melt:3914:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L16*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3914; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor got leftbrace"; /*_.MELT_DEBUG_FUN__V43*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V42*/ meltfptr[35] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3914:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L16*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[40] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V42*/ meltfptr[35] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3914:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L15*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V42*/ meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3916:/ apply"); /*apply*/ { /*_.JSON_STATE_ACCEPTING_JVALUE__V44*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!JSON_STATE_ACCEPTING_JVALUE*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*^cond*/ /*cond*/ if (/*_.JSON_STATE_ACCEPTING_JVALUE__V44*/ meltfptr[40]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3917:/ quasiblock"); /*^blockmultialloc*/ /*multiallocblock*/ { struct meltletrec_2_st { struct meltlist_st rlist_0__LIST_; 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*/ /*inilist rlist_0__LIST_*/ /*_.LIST___V47*/ meltfptr[46] = (melt_ptr_t) &meltletrec_2_ptr->rlist_0__LIST_; meltletrec_2_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); /*_.LIST___V46*/ meltfptr[45] = /*_.LIST___V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3917:/ clear"); /*clear*/ /*_.LIST___V47*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.LIST___V47*/ meltfptr[46] = 0 ; } /*end multiallocblock*/ ; /*^blockmultialloc*/ /*multiallocblock*/ { struct meltletrec_3_st { struct meltlist_st rlist_0__LIST_; long meltletrec_3_endgap; } *meltletrec_3_ptr = 0; meltletrec_3_ptr = (struct meltletrec_3_st *) meltgc_allocate (sizeof (struct meltletrec_3_st), 0); /*^blockmultialloc.initfill*/ /*inilist rlist_0__LIST_*/ /*_.LIST___V49*/ meltfptr[48] = (melt_ptr_t) &meltletrec_3_ptr->rlist_0__LIST_; meltletrec_3_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); /*_.LIST___V48*/ meltfptr[46] = /*_.LIST___V49*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3917:/ clear"); /*clear*/ /*_.LIST___V49*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.LIST___V49*/ meltfptr[48] = 0 ; } /*end multiallocblock*/ ; /*^blockmultialloc*/ /*multiallocblock*/ { struct meltletrec_4_st { struct MELT_MULTIPLE_STRUCT(3) rtup_0__TUPLREC__x3; long meltletrec_4_endgap; } *meltletrec_4_ptr = 0; meltletrec_4_ptr = (struct meltletrec_4_st *) meltgc_allocate (sizeof (struct meltletrec_4_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x3*/ /*_.TUPLREC___V51*/ meltfptr[50] = (melt_ptr_t) &meltletrec_4_ptr->rtup_0__TUPLREC__x3; meltletrec_4_ptr->rtup_0__TUPLREC__x3.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_4_ptr->rtup_0__TUPLREC__x3.nbval = 3; /*^putuple*/ /*putupl#5*/ melt_assertmsg("putupl [:3917] #5 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:3917] #5 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50]))->tabval[0] = (melt_ptr_t)((/*!konst_9_JSON_OBJECT_ATTR*/ meltfrout->tabval[9])); ; /*^putuple*/ /*putupl#6*/ melt_assertmsg("putupl [:3917] #6 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:3917] #6 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50]))->tabval[1] = (melt_ptr_t)(/*_.LIST___V46*/ meltfptr[45]); ; /*^putuple*/ /*putupl#7*/ melt_assertmsg("putupl [:3917] #7 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:3917] #7 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50]))->tabval[2] = (melt_ptr_t)(/*_.LIST___V48*/ meltfptr[46]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V51*/ meltfptr[50]); ; /*_.JNEWSTATE__V50*/ meltfptr[48] = /*_.TUPLREC___V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3917:/ clear"); /*clear*/ /*_.TUPLREC___V51*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V51*/ meltfptr[50] = 0 ; } /*end multiallocblock*/ ; { MELT_LOCATION("warmelt-hooks.melt:3919:/ locexp"); meltgc_prepend_list((melt_ptr_t)(/*_.JSTACK__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.JNEWSTATE__V50*/ meltfptr[48])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3920:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L17*/ meltfnum[11] = /*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-hooks.melt:3920:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L18*/ 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-hooks.melt:3920:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L18*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3920; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after leftbrace jnewstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JNEWSTATE__V50*/ meltfptr[48]; /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52] = 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___V52*/ meltfptr[50] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3920:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V52*/ meltfptr[50] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3920:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V52*/ meltfptr[50] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*clear*/ /*_._IFELSE___V45*/ meltfptr[35] = 0 ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:3917:/ clear"); /*clear*/ /*_.LIST___V46*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_.LIST___V48*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.JNEWSTATE__V50*/ meltfptr[48] = 0 ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-hooks.melt:3916:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3923:/ apply"); /*apply*/ { /*_.JERROR__V54*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)(/*_.JERROR__V12*/ meltfptr[11]), (melt_ptr_t)((/*!konst_10*/ meltfrout->tabval[10])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:3924:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3924:/ 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-hooks.melt:3922:/ quasiblock"); /*_.PROGN___V56*/ meltfptr[45] = /*_.RETURN___V55*/ meltfptr[50];; /*^compute*/ /*_._IFELSE___V45*/ meltfptr[35] = /*_.PROGN___V56*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3916:/ clear"); /*clear*/ /*_.JERROR__V54*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V55*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V56*/ meltfptr[45] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3913:/ clear"); /*clear*/ /*_.JSON_STATE_ACCEPTING_JVALUE__V44*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V45*/ meltfptr[35] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_4: ; MELT_LOCATION("warmelt-hooks.melt:3926:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_30; meltlab_count_30++; melt_debugeprintf("objlabel_30 mtch1_*CLASS_NORMTESTER_TUPLE/2dea1cb1. *CLASS_OBJLABELINSTR/1eae2207. %ld", meltlab_count_30); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V57*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V58*/ meltfptr[48] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V57*/ meltfptr[46] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V58*/ meltfptr[48] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3911:/ objgoto"); /*objgoto*/ goto mtch1_5; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3926:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3968:/ objgoto"); /*objgoto*/ goto mtch1_8; ; } ; } ; /*objlabel*/ mtch1_5: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_31; meltlab_count_31++; melt_debugeprintf("objlabel_31 mtch1_*CLASS_NORMTESTER_SAME/3a696002. *CLASS_OBJLABELINSTR/3deebcf1. %ld", meltlab_count_31); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V57*/ meltfptr[46] == (/*!konst_6_DELIM*/ meltfrout->tabval[6]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch1_6; ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3968:/ objgoto"); /*objgoto*/ goto mtch1_8; ; } ; } ; /*objlabel*/ mtch1_6: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_32; meltlab_count_32++; melt_debugeprintf("objlabel_32 mtch1_*CLASS_NORMTESTER_SAME/17a2529e. *CLASS_OBJLABELINSTR/2847d918. %ld", meltlab_count_32); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V58*/ meltfptr[48] == (/*!konst_11_RIGHT_BRACE*/ meltfrout->tabval[11]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3926:/ objgoto"); /*objgoto*/ goto mtch1_7; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3911:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3968:/ objgoto"); /*objgoto*/ goto mtch1_8; ; } ; } ; /*objlabel*/ mtch1_7: ; MELT_LOCATION("warmelt-hooks.melt:3926:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_33; meltlab_count_33++; melt_debugeprintf("objlabel_33 mtch1_*CLASS_NORMTESTER_SUCCESS/1215a030. *CLASS_OBJLABELINSTR/26f783d9. %ld", meltlab_count_33); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3927:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L19*/ 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-hooks.melt:3927:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L20*/ 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-hooks.melt:3927:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L20*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3927; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor got rightbrace"; /*_.MELT_DEBUG_FUN__V60*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V59*/ meltfptr[52] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3927:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ meltfptr[50] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V59*/ meltfptr[52] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3927:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V59*/ meltfptr[52] = 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-hooks.melt:3928:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch2_0; ; /*objlabel*/ mtch2_0: ; MELT_LOCATION("warmelt-hooks.melt:3929:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_34; meltlab_count_34++; melt_debugeprintf("objlabel_34 mtch2_*CLASS_NORMTESTER_TUPLE/35f0bf96. *CLASS_OBJLABELINSTR/1070fdf3. %ld", meltlab_count_34); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V61*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V62*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V63*/ meltfptr[35] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 3)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V61*/ meltfptr[45] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V62*/ meltfptr[40] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; /*^compute*/ /*_.NTHCOMP__V63*/ meltfptr[35] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[2];; MELT_LOCATION("warmelt-hooks.melt:3928:/ objgoto"); /*objgoto*/ goto mtch2_1; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3929:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3963:/ objgoto"); /*objgoto*/ goto mtch2_3; ; } ; } ; /*objlabel*/ mtch2_1: ; MELT_LOCATION("warmelt-hooks.melt:3928:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_35; meltlab_count_35++; melt_debugeprintf("objlabel_35 mtch2_*CLASS_NORMTESTER_SAME/dfefa9c. *CLASS_OBJLABELINSTR/2a71ff3d. %ld", meltlab_count_35); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V61*/ meltfptr[45] == (/*!konst_12_JSON_OBJECT_NEXT*/ meltfrout->tabval[12]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3929:/ objgoto"); /*objgoto*/ goto mtch2_2; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3928:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3963:/ objgoto"); /*objgoto*/ goto mtch2_3; ; } ; } ; /*objlabel*/ mtch2_2: ; MELT_LOCATION("warmelt-hooks.melt:3929:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_36; meltlab_count_36++; melt_debugeprintf("objlabel_36 mtch2_*CLASS_NORMTESTER_SUCCESS/21081f55. *CLASS_OBJLABELINSTR/34b842a1. %ld", meltlab_count_36); #endif ; /*^quasiblock*/ /*_.ATLIST__V64*/ meltfptr[46] = /*_.NTHCOMP__V62*/ meltfptr[40];; /*^compute*/ /*_.VALIST__V65*/ meltfptr[48] = /*_.NTHCOMP__V63*/ meltfptr[35];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3930:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#LIST_LENGTH__L21*/ meltfnum[11] = (melt_list_length((melt_ptr_t)(/*_.ATLIST__V64*/ meltfptr[46])));; /*^compute*/ /*_#LIST_LENGTH__L22*/ meltfnum[10] = (melt_list_length((melt_ptr_t)(/*_.VALIST__V65*/ meltfptr[48])));; /*^compute*/ /*_#eqeqI__L23*/ meltfnum[22] = ((/*_#LIST_LENGTH__L21*/ meltfnum[11]) == (/*_#LIST_LENGTH__L22*/ meltfnum[10]));; MELT_LOCATION("warmelt-hooks.melt:3930:/ cond"); /*cond*/ if (/*_#eqeqI__L23*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V67*/ meltfptr[52] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:3930:/ 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 atlist samelength valist"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3930; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_ASSERT_FAILURE_FUN__V68*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V67*/ meltfptr[52] = /*_.MELT_ASSERT_FAILURE_FUN__V68*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3930:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V68*/ meltfptr[45] = 0 ; } ; } ; /*_.IFCPP___V66*/ meltfptr[50] = /*_._IFELSE___V67*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3930:/ clear"); /*clear*/ /*_#LIST_LENGTH__L21*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_#LIST_LENGTH__L22*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_#eqeqI__L23*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V67*/ meltfptr[52] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V66*/ meltfptr[50] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; /*^compute*/ /*_.LIST_POP_FIRST__V69*/ meltfptr[45] = (meltgc_popfirst_list((melt_ptr_t)(/*_.JSTACK__V11*/ meltfptr[10])));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3933:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L24*/ meltfnum[11] = /*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-hooks.melt:3933:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L24*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L25*/ 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-hooks.melt:3933:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L25*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3933; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor rightbrace atlist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ATLIST__V64*/ meltfptr[46]; /*^apply.arg*/ argtab[5].meltbp_cstring = "; valist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.VALIST__V65*/ meltfptr[48]; /*_.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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V70*/ meltfptr[52] = /*_.MELT_DEBUG_FUN__V71*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3933:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L25*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V71*/ meltfptr[70] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V70*/ meltfptr[52] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3933:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L24*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V70*/ meltfptr[52] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:3934:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ATLIST__V64*/ meltfptr[46]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALIST__V65*/ meltfptr[48]; /*_.JSOB__V72*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_JSONOBJECT*/ meltfrout->tabval[13])), (melt_ptr_t)((/*!DISCR_JSONOBJECT*/ meltfrout->tabval[14])), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.JPREVSTATE__V73*/ meltfptr[52] = (melt_pair_head (melt_list_first((melt_ptr_t)(/*_.JSTACK__V11*/ meltfptr[10]))));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3937:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L26*/ meltfnum[22] = /*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-hooks.melt:3937:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L27*/ 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-hooks.melt:3937:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L27*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3937; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor made jsob="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JSOB__V72*/ meltfptr[70]; /*^apply.arg*/ argtab[5].meltbp_cstring = ", popped "; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.JPREVSTATE__V73*/ meltfptr[52]; /*_.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-hooks.melt:3937:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V74*/ meltfptr[73] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3937:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[22] = 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*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3939:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch3_0; ; /*objlabel*/ mtch3_0: ; MELT_LOCATION("warmelt-hooks.melt:3940:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_37; meltlab_count_37++; melt_debugeprintf("objlabel_37 mtch3_*CLASS_NORMTESTER_TUPLE/fda2227. *CLASS_OBJLABELINSTR/3277931. %ld", meltlab_count_37); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V76*/ meltfptr[74] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V77*/ meltfptr[73] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V76*/ meltfptr[74] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V77*/ meltfptr[73] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3939:/ objgoto"); /*objgoto*/ goto mtch3_1; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3940:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3947:/ objgoto"); /*objgoto*/ goto mtch3_3; ; } ; } ; /*objlabel*/ mtch3_1: ; MELT_LOCATION("warmelt-hooks.melt:3939:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_38; meltlab_count_38++; melt_debugeprintf("objlabel_38 mtch3_*CLASS_NORMTESTER_SAME/38d58bae. *CLASS_OBJLABELINSTR/325fd22b. %ld", meltlab_count_38); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V76*/ meltfptr[74] == (/*!konst_15_JSON_RESULT*/ meltfrout->tabval[15]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3940:/ objgoto"); /*objgoto*/ goto mtch3_2; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3939:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3947:/ objgoto"); /*objgoto*/ goto mtch3_3; ; } ; } ; /*objlabel*/ mtch3_2: ; MELT_LOCATION("warmelt-hooks.melt:3940:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_39; meltlab_count_39++; melt_debugeprintf("objlabel_39 mtch3_*CLASS_NORMTESTER_SUCCESS/2bb0ae6d. *CLASS_OBJLABELINSTR/2d5661. %ld", meltlab_count_39); #endif ; /*^quasiblock*/ /*_.CLORES__V78*/ meltfptr[74] = /*_.NTHCOMP__V77*/ meltfptr[73];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3941:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L28*/ meltfnum[11] = /*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-hooks.melt:3941:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L28*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L29*/ 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-hooks.melt:3941:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L29*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3941; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after jsob result clores="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLORES__V78*/ meltfptr[74]; /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79] = 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___V79*/ meltfptr[78] = /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3941:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L29*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V80*/ meltfptr[79] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V79*/ meltfptr[78] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3941:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L28*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V79*/ meltfptr[78] = 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-hooks.melt:3942:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L30*/ meltfnum[22] = (melt_magic_discr((melt_ptr_t)(/*_.CLORES__V78*/ meltfptr[74])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:3942:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L30*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V82*/ meltfptr[78] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:3942:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check clores"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3942; /*_.MELT_ASSERT_FAILURE_FUN__V83*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V82*/ meltfptr[78] = /*_.MELT_ASSERT_FAILURE_FUN__V83*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3942:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V83*/ meltfptr[82] = 0 ; } ; } ; /*_.IFCPP___V81*/ meltfptr[79] = /*_._IFELSE___V82*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3942:/ clear"); /*clear*/ /*_#IS_CLOSURE__L30*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V82*/ meltfptr[78] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V81*/ meltfptr[79] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; /*^compute*/ /*_.LIST_POP_FIRST__V84*/ meltfptr[82] = (meltgc_popfirst_list((melt_ptr_t)(/*_.JSTACK__V11*/ meltfptr[10])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3944:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INCH__V2*/ meltfptr[1]; /*_.CLORES__V85*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t)(/*_.CLORES__V78*/ meltfptr[74]), (melt_ptr_t)(/*_.JSOB__V72*/ meltfptr[70]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:3945:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3945:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3940:/ clear"); /*clear*/ /*_.CLORES__V78*/ meltfptr[74] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V81*/ meltfptr[79] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_POP_FIRST__V84*/ meltfptr[82] = 0 ; /*^clear*/ /*clear*/ /*_.CLORES__V85*/ meltfptr[78] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V86*/ meltfptr[85] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch3__end /*endmatch*/; ; /*objlabel*/ mtch3_3: ; MELT_LOCATION("warmelt-hooks.melt:3947:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_40; meltlab_count_40++; melt_debugeprintf("objlabel_40 mtch3_*CLASS_NORMTESTER_TUPLE/e5e1619. *CLASS_OBJLABELINSTR/3975ba3c. %ld", meltlab_count_40); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V87*/ meltfptr[74] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V88*/ meltfptr[79] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V89*/ meltfptr[82] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52]))->nbval == 3)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V87*/ meltfptr[74] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V88*/ meltfptr[79] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52]))->tabval[1];; /*^compute*/ /*_.NTHCOMP__V89*/ meltfptr[82] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52]))->tabval[2];; MELT_LOCATION("warmelt-hooks.melt:3939:/ objgoto"); /*objgoto*/ goto mtch3_4; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3947:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3952:/ objgoto"); /*objgoto*/ goto mtch3_6; ; } ; } ; /*objlabel*/ mtch3_4: ; MELT_LOCATION("warmelt-hooks.melt:3939:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_41; meltlab_count_41++; melt_debugeprintf("objlabel_41 mtch3_*CLASS_NORMTESTER_SAME/2f0aa9ce. *CLASS_OBJLABELINSTR/9da7ac4. %ld", meltlab_count_41); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V87*/ meltfptr[74] == (/*!konst_16_JSON_OBJECT_VAL*/ meltfrout->tabval[16]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3947:/ objgoto"); /*objgoto*/ goto mtch3_5; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3939:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3952:/ objgoto"); /*objgoto*/ goto mtch3_6; ; } ; } ; /*objlabel*/ mtch3_5: ; MELT_LOCATION("warmelt-hooks.melt:3947:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_42; meltlab_count_42++; melt_debugeprintf("objlabel_42 mtch3_*CLASS_NORMTESTER_SUCCESS/1f8479b8. *CLASS_OBJLABELINSTR/21da7be4. %ld", meltlab_count_42); #endif ; /*^quasiblock*/ /*_.ATLIST__V90*/ meltfptr[78] = /*_.NTHCOMP__V88*/ meltfptr[79];; /*^compute*/ /*_.VALIST__V91*/ meltfptr[85] = /*_.NTHCOMP__V89*/ meltfptr[82];; { MELT_LOCATION("warmelt-hooks.melt:3948:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.VALIST__V91*/ meltfptr[85]), (melt_ptr_t)(/*_.JSOB__V72*/ meltfptr[70])); } ; { MELT_LOCATION("warmelt-hooks.melt:3949:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52]), (0), (melt_ptr_t)((/*!konst_12_JSON_OBJECT_NEXT*/ meltfrout->tabval[12]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3950:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L31*/ 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-hooks.melt:3950:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L31*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L32*/ 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-hooks.melt:3950:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L32*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3950; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after jsob now jprevstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JPREVSTATE__V73*/ meltfptr[52]; /*_.MELT_DEBUG_FUN__V93*/ meltfptr[92] = 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___V92*/ meltfptr[74] = /*_.MELT_DEBUG_FUN__V93*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3950:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L32*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V93*/ meltfptr[92] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V92*/ meltfptr[74] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3950:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L31*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V92*/ meltfptr[74] = 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-hooks.melt:3947:/ clear"); /*clear*/ /*_.ATLIST__V90*/ meltfptr[78] = 0 ; /*^clear*/ /*clear*/ /*_.VALIST__V91*/ meltfptr[85] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch3__end /*endmatch*/; ; /*objlabel*/ mtch3_6: ; MELT_LOCATION("warmelt-hooks.melt:3952:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_43; meltlab_count_43++; melt_debugeprintf("objlabel_43 mtch3_*CLASS_NORMTESTER_TUPLE/292ddf98. *CLASS_OBJLABELINSTR/7e85407. %ld", meltlab_count_43); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V94*/ meltfptr[92] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V95*/ meltfptr[74] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V94*/ meltfptr[92] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V95*/ meltfptr[74] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3939:/ objgoto"); /*objgoto*/ goto mtch3_7; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3952:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3957:/ objgoto"); /*objgoto*/ goto mtch3_9; ; } ; } ; /*objlabel*/ mtch3_7: ; MELT_LOCATION("warmelt-hooks.melt:3939:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_44; meltlab_count_44++; melt_debugeprintf("objlabel_44 mtch3_*CLASS_NORMTESTER_SAME/fabb9bf. *CLASS_OBJLABELINSTR/2deb8bc7. %ld", meltlab_count_44); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V94*/ meltfptr[92] == (/*!konst_17_JSON_ARRAY*/ meltfrout->tabval[17]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3952:/ objgoto"); /*objgoto*/ goto mtch3_8; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3939:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3957:/ objgoto"); /*objgoto*/ goto mtch3_9; ; } ; } ; /*objlabel*/ mtch3_8: ; MELT_LOCATION("warmelt-hooks.melt:3952:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_45; meltlab_count_45++; melt_debugeprintf("objlabel_45 mtch3_*CLASS_NORMTESTER_SUCCESS/24f96ed9. *CLASS_OBJLABELINSTR/2bec7b77. %ld", meltlab_count_45); #endif ; /*^quasiblock*/ /*_.COMPLIST__V96*/ meltfptr[78] = /*_.NTHCOMP__V95*/ meltfptr[74];; { MELT_LOCATION("warmelt-hooks.melt:3953:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.COMPLIST__V96*/ meltfptr[78]), (melt_ptr_t)(/*_.JSOB__V72*/ meltfptr[70])); } ; { MELT_LOCATION("warmelt-hooks.melt:3954:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JPREVSTATE__V73*/ meltfptr[52]), (0), (melt_ptr_t)((/*!konst_18_JSON_ARRAY_NEXT*/ meltfrout->tabval[18]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3955:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L33*/ meltfnum[22] = /*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-hooks.melt:3955:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L33*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L34*/ 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-hooks.melt:3955:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L34*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3955; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after jsob now jprevstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JPREVSTATE__V73*/ meltfptr[52]; /*_.MELT_DEBUG_FUN__V98*/ meltfptr[92] = 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___V97*/ meltfptr[85] = /*_.MELT_DEBUG_FUN__V98*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3955:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L34*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V98*/ meltfptr[92] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V97*/ meltfptr[85] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3955:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L33*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V97*/ meltfptr[85] = 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-hooks.melt:3952:/ clear"); /*clear*/ /*_.COMPLIST__V96*/ meltfptr[78] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch3__end /*endmatch*/; ; /*objlabel*/ mtch3_9: ; MELT_LOCATION("warmelt-hooks.melt:3957:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_46; meltlab_count_46++; melt_debugeprintf("objlabel_46 mtch3_*CLASS_NORMTESTER_SUCCESS/24320dbe. *CLASS_OBJLABELINSTR/307851ba. %ld", meltlab_count_46); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3958:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L35*/ 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-hooks.melt:3958:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L35*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L36*/ 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-hooks.melt:3958:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L36*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3958; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after jsob bad jprevstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JPREVSTATE__V73*/ meltfptr[52]; /*_.MELT_DEBUG_FUN__V100*/ meltfptr[85] = 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___V99*/ meltfptr[92] = /*_.MELT_DEBUG_FUN__V100*/ meltfptr[85];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3958:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L36*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V100*/ meltfptr[85] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V99*/ meltfptr[92] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3958:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L35*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V99*/ meltfptr[92] = 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-hooks.melt:3959:/ apply"); /*apply*/ { /*_.JERROR__V101*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t)(/*_.JERROR__V12*/ meltfptr[11]), (melt_ptr_t)((/*!konst_19*/ meltfrout->tabval[19])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:3960:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3960:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3957:/ clear"); /*clear*/ /*_.JERROR__V101*/ meltfptr[78] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V102*/ meltfptr[85] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch3__end /*endmatch*/; ; /*objlabel*/ mtch3__end: ; MELT_LOCATION("warmelt-hooks.melt:3939:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_47; meltlab_count_47++; melt_debugeprintf("objlabel_47 mtch3__end_h388842326 *CLASS_OBJLABELINSTR/172d4356. %ld", meltlab_count_47); #endif ; } ; MELT_LOCATION("warmelt-hooks.melt:3934:/ clear"); /*clear*/ /*_.JSOB__V72*/ meltfptr[70] = 0 ; /*^clear*/ /*clear*/ /*_.JPREVSTATE__V73*/ meltfptr[52] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3929:/ clear"); /*clear*/ /*_.ATLIST__V64*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.VALIST__V65*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V66*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_POP_FIRST__V69*/ meltfptr[45] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch2__end /*endmatch*/; ; /*objlabel*/ mtch2_3: ; MELT_LOCATION("warmelt-hooks.melt:3963:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_48; meltlab_count_48++; melt_debugeprintf("objlabel_48 mtch2_*CLASS_NORMTESTER_SUCCESS/1ec6b5fc. *CLASS_OBJLABELINSTR/2ce3ae04. %ld", meltlab_count_48); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3964:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L37*/ meltfnum[22] = /*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-hooks.melt:3964:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L37*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L38*/ 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-hooks.melt:3964:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L38*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3964; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor bad rightbrace jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V104*/ meltfptr[78] = 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___V103*/ meltfptr[92] = /*_.MELT_DEBUG_FUN__V104*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3964:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L38*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V104*/ meltfptr[78] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V103*/ meltfptr[92] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3964:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L37*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V103*/ meltfptr[92] = 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-hooks.melt:3965:/ apply"); /*apply*/ { /*_.JERROR__V105*/ meltfptr[85] = melt_apply ((meltclosure_ptr_t)(/*_.JERROR__V12*/ meltfptr[11]), (melt_ptr_t)((/*!konst_20*/ meltfrout->tabval[20])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:3966:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3966:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3963:/ clear"); /*clear*/ /*_.JERROR__V105*/ meltfptr[85] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V106*/ meltfptr[70] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch2__end /*endmatch*/; ; /*objlabel*/ mtch2__end: ; MELT_LOCATION("warmelt-hooks.melt:3928:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_49; meltlab_count_49++; melt_debugeprintf("objlabel_49 mtch2__end_h932904876 *CLASS_OBJLABELINSTR/379affac. %ld", meltlab_count_49); #endif ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3926:/ objgoto"); /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_8: ; MELT_LOCATION("warmelt-hooks.melt:3968:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_50; meltlab_count_50++; melt_debugeprintf("objlabel_50 mtch1_*CLASS_NORMTESTER_TUPLE/8fa7346. *CLASS_OBJLABELINSTR/27ab244. %ld", meltlab_count_50); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V107*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V108*/ meltfptr[46] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V107*/ meltfptr[52] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V108*/ meltfptr[46] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3911:/ objgoto"); /*objgoto*/ goto mtch1_9; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3968:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3982:/ objgoto"); /*objgoto*/ goto mtch1_12; ; } ; } ; /*objlabel*/ mtch1_9: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_51; meltlab_count_51++; melt_debugeprintf("objlabel_51 mtch1_*CLASS_NORMTESTER_SAME/216e79ff. *CLASS_OBJLABELINSTR/379879c0. %ld", meltlab_count_51); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V107*/ meltfptr[52] == (/*!konst_6_DELIM*/ meltfrout->tabval[6]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch1_10; ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3982:/ objgoto"); /*objgoto*/ goto mtch1_12; ; } ; } ; /*objlabel*/ mtch1_10: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_52; meltlab_count_52++; melt_debugeprintf("objlabel_52 mtch1_*CLASS_NORMTESTER_SAME/1504f92. *CLASS_OBJLABELINSTR/5ea4416. %ld", meltlab_count_52); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V108*/ meltfptr[46] == (/*!konst_21_LEFT_BRACKET*/ meltfrout->tabval[21]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3968:/ objgoto"); /*objgoto*/ goto mtch1_11; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3911:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3982:/ objgoto"); /*objgoto*/ goto mtch1_12; ; } ; } ; /*objlabel*/ mtch1_11: ; MELT_LOCATION("warmelt-hooks.melt:3968:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_53; meltlab_count_53++; melt_debugeprintf("objlabel_53 mtch1_*CLASS_NORMTESTER_SUCCESS/23155ce5. *CLASS_OBJLABELINSTR/250499e5. %ld", meltlab_count_53); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3969:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L39*/ 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-hooks.melt:3969:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L39*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L40*/ 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-hooks.melt:3969:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L40*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3969; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor got leftbracket"; /*_.MELT_DEBUG_FUN__V110*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V109*/ meltfptr[48] = /*_.MELT_DEBUG_FUN__V110*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3969:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L40*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V110*/ meltfptr[50] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V109*/ meltfptr[48] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3969:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L39*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V109*/ meltfptr[48] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3971:/ apply"); /*apply*/ { /*_.JSON_STATE_ACCEPTING_JVALUE__V111*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!JSON_STATE_ACCEPTING_JVALUE*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*^cond*/ /*cond*/ if (/*_.JSON_STATE_ACCEPTING_JVALUE__V111*/ meltfptr[45]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3972:/ quasiblock"); /*^blockmultialloc*/ /*multiallocblock*/ { struct meltletrec_5_st { struct meltlist_st rlist_0__LIST_; long meltletrec_5_endgap; } *meltletrec_5_ptr = 0; meltletrec_5_ptr = (struct meltletrec_5_st *) meltgc_allocate (sizeof (struct meltletrec_5_st), 0); /*^blockmultialloc.initfill*/ /*inilist rlist_0__LIST_*/ /*_.LIST___V114*/ meltfptr[85] = (melt_ptr_t) &meltletrec_5_ptr->rlist_0__LIST_; meltletrec_5_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); /*_.LIST___V113*/ meltfptr[92] = /*_.LIST___V114*/ meltfptr[85];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3972:/ clear"); /*clear*/ /*_.LIST___V114*/ meltfptr[85] = 0 ; /*^clear*/ /*clear*/ /*_.LIST___V114*/ meltfptr[85] = 0 ; } /*end multiallocblock*/ ; /*^blockmultialloc*/ /*multiallocblock*/ { struct meltletrec_6_st { struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x4; long meltletrec_6_endgap; } *meltletrec_6_ptr = 0; meltletrec_6_ptr = (struct meltletrec_6_st *) meltgc_allocate (sizeof (struct meltletrec_6_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x4*/ /*_.TUPLREC___V116*/ meltfptr[52] = (melt_ptr_t) &meltletrec_6_ptr->rtup_0__TUPLREC__x4; meltletrec_6_ptr->rtup_0__TUPLREC__x4.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_6_ptr->rtup_0__TUPLREC__x4.nbval = 2; /*^putuple*/ /*putupl#8*/ melt_assertmsg("putupl [:3972] #8 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V116*/ meltfptr[52]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:3972] #8 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V116*/ meltfptr[52])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V116*/ meltfptr[52]))->tabval[0] = (melt_ptr_t)((/*!konst_17_JSON_ARRAY*/ meltfrout->tabval[17])); ; /*^putuple*/ /*putupl#9*/ melt_assertmsg("putupl [:3972] #9 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V116*/ meltfptr[52]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:3972] #9 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V116*/ meltfptr[52])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V116*/ meltfptr[52]))->tabval[1] = (melt_ptr_t)(/*_.LIST___V113*/ meltfptr[92]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V116*/ meltfptr[52]); ; /*_.JNEWSTATE__V115*/ meltfptr[70] = /*_.TUPLREC___V116*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3972:/ clear"); /*clear*/ /*_.TUPLREC___V116*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V116*/ meltfptr[52] = 0 ; } /*end multiallocblock*/ ; { MELT_LOCATION("warmelt-hooks.melt:3974:/ locexp"); meltgc_prepend_list((melt_ptr_t)(/*_.JSTACK__V11*/ meltfptr[10]), (melt_ptr_t)(/*_.JNEWSTATE__V115*/ meltfptr[70])); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3975:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L41*/ meltfnum[22] = /*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-hooks.melt:3975:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L41*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L42*/ 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-hooks.melt:3975:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L42*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3975; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor leftbracket pushed jnewstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JNEWSTATE__V115*/ meltfptr[70]; /*_.MELT_DEBUG_FUN__V118*/ meltfptr[50] = 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___V117*/ meltfptr[46] = /*_.MELT_DEBUG_FUN__V118*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3975:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L42*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V118*/ meltfptr[50] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V117*/ meltfptr[46] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3975:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L41*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V117*/ meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*clear*/ /*_._IFELSE___V112*/ meltfptr[78] = 0 ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:3972:/ clear"); /*clear*/ /*_.LIST___V113*/ meltfptr[92] = 0 ; /*^clear*/ /*clear*/ /*_.JNEWSTATE__V115*/ meltfptr[70] = 0 ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-hooks.melt:3971:/ cond.else"); /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3978:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L43*/ 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-hooks.melt:3978:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L43*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L44*/ 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-hooks.melt:3978:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L44*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3978; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor leftbracket unhappy with jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V120*/ meltfptr[85] = 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___V119*/ meltfptr[48] = /*_.MELT_DEBUG_FUN__V120*/ meltfptr[85];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3978:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L44*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V120*/ meltfptr[85] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V119*/ meltfptr[48] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3978:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L43*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V119*/ meltfptr[48] = 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-hooks.melt:3979:/ apply"); /*apply*/ { /*_.JERROR__V121*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)(/*_.JERROR__V12*/ meltfptr[11]), (melt_ptr_t)((/*!konst_22*/ meltfrout->tabval[22])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:3980:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3980:/ 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-hooks.melt:3977:/ quasiblock"); /*_.PROGN___V123*/ meltfptr[46] = /*_.RETURN___V122*/ meltfptr[50];; /*^compute*/ /*_._IFELSE___V112*/ meltfptr[78] = /*_.PROGN___V123*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3971:/ clear"); /*clear*/ /*_.JERROR__V121*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V122*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V123*/ meltfptr[46] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3968:/ clear"); /*clear*/ /*_.JSON_STATE_ACCEPTING_JVALUE__V111*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V112*/ meltfptr[78] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_12: ; MELT_LOCATION("warmelt-hooks.melt:3982:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_54; meltlab_count_54++; melt_debugeprintf("objlabel_54 mtch1_*CLASS_NORMTESTER_TUPLE/32904b54. *CLASS_OBJLABELINSTR/1cfd497d. %ld", meltlab_count_54); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V124*/ meltfptr[92] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V125*/ meltfptr[70] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V124*/ meltfptr[92] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V125*/ meltfptr[70] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3911:/ objgoto"); /*objgoto*/ goto mtch1_13; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3982:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4022:/ objgoto"); /*objgoto*/ goto mtch1_16; ; } ; } ; /*objlabel*/ mtch1_13: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_55; meltlab_count_55++; melt_debugeprintf("objlabel_55 mtch1_*CLASS_NORMTESTER_SAME/287ff8de. *CLASS_OBJLABELINSTR/22755533. %ld", meltlab_count_55); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V124*/ meltfptr[92] == (/*!konst_6_DELIM*/ meltfrout->tabval[6]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch1_14; ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4022:/ objgoto"); /*objgoto*/ goto mtch1_16; ; } ; } ; /*objlabel*/ mtch1_14: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_56; meltlab_count_56++; melt_debugeprintf("objlabel_56 mtch1_*CLASS_NORMTESTER_SAME/1ed59cb8. *CLASS_OBJLABELINSTR/26070e79. %ld", meltlab_count_56); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V125*/ meltfptr[70] == (/*!konst_23_RIGHT_BRACKET*/ meltfrout->tabval[23]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3982:/ objgoto"); /*objgoto*/ goto mtch1_15; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3911:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4022:/ objgoto"); /*objgoto*/ goto mtch1_16; ; } ; } ; /*objlabel*/ mtch1_15: ; MELT_LOCATION("warmelt-hooks.melt:3982:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_57; meltlab_count_57++; melt_debugeprintf("objlabel_57 mtch1_*CLASS_NORMTESTER_SUCCESS/167d6c6f. *CLASS_OBJLABELINSTR/2308081d. %ld", meltlab_count_57); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3983:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L45*/ meltfnum[22] = /*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-hooks.melt:3983:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L45*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L46*/ 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-hooks.melt:3983:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L46*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3983; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor got rightbracket"; /*_.MELT_DEBUG_FUN__V127*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V126*/ meltfptr[85] = /*_.MELT_DEBUG_FUN__V127*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3983:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L46*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V127*/ meltfptr[48] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V126*/ meltfptr[85] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3983:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L45*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V126*/ meltfptr[85] = 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-hooks.melt:3984:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch4_0; ; /*objlabel*/ mtch4_0: ; MELT_LOCATION("warmelt-hooks.melt:3985:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_58; meltlab_count_58++; melt_debugeprintf("objlabel_58 mtch4_*CLASS_NORMTESTER_TUPLE/376e0ba7. *CLASS_OBJLABELINSTR/3d848313. %ld", meltlab_count_58); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V128*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V129*/ meltfptr[50] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V128*/ meltfptr[52] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V129*/ meltfptr[50] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3984:/ objgoto"); /*objgoto*/ goto mtch4_1; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3985:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4016:/ objgoto"); /*objgoto*/ goto mtch4_3; ; } ; } ; /*objlabel*/ mtch4_1: ; MELT_LOCATION("warmelt-hooks.melt:3984:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_59; meltlab_count_59++; melt_debugeprintf("objlabel_59 mtch4_*CLASS_NORMTESTER_SAME/1152f9a0. *CLASS_OBJLABELINSTR/1ad13871. %ld", meltlab_count_59); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V128*/ meltfptr[52] == (/*!konst_18_JSON_ARRAY_NEXT*/ meltfrout->tabval[18]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3985:/ objgoto"); /*objgoto*/ goto mtch4_2; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3984:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4016:/ objgoto"); /*objgoto*/ goto mtch4_3; ; } ; } ; /*objlabel*/ mtch4_2: ; MELT_LOCATION("warmelt-hooks.melt:3985:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_60; meltlab_count_60++; melt_debugeprintf("objlabel_60 mtch4_*CLASS_NORMTESTER_SUCCESS/23834dfb. *CLASS_OBJLABELINSTR/221d52cd. %ld", meltlab_count_60); #endif ; /*^quasiblock*/ /*_.COMPLIST__V130*/ meltfptr[46] = /*_.NTHCOMP__V129*/ meltfptr[50];; /*^compute*/ /*_.LIST_POP_FIRST__V131*/ meltfptr[45] = (meltgc_popfirst_list((melt_ptr_t)(/*_.JSTACK__V11*/ meltfptr[10])));; MELT_LOCATION("warmelt-hooks.melt:3987:/ 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_JSONARRAY*/ meltfrout->tabval[25]); /*_.JSARRAY__V132*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[24])), (melt_ptr_t)(/*_.COMPLIST__V130*/ meltfptr[46]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.JPREVSTATE__V133*/ meltfptr[92] = (melt_pair_head (melt_list_first((melt_ptr_t)(/*_.JSTACK__V11*/ meltfptr[10]))));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3990:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L47*/ 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-hooks.melt:3990:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L47*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L48*/ 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-hooks.melt:3990:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L48*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3990; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor made jsarray="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JSARRAY__V132*/ meltfptr[78]; /*^apply.arg*/ argtab[5].meltbp_cstring = ", popped "; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.JPREVSTATE__V133*/ meltfptr[92]; /*_.MELT_DEBUG_FUN__V135*/ meltfptr[48] = 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___V134*/ meltfptr[70] = /*_.MELT_DEBUG_FUN__V135*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3990:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L48*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V135*/ meltfptr[48] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V134*/ meltfptr[70] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3990:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L47*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V134*/ meltfptr[70] = 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-hooks.melt:3992:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch5_0; ; /*objlabel*/ mtch5_0: ; MELT_LOCATION("warmelt-hooks.melt:3993:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_61; meltlab_count_61++; melt_debugeprintf("objlabel_61 mtch5_*CLASS_NORMTESTER_TUPLE/3329db45. *CLASS_OBJLABELINSTR/76c9d94. %ld", meltlab_count_61); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V136*/ meltfptr[85] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V137*/ meltfptr[52] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V136*/ meltfptr[85] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V137*/ meltfptr[52] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3992:/ objgoto"); /*objgoto*/ goto mtch5_1; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3993:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4000:/ objgoto"); /*objgoto*/ goto mtch5_3; ; } ; } ; /*objlabel*/ mtch5_1: ; MELT_LOCATION("warmelt-hooks.melt:3992:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_62; meltlab_count_62++; melt_debugeprintf("objlabel_62 mtch5_*CLASS_NORMTESTER_SAME/223e3f4f. *CLASS_OBJLABELINSTR/1126acff. %ld", meltlab_count_62); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V136*/ meltfptr[85] == (/*!konst_15_JSON_RESULT*/ meltfrout->tabval[15]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:3993:/ objgoto"); /*objgoto*/ goto mtch5_2; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3992:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4000:/ objgoto"); /*objgoto*/ goto mtch5_3; ; } ; } ; /*objlabel*/ mtch5_2: ; MELT_LOCATION("warmelt-hooks.melt:3993:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_63; meltlab_count_63++; melt_debugeprintf("objlabel_63 mtch5_*CLASS_NORMTESTER_SUCCESS/17571b33. *CLASS_OBJLABELINSTR/29e262d1. %ld", meltlab_count_63); #endif ; /*^quasiblock*/ /*_.CLORES__V138*/ meltfptr[48] = /*_.NTHCOMP__V137*/ meltfptr[52];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:3994:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L49*/ meltfnum[22] = /*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-hooks.melt:3994:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L49*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L50*/ 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-hooks.melt:3994:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L50*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3994; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after array result clores="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLORES__V138*/ meltfptr[48]; /*_.MELT_DEBUG_FUN__V140*/ meltfptr[85] = 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___V139*/ meltfptr[70] = /*_.MELT_DEBUG_FUN__V140*/ meltfptr[85];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3994:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L50*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V140*/ meltfptr[85] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V139*/ meltfptr[70] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:3994:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L49*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V139*/ meltfptr[70] = 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-hooks.melt:3995:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L51*/ meltfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.CLORES__V138*/ meltfptr[48])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:3995:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L51*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V142*/ meltfptr[70] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:3995:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check clores"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 3995; /*_.MELT_ASSERT_FAILURE_FUN__V143*/ meltfptr[142] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V142*/ meltfptr[70] = /*_.MELT_ASSERT_FAILURE_FUN__V143*/ meltfptr[142];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3995:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V143*/ meltfptr[142] = 0 ; } ; } ; /*_.IFCPP___V141*/ meltfptr[85] = /*_._IFELSE___V142*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3995:/ clear"); /*clear*/ /*_#IS_CLOSURE__L51*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V142*/ meltfptr[70] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V141*/ meltfptr[85] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; /*^compute*/ /*_.LIST_POP_FIRST__V144*/ meltfptr[142] = (meltgc_popfirst_list((melt_ptr_t)(/*_.JSTACK__V11*/ meltfptr[10])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3997:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INCH__V2*/ meltfptr[1]; /*_.CLORES__V145*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)(/*_.CLORES__V138*/ meltfptr[48]), (melt_ptr_t)(/*_.JSARRAY__V132*/ meltfptr[78]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:3998:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:3998:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3993:/ clear"); /*clear*/ /*_.CLORES__V138*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V141*/ meltfptr[85] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_POP_FIRST__V144*/ meltfptr[142] = 0 ; /*^clear*/ /*clear*/ /*_.CLORES__V145*/ meltfptr[70] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V146*/ meltfptr[145] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch5__end /*endmatch*/; ; /*objlabel*/ mtch5_3: ; MELT_LOCATION("warmelt-hooks.melt:4000:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_64; meltlab_count_64++; melt_debugeprintf("objlabel_64 mtch5_*CLASS_NORMTESTER_TUPLE/2c9cba7b. *CLASS_OBJLABELINSTR/35f7d98e. %ld", meltlab_count_64); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V147*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V148*/ meltfptr[85] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V149*/ meltfptr[142] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92]))->nbval == 3)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V147*/ meltfptr[48] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V148*/ meltfptr[85] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92]))->tabval[1];; /*^compute*/ /*_.NTHCOMP__V149*/ meltfptr[142] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92]))->tabval[2];; MELT_LOCATION("warmelt-hooks.melt:3992:/ objgoto"); /*objgoto*/ goto mtch5_4; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4000:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4005:/ objgoto"); /*objgoto*/ goto mtch5_6; ; } ; } ; /*objlabel*/ mtch5_4: ; MELT_LOCATION("warmelt-hooks.melt:3992:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_65; meltlab_count_65++; melt_debugeprintf("objlabel_65 mtch5_*CLASS_NORMTESTER_SAME/27525c6f. *CLASS_OBJLABELINSTR/2bee9dff. %ld", meltlab_count_65); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V147*/ meltfptr[48] == (/*!konst_16_JSON_OBJECT_VAL*/ meltfrout->tabval[16]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4000:/ objgoto"); /*objgoto*/ goto mtch5_5; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3992:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4005:/ objgoto"); /*objgoto*/ goto mtch5_6; ; } ; } ; /*objlabel*/ mtch5_5: ; MELT_LOCATION("warmelt-hooks.melt:4000:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_66; meltlab_count_66++; melt_debugeprintf("objlabel_66 mtch5_*CLASS_NORMTESTER_SUCCESS/247ec9d4. *CLASS_OBJLABELINSTR/19bce5ff. %ld", meltlab_count_66); #endif ; /*^quasiblock*/ /*_.ATLIST__V150*/ meltfptr[70] = /*_.NTHCOMP__V148*/ meltfptr[85];; /*^compute*/ /*_.VALIST__V151*/ meltfptr[145] = /*_.NTHCOMP__V149*/ meltfptr[142];; { MELT_LOCATION("warmelt-hooks.melt:4001:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.VALIST__V151*/ meltfptr[145]), (melt_ptr_t)(/*_.JSARRAY__V132*/ meltfptr[78])); } ; { MELT_LOCATION("warmelt-hooks.melt:4002:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92]), (0), (melt_ptr_t)((/*!konst_12_JSON_OBJECT_NEXT*/ meltfrout->tabval[12]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4003:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L52*/ meltfnum[11] = /*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-hooks.melt:4003:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L52*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L53*/ meltfnum[22] = /* 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-hooks.melt:4003:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L53*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4003; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after array now jprevstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JPREVSTATE__V133*/ meltfptr[92]; /*_.MELT_DEBUG_FUN__V153*/ meltfptr[152] = 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___V152*/ meltfptr[48] = /*_.MELT_DEBUG_FUN__V153*/ meltfptr[152];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4003:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L53*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V153*/ meltfptr[152] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V152*/ meltfptr[48] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4003:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L52*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V152*/ meltfptr[48] = 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-hooks.melt:4000:/ clear"); /*clear*/ /*_.ATLIST__V150*/ meltfptr[70] = 0 ; /*^clear*/ /*clear*/ /*_.VALIST__V151*/ meltfptr[145] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch5__end /*endmatch*/; ; /*objlabel*/ mtch5_6: ; MELT_LOCATION("warmelt-hooks.melt:4005:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_67; meltlab_count_67++; melt_debugeprintf("objlabel_67 mtch5_*CLASS_NORMTESTER_TUPLE/39d0090a. *CLASS_OBJLABELINSTR/16b50766. %ld", meltlab_count_67); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V154*/ meltfptr[152] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V155*/ meltfptr[48] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V154*/ meltfptr[152] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V155*/ meltfptr[48] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3992:/ objgoto"); /*objgoto*/ goto mtch5_7; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4005:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4010:/ objgoto"); /*objgoto*/ goto mtch5_9; ; } ; } ; /*objlabel*/ mtch5_7: ; MELT_LOCATION("warmelt-hooks.melt:3992:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_68; meltlab_count_68++; melt_debugeprintf("objlabel_68 mtch5_*CLASS_NORMTESTER_SAME/1db68950. *CLASS_OBJLABELINSTR/d71c514. %ld", meltlab_count_68); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V154*/ meltfptr[152] == (/*!konst_17_JSON_ARRAY*/ meltfrout->tabval[17]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4005:/ objgoto"); /*objgoto*/ goto mtch5_8; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3992:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4010:/ objgoto"); /*objgoto*/ goto mtch5_9; ; } ; } ; /*objlabel*/ mtch5_8: ; MELT_LOCATION("warmelt-hooks.melt:4005:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_69; meltlab_count_69++; melt_debugeprintf("objlabel_69 mtch5_*CLASS_NORMTESTER_SUCCESS/3f5c3419. *CLASS_OBJLABELINSTR/2d2a59ae. %ld", meltlab_count_69); #endif ; /*^quasiblock*/ /*_.COMPLIST__V156*/ meltfptr[70] = /*_.NTHCOMP__V155*/ meltfptr[48];; { MELT_LOCATION("warmelt-hooks.melt:4006:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.COMPLIST__V156*/ meltfptr[70]), (melt_ptr_t)(/*_.JSARRAY__V132*/ meltfptr[78])); } ; { MELT_LOCATION("warmelt-hooks.melt:4007:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JPREVSTATE__V133*/ meltfptr[92]), (0), (melt_ptr_t)((/*!konst_18_JSON_ARRAY_NEXT*/ meltfrout->tabval[18]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4008:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L54*/ 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-hooks.melt:4008:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L54*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L55*/ meltfnum[22] = /* 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-hooks.melt:4008:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L55*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4008; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after array now jprevstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JPREVSTATE__V133*/ meltfptr[92]; /*_.MELT_DEBUG_FUN__V158*/ meltfptr[152] = 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___V157*/ meltfptr[145] = /*_.MELT_DEBUG_FUN__V158*/ meltfptr[152];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4008:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L55*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V158*/ meltfptr[152] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V157*/ meltfptr[145] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4008:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L54*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V157*/ meltfptr[145] = 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-hooks.melt:4005:/ clear"); /*clear*/ /*_.COMPLIST__V156*/ meltfptr[70] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch5__end /*endmatch*/; ; /*objlabel*/ mtch5_9: ; MELT_LOCATION("warmelt-hooks.melt:4010:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_70; meltlab_count_70++; melt_debugeprintf("objlabel_70 mtch5_*CLASS_NORMTESTER_SUCCESS/155d149b. *CLASS_OBJLABELINSTR/9e6f761. %ld", meltlab_count_70); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4011:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L56*/ meltfnum[11] = /*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-hooks.melt:4011:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L56*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L57*/ meltfnum[22] = /* 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-hooks.melt:4011:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L57*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4011; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after array bad jprevstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JPREVSTATE__V133*/ meltfptr[92]; /*_.MELT_DEBUG_FUN__V160*/ meltfptr[145] = 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___V159*/ meltfptr[152] = /*_.MELT_DEBUG_FUN__V160*/ meltfptr[145];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4011:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L57*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V160*/ meltfptr[145] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V159*/ meltfptr[152] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4011:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L56*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V159*/ meltfptr[152] = 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-hooks.melt:4012:/ apply"); /*apply*/ { /*_.JERROR__V161*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)(/*_.JERROR__V12*/ meltfptr[11]), (melt_ptr_t)((/*!konst_26*/ meltfrout->tabval[26])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4013:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4013:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4010:/ clear"); /*clear*/ /*_.JERROR__V161*/ meltfptr[70] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V162*/ meltfptr[145] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch5__end /*endmatch*/; ; /*objlabel*/ mtch5__end: ; MELT_LOCATION("warmelt-hooks.melt:3992:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_71; meltlab_count_71++; melt_debugeprintf("objlabel_71 mtch5__end_h674176251 *CLASS_OBJLABELINSTR/282f1cfb. %ld", meltlab_count_71); #endif ; } ; MELT_LOCATION("warmelt-hooks.melt:3987:/ clear"); /*clear*/ /*_.JSARRAY__V132*/ meltfptr[78] = 0 ; /*^clear*/ /*clear*/ /*_.JPREVSTATE__V133*/ meltfptr[92] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3985:/ clear"); /*clear*/ /*_.COMPLIST__V130*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_POP_FIRST__V131*/ meltfptr[45] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch4__end /*endmatch*/; ; /*objlabel*/ mtch4_3: ; MELT_LOCATION("warmelt-hooks.melt:4016:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_72; meltlab_count_72++; melt_debugeprintf("objlabel_72 mtch4_*CLASS_NORMTESTER_SUCCESS/15216403. *CLASS_OBJLABELINSTR/d990239. %ld", meltlab_count_72); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4017:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L58*/ 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-hooks.melt:4017:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L58*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L59*/ meltfnum[22] = /* 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-hooks.melt:4017:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L59*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4017; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor unexpected right bracket"; /*_.MELT_DEBUG_FUN__V164*/ 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 ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V163*/ meltfptr[152] = /*_.MELT_DEBUG_FUN__V164*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4017:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L59*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V164*/ meltfptr[70] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V163*/ meltfptr[152] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4017:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L58*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V163*/ meltfptr[152] = 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-hooks.melt:4018:/ apply"); /*apply*/ { /*_.JERROR__V165*/ meltfptr[145] = melt_apply ((meltclosure_ptr_t)(/*_.JERROR__V12*/ meltfptr[11]), (melt_ptr_t)((/*!konst_27*/ meltfrout->tabval[27])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4019:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4019:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4016:/ clear"); /*clear*/ /*_.JERROR__V165*/ meltfptr[145] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V166*/ meltfptr[78] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch4__end /*endmatch*/; ; /*objlabel*/ mtch4__end: ; MELT_LOCATION("warmelt-hooks.melt:3984:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_73; meltlab_count_73++; melt_debugeprintf("objlabel_73 mtch4__end_h852824068 *CLASS_OBJLABELINSTR/32d51004. %ld", meltlab_count_73); #endif ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3982:/ objgoto"); /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_16: ; MELT_LOCATION("warmelt-hooks.melt:4022:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_74; meltlab_count_74++; melt_debugeprintf("objlabel_74 mtch1_*CLASS_NORMTESTER_TUPLE/1b5940df. *CLASS_OBJLABELINSTR/11494c4f. %ld", meltlab_count_74); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V167*/ meltfptr[92] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V168*/ meltfptr[46] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V167*/ meltfptr[92] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V168*/ meltfptr[46] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3911:/ objgoto"); /*objgoto*/ goto mtch1_17; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4022:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4040:/ objgoto"); /*objgoto*/ goto mtch1_20; ; } ; } ; /*objlabel*/ mtch1_17: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_75; meltlab_count_75++; melt_debugeprintf("objlabel_75 mtch1_*CLASS_NORMTESTER_SAME/1daedb22. *CLASS_OBJLABELINSTR/c9b8138. %ld", meltlab_count_75); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V167*/ meltfptr[92] == (/*!konst_6_DELIM*/ meltfrout->tabval[6]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch1_18; ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4040:/ objgoto"); /*objgoto*/ goto mtch1_20; ; } ; } ; /*objlabel*/ mtch1_18: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_76; meltlab_count_76++; melt_debugeprintf("objlabel_76 mtch1_*CLASS_NORMTESTER_SAME/3d62bde5. *CLASS_OBJLABELINSTR/184adea8. %ld", meltlab_count_76); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V168*/ meltfptr[46] == (/*!konst_28_COMMA*/ meltfrout->tabval[28]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4022:/ objgoto"); /*objgoto*/ goto mtch1_19; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3911:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4040:/ objgoto"); /*objgoto*/ goto mtch1_20; ; } ; } ; /*objlabel*/ mtch1_19: ; MELT_LOCATION("warmelt-hooks.melt:4022:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_77; meltlab_count_77++; melt_debugeprintf("objlabel_77 mtch1_*CLASS_NORMTESTER_SUCCESS/68acc3b. *CLASS_OBJLABELINSTR/15d22933. %ld", meltlab_count_77); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4023:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L60*/ meltfnum[11] = /*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-hooks.melt:4023:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L60*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L61*/ meltfnum[22] = /* 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-hooks.melt:4023:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L61*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4023; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor got comma"; /*_.MELT_DEBUG_FUN__V170*/ 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 ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V169*/ meltfptr[45] = /*_.MELT_DEBUG_FUN__V170*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4023:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L61*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V170*/ meltfptr[70] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V169*/ meltfptr[45] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4023:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L60*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V169*/ meltfptr[45] = 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-hooks.melt:4024:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch6_0; ; /*objlabel*/ mtch6_0: ; MELT_LOCATION("warmelt-hooks.melt:4025:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_78; meltlab_count_78++; melt_debugeprintf("objlabel_78 mtch6_*CLASS_NORMTESTER_TUPLE/368a4c7c. *CLASS_OBJLABELINSTR/c97cbda. %ld", meltlab_count_78); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V171*/ meltfptr[152] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V172*/ meltfptr[145] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V171*/ meltfptr[152] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V172*/ meltfptr[145] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:4024:/ objgoto"); /*objgoto*/ goto mtch6_1; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4025:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4029:/ objgoto"); /*objgoto*/ goto mtch6_3; ; } ; } ; /*objlabel*/ mtch6_1: ; MELT_LOCATION("warmelt-hooks.melt:4024:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_79; meltlab_count_79++; melt_debugeprintf("objlabel_79 mtch6_*CLASS_NORMTESTER_SAME/2a03cd60. *CLASS_OBJLABELINSTR/c63875f. %ld", meltlab_count_79); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V171*/ meltfptr[152] == (/*!konst_18_JSON_ARRAY_NEXT*/ meltfrout->tabval[18]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4025:/ objgoto"); /*objgoto*/ goto mtch6_2; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4024:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4029:/ objgoto"); /*objgoto*/ goto mtch6_3; ; } ; } ; /*objlabel*/ mtch6_2: ; MELT_LOCATION("warmelt-hooks.melt:4025:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_80; meltlab_count_80++; melt_debugeprintf("objlabel_80 mtch6_*CLASS_NORMTESTER_SUCCESS/88d18f3. *CLASS_OBJLABELINSTR/2acb86af. %ld", meltlab_count_80); #endif ; /*^quasiblock*/ /*_.CLIST__V173*/ meltfptr[78] = /*_.NTHCOMP__V172*/ meltfptr[145];; { MELT_LOCATION("warmelt-hooks.melt:4026:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (0), (melt_ptr_t)((/*!konst_17_JSON_ARRAY*/ meltfrout->tabval[17]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4027:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L62*/ 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-hooks.melt:4027:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L62*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L63*/ meltfnum[22] = /* 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-hooks.melt:4027:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L63*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4027; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor comma updated jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V175*/ meltfptr[46] = 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___V174*/ meltfptr[92] = /*_.MELT_DEBUG_FUN__V175*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4027:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L63*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V175*/ meltfptr[46] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V174*/ meltfptr[92] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4027:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L62*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V174*/ meltfptr[92] = 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-hooks.melt:4025:/ clear"); /*clear*/ /*_.CLIST__V173*/ meltfptr[78] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch6__end /*endmatch*/; ; /*objlabel*/ mtch6_3: ; MELT_LOCATION("warmelt-hooks.melt:4029:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_81; meltlab_count_81++; melt_debugeprintf("objlabel_81 mtch6_*CLASS_NORMTESTER_TUPLE/7d8dbb1. *CLASS_OBJLABELINSTR/2245f894. %ld", meltlab_count_81); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V176*/ meltfptr[70] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V177*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V178*/ meltfptr[152] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 3)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V176*/ meltfptr[70] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V177*/ meltfptr[45] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; /*^compute*/ /*_.NTHCOMP__V178*/ meltfptr[152] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[2];; MELT_LOCATION("warmelt-hooks.melt:4024:/ objgoto"); /*objgoto*/ goto mtch6_4; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4029:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4033:/ objgoto"); /*objgoto*/ goto mtch6_6; ; } ; } ; /*objlabel*/ mtch6_4: ; MELT_LOCATION("warmelt-hooks.melt:4024:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_82; meltlab_count_82++; melt_debugeprintf("objlabel_82 mtch6_*CLASS_NORMTESTER_SAME/3340814e. *CLASS_OBJLABELINSTR/74d5b14. %ld", meltlab_count_82); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V176*/ meltfptr[70] == (/*!konst_12_JSON_OBJECT_NEXT*/ meltfrout->tabval[12]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4029:/ objgoto"); /*objgoto*/ goto mtch6_5; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4024:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4033:/ objgoto"); /*objgoto*/ goto mtch6_6; ; } ; } ; /*objlabel*/ mtch6_5: ; MELT_LOCATION("warmelt-hooks.melt:4029:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_83; meltlab_count_83++; melt_debugeprintf("objlabel_83 mtch6_*CLASS_NORMTESTER_SUCCESS/f74796f. *CLASS_OBJLABELINSTR/a9be1e9. %ld", meltlab_count_83); #endif ; /*^quasiblock*/ /*_.ATLIST__V179*/ meltfptr[46] = /*_.NTHCOMP__V177*/ meltfptr[45];; /*^compute*/ /*_.VALIST__V180*/ meltfptr[92] = /*_.NTHCOMP__V178*/ meltfptr[152];; { MELT_LOCATION("warmelt-hooks.melt:4030:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (0), (melt_ptr_t)((/*!konst_9_JSON_OBJECT_ATTR*/ meltfrout->tabval[9]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4031:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L64*/ meltfnum[11] = /*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-hooks.melt:4031:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L64*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L65*/ meltfnum[22] = /* 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-hooks.melt:4031:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L65*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4031; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor comma updated jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V182*/ 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___V181*/ meltfptr[78] = /*_.MELT_DEBUG_FUN__V182*/ meltfptr[70];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4031:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L65*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V182*/ meltfptr[70] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V181*/ meltfptr[78] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4031:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L64*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V181*/ meltfptr[78] = 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-hooks.melt:4029:/ clear"); /*clear*/ /*_.ATLIST__V179*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.VALIST__V180*/ meltfptr[92] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch6__end /*endmatch*/; ; /*objlabel*/ mtch6_6: ; MELT_LOCATION("warmelt-hooks.melt:4033:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_84; meltlab_count_84++; melt_debugeprintf("objlabel_84 mtch6_*CLASS_NORMTESTER_SUCCESS/2231bc15. *CLASS_OBJLABELINSTR/1e55997. %ld", meltlab_count_84); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4034:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L66*/ 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-hooks.melt:4034:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L66*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L67*/ meltfnum[22] = /* 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-hooks.melt:4034:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L67*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4034; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor unexpected comma jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n.. jparser="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.JPARSER__V9*/ meltfptr[3]; /*_.MELT_DEBUG_FUN__V184*/ meltfptr[78] = 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___V183*/ meltfptr[70] = /*_.MELT_DEBUG_FUN__V184*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4034:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L67*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V184*/ meltfptr[78] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V183*/ meltfptr[70] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4034:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L66*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V183*/ meltfptr[70] = 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-hooks.melt:4036:/ apply"); /*apply*/ { /*_.JERROR__V185*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)(/*_.JERROR__V12*/ meltfptr[11]), (melt_ptr_t)((/*!konst_29*/ meltfrout->tabval[29])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4037:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4037:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4033:/ clear"); /*clear*/ /*_.JERROR__V185*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V186*/ meltfptr[92] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch6__end /*endmatch*/; ; /*objlabel*/ mtch6__end: ; MELT_LOCATION("warmelt-hooks.melt:4024:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_85; meltlab_count_85++; melt_debugeprintf("objlabel_85 mtch6__end_h636876507 *CLASS_OBJLABELINSTR/25f5f6db. %ld", meltlab_count_85); #endif ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4022:/ objgoto"); /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_20: ; MELT_LOCATION("warmelt-hooks.melt:4040:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_86; meltlab_count_86++; melt_debugeprintf("objlabel_86 mtch1_*CLASS_NORMTESTER_TUPLE/2ed0d50b. *CLASS_OBJLABELINSTR/bae646. %ld", meltlab_count_86); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V187*/ meltfptr[78] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V188*/ meltfptr[70] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V187*/ meltfptr[78] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V188*/ meltfptr[70] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3911:/ objgoto"); /*objgoto*/ goto mtch1_21; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4040:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4054:/ objgoto"); /*objgoto*/ goto mtch1_24; ; } ; } ; /*objlabel*/ mtch1_21: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_87; meltlab_count_87++; melt_debugeprintf("objlabel_87 mtch1_*CLASS_NORMTESTER_SAME/39c9ca2. *CLASS_OBJLABELINSTR/1d01a82. %ld", meltlab_count_87); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V187*/ meltfptr[78] == (/*!konst_6_DELIM*/ meltfrout->tabval[6]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch1_22; ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4054:/ objgoto"); /*objgoto*/ goto mtch1_24; ; } ; } ; /*objlabel*/ mtch1_22: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_88; meltlab_count_88++; melt_debugeprintf("objlabel_88 mtch1_*CLASS_NORMTESTER_SAME/2ca4966c. *CLASS_OBJLABELINSTR/d10a54b. %ld", meltlab_count_88); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V188*/ meltfptr[70] == (/*!konst_30_COLON*/ meltfrout->tabval[30]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4040:/ objgoto"); /*objgoto*/ goto mtch1_23; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3911:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4054:/ objgoto"); /*objgoto*/ goto mtch1_24; ; } ; } ; /*objlabel*/ mtch1_23: ; MELT_LOCATION("warmelt-hooks.melt:4040:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_89; meltlab_count_89++; melt_debugeprintf("objlabel_89 mtch1_*CLASS_NORMTESTER_SUCCESS/3b017988. *CLASS_OBJLABELINSTR/4006685. %ld", meltlab_count_89); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4041:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L68*/ meltfnum[11] = /*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-hooks.melt:4041:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L68*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L69*/ meltfnum[22] = /* 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-hooks.melt:4041:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L69*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4041; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor got colon"; /*_.MELT_DEBUG_FUN__V190*/ meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V189*/ meltfptr[46] = /*_.MELT_DEBUG_FUN__V190*/ meltfptr[92];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4041:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L69*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V190*/ meltfptr[92] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V189*/ meltfptr[46] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4041:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L68*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V189*/ meltfptr[46] = 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-hooks.melt:4042:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch7_0; ; /*objlabel*/ mtch7_0: ; MELT_LOCATION("warmelt-hooks.melt:4043:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_90; meltlab_count_90++; melt_debugeprintf("objlabel_90 mtch7_*CLASS_NORMTESTER_TUPLE/12e84fa0. *CLASS_OBJLABELINSTR/3e6c1de9. %ld", meltlab_count_90); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V191*/ meltfptr[78] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V192*/ meltfptr[70] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V193*/ meltfptr[92] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 3)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V191*/ meltfptr[78] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V192*/ meltfptr[70] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; /*^compute*/ /*_.NTHCOMP__V193*/ meltfptr[92] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[2];; MELT_LOCATION("warmelt-hooks.melt:4042:/ objgoto"); /*objgoto*/ goto mtch7_1; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4043:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4047:/ objgoto"); /*objgoto*/ goto mtch7_3; ; } ; } ; /*objlabel*/ mtch7_1: ; MELT_LOCATION("warmelt-hooks.melt:4042:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_91; meltlab_count_91++; melt_debugeprintf("objlabel_91 mtch7_*CLASS_NORMTESTER_SAME/5e9d9b7. *CLASS_OBJLABELINSTR/1a104386. %ld", meltlab_count_91); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V191*/ meltfptr[78] == (/*!konst_31_JSON_OBJECT_COLON*/ meltfrout->tabval[31]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4043:/ objgoto"); /*objgoto*/ goto mtch7_2; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4042:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4047:/ objgoto"); /*objgoto*/ goto mtch7_3; ; } ; } ; /*objlabel*/ mtch7_2: ; MELT_LOCATION("warmelt-hooks.melt:4043:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_92; meltlab_count_92++; melt_debugeprintf("objlabel_92 mtch7_*CLASS_NORMTESTER_SUCCESS/3229fb14. *CLASS_OBJLABELINSTR/8f25628. %ld", meltlab_count_92); #endif ; /*^quasiblock*/ /*_.ATLIST__V194*/ meltfptr[46] = /*_.NTHCOMP__V192*/ meltfptr[70];; /*^compute*/ /*_.VALIST__V195*/ meltfptr[78] = /*_.NTHCOMP__V193*/ meltfptr[92];; { MELT_LOCATION("warmelt-hooks.melt:4044:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (0), (melt_ptr_t)((/*!konst_16_JSON_OBJECT_VAL*/ meltfrout->tabval[16]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4045:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L70*/ 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-hooks.melt:4045:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L70*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L71*/ meltfnum[22] = /* 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-hooks.melt:4045:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L71*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4045; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor colon updated jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V197*/ meltfptr[196] = 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[195] = /*_.MELT_DEBUG_FUN__V197*/ meltfptr[196];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4045:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L71*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V197*/ meltfptr[196] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V196*/ meltfptr[195] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4045:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L70*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V196*/ meltfptr[195] = 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-hooks.melt:4043:/ clear"); /*clear*/ /*_.ATLIST__V194*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.VALIST__V195*/ meltfptr[78] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch7__end /*endmatch*/; ; /*objlabel*/ mtch7_3: ; MELT_LOCATION("warmelt-hooks.melt:4047:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_93; meltlab_count_93++; melt_debugeprintf("objlabel_93 mtch7_*CLASS_NORMTESTER_SUCCESS/2297959c. *CLASS_OBJLABELINSTR/32fbfe3c. %ld", meltlab_count_93); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4048:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L72*/ meltfnum[11] = /*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-hooks.melt:4048:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L72*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L73*/ meltfnum[22] = /* 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-hooks.melt:4048:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L73*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4048; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor unexpected colon jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*^apply.arg*/ argtab[5].meltbp_cstring = "\n.. jparser="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.JPARSER__V9*/ meltfptr[3]; /*_.MELT_DEBUG_FUN__V199*/ meltfptr[195] = 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___V198*/ meltfptr[196] = /*_.MELT_DEBUG_FUN__V199*/ meltfptr[195];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4048:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L73*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V199*/ meltfptr[195] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V198*/ meltfptr[196] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4048:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L72*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V198*/ meltfptr[196] = 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-hooks.melt:4050:/ apply"); /*apply*/ { /*_.JERROR__V200*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)(/*_.JERROR__V12*/ meltfptr[11]), (melt_ptr_t)((/*!konst_32*/ meltfrout->tabval[32])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4051:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4051:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4047:/ clear"); /*clear*/ /*_.JERROR__V200*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V201*/ meltfptr[78] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch7__end /*endmatch*/; ; /*objlabel*/ mtch7__end: ; MELT_LOCATION("warmelt-hooks.melt:4042:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_94; meltlab_count_94++; melt_debugeprintf("objlabel_94 mtch7__end_h987658253 *CLASS_OBJLABELINSTR/3ade780d. %ld", meltlab_count_94); #endif ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4040:/ objgoto"); /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_24: ; MELT_LOCATION("warmelt-hooks.melt:4054:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_95; meltlab_count_95++; melt_debugeprintf("objlabel_95 mtch1_*CLASS_NORMTESTER_TUPLE/26d90d08. *CLASS_OBJLABELINSTR/3f740ea0. %ld", meltlab_count_95); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V202*/ meltfptr[195] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V203*/ meltfptr[196] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V202*/ meltfptr[195] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V203*/ meltfptr[196] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3911:/ objgoto"); /*objgoto*/ goto mtch1_25; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4054:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4084:/ objgoto"); /*objgoto*/ goto mtch1_27; ; } ; } ; /*objlabel*/ mtch1_25: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_96; meltlab_count_96++; melt_debugeprintf("objlabel_96 mtch1_*CLASS_NORMTESTER_SAME/abc2e78. *CLASS_OBJLABELINSTR/18de4659. %ld", meltlab_count_96); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V202*/ meltfptr[195] == (/*!konst_33_STRING*/ meltfrout->tabval[33]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4054:/ objgoto"); /*objgoto*/ goto mtch1_26; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3911:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4084:/ objgoto"); /*objgoto*/ goto mtch1_27; ; } ; } ; /*objlabel*/ mtch1_26: ; MELT_LOCATION("warmelt-hooks.melt:4054:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_97; meltlab_count_97++; melt_debugeprintf("objlabel_97 mtch1_*CLASS_NORMTESTER_SUCCESS/cf62e37. *CLASS_OBJLABELINSTR/3018c712. %ld", meltlab_count_97); #endif ; /*^quasiblock*/ /*_.VSTR__V204*/ meltfptr[46] = /*_.NTHCOMP__V203*/ meltfptr[196];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4055:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L74*/ 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-hooks.melt:4055:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L74*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L75*/ meltfnum[22] = /* 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-hooks.melt:4055:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L75*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4055; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor got string vstr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.VSTR__V204*/ meltfptr[46]; /*_.MELT_DEBUG_FUN__V206*/ meltfptr[195] = 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___V205*/ meltfptr[78] = /*_.MELT_DEBUG_FUN__V206*/ meltfptr[195];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4055:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L75*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V206*/ meltfptr[195] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V205*/ meltfptr[78] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4055:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L74*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V205*/ meltfptr[78] = 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-hooks.melt:4056:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch8_0; ; /*objlabel*/ mtch8_0: ; MELT_LOCATION("warmelt-hooks.melt:4057:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_98; meltlab_count_98++; melt_debugeprintf("objlabel_98 mtch8_*CLASS_NORMTESTER_TUPLE/1aaa358f. *CLASS_OBJLABELINSTR/16c3afae. %ld", meltlab_count_98); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V207*/ meltfptr[195] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V208*/ meltfptr[78] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V209*/ meltfptr[208] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 3)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V207*/ meltfptr[195] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V208*/ meltfptr[78] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; /*^compute*/ /*_.NTHCOMP__V209*/ meltfptr[208] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[2];; MELT_LOCATION("warmelt-hooks.melt:4056:/ objgoto"); /*objgoto*/ goto mtch8_1; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4057:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4062:/ objgoto"); /*objgoto*/ goto mtch8_3; ; } ; } ; /*objlabel*/ mtch8_1: ; MELT_LOCATION("warmelt-hooks.melt:4056:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_99; meltlab_count_99++; melt_debugeprintf("objlabel_99 mtch8_*CLASS_NORMTESTER_SAME/37b592e1. *CLASS_OBJLABELINSTR/ababd70. %ld", meltlab_count_99); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V207*/ meltfptr[195] == (/*!konst_9_JSON_OBJECT_ATTR*/ meltfrout->tabval[9]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4057:/ objgoto"); /*objgoto*/ goto mtch8_2; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4056:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4062:/ objgoto"); /*objgoto*/ goto mtch8_3; ; } ; } ; /*objlabel*/ mtch8_2: ; MELT_LOCATION("warmelt-hooks.melt:4057:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_100; meltlab_count_100++; melt_debugeprintf("objlabel_100 mtch8_*CLASS_NORMTESTER_SUCCESS/1679f86. *CLASS_OBJLABELINSTR/17160c34. %ld", meltlab_count_100); #endif ; /*^quasiblock*/ /*_.ATLIST__V210*/ meltfptr[195] = /*_.NTHCOMP__V208*/ meltfptr[78];; /*^compute*/ /*_.VALIST__V211*/ meltfptr[210] = /*_.NTHCOMP__V209*/ meltfptr[208];; { MELT_LOCATION("warmelt-hooks.melt:4058:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.ATLIST__V210*/ meltfptr[195]), (melt_ptr_t)(/*_.VSTR__V204*/ meltfptr[46])); } ; { MELT_LOCATION("warmelt-hooks.melt:4059:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (0), (melt_ptr_t)((/*!konst_31_JSON_OBJECT_COLON*/ meltfrout->tabval[31]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4060:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L76*/ meltfnum[11] = /*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-hooks.melt:4060:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L76*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L77*/ meltfnum[22] = /* 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-hooks.melt:4060:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L77*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4060; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after string now jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V213*/ meltfptr[212] = 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___V212*/ meltfptr[211] = /*_.MELT_DEBUG_FUN__V213*/ meltfptr[212];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4060:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L77*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V213*/ meltfptr[212] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V212*/ meltfptr[211] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4060:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L76*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V212*/ meltfptr[211] = 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-hooks.melt:4057:/ clear"); /*clear*/ /*_.ATLIST__V210*/ meltfptr[195] = 0 ; /*^clear*/ /*clear*/ /*_.VALIST__V211*/ meltfptr[210] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch8__end /*endmatch*/; ; /*objlabel*/ mtch8_3: ; MELT_LOCATION("warmelt-hooks.melt:4062:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_101; meltlab_count_101++; melt_debugeprintf("objlabel_101 mtch8_*CLASS_NORMTESTER_TUPLE/3536a88e. *CLASS_OBJLABELINSTR/3175ceea. %ld", meltlab_count_101); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V214*/ meltfptr[212] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V215*/ meltfptr[211] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V216*/ meltfptr[195] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 3)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V214*/ meltfptr[212] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V215*/ meltfptr[211] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; /*^compute*/ /*_.NTHCOMP__V216*/ meltfptr[195] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[2];; MELT_LOCATION("warmelt-hooks.melt:4056:/ objgoto"); /*objgoto*/ goto mtch8_4; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4062:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4067:/ objgoto"); /*objgoto*/ goto mtch8_6; ; } ; } ; /*objlabel*/ mtch8_4: ; MELT_LOCATION("warmelt-hooks.melt:4056:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_102; meltlab_count_102++; melt_debugeprintf("objlabel_102 mtch8_*CLASS_NORMTESTER_SAME/1b39ab4a. *CLASS_OBJLABELINSTR/3bdf9403. %ld", meltlab_count_102); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V214*/ meltfptr[212] == (/*!konst_16_JSON_OBJECT_VAL*/ meltfrout->tabval[16]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4062:/ objgoto"); /*objgoto*/ goto mtch8_5; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4056:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4067:/ objgoto"); /*objgoto*/ goto mtch8_6; ; } ; } ; /*objlabel*/ mtch8_5: ; MELT_LOCATION("warmelt-hooks.melt:4062:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_103; meltlab_count_103++; melt_debugeprintf("objlabel_103 mtch8_*CLASS_NORMTESTER_SUCCESS/5f5acc0. *CLASS_OBJLABELINSTR/20e7d510. %ld", meltlab_count_103); #endif ; /*^quasiblock*/ /*_.ATLIST__V217*/ meltfptr[210] = /*_.NTHCOMP__V215*/ meltfptr[211];; /*^compute*/ /*_.VALIST__V218*/ meltfptr[212] = /*_.NTHCOMP__V216*/ meltfptr[195];; { MELT_LOCATION("warmelt-hooks.melt:4063:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.VALIST__V218*/ meltfptr[212]), (melt_ptr_t)(/*_.VSTR__V204*/ meltfptr[46])); } ; { MELT_LOCATION("warmelt-hooks.melt:4064:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (0), (melt_ptr_t)((/*!konst_12_JSON_OBJECT_NEXT*/ meltfrout->tabval[12]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4065:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L78*/ 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-hooks.melt:4065:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L78*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L79*/ meltfnum[22] = /* 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-hooks.melt:4065:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L79*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4065; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after string now jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V220*/ meltfptr[219] = 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___V219*/ meltfptr[218] = /*_.MELT_DEBUG_FUN__V220*/ meltfptr[219];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4065:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L79*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V220*/ meltfptr[219] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V219*/ meltfptr[218] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4065:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L78*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V219*/ meltfptr[218] = 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-hooks.melt:4062:/ clear"); /*clear*/ /*_.ATLIST__V217*/ meltfptr[210] = 0 ; /*^clear*/ /*clear*/ /*_.VALIST__V218*/ meltfptr[212] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch8__end /*endmatch*/; ; /*objlabel*/ mtch8_6: ; MELT_LOCATION("warmelt-hooks.melt:4067:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_104; meltlab_count_104++; melt_debugeprintf("objlabel_104 mtch8_*CLASS_NORMTESTER_TUPLE/1f332674. *CLASS_OBJLABELINSTR/23b2d114. %ld", meltlab_count_104); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V221*/ meltfptr[219] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V222*/ meltfptr[218] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V221*/ meltfptr[219] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V222*/ meltfptr[218] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:4056:/ objgoto"); /*objgoto*/ goto mtch8_7; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4067:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4074:/ objgoto"); /*objgoto*/ goto mtch8_9; ; } ; } ; /*objlabel*/ mtch8_7: ; MELT_LOCATION("warmelt-hooks.melt:4056:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_105; meltlab_count_105++; melt_debugeprintf("objlabel_105 mtch8_*CLASS_NORMTESTER_SAME/2c5ac34f. *CLASS_OBJLABELINSTR/2965fd06. %ld", meltlab_count_105); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V221*/ meltfptr[219] == (/*!konst_15_JSON_RESULT*/ meltfrout->tabval[15]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4067:/ objgoto"); /*objgoto*/ goto mtch8_8; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4056:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4074:/ objgoto"); /*objgoto*/ goto mtch8_9; ; } ; } ; /*objlabel*/ mtch8_8: ; MELT_LOCATION("warmelt-hooks.melt:4067:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_106; meltlab_count_106++; melt_debugeprintf("objlabel_106 mtch8_*CLASS_NORMTESTER_SUCCESS/2576886c. *CLASS_OBJLABELINSTR/32cd224b. %ld", meltlab_count_106); #endif ; /*^quasiblock*/ /*_.CLORES__V223*/ meltfptr[210] = /*_.NTHCOMP__V222*/ meltfptr[218];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4068:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L80*/ meltfnum[11] = /*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-hooks.melt:4068:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L80*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L81*/ meltfnum[22] = /* 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-hooks.melt:4068:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L81*/ meltfnum[22]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4068; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after string result clores="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLORES__V223*/ meltfptr[210]; /*_.MELT_DEBUG_FUN__V225*/ meltfptr[219] = 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___V224*/ meltfptr[212] = /*_.MELT_DEBUG_FUN__V225*/ meltfptr[219];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4068:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L81*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V225*/ meltfptr[219] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V224*/ meltfptr[212] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4068:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L80*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V224*/ meltfptr[212] = 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-hooks.melt:4069:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L82*/ meltfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.CLORES__V223*/ meltfptr[210])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:4069:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L82*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V227*/ meltfptr[212] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:4069:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check clores"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4069; /*_.MELT_ASSERT_FAILURE_FUN__V228*/ meltfptr[227] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V227*/ meltfptr[212] = /*_.MELT_ASSERT_FAILURE_FUN__V228*/ meltfptr[227];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4069:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V228*/ meltfptr[227] = 0 ; } ; } ; /*_.IFCPP___V226*/ meltfptr[219] = /*_._IFELSE___V227*/ meltfptr[212];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4069:/ clear"); /*clear*/ /*_#IS_CLOSURE__L82*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V227*/ meltfptr[212] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V226*/ meltfptr[219] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; /*^compute*/ /*_.LIST_POP_FIRST__V229*/ meltfptr[227] = (meltgc_popfirst_list((melt_ptr_t)(/*_.JSTACK__V11*/ meltfptr[10])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4071:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INCH__V2*/ meltfptr[1]; /*_.CLORES__V230*/ meltfptr[212] = melt_apply ((meltclosure_ptr_t)(/*_.CLORES__V223*/ meltfptr[210]), (melt_ptr_t)(/*_.VSTR__V204*/ meltfptr[46]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4072:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4072:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4067:/ clear"); /*clear*/ /*_.CLORES__V223*/ meltfptr[210] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V226*/ meltfptr[219] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_POP_FIRST__V229*/ meltfptr[227] = 0 ; /*^clear*/ /*clear*/ /*_.CLORES__V230*/ meltfptr[212] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V231*/ meltfptr[230] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch8__end /*endmatch*/; ; /*objlabel*/ mtch8_9: ; MELT_LOCATION("warmelt-hooks.melt:4074:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_107; meltlab_count_107++; melt_debugeprintf("objlabel_107 mtch8_*CLASS_NORMTESTER_TUPLE/bada94e. *CLASS_OBJLABELINSTR/2d74409a. %ld", meltlab_count_107); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V232*/ meltfptr[210] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V233*/ meltfptr[219] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V232*/ meltfptr[210] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V233*/ meltfptr[219] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:4056:/ objgoto"); /*objgoto*/ goto mtch8_10; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4074:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4078:/ objgoto"); /*objgoto*/ goto mtch8_12; ; } ; } ; /*objlabel*/ mtch8_10: ; MELT_LOCATION("warmelt-hooks.melt:4056:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_108; meltlab_count_108++; melt_debugeprintf("objlabel_108 mtch8_*CLASS_NORMTESTER_SAME/1fc242b4. *CLASS_OBJLABELINSTR/2f08fccd. %ld", meltlab_count_108); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V232*/ meltfptr[210] == (/*!konst_17_JSON_ARRAY*/ meltfrout->tabval[17]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4074:/ objgoto"); /*objgoto*/ goto mtch8_11; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4056:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4078:/ objgoto"); /*objgoto*/ goto mtch8_12; ; } ; } ; /*objlabel*/ mtch8_11: ; MELT_LOCATION("warmelt-hooks.melt:4074:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_109; meltlab_count_109++; melt_debugeprintf("objlabel_109 mtch8_*CLASS_NORMTESTER_SUCCESS/66995a4. *CLASS_OBJLABELINSTR/1cbffa42. %ld", meltlab_count_109); #endif ; /*^quasiblock*/ /*_.COMPLIST__V234*/ meltfptr[227] = /*_.NTHCOMP__V233*/ meltfptr[219];; { MELT_LOCATION("warmelt-hooks.melt:4075:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.COMPLIST__V234*/ meltfptr[227]), (melt_ptr_t)(/*_.VSTR__V204*/ meltfptr[46])); } ; { MELT_LOCATION("warmelt-hooks.melt:4076:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (0), (melt_ptr_t)((/*!konst_18_JSON_ARRAY_NEXT*/ meltfrout->tabval[18]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4077:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L83*/ meltfnum[22] = /*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-hooks.melt:4077:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L83*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L84*/ 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-hooks.melt:4077:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L84*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4077; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after string now jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V236*/ meltfptr[230] = 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___V235*/ meltfptr[212] = /*_.MELT_DEBUG_FUN__V236*/ meltfptr[230];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4077:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L84*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V236*/ meltfptr[230] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V235*/ meltfptr[212] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4077:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L83*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V235*/ meltfptr[212] = 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-hooks.melt:4074:/ clear"); /*clear*/ /*_.COMPLIST__V234*/ meltfptr[227] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch8__end /*endmatch*/; ; /*objlabel*/ mtch8_12: ; MELT_LOCATION("warmelt-hooks.melt:4078:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_110; meltlab_count_110++; melt_debugeprintf("objlabel_110 mtch8_*CLASS_NORMTESTER_SUCCESS/38e1caa5. *CLASS_OBJLABELINSTR/1c77e627. %ld", meltlab_count_110); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4079:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L85*/ 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-hooks.melt:4079:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L85*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L86*/ 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-hooks.melt:4079:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L86*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4079; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after string bad jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V238*/ meltfptr[230] = 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___V237*/ meltfptr[210] = /*_.MELT_DEBUG_FUN__V238*/ meltfptr[230];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4079:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L86*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V238*/ meltfptr[230] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V237*/ meltfptr[210] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4079:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L85*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V237*/ meltfptr[210] = 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-hooks.melt:4080:/ apply"); /*apply*/ { /*_.JERROR__V239*/ meltfptr[212] = melt_apply ((meltclosure_ptr_t)(/*_.JERROR__V12*/ meltfptr[11]), (melt_ptr_t)((/*!konst_34*/ meltfrout->tabval[34])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4081:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4081:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4078:/ clear"); /*clear*/ /*_.JERROR__V239*/ meltfptr[212] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V240*/ meltfptr[227] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch8__end /*endmatch*/; ; /*objlabel*/ mtch8__end: ; MELT_LOCATION("warmelt-hooks.melt:4056:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_111; meltlab_count_111++; melt_debugeprintf("objlabel_111 mtch8__end_h985173302 *CLASS_OBJLABELINSTR/3ab88d36. %ld", meltlab_count_111); #endif ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4054:/ clear"); /*clear*/ /*_.VSTR__V204*/ meltfptr[46] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_27: ; MELT_LOCATION("warmelt-hooks.melt:4084:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_112; meltlab_count_112++; melt_debugeprintf("objlabel_112 mtch1_*CLASS_NORMTESTER_TUPLE/25112faf. *CLASS_OBJLABELINSTR/265e74ee. %ld", meltlab_count_112); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V241*/ meltfptr[230] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V242*/ meltfptr[210] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V241*/ meltfptr[230] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V242*/ meltfptr[210] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3911:/ objgoto"); /*objgoto*/ goto mtch1_28; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4084:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4110:/ objgoto"); /*objgoto*/ goto mtch1_30; ; } ; } ; /*objlabel*/ mtch1_28: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_113; meltlab_count_113++; melt_debugeprintf("objlabel_113 mtch1_*CLASS_NORMTESTER_SAME/3d5299b9. *CLASS_OBJLABELINSTR/2fd7b73c. %ld", meltlab_count_113); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V241*/ meltfptr[230] == (/*!konst_35_NUMBER*/ meltfrout->tabval[35]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4084:/ objgoto"); /*objgoto*/ goto mtch1_29; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3911:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4110:/ objgoto"); /*objgoto*/ goto mtch1_30; ; } ; } ; /*objlabel*/ mtch1_29: ; MELT_LOCATION("warmelt-hooks.melt:4084:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_114; meltlab_count_114++; melt_debugeprintf("objlabel_114 mtch1_*CLASS_NORMTESTER_SUCCESS/9948cc3. *CLASS_OBJLABELINSTR/3464678f. %ld", meltlab_count_114); #endif ; /*^quasiblock*/ /*_.VNUM__V243*/ meltfptr[212] = /*_.NTHCOMP__V242*/ meltfptr[210];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4085:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L87*/ meltfnum[22] = /*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-hooks.melt:4085:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L87*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L88*/ 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-hooks.melt:4085:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L88*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4085; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor got number vnum="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.VNUM__V243*/ meltfptr[212]; /*_.MELT_DEBUG_FUN__V245*/ meltfptr[46] = 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___V244*/ meltfptr[227] = /*_.MELT_DEBUG_FUN__V245*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4085:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L88*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V245*/ meltfptr[46] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V244*/ meltfptr[227] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4085:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L87*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V244*/ meltfptr[227] = 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-hooks.melt:4086:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch9_0; ; /*objlabel*/ mtch9_0: ; MELT_LOCATION("warmelt-hooks.melt:4087:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_115; meltlab_count_115++; melt_debugeprintf("objlabel_115 mtch9_*CLASS_NORMTESTER_TUPLE/3c24d34b. *CLASS_OBJLABELINSTR/33b5c7b4. %ld", meltlab_count_115); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V246*/ meltfptr[230] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V247*/ meltfptr[46] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V246*/ meltfptr[230] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V247*/ meltfptr[46] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:4086:/ objgoto"); /*objgoto*/ goto mtch9_1; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4087:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4094:/ objgoto"); /*objgoto*/ goto mtch9_3; ; } ; } ; /*objlabel*/ mtch9_1: ; MELT_LOCATION("warmelt-hooks.melt:4086:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_116; meltlab_count_116++; melt_debugeprintf("objlabel_116 mtch9_*CLASS_NORMTESTER_SAME/b20d12c. *CLASS_OBJLABELINSTR/12a31999. %ld", meltlab_count_116); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V246*/ meltfptr[230] == (/*!konst_15_JSON_RESULT*/ meltfrout->tabval[15]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4087:/ objgoto"); /*objgoto*/ goto mtch9_2; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4086:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4094:/ objgoto"); /*objgoto*/ goto mtch9_3; ; } ; } ; /*objlabel*/ mtch9_2: ; MELT_LOCATION("warmelt-hooks.melt:4087:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_117; meltlab_count_117++; melt_debugeprintf("objlabel_117 mtch9_*CLASS_NORMTESTER_SUCCESS/88c6327. *CLASS_OBJLABELINSTR/34bfe306. %ld", meltlab_count_117); #endif ; /*^quasiblock*/ /*_.CLORES__V248*/ meltfptr[227] = /*_.NTHCOMP__V247*/ meltfptr[46];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4088:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L89*/ 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-hooks.melt:4088:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L89*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L90*/ 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-hooks.melt:4088:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L90*/ meltfnum[11]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4088; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after number result clores="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLORES__V248*/ meltfptr[227]; /*_.MELT_DEBUG_FUN__V250*/ meltfptr[249] = 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___V249*/ meltfptr[230] = /*_.MELT_DEBUG_FUN__V250*/ meltfptr[249];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4088:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L90*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V250*/ meltfptr[249] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V249*/ meltfptr[230] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4088:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L89*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V249*/ meltfptr[230] = 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-hooks.melt:4089:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L91*/ meltfnum[22] = (melt_magic_discr((melt_ptr_t)(/*_.CLORES__V248*/ meltfptr[227])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:4089:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L91*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V252*/ meltfptr[230] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:4089:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check clores"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4089; /*_.MELT_ASSERT_FAILURE_FUN__V253*/ meltfptr[252] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V252*/ meltfptr[230] = /*_.MELT_ASSERT_FAILURE_FUN__V253*/ meltfptr[252];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4089:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V253*/ meltfptr[252] = 0 ; } ; } ; /*_.IFCPP___V251*/ meltfptr[249] = /*_._IFELSE___V252*/ meltfptr[230];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4089:/ clear"); /*clear*/ /*_#IS_CLOSURE__L91*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V252*/ meltfptr[230] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V251*/ meltfptr[249] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; /*^compute*/ /*_.LIST_POP_FIRST__V254*/ meltfptr[252] = (meltgc_popfirst_list((melt_ptr_t)(/*_.JSTACK__V11*/ meltfptr[10])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4091:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.INCH__V2*/ meltfptr[1]; /*_.CLORES__V255*/ meltfptr[230] = melt_apply ((meltclosure_ptr_t)(/*_.CLORES__V248*/ meltfptr[227]), (melt_ptr_t)(/*_.VNUM__V243*/ meltfptr[212]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4092:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4092:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4087:/ clear"); /*clear*/ /*_.CLORES__V248*/ meltfptr[227] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V251*/ meltfptr[249] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_POP_FIRST__V254*/ meltfptr[252] = 0 ; /*^clear*/ /*clear*/ /*_.CLORES__V255*/ meltfptr[230] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V256*/ meltfptr[255] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch9__end /*endmatch*/; ; /*objlabel*/ mtch9_3: ; MELT_LOCATION("warmelt-hooks.melt:4094:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_118; meltlab_count_118++; melt_debugeprintf("objlabel_118 mtch9_*CLASS_NORMTESTER_TUPLE/3a233c43. *CLASS_OBJLABELINSTR/29ce7dd9. %ld", meltlab_count_118); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V257*/ meltfptr[227] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V258*/ meltfptr[249] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V259*/ meltfptr[252] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 3)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V257*/ meltfptr[227] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V258*/ meltfptr[249] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; /*^compute*/ /*_.NTHCOMP__V259*/ meltfptr[252] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[2];; MELT_LOCATION("warmelt-hooks.melt:4086:/ objgoto"); /*objgoto*/ goto mtch9_4; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4094:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4099:/ objgoto"); /*objgoto*/ goto mtch9_6; ; } ; } ; /*objlabel*/ mtch9_4: ; MELT_LOCATION("warmelt-hooks.melt:4086:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_119; meltlab_count_119++; melt_debugeprintf("objlabel_119 mtch9_*CLASS_NORMTESTER_SAME/1cf523e9. *CLASS_OBJLABELINSTR/aaa070d. %ld", meltlab_count_119); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V257*/ meltfptr[227] == (/*!konst_16_JSON_OBJECT_VAL*/ meltfrout->tabval[16]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4094:/ objgoto"); /*objgoto*/ goto mtch9_5; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4086:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4099:/ objgoto"); /*objgoto*/ goto mtch9_6; ; } ; } ; /*objlabel*/ mtch9_5: ; MELT_LOCATION("warmelt-hooks.melt:4094:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_120; meltlab_count_120++; melt_debugeprintf("objlabel_120 mtch9_*CLASS_NORMTESTER_SUCCESS/20fdef24. *CLASS_OBJLABELINSTR/318b918e. %ld", meltlab_count_120); #endif ; /*^quasiblock*/ /*_.ATLIST__V260*/ meltfptr[230] = /*_.NTHCOMP__V258*/ meltfptr[249];; /*^compute*/ /*_.VALIST__V261*/ meltfptr[255] = /*_.NTHCOMP__V259*/ meltfptr[252];; { MELT_LOCATION("warmelt-hooks.melt:4095:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.VALIST__V261*/ meltfptr[255]), (melt_ptr_t)(/*_.VNUM__V243*/ meltfptr[212])); } ; { MELT_LOCATION("warmelt-hooks.melt:4096:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (0), (melt_ptr_t)((/*!konst_12_JSON_OBJECT_NEXT*/ meltfrout->tabval[12]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4097:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L92*/ meltfnum[11] = /*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-hooks.melt:4097:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L92*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L93*/ 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-hooks.melt:4097:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L93*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4097; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after number now jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V263*/ meltfptr[262] = 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___V262*/ meltfptr[227] = /*_.MELT_DEBUG_FUN__V263*/ meltfptr[262];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4097:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L93*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V263*/ meltfptr[262] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V262*/ meltfptr[227] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4097:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L92*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V262*/ meltfptr[227] = 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-hooks.melt:4094:/ clear"); /*clear*/ /*_.ATLIST__V260*/ meltfptr[230] = 0 ; /*^clear*/ /*clear*/ /*_.VALIST__V261*/ meltfptr[255] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch9__end /*endmatch*/; ; /*objlabel*/ mtch9_6: ; MELT_LOCATION("warmelt-hooks.melt:4099:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_121; meltlab_count_121++; melt_debugeprintf("objlabel_121 mtch9_*CLASS_NORMTESTER_TUPLE/208f635c. *CLASS_OBJLABELINSTR/24e544c. %ld", meltlab_count_121); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V264*/ meltfptr[262] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V265*/ meltfptr[227] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V264*/ meltfptr[262] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V265*/ meltfptr[227] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:4086:/ objgoto"); /*objgoto*/ goto mtch9_7; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4099:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4104:/ objgoto"); /*objgoto*/ goto mtch9_9; ; } ; } ; /*objlabel*/ mtch9_7: ; MELT_LOCATION("warmelt-hooks.melt:4086:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_122; meltlab_count_122++; melt_debugeprintf("objlabel_122 mtch9_*CLASS_NORMTESTER_SAME/1970fb7d. *CLASS_OBJLABELINSTR/5d63a0e. %ld", meltlab_count_122); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V264*/ meltfptr[262] == (/*!konst_17_JSON_ARRAY*/ meltfrout->tabval[17]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4099:/ objgoto"); /*objgoto*/ goto mtch9_8; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4086:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4104:/ objgoto"); /*objgoto*/ goto mtch9_9; ; } ; } ; /*objlabel*/ mtch9_8: ; MELT_LOCATION("warmelt-hooks.melt:4099:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_123; meltlab_count_123++; melt_debugeprintf("objlabel_123 mtch9_*CLASS_NORMTESTER_SUCCESS/264d3222. *CLASS_OBJLABELINSTR/1acfb052. %ld", meltlab_count_123); #endif ; /*^quasiblock*/ /*_.COMPLIST__V266*/ meltfptr[230] = /*_.NTHCOMP__V265*/ meltfptr[227];; { MELT_LOCATION("warmelt-hooks.melt:4100:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.COMPLIST__V266*/ meltfptr[230]), (melt_ptr_t)(/*_.VNUM__V243*/ meltfptr[212])); } ; { MELT_LOCATION("warmelt-hooks.melt:4101:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (0), (melt_ptr_t)((/*!konst_18_JSON_ARRAY_NEXT*/ meltfrout->tabval[18]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4102:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L94*/ meltfnum[22] = /*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-hooks.melt:4102:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L94*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L95*/ 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-hooks.melt:4102:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L95*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4102; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after number now jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V268*/ meltfptr[262] = 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___V267*/ meltfptr[255] = /*_.MELT_DEBUG_FUN__V268*/ meltfptr[262];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4102:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L95*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V268*/ meltfptr[262] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V267*/ meltfptr[255] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4102:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L94*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V267*/ meltfptr[255] = 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-hooks.melt:4099:/ clear"); /*clear*/ /*_.COMPLIST__V266*/ meltfptr[230] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch9__end /*endmatch*/; ; /*objlabel*/ mtch9_9: ; MELT_LOCATION("warmelt-hooks.melt:4104:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_124; meltlab_count_124++; melt_debugeprintf("objlabel_124 mtch9_*CLASS_NORMTESTER_SUCCESS/c7fdce1. *CLASS_OBJLABELINSTR/5c8e62d. %ld", meltlab_count_124); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4105:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L96*/ meltfnum[11] = /*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-hooks.melt:4105:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L96*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L97*/ 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-hooks.melt:4105:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L97*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4105; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after number bad jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V270*/ meltfptr[255] = 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___V269*/ meltfptr[262] = /*_.MELT_DEBUG_FUN__V270*/ meltfptr[255];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4105:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L97*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V270*/ meltfptr[255] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V269*/ meltfptr[262] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4105:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L96*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V269*/ meltfptr[262] = 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-hooks.melt:4106:/ apply"); /*apply*/ { /*_.JERROR__V271*/ meltfptr[230] = melt_apply ((meltclosure_ptr_t)(/*_.JERROR__V12*/ meltfptr[11]), (melt_ptr_t)((/*!konst_36*/ meltfrout->tabval[36])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4107:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4107:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4104:/ clear"); /*clear*/ /*_.JERROR__V271*/ meltfptr[230] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V272*/ meltfptr[255] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch9__end /*endmatch*/; ; /*objlabel*/ mtch9__end: ; MELT_LOCATION("warmelt-hooks.melt:4086:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_125; meltlab_count_125++; melt_debugeprintf("objlabel_125 mtch9__end_h185183205 *CLASS_OBJLABELINSTR/b09abe5. %ld", meltlab_count_125); #endif ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4084:/ clear"); /*clear*/ /*_.VNUM__V243*/ meltfptr[212] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_30: ; MELT_LOCATION("warmelt-hooks.melt:4110:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_126; meltlab_count_126++; melt_debugeprintf("objlabel_126 mtch1_*CLASS_NORMTESTER_TUPLE/7cf4b75. *CLASS_OBJLABELINSTR/1280da4. %ld", meltlab_count_126); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V273*/ meltfptr[262] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V274*/ meltfptr[230] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V273*/ meltfptr[262] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V274*/ meltfptr[230] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3911:/ objgoto"); /*objgoto*/ goto mtch1_31; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4110:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4129:/ objgoto"); /*objgoto*/ goto mtch1_34; ; } ; } ; /*objlabel*/ mtch1_31: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_127; meltlab_count_127++; melt_debugeprintf("objlabel_127 mtch1_*CLASS_NORMTESTER_SAME/1282e7d4. *CLASS_OBJLABELINSTR/e2df513. %ld", meltlab_count_127); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V273*/ meltfptr[262] == (/*!konst_37_KEYWORD*/ meltfrout->tabval[37]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch1_32; ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4129:/ objgoto"); /*objgoto*/ goto mtch1_34; ; } ; } ; /*objlabel*/ mtch1_32: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_128; meltlab_count_128++; melt_debugeprintf("objlabel_128 mtch1_*CLASS_NORMTESTER_SAME/a89fca. *CLASS_OBJLABELINSTR/35afb9ce. %ld", meltlab_count_128); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V274*/ meltfptr[230] == (/*!konst_38_JSON_NIL*/ meltfrout->tabval[38]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4110:/ objgoto"); /*objgoto*/ goto mtch1_33; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3911:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4129:/ objgoto"); /*objgoto*/ goto mtch1_34; ; } ; } ; /*objlabel*/ mtch1_33: ; MELT_LOCATION("warmelt-hooks.melt:4110:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_129; meltlab_count_129++; melt_debugeprintf("objlabel_129 mtch1_*CLASS_NORMTESTER_SUCCESS/1a700f63. *CLASS_OBJLABELINSTR/286405e1. %ld", meltlab_count_129); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4111:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L98*/ meltfnum[22] = /*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-hooks.melt:4111:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L98*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L99*/ 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-hooks.melt:4111:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L99*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4111; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor got keyword null"; /*_.MELT_DEBUG_FUN__V276*/ meltfptr[212] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V275*/ meltfptr[255] = /*_.MELT_DEBUG_FUN__V276*/ meltfptr[212];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4111:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L99*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V276*/ meltfptr[212] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V275*/ meltfptr[255] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4111:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L98*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V275*/ meltfptr[255] = 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-hooks.melt:4112:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch10_0; ; /*objlabel*/ mtch10_0: ; MELT_LOCATION("warmelt-hooks.melt:4113:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_130; meltlab_count_130++; melt_debugeprintf("objlabel_130 mtch10_*CLASS_NORMTESTER_TUPLE/1c61c911. *CLASS_OBJLABELINSTR/f06aaae. %ld", meltlab_count_130); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V277*/ meltfptr[262] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V278*/ meltfptr[230] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V279*/ meltfptr[212] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 3)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V277*/ meltfptr[262] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V278*/ meltfptr[230] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; /*^compute*/ /*_.NTHCOMP__V279*/ meltfptr[212] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[2];; MELT_LOCATION("warmelt-hooks.melt:4112:/ objgoto"); /*objgoto*/ goto mtch10_1; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4113:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4118:/ objgoto"); /*objgoto*/ goto mtch10_3; ; } ; } ; /*objlabel*/ mtch10_1: ; MELT_LOCATION("warmelt-hooks.melt:4112:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_131; meltlab_count_131++; melt_debugeprintf("objlabel_131 mtch10_*CLASS_NORMTESTER_SAME/29a1a7a3. *CLASS_OBJLABELINSTR/3fdff763. %ld", meltlab_count_131); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V277*/ meltfptr[262] == (/*!konst_16_JSON_OBJECT_VAL*/ meltfrout->tabval[16]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4113:/ objgoto"); /*objgoto*/ goto mtch10_2; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4112:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4118:/ objgoto"); /*objgoto*/ goto mtch10_3; ; } ; } ; /*objlabel*/ mtch10_2: ; MELT_LOCATION("warmelt-hooks.melt:4113:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_132; meltlab_count_132++; melt_debugeprintf("objlabel_132 mtch10_*CLASS_NORMTESTER_SUCCESS/37a9a9fe. *CLASS_OBJLABELINSTR/114827ae. %ld", meltlab_count_132); #endif ; /*^quasiblock*/ /*_.ATLIST__V280*/ meltfptr[255] = /*_.NTHCOMP__V278*/ meltfptr[230];; /*^compute*/ /*_.VALIST__V281*/ meltfptr[262] = /*_.NTHCOMP__V279*/ meltfptr[212];; { MELT_LOCATION("warmelt-hooks.melt:4114:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.VALIST__V281*/ meltfptr[262]), (melt_ptr_t)((/*nil*/NULL))); } ; { MELT_LOCATION("warmelt-hooks.melt:4115:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (0), (melt_ptr_t)((/*!konst_12_JSON_OBJECT_NEXT*/ meltfrout->tabval[12]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4116:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L100*/ meltfnum[11] = /*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-hooks.melt:4116:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L100*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L101*/ 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-hooks.melt:4116:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L101*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4116; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after null now jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V283*/ meltfptr[282] = 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___V282*/ meltfptr[281] = /*_.MELT_DEBUG_FUN__V283*/ meltfptr[282];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4116:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L101*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V283*/ meltfptr[282] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V282*/ meltfptr[281] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4116:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L100*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V282*/ meltfptr[281] = 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-hooks.melt:4113:/ clear"); /*clear*/ /*_.ATLIST__V280*/ meltfptr[255] = 0 ; /*^clear*/ /*clear*/ /*_.VALIST__V281*/ meltfptr[262] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch10__end /*endmatch*/; ; /*objlabel*/ mtch10_3: ; MELT_LOCATION("warmelt-hooks.melt:4118:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_133; meltlab_count_133++; melt_debugeprintf("objlabel_133 mtch10_*CLASS_NORMTESTER_TUPLE/38958d1a. *CLASS_OBJLABELINSTR/2d5433c0. %ld", meltlab_count_133); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V284*/ meltfptr[282] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V285*/ meltfptr[281] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V284*/ meltfptr[282] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V285*/ meltfptr[281] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:4112:/ objgoto"); /*objgoto*/ goto mtch10_4; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4118:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4123:/ objgoto"); /*objgoto*/ goto mtch10_6; ; } ; } ; /*objlabel*/ mtch10_4: ; MELT_LOCATION("warmelt-hooks.melt:4112:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_134; meltlab_count_134++; melt_debugeprintf("objlabel_134 mtch10_*CLASS_NORMTESTER_SAME/2aa4ca35. *CLASS_OBJLABELINSTR/1db99944. %ld", meltlab_count_134); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V284*/ meltfptr[282] == (/*!konst_17_JSON_ARRAY*/ meltfrout->tabval[17]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4118:/ objgoto"); /*objgoto*/ goto mtch10_5; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4112:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4123:/ objgoto"); /*objgoto*/ goto mtch10_6; ; } ; } ; /*objlabel*/ mtch10_5: ; MELT_LOCATION("warmelt-hooks.melt:4118:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_135; meltlab_count_135++; melt_debugeprintf("objlabel_135 mtch10_*CLASS_NORMTESTER_SUCCESS/3421834b. *CLASS_OBJLABELINSTR/3820e049. %ld", meltlab_count_135); #endif ; /*^quasiblock*/ /*_.COMPLIST__V286*/ meltfptr[255] = /*_.NTHCOMP__V285*/ meltfptr[281];; { MELT_LOCATION("warmelt-hooks.melt:4119:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.COMPLIST__V286*/ meltfptr[255]), (melt_ptr_t)((/*nil*/NULL))); } ; { MELT_LOCATION("warmelt-hooks.melt:4120:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (0), (melt_ptr_t)((/*!konst_18_JSON_ARRAY_NEXT*/ meltfrout->tabval[18]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4121:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L102*/ meltfnum[22] = /*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-hooks.melt:4121:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L102*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L103*/ 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-hooks.melt:4121:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L103*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4121; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after null now jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V288*/ meltfptr[282] = 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___V287*/ meltfptr[262] = /*_.MELT_DEBUG_FUN__V288*/ meltfptr[282];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4121:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L103*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V288*/ meltfptr[282] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V287*/ meltfptr[262] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4121:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L102*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V287*/ meltfptr[262] = 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-hooks.melt:4118:/ clear"); /*clear*/ /*_.COMPLIST__V286*/ meltfptr[255] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch10__end /*endmatch*/; ; /*objlabel*/ mtch10_6: ; MELT_LOCATION("warmelt-hooks.melt:4123:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_136; meltlab_count_136++; melt_debugeprintf("objlabel_136 mtch10_*CLASS_NORMTESTER_SUCCESS/302d2810. *CLASS_OBJLABELINSTR/cecd3d. %ld", meltlab_count_136); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4124:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L104*/ meltfnum[11] = /*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-hooks.melt:4124:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L104*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L105*/ 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-hooks.melt:4124:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L105*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4124; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after null bad jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*^apply.arg*/ argtab[5].meltbp_cstring = "; jstack="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.JSTACK__V11*/ meltfptr[10]; /*_.MELT_DEBUG_FUN__V290*/ meltfptr[262] = 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___V289*/ meltfptr[282] = /*_.MELT_DEBUG_FUN__V290*/ meltfptr[262];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4124:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L105*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V290*/ meltfptr[262] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V289*/ meltfptr[282] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4124:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L104*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V289*/ meltfptr[282] = 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-hooks.melt:4125:/ apply"); /*apply*/ { /*_.JERROR__V291*/ meltfptr[255] = melt_apply ((meltclosure_ptr_t)(/*_.JERROR__V12*/ meltfptr[11]), (melt_ptr_t)((/*!konst_39*/ meltfrout->tabval[39])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4126:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4126:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4123:/ clear"); /*clear*/ /*_.JERROR__V291*/ meltfptr[255] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V292*/ meltfptr[262] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch10__end /*endmatch*/; ; /*objlabel*/ mtch10__end: ; MELT_LOCATION("warmelt-hooks.melt:4112:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_137; meltlab_count_137++; melt_debugeprintf("objlabel_137 mtch10__end_h317019391 *CLASS_OBJLABELINSTR/12e554ff. %ld", meltlab_count_137); #endif ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4110:/ objgoto"); /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_34: ; MELT_LOCATION("warmelt-hooks.melt:4129:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_138; meltlab_count_138++; melt_debugeprintf("objlabel_138 mtch1_*CLASS_NORMTESTER_TUPLE/28540d2e. *CLASS_OBJLABELINSTR/28a88a29. %ld", meltlab_count_138); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V293*/ meltfptr[282] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V294*/ meltfptr[255] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V293*/ meltfptr[282] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V294*/ meltfptr[255] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3911:/ objgoto"); /*objgoto*/ goto mtch1_35; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4129:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4148:/ objgoto"); /*objgoto*/ goto mtch1_38; ; } ; } ; /*objlabel*/ mtch1_35: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_139; meltlab_count_139++; melt_debugeprintf("objlabel_139 mtch1_*CLASS_NORMTESTER_SAME/1e1b71bd. *CLASS_OBJLABELINSTR/3bf7b8df. %ld", meltlab_count_139); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V293*/ meltfptr[282] == (/*!konst_37_KEYWORD*/ meltfrout->tabval[37]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch1_36; ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4148:/ objgoto"); /*objgoto*/ goto mtch1_38; ; } ; } ; /*objlabel*/ mtch1_36: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_140; meltlab_count_140++; melt_debugeprintf("objlabel_140 mtch1_*CLASS_NORMTESTER_SAME/3e6b05e7. *CLASS_OBJLABELINSTR/3da92db9. %ld", meltlab_count_140); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V294*/ meltfptr[255] == (/*!konst_40_JSON_FALSE*/ meltfrout->tabval[40]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4129:/ objgoto"); /*objgoto*/ goto mtch1_37; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3911:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4148:/ objgoto"); /*objgoto*/ goto mtch1_38; ; } ; } ; /*objlabel*/ mtch1_37: ; MELT_LOCATION("warmelt-hooks.melt:4129:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_141; meltlab_count_141++; melt_debugeprintf("objlabel_141 mtch1_*CLASS_NORMTESTER_SUCCESS/2a4b0303. *CLASS_OBJLABELINSTR/3b237099. %ld", meltlab_count_141); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4130:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L106*/ meltfnum[22] = /*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-hooks.melt:4130:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L106*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L107*/ 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-hooks.melt:4130:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L107*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4130; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor got keyword false"; /*_.MELT_DEBUG_FUN__V296*/ meltfptr[282] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V295*/ meltfptr[262] = /*_.MELT_DEBUG_FUN__V296*/ meltfptr[282];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4130:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L107*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V296*/ meltfptr[282] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V295*/ meltfptr[262] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4130:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L106*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V295*/ meltfptr[262] = 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-hooks.melt:4131:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch11_0; ; /*objlabel*/ mtch11_0: ; MELT_LOCATION("warmelt-hooks.melt:4132:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_142; meltlab_count_142++; melt_debugeprintf("objlabel_142 mtch11_*CLASS_NORMTESTER_TUPLE/e43c033. *CLASS_OBJLABELINSTR/3cb159e9. %ld", meltlab_count_142); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V297*/ meltfptr[255] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V298*/ meltfptr[282] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V299*/ meltfptr[262] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 3)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V297*/ meltfptr[255] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V298*/ meltfptr[282] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; /*^compute*/ /*_.NTHCOMP__V299*/ meltfptr[262] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[2];; MELT_LOCATION("warmelt-hooks.melt:4131:/ objgoto"); /*objgoto*/ goto mtch11_1; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4132:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4137:/ objgoto"); /*objgoto*/ goto mtch11_3; ; } ; } ; /*objlabel*/ mtch11_1: ; MELT_LOCATION("warmelt-hooks.melt:4131:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_143; meltlab_count_143++; melt_debugeprintf("objlabel_143 mtch11_*CLASS_NORMTESTER_SAME/b827df0. *CLASS_OBJLABELINSTR/533e8ed. %ld", meltlab_count_143); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V297*/ meltfptr[255] == (/*!konst_16_JSON_OBJECT_VAL*/ meltfrout->tabval[16]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4132:/ objgoto"); /*objgoto*/ goto mtch11_2; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4131:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4137:/ objgoto"); /*objgoto*/ goto mtch11_3; ; } ; } ; /*objlabel*/ mtch11_2: ; MELT_LOCATION("warmelt-hooks.melt:4132:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_144; meltlab_count_144++; melt_debugeprintf("objlabel_144 mtch11_*CLASS_NORMTESTER_SUCCESS/127ff728. *CLASS_OBJLABELINSTR/2cd354c0. %ld", meltlab_count_144); #endif ; /*^quasiblock*/ /*_.ATLIST__V300*/ meltfptr[255] = /*_.NTHCOMP__V298*/ meltfptr[282];; /*^compute*/ /*_.VALIST__V301*/ meltfptr[300] = /*_.NTHCOMP__V299*/ meltfptr[262];; { MELT_LOCATION("warmelt-hooks.melt:4133:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.VALIST__V301*/ meltfptr[300]), (melt_ptr_t)((/*!konst_40_JSON_FALSE*/ meltfrout->tabval[40]))); } ; { MELT_LOCATION("warmelt-hooks.melt:4134:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (0), (melt_ptr_t)((/*!konst_12_JSON_OBJECT_NEXT*/ meltfrout->tabval[12]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4135:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L108*/ meltfnum[11] = /*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-hooks.melt:4135:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L108*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L109*/ 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-hooks.melt:4135:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L109*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4135; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after false now jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V303*/ meltfptr[302] = 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___V302*/ meltfptr[301] = /*_.MELT_DEBUG_FUN__V303*/ meltfptr[302];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4135:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L109*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V303*/ meltfptr[302] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V302*/ meltfptr[301] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4135:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L108*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V302*/ meltfptr[301] = 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-hooks.melt:4132:/ clear"); /*clear*/ /*_.ATLIST__V300*/ meltfptr[255] = 0 ; /*^clear*/ /*clear*/ /*_.VALIST__V301*/ meltfptr[300] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch11__end /*endmatch*/; ; /*objlabel*/ mtch11_3: ; MELT_LOCATION("warmelt-hooks.melt:4137:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_145; meltlab_count_145++; melt_debugeprintf("objlabel_145 mtch11_*CLASS_NORMTESTER_TUPLE/236ce3a5. *CLASS_OBJLABELINSTR/3faded5d. %ld", meltlab_count_145); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V304*/ meltfptr[302] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V305*/ meltfptr[301] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V304*/ meltfptr[302] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V305*/ meltfptr[301] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:4131:/ objgoto"); /*objgoto*/ goto mtch11_4; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4137:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4142:/ objgoto"); /*objgoto*/ goto mtch11_6; ; } ; } ; /*objlabel*/ mtch11_4: ; MELT_LOCATION("warmelt-hooks.melt:4131:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_146; meltlab_count_146++; melt_debugeprintf("objlabel_146 mtch11_*CLASS_NORMTESTER_SAME/373f05c6. *CLASS_OBJLABELINSTR/5f8f685. %ld", meltlab_count_146); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V304*/ meltfptr[302] == (/*!konst_17_JSON_ARRAY*/ meltfrout->tabval[17]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4137:/ objgoto"); /*objgoto*/ goto mtch11_5; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4131:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4142:/ objgoto"); /*objgoto*/ goto mtch11_6; ; } ; } ; /*objlabel*/ mtch11_5: ; MELT_LOCATION("warmelt-hooks.melt:4137:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_147; meltlab_count_147++; melt_debugeprintf("objlabel_147 mtch11_*CLASS_NORMTESTER_SUCCESS/1d375859. *CLASS_OBJLABELINSTR/392aa77f. %ld", meltlab_count_147); #endif ; /*^quasiblock*/ /*_.COMPLIST__V306*/ meltfptr[255] = /*_.NTHCOMP__V305*/ meltfptr[301];; { MELT_LOCATION("warmelt-hooks.melt:4138:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.COMPLIST__V306*/ meltfptr[255]), (melt_ptr_t)((/*!konst_40_JSON_FALSE*/ meltfrout->tabval[40]))); } ; { MELT_LOCATION("warmelt-hooks.melt:4139:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (0), (melt_ptr_t)((/*!konst_18_JSON_ARRAY_NEXT*/ meltfrout->tabval[18]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4140:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L110*/ meltfnum[22] = /*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-hooks.melt:4140:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L110*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L111*/ 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-hooks.melt:4140:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L111*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4140; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after false now jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V308*/ meltfptr[302] = 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___V307*/ meltfptr[300] = /*_.MELT_DEBUG_FUN__V308*/ meltfptr[302];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4140:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L111*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V308*/ meltfptr[302] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V307*/ meltfptr[300] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4140:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L110*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V307*/ meltfptr[300] = 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-hooks.melt:4137:/ clear"); /*clear*/ /*_.COMPLIST__V306*/ meltfptr[255] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch11__end /*endmatch*/; ; /*objlabel*/ mtch11_6: ; MELT_LOCATION("warmelt-hooks.melt:4142:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_148; meltlab_count_148++; melt_debugeprintf("objlabel_148 mtch11_*CLASS_NORMTESTER_SUCCESS/9e7e8b3. *CLASS_OBJLABELINSTR/33f19409. %ld", meltlab_count_148); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4143:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L112*/ meltfnum[11] = /*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-hooks.melt:4143:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L112*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L113*/ 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-hooks.melt:4143:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L113*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4143; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after false bad jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V310*/ meltfptr[300] = 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___V309*/ meltfptr[302] = /*_.MELT_DEBUG_FUN__V310*/ meltfptr[300];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4143:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L113*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V310*/ meltfptr[300] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V309*/ meltfptr[302] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4143:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L112*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V309*/ meltfptr[302] = 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-hooks.melt:4144:/ apply"); /*apply*/ { /*_.JERROR__V311*/ meltfptr[255] = melt_apply ((meltclosure_ptr_t)(/*_.JERROR__V12*/ meltfptr[11]), (melt_ptr_t)((/*!konst_41*/ meltfrout->tabval[41])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4145:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4145:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4142:/ clear"); /*clear*/ /*_.JERROR__V311*/ meltfptr[255] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V312*/ meltfptr[300] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch11__end /*endmatch*/; ; /*objlabel*/ mtch11__end: ; MELT_LOCATION("warmelt-hooks.melt:4131:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_149; meltlab_count_149++; melt_debugeprintf("objlabel_149 mtch11__end_h314875683 *CLASS_OBJLABELINSTR/12c49f23. %ld", meltlab_count_149); #endif ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4129:/ objgoto"); /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_38: ; MELT_LOCATION("warmelt-hooks.melt:4148:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_150; meltlab_count_150++; melt_debugeprintf("objlabel_150 mtch1_*CLASS_NORMTESTER_TUPLE/21e321dd. *CLASS_OBJLABELINSTR/23561326. %ld", meltlab_count_150); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V313*/ meltfptr[302] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V314*/ meltfptr[255] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V313*/ meltfptr[302] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V314*/ meltfptr[255] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3911:/ objgoto"); /*objgoto*/ goto mtch1_39; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4148:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4167:/ objgoto"); /*objgoto*/ goto mtch1_42; ; } ; } ; /*objlabel*/ mtch1_39: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_151; meltlab_count_151++; melt_debugeprintf("objlabel_151 mtch1_*CLASS_NORMTESTER_SAME/379e57e2. *CLASS_OBJLABELINSTR/19ad6a38. %ld", meltlab_count_151); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V313*/ meltfptr[302] == (/*!konst_37_KEYWORD*/ meltfrout->tabval[37]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch1_40; ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4167:/ objgoto"); /*objgoto*/ goto mtch1_42; ; } ; } ; /*objlabel*/ mtch1_40: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_152; meltlab_count_152++; melt_debugeprintf("objlabel_152 mtch1_*CLASS_NORMTESTER_SAME/23cf715e. *CLASS_OBJLABELINSTR/1c4cf9b9. %ld", meltlab_count_152); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V314*/ meltfptr[255] == (/*!konst_42_TRUE*/ meltfrout->tabval[42]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4148:/ objgoto"); /*objgoto*/ goto mtch1_41; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3911:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4167:/ objgoto"); /*objgoto*/ goto mtch1_42; ; } ; } ; /*objlabel*/ mtch1_41: ; MELT_LOCATION("warmelt-hooks.melt:4148:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_153; meltlab_count_153++; melt_debugeprintf("objlabel_153 mtch1_*CLASS_NORMTESTER_SUCCESS/2a267df9. *CLASS_OBJLABELINSTR/16c8d214. %ld", meltlab_count_153); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4149:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L114*/ meltfnum[22] = /*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-hooks.melt:4149:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L114*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L115*/ 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-hooks.melt:4149:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L115*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4149; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor got keyword true"; /*_.MELT_DEBUG_FUN__V316*/ meltfptr[302] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V315*/ meltfptr[300] = /*_.MELT_DEBUG_FUN__V316*/ meltfptr[302];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4149:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L115*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V316*/ meltfptr[302] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V315*/ meltfptr[300] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4149:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L114*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V315*/ meltfptr[300] = 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-hooks.melt:4150:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch12_0; ; /*objlabel*/ mtch12_0: ; MELT_LOCATION("warmelt-hooks.melt:4151:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_154; meltlab_count_154++; melt_debugeprintf("objlabel_154 mtch12_*CLASS_NORMTESTER_TUPLE/19f2457d. *CLASS_OBJLABELINSTR/33a6077. %ld", meltlab_count_154); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V317*/ meltfptr[255] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V318*/ meltfptr[302] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V319*/ meltfptr[300] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 3)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V317*/ meltfptr[255] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V318*/ meltfptr[302] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; /*^compute*/ /*_.NTHCOMP__V319*/ meltfptr[300] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[2];; MELT_LOCATION("warmelt-hooks.melt:4150:/ objgoto"); /*objgoto*/ goto mtch12_1; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4151:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4156:/ objgoto"); /*objgoto*/ goto mtch12_3; ; } ; } ; /*objlabel*/ mtch12_1: ; MELT_LOCATION("warmelt-hooks.melt:4150:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_155; meltlab_count_155++; melt_debugeprintf("objlabel_155 mtch12_*CLASS_NORMTESTER_SAME/314c87b7. *CLASS_OBJLABELINSTR/24f6fa8. %ld", meltlab_count_155); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V317*/ meltfptr[255] == (/*!konst_16_JSON_OBJECT_VAL*/ meltfrout->tabval[16]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4151:/ objgoto"); /*objgoto*/ goto mtch12_2; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4150:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4156:/ objgoto"); /*objgoto*/ goto mtch12_3; ; } ; } ; /*objlabel*/ mtch12_2: ; MELT_LOCATION("warmelt-hooks.melt:4151:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_156; meltlab_count_156++; melt_debugeprintf("objlabel_156 mtch12_*CLASS_NORMTESTER_SUCCESS/26e6ca0b. *CLASS_OBJLABELINSTR/ff0c575. %ld", meltlab_count_156); #endif ; /*^quasiblock*/ /*_.ATLIST__V320*/ meltfptr[255] = /*_.NTHCOMP__V318*/ meltfptr[302];; /*^compute*/ /*_.VALIST__V321*/ meltfptr[320] = /*_.NTHCOMP__V319*/ meltfptr[300];; { MELT_LOCATION("warmelt-hooks.melt:4152:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.VALIST__V321*/ meltfptr[320]), (melt_ptr_t)((/*!konst_42_TRUE*/ meltfrout->tabval[42]))); } ; { MELT_LOCATION("warmelt-hooks.melt:4153:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (0), (melt_ptr_t)((/*!konst_12_JSON_OBJECT_NEXT*/ meltfrout->tabval[12]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4154:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L116*/ meltfnum[11] = /*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-hooks.melt:4154:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L116*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L117*/ 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-hooks.melt:4154:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L117*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4154; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after true now jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V323*/ meltfptr[322] = 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___V322*/ meltfptr[321] = /*_.MELT_DEBUG_FUN__V323*/ meltfptr[322];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4154:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L117*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V323*/ meltfptr[322] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V322*/ meltfptr[321] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4154:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L116*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V322*/ meltfptr[321] = 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-hooks.melt:4151:/ clear"); /*clear*/ /*_.ATLIST__V320*/ meltfptr[255] = 0 ; /*^clear*/ /*clear*/ /*_.VALIST__V321*/ meltfptr[320] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch12__end /*endmatch*/; ; /*objlabel*/ mtch12_3: ; MELT_LOCATION("warmelt-hooks.melt:4156:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_157; meltlab_count_157++; melt_debugeprintf("objlabel_157 mtch12_*CLASS_NORMTESTER_TUPLE/298b777d. *CLASS_OBJLABELINSTR/cfb9aef. %ld", meltlab_count_157); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V324*/ meltfptr[322] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V325*/ meltfptr[321] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V324*/ meltfptr[322] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V325*/ meltfptr[321] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:4150:/ objgoto"); /*objgoto*/ goto mtch12_4; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4156:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4161:/ objgoto"); /*objgoto*/ goto mtch12_6; ; } ; } ; /*objlabel*/ mtch12_4: ; MELT_LOCATION("warmelt-hooks.melt:4150:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_158; meltlab_count_158++; melt_debugeprintf("objlabel_158 mtch12_*CLASS_NORMTESTER_SAME/1fc61ddb. *CLASS_OBJLABELINSTR/1c275176. %ld", meltlab_count_158); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V324*/ meltfptr[322] == (/*!konst_17_JSON_ARRAY*/ meltfrout->tabval[17]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4156:/ objgoto"); /*objgoto*/ goto mtch12_5; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4150:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4161:/ objgoto"); /*objgoto*/ goto mtch12_6; ; } ; } ; /*objlabel*/ mtch12_5: ; MELT_LOCATION("warmelt-hooks.melt:4156:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_159; meltlab_count_159++; melt_debugeprintf("objlabel_159 mtch12_*CLASS_NORMTESTER_SUCCESS/9d8e3d6. *CLASS_OBJLABELINSTR/2d0f1952. %ld", meltlab_count_159); #endif ; /*^quasiblock*/ /*_.COMPLIST__V326*/ meltfptr[255] = /*_.NTHCOMP__V325*/ meltfptr[321];; { MELT_LOCATION("warmelt-hooks.melt:4157:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.COMPLIST__V326*/ meltfptr[255]), (melt_ptr_t)((/*!konst_40_JSON_FALSE*/ meltfrout->tabval[40]))); } ; { MELT_LOCATION("warmelt-hooks.melt:4158:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.JTOPSTATE__V33*/ meltfptr[31]), (0), (melt_ptr_t)((/*!konst_18_JSON_ARRAY_NEXT*/ meltfrout->tabval[18]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4159:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L118*/ meltfnum[22] = /*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-hooks.melt:4159:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L118*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L119*/ 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-hooks.melt:4159:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L119*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4159; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after true now jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V328*/ meltfptr[322] = 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___V327*/ meltfptr[320] = /*_.MELT_DEBUG_FUN__V328*/ meltfptr[322];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4159:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L119*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V328*/ meltfptr[322] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V327*/ meltfptr[320] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4159:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L118*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V327*/ meltfptr[320] = 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-hooks.melt:4156:/ clear"); /*clear*/ /*_.COMPLIST__V326*/ meltfptr[255] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch12__end /*endmatch*/; ; /*objlabel*/ mtch12_6: ; MELT_LOCATION("warmelt-hooks.melt:4161:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_160; meltlab_count_160++; melt_debugeprintf("objlabel_160 mtch12_*CLASS_NORMTESTER_SUCCESS/19df06d3. *CLASS_OBJLABELINSTR/ec9a05. %ld", meltlab_count_160); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4162:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L120*/ meltfnum[11] = /*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-hooks.melt:4162:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L120*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L121*/ 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-hooks.melt:4162:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L121*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4162; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor after true bad jtopstate="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JTOPSTATE__V33*/ meltfptr[31]; /*_.MELT_DEBUG_FUN__V330*/ meltfptr[320] = 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___V329*/ meltfptr[322] = /*_.MELT_DEBUG_FUN__V330*/ meltfptr[320];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4162:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L121*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V330*/ meltfptr[320] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V329*/ meltfptr[322] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4162:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L120*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V329*/ meltfptr[322] = 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-hooks.melt:4163:/ apply"); /*apply*/ { /*_.JERROR__V331*/ meltfptr[255] = melt_apply ((meltclosure_ptr_t)(/*_.JERROR__V12*/ meltfptr[11]), (melt_ptr_t)((/*!konst_43*/ meltfrout->tabval[43])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4164:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4164:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4161:/ clear"); /*clear*/ /*_.JERROR__V331*/ meltfptr[255] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V332*/ meltfptr[320] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch12__end /*endmatch*/; ; /*objlabel*/ mtch12__end: ; MELT_LOCATION("warmelt-hooks.melt:4150:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_161; meltlab_count_161++; melt_debugeprintf("objlabel_161 mtch12__end_h491868395 *CLASS_OBJLABELINSTR/1d5150eb. %ld", meltlab_count_161); #endif ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4148:/ objgoto"); /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_42: ; MELT_LOCATION("warmelt-hooks.melt:4167:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_162; meltlab_count_162++; melt_debugeprintf("objlabel_162 mtch1_*CLASS_NORMTESTER_TUPLE/3b45cfc5. *CLASS_OBJLABELINSTR/2dc0ba42. %ld", meltlab_count_162); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V333*/ meltfptr[322] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V334*/ meltfptr[255] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V333*/ meltfptr[322] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V334*/ meltfptr[255] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[1];; MELT_LOCATION("warmelt-hooks.melt:3911:/ objgoto"); /*objgoto*/ goto mtch1_43; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:4167:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4170:/ objgoto"); /*objgoto*/ goto mtch1_45; ; } ; } ; /*objlabel*/ mtch1_43: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_163; meltlab_count_163++; melt_debugeprintf("objlabel_163 mtch1_*CLASS_NORMTESTER_SAME/1de49fe1. *CLASS_OBJLABELINSTR/2a0ac7a1. %ld", meltlab_count_163); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.NTHCOMP__V333*/ meltfptr[322] == (/*!konst_37_KEYWORD*/ meltfrout->tabval[37]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4167:/ objgoto"); /*objgoto*/ goto mtch1_44; ; } ; } else { MELT_LOCATION("warmelt-hooks.melt:3911:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4170:/ objgoto"); /*objgoto*/ goto mtch1_45; ; } ; } ; /*objlabel*/ mtch1_44: ; MELT_LOCATION("warmelt-hooks.melt:4167:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_164; meltlab_count_164++; melt_debugeprintf("objlabel_164 mtch1_*CLASS_NORMTESTER_SUCCESS/1d048fe4. *CLASS_OBJLABELINSTR/c694a9d. %ld", meltlab_count_164); #endif ; /*^quasiblock*/ /*_.KWORD__V335*/ meltfptr[320] = /*_.NTHCOMP__V334*/ meltfptr[255];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4168:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L122*/ meltfnum[22] = /*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-hooks.melt:4168:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L122*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L123*/ 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-hooks.melt:4168:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L123*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4168; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor got keyword kword="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.KWORD__V335*/ meltfptr[320]; /*_.MELT_DEBUG_FUN__V337*/ meltfptr[336] = 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___V336*/ meltfptr[322] = /*_.MELT_DEBUG_FUN__V337*/ meltfptr[336];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4168:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L123*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V337*/ meltfptr[336] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V336*/ meltfptr[322] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4168:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L122*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V336*/ meltfptr[322] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:4167:/ clear"); /*clear*/ /*_.KWORD__V335*/ meltfptr[320] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_45: ; MELT_LOCATION("warmelt-hooks.melt:4170:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_165; meltlab_count_165++; melt_debugeprintf("objlabel_165 mtch1_*CLASS_NORMTESTER_TUPLE/385f76bb. *CLASS_OBJLABELINSTR/c42d4cc. %ld", meltlab_count_165); #endif ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V338*/ meltfptr[336] = 0 ; /*^clear*/ /*clear*/ /*_.NTHCOMP__V339*/ meltfptr[322] = 0 ; /*^cond*/ /*cond*/ if ( /*normtestertuple*/ (melt_magic_discr((melt_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36])) == MELTOBMAG_MULTIPLE && ((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->nbval == 2)) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_.NTHCOMP__V338*/ meltfptr[336] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[0];; /*^compute*/ /*_.NTHCOMP__V339*/ meltfptr[322] = /*unsafenthcomp*/((meltmultiple_ptr_t)(/*_.TUPLE___V38*/ meltfptr[36]))->tabval[1];; /*^objgoto*/ /*objgoto*/ goto mtch1_46; ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4173:/ objgoto"); /*objgoto*/ goto mtch1_47; ; } ; } ; /*objlabel*/ mtch1_46: ; MELT_LOCATION("warmelt-hooks.melt:4170:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_166; meltlab_count_166++; melt_debugeprintf("objlabel_166 mtch1_*CLASS_NORMTESTER_SUCCESS/29df79a9. *CLASS_OBJLABELINSTR/16ccbc1f. %ld", meltlab_count_166); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4171:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L124*/ meltfnum[11] = /*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-hooks.melt:4171:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L124*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L125*/ 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-hooks.melt:4171:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L125*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4171; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor got nothing"; /*_.MELT_DEBUG_FUN__V341*/ meltfptr[340] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V340*/ meltfptr[320] = /*_.MELT_DEBUG_FUN__V341*/ meltfptr[340];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4171:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L125*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V341*/ meltfptr[340] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V340*/ meltfptr[320] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4171:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L124*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V340*/ meltfptr[320] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:4172:/ quasiblock"); /*^compute*/ /*_.JSONPARSELOOP__V30*/ meltfptr[14] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_JSONPARSELOOP_1; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4170:/ objgoto"); /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_47: ; MELT_LOCATION("warmelt-hooks.melt:4173:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_167; meltlab_count_167++; melt_debugeprintf("objlabel_167 mtch1_*CLASS_NORMTESTER_SUCCESS/34b53d9b. *CLASS_OBJLABELINSTR/11c592ca. %ld", meltlab_count_167); #endif ; /*^quasiblock*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4174:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L126*/ meltfnum[22] = /*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-hooks.melt:4174:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L126*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L127*/ 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-hooks.melt:4174:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L127*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4174; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor unexpected kind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.KIND__V34*/ meltfptr[30]; /*^apply.arg*/ argtab[5].meltbp_cstring = " detail="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DETAIL__V35*/ meltfptr[34]; /*_.MELT_DEBUG_FUN__V343*/ meltfptr[320] = 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___V342*/ meltfptr[340] = /*_.MELT_DEBUG_FUN__V343*/ meltfptr[320];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4174:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L127*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V343*/ meltfptr[320] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V342*/ meltfptr[340] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4174:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L126*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V342*/ meltfptr[340] = 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-hooks.melt:4175:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V345*/ meltfptr[340] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:4175:/ 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 = "json_parser_input_processor unexpected kind"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4175; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.KIND__V34*/ meltfptr[30]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.DETAIL__V35*/ meltfptr[34]; /*_.MELT_ASSERT_FAILURE_FUN__V346*/ meltfptr[345] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V345*/ meltfptr[340] = /*_.MELT_ASSERT_FAILURE_FUN__V346*/ meltfptr[345];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4175:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V346*/ meltfptr[345] = 0 ; } ; } ; /*_.IFCPP___V344*/ meltfptr[320] = /*_._IFELSE___V345*/ meltfptr[340];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4175:/ clear"); /*clear*/ /*_._IFELSE___V345*/ meltfptr[340] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V344*/ meltfptr[320] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4173:/ clear"); /*clear*/ /*_.IFCPP___V344*/ meltfptr[320] = 0 ; /*^objgoto*/ /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1__end: ; MELT_LOCATION("warmelt-hooks.melt:3911:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_168; meltlab_count_168++; melt_debugeprintf("objlabel_168 mtch1__end_h1047025193 *CLASS_OBJLABELINSTR/3e685629. %ld", meltlab_count_168); #endif ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:3905:/ clear"); /*clear*/ /*_.TUPLE___V38*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.DETAIL__V35*/ meltfptr[34] = 0 ; MELT_LOCATION("warmelt-hooks.melt:3903:/ clear"); /*clear*/ /*_.JTOPSTATE__V33*/ meltfptr[31] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3898:/ clear"); /*clear*/ /*_#plI__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L10*/ meltfnum[9] = 0 ; } ; ; goto meltlabloop_JSONPARSELOOP_1; meltlabexit_JSONPARSELOOP_1:;/*^loopepilog*/ /*loopepilog*/ /*_.FOREVER___V29*/ meltfptr[27] = /*_.JSONPARSELOOP__V30*/ meltfptr[14];; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4180:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L128*/ meltfnum[11] = /*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-hooks.melt:4180:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L128*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L129*/ 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-hooks.melt:4180:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L129*/ meltfnum[10]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4180; /*^apply.arg*/ argtab[3].meltbp_cstring = "json_parser_input_processor ended"; /*_.MELT_DEBUG_FUN__V348*/ meltfptr[340] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V347*/ meltfptr[345] = /*_.MELT_DEBUG_FUN__V348*/ meltfptr[340];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4180:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L129*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V348*/ meltfptr[340] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V347*/ meltfptr[345] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4180:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L128*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V347*/ meltfptr[345] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:3886:/ clear"); /*clear*/ /*_.JPARSER__V9*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V10*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.JSTACK__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.JERROR__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.JCOUNTBOX__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#COUNT__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V23*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V26*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.FOREVER___V29*/ meltfptr[27] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:3882:/ clear"); /*clear*/ /*_._IFELSE___V6*/ meltfptr[4] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("JSON_PARSER_INPUT_PROCESSOR", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_97_WARMELTmiHOOKS_JSON_PARSER_INPUT_PROCESSOR*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL(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_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL_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_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL fromline 1752 */ /** start of frame for meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL// fromline 1568 : public Melt_CallFrameWithValues<101> { public: /* fromline 1572*/ long mcfr_varnum[57]; /*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_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<101> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL), clos) {}; MeltFrame_meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL() //the constructor fromline 1642 : Melt_CallFrameWithValues<101> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<101> (fil,lin, sizeof(MeltFrame_meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL)) {}; MeltFrame_meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<101> (fil,lin, sizeof(MeltFrame_meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL /** end of frame for meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL fromline 1697**/ /* end of frame for routine meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL fromline 1756 */ /* classy proc frame meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL */ MeltFrame_meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL 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("DO_BLOCKING_JSONRPC2_CALL", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:4186:/ getarg"); /*_.SERVER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.METHODNAME__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.METHODNAME__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.JPARAMS__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.JPARAMS__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#TIMEOUTMS__L1*/ meltfnum[0] = meltxargtab_[2].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4195:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L2*/ 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-hooks.melt:4195:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = /* 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-hooks.melt:4195:/ apply"); /*apply*/ { union meltparam_un argtab[11]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L3*/ meltfnum[2]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4195; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call server="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SERVER__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " methodname="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.METHODNAME__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[7].meltbp_cstring = ", jparams="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.JPARAMS__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[9].meltbp_cstring = "\n.. timeoutms="; /*^apply.arg*/ argtab[10].meltbp_long = /*_#TIMEOUTMS__L1*/ meltfnum[0]; /*_.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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4195:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V5*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4195:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*_#ltI__L4*/ meltfnum[2] = ((/*_#TIMEOUTMS__L1*/ meltfnum[0]) < (50));; MELT_LOCATION("warmelt-hooks.melt:4198:/ cond"); /*cond*/ if (/*_#ltI__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4200:/ compute"); /*_#TIMEOUTMS__L1*/ meltfnum[0] = /*_#SETQ___L5*/ meltfnum[1] = 50;; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4201:/ 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-hooks.melt:4201:/ 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-hooks.melt:4201:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[6]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4201; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call forced timeoutms="; /*^apply.arg*/ argtab[4].meltbp_long = /*_#TIMEOUTMS__L1*/ meltfnum[0]; /*_.MELT_DEBUG_FUN__V8*/ 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V7*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4201:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V7*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4201:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V7*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:4198:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_#SETQ___L5*/ meltfnum[1] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-hooks.melt:4203:/ quasiblock"); MELT_LOCATION("warmelt-hooks.melt:4205:/ quasiblock"); /*_.IDSTR__V11*/ meltfptr[10] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:4207:/ locexp"); /* do_blocking_jsonrpc2_call MAKERANDIDSTR_CHK__1 */ static long cumcallcount; char buf[40]; cumcallcount++; snprintf(buf, sizeof(buf), "C%lxP%dR%xT%ld", cumcallcount, (int)getpid(), (int)(melt_lrand() % 65536), melt_relative_time_millisec()); /*_.IDSTR__V11*/ meltfptr[10] = meltgc_new_string((meltobject_ptr_t)MELT_PREDEF(DISCR_STRING), buf); ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4218:/ 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-hooks.melt:4218:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L9*/ 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-hooks.melt:4218:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L9*/ meltfnum[5]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4218; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call randidstr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.IDSTR__V11*/ meltfptr[10]; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 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___V12*/ meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4218:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V12*/ meltfptr[11] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4218:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V12*/ meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*_.LET___V10*/ meltfptr[5] = /*_.IDSTR__V11*/ meltfptr[10];; MELT_LOCATION("warmelt-hooks.melt:4205:/ clear"); /*clear*/ /*_.IDSTR__V11*/ meltfptr[10] = 0 ; /*_.RANDIDSTR__V14*/ meltfptr[12] = /*_.LET___V10*/ meltfptr[5];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4220:/ apply"); /*apply*/ { /*_.SERVICE__V15*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!CONNECT_TO_SERVER*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.SERVER__V2*/ meltfptr[1]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4221:/ apply"); /*apply*/ { union meltparam_un argtab[8]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_4_JSONRPC*/ meltfrout->tabval[4]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_5*/ meltfrout->tabval[5]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_6_METHOD*/ meltfrout->tabval[6]); /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.METHODNAME__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!konst_7_ID*/ meltfrout->tabval[7]); /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.RANDIDSTR__V14*/ meltfptr[12]; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &(/*!konst_8_PARAMS*/ meltfrout->tabval[8]); /*^apply.arg*/ argtab[7].meltbp_aptr = (melt_ptr_t*) &/*_.JPARAMS__V4*/ meltfptr[3]; /*_.JREQ__V16*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_JSONOBJECT*/ meltfrout->tabval[2])), (melt_ptr_t)((/*!DISCR_JSONOBJECT*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4227:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L10*/ 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-hooks.melt:4227:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L11*/ 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-hooks.melt:4227:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[5]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4227; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call service="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SERVICE__V15*/ meltfptr[11]; /*^apply.arg*/ argtab[5].meltbp_cstring = " jreq="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.JREQ__V16*/ meltfptr[10]; /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 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___V17*/ meltfptr[16] = /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4227:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4227:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V17*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_INTEGERBOX__L12*/ meltfnum[6] = (melt_magic_discr((melt_ptr_t)(/*_.SERVICE__V15*/ meltfptr[11])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-hooks.melt:4228:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L12*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[17] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:4228:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4229:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "do_blocking_jsonrpc2_call failure server=$1 method=$2 connection failed"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SERVER__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.METHODNAME__V3*/ meltfptr[2]; /*_.WARNING_AT__V20*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!WARNING_AT*/ meltfrout->tabval[9])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4231:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4231:/ 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-hooks.melt:4228:/ quasiblock"); /*_.PROGN___V22*/ meltfptr[21] = /*_.RETURN___V21*/ meltfptr[20];; /*^compute*/ /*_._IFELSE___V19*/ meltfptr[17] = /*_.PROGN___V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4228:/ clear"); /*clear*/ /*_.WARNING_AT__V20*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V22*/ meltfptr[21] = 0 ; } ; } ; MELT_LOCATION("warmelt-hooks.melt:4232:/ quasiblock"); /*_#SERVFD__L13*/ meltfnum[5] = (melt_get_int((melt_ptr_t)(/*_.SERVICE__V15*/ meltfptr[11])));; /*^compute*/ /*_.SERVOUT__V24*/ meltfptr[20] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:4236:/ locexp"); /* do_blocking_jsonrpc2_call MAKESOCKFILE_CHK__1 */ FILE* sockfil = fdopen((int)/*_#SERVFD__L13*/ meltfnum[5], "w+"); if (!sockfil) { warning(0, "MELT do_blocking_jsonrpc2_call failed to fdopen #%d", (int)/*_#SERVFD__L13*/ meltfnum[5]); (void) close((int)/*_#SERVFD__L13*/ meltfnum[5]); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4244:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4244:/ 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 ; { /*^locexp*/ /*ignore*/(void)(/*_.RETURN___V25*/ meltfptr[21]); } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4236:/ clear"); /*clear*/ /*_.RETURN___V25*/ meltfptr[21] = 0 ; } ; } /*_.SERVOUT__V24*/ meltfptr[20] = meltgc_new_file((/*!DISCR_RAWFILE*/ meltfrout->tabval[10]), sockfil); ; ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4248:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L14*/ 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-hooks.melt:4248:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = /* 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_LOCATION("warmelt-hooks.melt:4250:/ quasiblock"); /*_.SBUF__V28*/ meltfptr[27] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[11])), (const char*)0);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4251:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.JREQ__V16*/ meltfptr[10]; /*_.OUTPUT_JSON__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_JSON*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.SBUF__V28*/ meltfptr[27]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.STRBUF2STRING__V30*/ meltfptr[29] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[13])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V28*/ meltfptr[27]))));; /*^compute*/ /*_.LET___V27*/ meltfptr[26] = /*_.STRBUF2STRING__V30*/ meltfptr[29];; MELT_LOCATION("warmelt-hooks.melt:4250:/ clear"); /*clear*/ /*_.SBUF__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.OUTPUT_JSON__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.STRBUF2STRING__V30*/ meltfptr[29] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4248:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L15*/ meltfnum[14]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4248; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call servout="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SERVOUT__V24*/ meltfptr[20]; /*^apply.arg*/ argtab[5].meltbp_cstring = " jreq="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.JREQ__V16*/ meltfptr[10]; /*^apply.arg*/ argtab[7].meltbp_cstring = " outputtingjson="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.LET___V27*/ meltfptr[26]; /*_.MELT_DEBUG_FUN__V31*/ meltfptr[27] = 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___V26*/ meltfptr[21] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4248:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[27] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V26*/ meltfptr[21] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4248:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V26*/ meltfptr[21] = 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-hooks.melt:4253:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.JREQ__V16*/ meltfptr[10]; /*_.OUTPUT_JSON__V32*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_JSON*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.SERVOUT__V24*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-hooks.melt:4254:/ locexp"); /* do_blocking_jsonrpc2_call FLUSHSOCKFILE_CHK__1 */ melt_newlineflush (melt_get_file(/*_.SERVOUT__V24*/ meltfptr[20])); /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4258:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L16*/ 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-hooks.melt:4258:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L17*/ 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-hooks.melt:4258:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L17*/ meltfnum[1]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4258; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call flusshed servout="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SERVOUT__V24*/ meltfptr[20]; /*_.MELT_DEBUG_FUN__V34*/ meltfptr[26] = 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[29] = /*_.MELT_DEBUG_FUN__V34*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4258:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V34*/ meltfptr[26] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V33*/ meltfptr[29] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4258:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V33*/ meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*epilog*/ } ; } ; MELT_LOCATION("warmelt-hooks.melt:4260:/ quasiblock"); /*_#BEGTIME__L18*/ meltfnum[1] = melt_relative_time_millisec();; /*^compute*/ /*_#LOOPCOUNT__L19*/ meltfnum[14] = 0;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4263:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14])), (1), "CLASS_REFERENCE"); /*_.INST__V37*/ meltfptr[26] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ meltfptr[26])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V37*/ meltfptr[26]), (0), ((/*nil*/NULL)), "REFERENCED_VALUE"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V37*/ meltfptr[26], "newly made instance"); ; /*_.GOTREPLY__V36*/ meltfptr[21] = /*_.INST__V37*/ meltfptr[26];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4264:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14])), (1), "CLASS_REFERENCE"); /*_.INST__V39*/ meltfptr[38] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[38])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V39*/ meltfptr[38]), (0), ((/*nil*/NULL)), "REFERENCED_VALUE"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V39*/ meltfptr[38], "newly made instance"); ; /*_.GOTERROR__V38*/ meltfptr[29] = /*_.INST__V39*/ meltfptr[38];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4265:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14])), (1), "CLASS_REFERENCE"); /*_.INST__V41*/ meltfptr[40] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (0), ((/*nil*/NULL)), "REFERENCED_VALUE"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V41*/ meltfptr[40], "newly made instance"); ; /*_.REPLYREF__V40*/ meltfptr[39] = /*_.INST__V41*/ meltfptr[40];; MELT_LOCATION("warmelt-hooks.melt:4267:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V43*/ meltfptr[42] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_17*/ meltfrout->tabval[17])), (2)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V43*/ meltfptr[42])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V43*/ meltfptr[42]))); ((meltclosure_ptr_t)/*_.LAMBDA___V43*/ meltfptr[42])->tabval[0] = (melt_ptr_t)(/*_.REPLYREF__V40*/ meltfptr[39]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V43*/ meltfptr[42])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V43*/ meltfptr[42]))); ((meltclosure_ptr_t)/*_.LAMBDA___V43*/ meltfptr[42])->tabval[1] = (melt_ptr_t)(/*_.GOTREPLY__V36*/ meltfptr[21]); ; /*_.JREPLYHANDLER__V42*/ meltfptr[41] = /*_.LAMBDA___V43*/ meltfptr[42];; MELT_LOCATION("warmelt-hooks.melt:4273:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V45*/ meltfptr[44] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ meltfrout->tabval[21])), (1)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ meltfptr[44])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ meltfptr[44]))); ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ meltfptr[44])->tabval[0] = (melt_ptr_t)(/*_.GOTERROR__V38*/ meltfptr[29]); ; /*_.JERRORHANDLER__V44*/ meltfptr[43] = /*_.LAMBDA___V45*/ meltfptr[44];; /*^compute*/ /*_.BOX__V46*/ meltfptr[45] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#SERVFD__L13*/ meltfnum[5]));; MELT_LOCATION("warmelt-hooks.melt:4279:/ blockmultialloc"); /*multiallocblock*/ { struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x5; 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__x5*/ /*_.TUPLREC___V48*/ meltfptr[47] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x5; meltletrec_1_ptr->rtup_0__TUPLREC__x5.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x5.nbval = 2; /*^putuple*/ /*putupl#10*/ melt_assertmsg("putupl [:4279] #10 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[47]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:4279] #10 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[47])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[47]))->tabval[0] = (melt_ptr_t)(/*_.SERVOUT__V24*/ meltfptr[20]); ; /*^putuple*/ /*putupl#11*/ melt_assertmsg("putupl [:4279] #11 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[47]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:4279] #11 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[47])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[47]))->tabval[1] = (melt_ptr_t)(/*_.BOX__V46*/ meltfptr[45]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V48*/ meltfptr[47]); ; /*_.TUPLE___V47*/ meltfptr[46] = /*_.TUPLREC___V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4279:/ clear"); /*clear*/ /*_.TUPLREC___V48*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V48*/ meltfptr[47] = 0 ; } /*end multiallocblock*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4278:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.JERRORHANDLER__V44*/ meltfptr[43]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.TUPLE___V47*/ meltfptr[46]; /*_.JPARSER__V49*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!MAKE_JSON_PARSER*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.JREPLYHANDLER__V42*/ meltfptr[41]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4281:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L20*/ 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-hooks.melt:4281:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[19]) /*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-hooks.melt:4281:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L21*/ meltfnum[20]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4281; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call jparser="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JPARSER__V49*/ meltfptr[47]; /*^apply.arg*/ argtab[5].meltbp_cstring = "; begtime="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#BEGTIME__L18*/ meltfnum[1]; /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V50*/ meltfptr[49] = /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4281:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V50*/ meltfptr[49] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4281:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V50*/ meltfptr[49] = 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-hooks.melt:4282:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.JPARSER__V49*/ meltfptr[47]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#SERVFD__L13*/ meltfnum[5]; /*_.REGISTER_RAW_INPUT_CHANNEL_HANDLER__V52*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_RAW_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[23])), (melt_ptr_t)((/*!JSON_PARSER_INPUT_PROCESSOR*/ meltfrout->tabval[24])), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4285:/ loop"); /*loop*/ { meltlabloop_POLLINGLOOP_1:;/*^loopbody*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#plI__L22*/ meltfnum[20] = ((/*_#LOOPCOUNT__L19*/ meltfnum[14]) + (1));; MELT_LOCATION("warmelt-hooks.melt:4286:/ compute"); /*_#LOOPCOUNT__L19*/ meltfnum[14] = /*_#SETQ___L23*/ meltfnum[19] = /*_#plI__L22*/ meltfnum[20];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4287:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L24*/ meltfnum[23] = /*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-hooks.melt:4287:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L24*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L25*/ meltfnum[24] = /* 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-hooks.melt:4287:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L25*/ meltfnum[24]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4287; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call loopcount="; /*^apply.arg*/ argtab[4].meltbp_long = /*_#LOOPCOUNT__L19*/ meltfnum[14]; /*_.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_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V55*/ meltfptr[54] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4287:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L25*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V55*/ meltfptr[54] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4287:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L24*/ meltfnum[23] = 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(); ; /*_#gtI__L26*/ meltfnum[24] = ((/*_#TIMEOUTMS__L1*/ meltfnum[0]) > (300));; MELT_LOCATION("warmelt-hooks.melt:4288:/ cond"); /*cond*/ if (/*_#gtI__L26*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#diI__L28*/ meltfnum[27] = (melt_idiv((/*_#TIMEOUTMS__L1*/ meltfnum[0]), (3)));; /*^compute*/ /*_#plI__L29*/ meltfnum[28] = ((30) + (/*_#diI__L28*/ meltfnum[27]));; /*^compute*/ /*_#_IFELSE___L27*/ meltfnum[23] = /*_#plI__L29*/ meltfnum[28];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4288:/ clear"); /*clear*/ /*_#diI__L28*/ meltfnum[27] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L29*/ meltfnum[28] = 0 ; } ; } else /*^cond.else*/ { /*_#_IFELSE___L27*/ meltfnum[23] = /*_#TIMEOUTMS__L1*/ meltfnum[0];; } ; { MELT_LOCATION("warmelt-hooks.melt:4288:/ locexp"); /*hookcall*/ melthook_HOOK_POLL_INPUTS ((melt_ptr_t) (/*!HOOK_POLL_INPUTS*/ meltfrout->tabval[25]), /*_#_IFELSE___L27*/ meltfnum[23]) ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4289:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L30*/ meltfnum[27] = /*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-hooks.melt:4289:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L30*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L31*/ meltfnum[28] = /* 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 */ ;; /*^compute*/ /*_#RELATIVE_TIME_MILLISEC__L32*/ meltfnum[31] = melt_relative_time_millisec();; /*^compute*/ /*_#miI__L33*/ meltfnum[32] = ((/*_#RELATIVE_TIME_MILLISEC__L32*/ meltfnum[31]) - (/*_#BEGTIME__L18*/ meltfnum[1]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4289:/ apply"); /*apply*/ { union meltparam_un argtab[11]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L31*/ meltfnum[28]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4289; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call after timeoutms="; /*^apply.arg*/ argtab[4].meltbp_long = /*_#TIMEOUTMS__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[5].meltbp_cstring = " elapsed "; /*^apply.arg*/ argtab[6].meltbp_long = /*_#miI__L33*/ meltfnum[32]; /*^apply.arg*/ argtab[7].meltbp_cstring = " ms; gotreply="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.GOTREPLY__V36*/ meltfptr[21]; /*^apply.arg*/ argtab[9].meltbp_cstring = " goterror="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.GOTERROR__V38*/ meltfptr[29]; /*_.MELT_DEBUG_FUN__V58*/ meltfptr[54] = 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_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V57*/ meltfptr[55] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[54];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4289:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L31*/ meltfnum[28] = 0 ; /*^clear*/ /*clear*/ /*_#RELATIVE_TIME_MILLISEC__L32*/ meltfnum[31] = 0 ; /*^clear*/ /*clear*/ /*_#miI__L33*/ meltfnum[32] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V58*/ meltfptr[54] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V57*/ meltfptr[55] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4289:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L30*/ meltfnum[27] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V57*/ meltfptr[55] = 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-hooks.melt:4292:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GOTREPLY__V36*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GOTREPLY__V36*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); /*_.REFERENCED_VALUE__V59*/ meltfptr[54] = slot; }; ; } else /*^cond.else*/ { /*_.REFERENCED_VALUE__V59*/ meltfptr[54] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-hooks.melt:4292:/ cond"); /*cond*/ if (/*_.REFERENCED_VALUE__V59*/ meltfptr[54]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4293:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L34*/ meltfnum[28] = /*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-hooks.melt:4293:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L34*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L35*/ meltfnum[31] = /* 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-hooks.melt:4293:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L35*/ meltfnum[31]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4293; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call gotreply replyref="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.REPLYREF__V40*/ meltfptr[39]; /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = 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___V60*/ meltfptr[55] = /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4293:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L35*/ meltfnum[31] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V60*/ meltfptr[55] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4293:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L34*/ meltfnum[28] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V60*/ meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:4294:/ quasiblock"); /*^compute*/ /*_.POLLINGLOOP__V54*/ meltfptr[53] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_POLLINGLOOP_1; } ; MELT_LOCATION("warmelt-hooks.melt:4292:/ quasiblock"); /*epilog*/ } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4296:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GOTERROR__V38*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GOTERROR__V38*/ meltfptr[29]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); /*_.REFERENCED_VALUE__V62*/ meltfptr[60] = slot; }; ; } else /*^cond.else*/ { /*_.REFERENCED_VALUE__V62*/ meltfptr[60] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-hooks.melt:4296:/ cond"); /*cond*/ if (/*_.REFERENCED_VALUE__V62*/ meltfptr[60]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4297:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L36*/ meltfnum[32] = /*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-hooks.melt:4297:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L36*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L37*/ meltfnum[27] = /* 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-hooks.melt:4297:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L37*/ meltfnum[27]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4297; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call goterror="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.GOTERROR__V38*/ meltfptr[29]; /*_.MELT_DEBUG_FUN__V64*/ meltfptr[63] = 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___V63*/ meltfptr[55] = /*_.MELT_DEBUG_FUN__V64*/ meltfptr[63];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4297:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L37*/ meltfnum[27] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V64*/ meltfptr[63] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V63*/ meltfptr[55] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4297:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L36*/ meltfnum[32] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V63*/ meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:4299:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GOTERROR__V38*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GOTERROR__V38*/ meltfptr[29]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); /*_.REFERENCED_VALUE__V65*/ meltfptr[63] = slot; }; ; } else /*^cond.else*/ { /*_.REFERENCED_VALUE__V65*/ meltfptr[63] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4298:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "do_blocking_jsonrpc2_call error $1 on method $2 to server $3"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.REFERENCED_VALUE__V65*/ meltfptr[63]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.METHODNAME__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SERVER__V2*/ meltfptr[1]; /*_.WARNING_AT__V66*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!WARNING_AT*/ meltfrout->tabval[9])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4300:/ quasiblock"); /*^compute*/ /*_.POLLINGLOOP__V54*/ meltfptr[53] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_POLLINGLOOP_1; } ; MELT_LOCATION("warmelt-hooks.melt:4296:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_.REFERENCED_VALUE__V65*/ meltfptr[63] = 0 ; /*^clear*/ /*clear*/ /*_.WARNING_AT__V66*/ meltfptr[55] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#RELATIVE_TIME_MILLISEC__L38*/ meltfnum[31] = melt_relative_time_millisec();; /*^compute*/ /*_#miI__L39*/ meltfnum[28] = ((/*_#RELATIVE_TIME_MILLISEC__L38*/ meltfnum[31]) - (/*_#BEGTIME__L18*/ meltfnum[1]));; /*^compute*/ /*_#gteqI__L40*/ meltfnum[27] = ((/*_#miI__L39*/ meltfnum[28]) >= (/*_#TIMEOUTMS__L1*/ meltfnum[0]));; MELT_LOCATION("warmelt-hooks.melt:4302:/ cond"); /*cond*/ if (/*_#gteqI__L40*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4303:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L41*/ meltfnum[32] = /*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-hooks.melt:4303:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L41*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L42*/ meltfnum[41] = /* 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-hooks.melt:4303:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L42*/ meltfnum[41]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4303; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call timedout "; /*^apply.arg*/ argtab[4].meltbp_long = /*_#TIMEOUTMS__L1*/ meltfnum[0]; /*_.MELT_DEBUG_FUN__V68*/ 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V67*/ meltfptr[63] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4303:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L42*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ meltfptr[55] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V67*/ meltfptr[63] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4303:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L41*/ meltfnum[32] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V67*/ meltfptr[63] = 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-hooks.melt:4304:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "do_blocking_jsonrpc2_call timedout $1 milliseconds on method $2 to\ server $3"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#TIMEOUTMS__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.METHODNAME__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SERVER__V2*/ meltfptr[1]; /*_.WARNING_AT__V69*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!WARNING_AT*/ meltfrout->tabval[9])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-hooks.melt:4306:/ quasiblock"); /*^compute*/ /*_.POLLINGLOOP__V54*/ meltfptr[53] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_POLLINGLOOP_1; } ; MELT_LOCATION("warmelt-hooks.melt:4302:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_.WARNING_AT__V69*/ meltfptr[55] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4309:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L43*/ meltfnum[41] = /*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-hooks.melt:4309:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L43*/ meltfnum[41]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L44*/ meltfnum[32] = /* 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-hooks.melt:4309:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L44*/ meltfnum[32]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4309; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call again loopcount="; /*^apply.arg*/ argtab[4].meltbp_long = /*_#LOOPCOUNT__L19*/ meltfnum[14]; /*_.MELT_DEBUG_FUN__V71*/ 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V70*/ meltfptr[63] = /*_.MELT_DEBUG_FUN__V71*/ meltfptr[55];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4309:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L44*/ meltfnum[32] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V71*/ meltfptr[55] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V70*/ meltfptr[63] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4309:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L43*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V70*/ meltfptr[63] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:4310:/ again"); /*again*/ { goto meltlabloop_POLLINGLOOP_1; } ; MELT_LOCATION("warmelt-hooks.melt:4308:/ quasiblock"); /*epilog*/ } ; } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4296:/ clear"); /*clear*/ /*_#RELATIVE_TIME_MILLISEC__L38*/ meltfnum[31] = 0 ; /*^clear*/ /*clear*/ /*_#miI__L39*/ meltfnum[28] = 0 ; /*^clear*/ /*clear*/ /*_#gteqI__L40*/ meltfnum[27] = 0 ; } ; } ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4292:/ clear"); /*clear*/ /*_.REFERENCED_VALUE__V62*/ meltfptr[60] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4285:/ clear"); /*clear*/ /*_#plI__L22*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L23*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L26*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_#_IFELSE___L27*/ meltfnum[23] = 0 ; /*^clear*/ /*clear*/ /*_.REFERENCED_VALUE__V59*/ meltfptr[54] = 0 ; } ; ; goto meltlabloop_POLLINGLOOP_1; meltlabexit_POLLINGLOOP_1:;/*^loopepilog*/ /*loopepilog*/ /*_.FOREVER___V53*/ meltfptr[49] = /*_.POLLINGLOOP__V54*/ meltfptr[53];; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4311:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L45*/ meltfnum[32] = /*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-hooks.melt:4311:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L45*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L46*/ meltfnum[41] = /* 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-hooks.melt:4311:/ apply"); /*apply*/ { union meltparam_un argtab[11]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L46*/ meltfnum[41]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4311; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call after pollingloop loopcount="; /*^apply.arg*/ argtab[4].meltbp_long = /*_#LOOPCOUNT__L19*/ meltfnum[14]; /*^apply.arg*/ argtab[5].meltbp_cstring = " gotreply="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.GOTREPLY__V36*/ meltfptr[21]; /*^apply.arg*/ argtab[7].meltbp_cstring = " goterror="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.GOTERROR__V38*/ meltfptr[29]; /*^apply.arg*/ argtab[9].meltbp_cstring = " replyref="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.REPLYREF__V40*/ meltfptr[39]; /*_.MELT_DEBUG_FUN__V73*/ meltfptr[63] = 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_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V72*/ meltfptr[55] = /*_.MELT_DEBUG_FUN__V73*/ meltfptr[63];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4311:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L46*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V73*/ meltfptr[63] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V72*/ meltfptr[55] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4311:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L45*/ meltfnum[32] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V72*/ meltfptr[55] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; { MELT_LOCATION("warmelt-hooks.melt:4313:/ locexp"); /* do_blocking_jsonrpc2_call AFTERPOLL_CHK__1 */ if (shutdown (/*_#SERVFD__L13*/ meltfnum[5], SHUT_RDWR)) warning(0, "MELT do_blocking_jsonrpc2_call shutdown failed: %s", xstrerror(errno)); melt_close_file(/*_.SERVOUT__V24*/ meltfptr[20]); ; } ; /*_.BOX__V74*/ meltfptr[60] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#SERVFD__L13*/ meltfnum[5]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4320:/ apply"); /*apply*/ { /*_.UNREGISTER_INPUT_CHANNEL__V75*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!UNREGISTER_INPUT_CHANNEL*/ meltfrout->tabval[26])), (melt_ptr_t)(/*_.BOX__V74*/ meltfptr[60]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4321:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.GOTREPLY__V36*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.GOTREPLY__V36*/ meltfptr[21]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); /*_.REFERENCED_VALUE__V76*/ meltfptr[63] = slot; }; ; } else /*^cond.else*/ { /*_.REFERENCED_VALUE__V76*/ meltfptr[63] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-hooks.melt:4321:/ cond"); /*cond*/ if (/*_.REFERENCED_VALUE__V76*/ meltfptr[63]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4322:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.REPLYREF__V40*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[14]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.REPLYREF__V40*/ meltfptr[39]) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); /*_.JREPLY__V79*/ meltfptr[78] = slot; }; ; } else /*^cond.else*/ { /*_.JREPLY__V79*/ meltfptr[78] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4323:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_7_ID*/ meltfrout->tabval[7]); /*_.JID__V80*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!JSONOBJECT_GET_NAMED*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.JREPLY__V79*/ meltfptr[78]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4324:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_29_RESULT*/ meltfrout->tabval[29]); /*_.JRES__V81*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!JSONOBJECT_GET_NAMED*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.JREPLY__V79*/ meltfptr[78]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4325:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_30_ERROR*/ meltfrout->tabval[30]); /*_.JERR__V82*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!JSONOBJECT_GET_NAMED*/ meltfrout->tabval[27])), (melt_ptr_t)(/*_.JREPLY__V79*/ meltfptr[78]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#ENDTIME__L47*/ meltfnum[31] = melt_relative_time_millisec();; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4328:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L48*/ meltfnum[28] = /*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-hooks.melt:4328:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L48*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L49*/ meltfnum[27] = /* 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-hooks.melt:4328:/ apply"); /*apply*/ { union meltparam_un argtab[11]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L49*/ meltfnum[27]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4328; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call got jreply="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JREPLY__V79*/ meltfptr[78]; /*^apply.arg*/ argtab[5].meltbp_cstring = "; jid="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.JID__V80*/ meltfptr[79]; /*^apply.arg*/ argtab[7].meltbp_cstring = " jres="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.JRES__V81*/ meltfptr[80]; /*^apply.arg*/ argtab[9].meltbp_cstring = " jerr="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.JERR__V82*/ meltfptr[81]; /*_.MELT_DEBUG_FUN__V84*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V83*/ meltfptr[82] = /*_.MELT_DEBUG_FUN__V84*/ meltfptr[83];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4328:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L49*/ meltfnum[27] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V84*/ meltfptr[83] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V83*/ meltfptr[82] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4328:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L48*/ meltfnum[28] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V83*/ meltfptr[82] = 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-hooks.melt:4330:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_JSONOBJECT__L50*/ meltfnum[20] = (melt_magic_discr((melt_ptr_t)(/*_.JREPLY__V79*/ meltfptr[78])) == MELTOBMAG_JSONOBJECT);; MELT_LOCATION("warmelt-hooks.melt:4330:/ cond"); /*cond*/ if (/*_#IS_JSONOBJECT__L50*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V86*/ meltfptr[82] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:4330:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check jreply"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4330; /*_.MELT_ASSERT_FAILURE_FUN__V87*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[31])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V86*/ meltfptr[82] = /*_.MELT_ASSERT_FAILURE_FUN__V87*/ meltfptr[86];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4330:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V87*/ meltfptr[86] = 0 ; } ; } ; /*_.IFCPP___V85*/ meltfptr[83] = /*_._IFELSE___V86*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4330:/ clear"); /*clear*/ /*_#IS_JSONOBJECT__L50*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V86*/ meltfptr[82] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V85*/ meltfptr[83] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#exeqS__L51*/ meltfnum[19] = !melt_string_same((melt_ptr_t)(/*_.JID__V80*/ meltfptr[79]), (melt_ptr_t)(/*_.RANDIDSTR__V14*/ meltfptr[12]));; MELT_LOCATION("warmelt-hooks.melt:4332:/ cond"); /*cond*/ if (/*_#exeqS__L51*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4333:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "do_blocking_jsonrpc2_call sent id $1 but got reply with id $2 for method\ $3 to server $4"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.RANDIDSTR__V14*/ meltfptr[12]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.JID__V80*/ meltfptr[79]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.METHODNAME__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SERVER__V2*/ meltfptr[1]; /*_.WARNING_AT__V89*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!WARNING_AT*/ meltfrout->tabval[9])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4336:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:4336:/ 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-hooks.melt:4332:/ quasiblock"); /*_.PROGN___V91*/ meltfptr[90] = /*_.RETURN___V90*/ meltfptr[89];; /*^compute*/ /*_._IFELSE___V88*/ meltfptr[86] = /*_.PROGN___V91*/ meltfptr[90];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4332:/ clear"); /*clear*/ /*_.WARNING_AT__V89*/ meltfptr[82] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V90*/ meltfptr[89] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V91*/ meltfptr[90] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4337:/ cond"); /*cond*/ if (/*_.JERR__V82*/ meltfptr[81]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4338:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "do_blocking_jsonrpc2_call failed for method $1 to server $2 : got error $3"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.METHODNAME__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.SERVER__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.JERR__V82*/ meltfptr[81]; /*_.WARNING_AT__V93*/ meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!WARNING_AT*/ meltfrout->tabval[9])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4341:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; { MELT_LOCATION("warmelt-hooks.melt:4341:/ 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-hooks.melt:4337:/ quasiblock"); /*_.PROGN___V95*/ meltfptr[94] = /*_.RETURN___V94*/ meltfptr[90];; /*^compute*/ /*_._IFELSE___V92*/ meltfptr[82] = /*_.PROGN___V95*/ meltfptr[94];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4337:/ clear"); /*clear*/ /*_.WARNING_AT__V93*/ meltfptr[89] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V94*/ meltfptr[90] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V95*/ meltfptr[94] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4343:/ quasiblock"); /*_#REQTIME__L52*/ meltfnum[24] = ((/*_#ENDTIME__L47*/ meltfnum[31]) - (/*_#BEGTIME__L18*/ meltfnum[1]));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#lteqI__L53*/ meltfnum[23] = ((/*_#REQTIME__L52*/ meltfnum[24]) <= (0));; MELT_LOCATION("warmelt-hooks.melt:4344:/ cond"); /*cond*/ if (/*_#lteqI__L53*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_#REQTIME__L52*/ meltfnum[24] = /*_#SETQ___L55*/ meltfnum[32] = 1;; /*_#_IF___L54*/ meltfnum[41] = /*_#SETQ___L55*/ meltfnum[32];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4344:/ clear"); /*clear*/ /*_#SETQ___L55*/ meltfnum[32] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L54*/ meltfnum[41] = 0;; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4345:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L56*/ meltfnum[27] = /*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-hooks.melt:4345:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L56*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L57*/ meltfnum[28] = /* 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-hooks.melt:4345:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L57*/ meltfnum[28]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4345; /*^apply.arg*/ argtab[3].meltbp_cstring = "do_blocking_jsonrpc2_call gives jres="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JRES__V81*/ meltfptr[80]; /*^apply.arg*/ argtab[5].meltbp_cstring = "; reqtime="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#REQTIME__L52*/ meltfnum[24]; /*_.MELT_DEBUG_FUN__V98*/ meltfptr[94] = 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V97*/ meltfptr[90] = /*_.MELT_DEBUG_FUN__V98*/ meltfptr[94];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4345:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L57*/ meltfnum[28] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V98*/ meltfptr[94] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V97*/ meltfptr[90] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4345:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L56*/ meltfnum[27] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V97*/ meltfptr[90] = 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-hooks.melt:4347:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.JRES__V81*/ meltfptr[80];; MELT_LOCATION("warmelt-hooks.melt:4347:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_LONG) goto meltlabend_rout; if (meltxrestab_[0].meltbp_longptr) *(meltxrestab_[0].meltbp_longptr) = (/*_#REQTIME__L52*/ meltfnum[24]); ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_.LET___V96*/ meltfptr[89] = /*_.RETURN___V99*/ meltfptr[94];; MELT_LOCATION("warmelt-hooks.melt:4343:/ clear"); /*clear*/ /*_#REQTIME__L52*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_#lteqI__L53*/ meltfnum[23] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L54*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V99*/ meltfptr[94] = 0 ; MELT_LOCATION("warmelt-hooks.melt:4342:/ quasiblock"); /*_.PROGN___V100*/ meltfptr[90] = /*_.LET___V96*/ meltfptr[89];; /*^compute*/ /*_._IFELSE___V92*/ meltfptr[82] = /*_.PROGN___V100*/ meltfptr[90];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4337:/ clear"); /*clear*/ /*_.LET___V96*/ meltfptr[89] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V100*/ meltfptr[90] = 0 ; } ; } ; /*_._IFELSE___V88*/ meltfptr[86] = /*_._IFELSE___V92*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4332:/ clear"); /*clear*/ /*_._IFELSE___V92*/ meltfptr[82] = 0 ; } ; } ; /*_.LET___V78*/ meltfptr[77] = /*_._IFELSE___V88*/ meltfptr[86];; MELT_LOCATION("warmelt-hooks.melt:4322:/ clear"); /*clear*/ /*_.JREPLY__V79*/ meltfptr[78] = 0 ; /*^clear*/ /*clear*/ /*_.JID__V80*/ meltfptr[79] = 0 ; /*^clear*/ /*clear*/ /*_.JRES__V81*/ meltfptr[80] = 0 ; /*^clear*/ /*clear*/ /*_.JERR__V82*/ meltfptr[81] = 0 ; /*^clear*/ /*clear*/ /*_#ENDTIME__L47*/ meltfnum[31] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V85*/ meltfptr[83] = 0 ; /*^clear*/ /*clear*/ /*_#exeqS__L51*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V88*/ meltfptr[86] = 0 ; MELT_LOCATION("warmelt-hooks.melt:4321:/ quasiblock"); /*_.PROGN___V101*/ meltfptr[94] = /*_.LET___V78*/ meltfptr[77];; /*^compute*/ /*_._IF___V77*/ meltfptr[55] = /*_.PROGN___V101*/ meltfptr[94];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4321:/ clear"); /*clear*/ /*_.LET___V78*/ meltfptr[77] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V101*/ meltfptr[94] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V77*/ meltfptr[55] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V35*/ meltfptr[27] = /*_._IF___V77*/ meltfptr[55];; MELT_LOCATION("warmelt-hooks.melt:4260:/ clear"); /*clear*/ /*_#BEGTIME__L18*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#LOOPCOUNT__L19*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.GOTREPLY__V36*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.GOTERROR__V38*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.REPLYREF__V40*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.JREPLYHANDLER__V42*/ meltfptr[41] = 0 ; /*^clear*/ /*clear*/ /*_.JERRORHANDLER__V44*/ meltfptr[43] = 0 ; /*^clear*/ /*clear*/ /*_.BOX__V46*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLE___V47*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.JPARSER__V49*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_.REGISTER_RAW_INPUT_CHANNEL_HANDLER__V52*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_.FOREVER___V53*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.BOX__V74*/ meltfptr[60] = 0 ; /*^clear*/ /*clear*/ /*_.UNREGISTER_INPUT_CHANNEL__V75*/ meltfptr[54] = 0 ; /*^clear*/ /*clear*/ /*_.REFERENCED_VALUE__V76*/ meltfptr[63] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V77*/ meltfptr[55] = 0 ; /*_.LET___V23*/ meltfptr[16] = /*_.LET___V35*/ meltfptr[27];; MELT_LOCATION("warmelt-hooks.melt:4232:/ clear"); /*clear*/ /*_#SERVFD__L13*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.SERVOUT__V24*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.OUTPUT_JSON__V32*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V35*/ meltfptr[27] = 0 ; /*_.LET___V9*/ meltfptr[4] = /*_.LET___V23*/ meltfptr[16];; MELT_LOCATION("warmelt-hooks.melt:4203:/ clear"); /*clear*/ /*_.LET___V10*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.RANDIDSTR__V14*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.SERVICE__V15*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.JREQ__V16*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_#IS_INTEGERBOX__L12*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V19*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V23*/ meltfptr[16] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4186:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[4];; { MELT_LOCATION("warmelt-hooks.melt:4186:/ 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*/ /*_#ltI__L4*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V9*/ meltfptr[4] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DO_BLOCKING_JSONRPC2_CALL", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_98_WARMELTmiHOOKS_DO_BLOCKING_JSONRPC2_CALL*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_WARMELTmiHOOKS_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_99_WARMELTmiHOOKS_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_99_WARMELTmiHOOKS_LAMBDA_cl8 fromline 1752 */ /** start of frame for meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8// fromline 1568 : public Melt_CallFrameWithValues<4> { 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_99_WARMELTmiHOOKS_LAMBDA_cl8(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<4> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8), clos) {}; MeltFrame_meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8() //the constructor fromline 1642 : Melt_CallFrameWithValues<4> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8)) {}; MeltFrame_meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8 /** end of frame for meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8 fromline 1697**/ /* end of frame for routine meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8 fromline 1756 */ /* classy proc frame meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8 */ MeltFrame_meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_99_WARMELTmiHOOKS_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-hooks.melt:4267:/ getarg"); /*_.JREPL__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4268:/ 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-hooks.melt:4268:/ 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-hooks.melt:4268:/ 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-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4268; /*^apply.arg*/ argtab[3].meltbp_cstring = "blockjsonrpcreply jrepl="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JREPL__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-hooks.melt:4268:/ 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-hooks.melt:4268:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4269:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~REPLYREF*/ 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)((/*~REPLYREF*/ meltfclos->tabval[0]))) == MELTOBMAG_OBJECT); melt_putfield_object(((/*~REPLYREF*/ meltfclos->tabval[0])), (0), (/*_.JREPL__V2*/ meltfptr[1]), "REFERENCED_VALUE"); ; /*^touch*/ meltgc_touch((/*~REPLYREF*/ meltfclos->tabval[0])); ; /*^touchobj*/ melt_dbgtrace_written_object ((/*~REPLYREF*/ meltfclos->tabval[0]), "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4270:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~GOTREPLY*/ meltfclos->tabval[1])), (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)((/*~GOTREPLY*/ meltfclos->tabval[1]))) == MELTOBMAG_OBJECT); melt_putfield_object(((/*~GOTREPLY*/ meltfclos->tabval[1])), (0), ((/*!konst_2_TRUE*/ meltfrout->tabval[2])), "REFERENCED_VALUE"); ; /*^touch*/ meltgc_touch((/*~GOTREPLY*/ meltfclos->tabval[1])); ; /*^touchobj*/ melt_dbgtrace_written_object ((/*~GOTREPLY*/ meltfclos->tabval[1]), "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl8", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_99_WARMELTmiHOOKS_LAMBDA_cl8*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_WARMELTmiHOOKS_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_100_WARMELTmiHOOKS_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_100_WARMELTmiHOOKS_LAMBDA_cl9 fromline 1752 */ /** start of frame for meltrout_100_WARMELTmiHOOKS_LAMBDA_cl9 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_100_WARMELTmiHOOKS_LAMBDA_cl9// fromline 1568 : public Melt_CallFrameWithValues<7> { 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_100_WARMELTmiHOOKS_LAMBDA_cl9(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_100_WARMELTmiHOOKS_LAMBDA_cl9), clos) {}; MeltFrame_meltrout_100_WARMELTmiHOOKS_LAMBDA_cl9() //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_100_WARMELTmiHOOKS_LAMBDA_cl9)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_100_WARMELTmiHOOKS_LAMBDA_cl9(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<7> (fil,lin, sizeof(MeltFrame_meltrout_100_WARMELTmiHOOKS_LAMBDA_cl9)) {}; MeltFrame_meltrout_100_WARMELTmiHOOKS_LAMBDA_cl9(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<7> (fil,lin, sizeof(MeltFrame_meltrout_100_WARMELTmiHOOKS_LAMBDA_cl9), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_100_WARMELTmiHOOKS_LAMBDA_cl9 /** end of frame for meltrout_100_WARMELTmiHOOKS_LAMBDA_cl9 fromline 1697**/ /* end of frame for routine meltrout_100_WARMELTmiHOOKS_LAMBDA_cl9 fromline 1756 */ /* classy proc frame meltrout_100_WARMELTmiHOOKS_LAMBDA_cl9 */ MeltFrame_meltrout_100_WARMELTmiHOOKS_LAMBDA_cl9 meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_100_WARMELTmiHOOKS_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-hooks.melt:4273:/ getarg"); /*_.JERROR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4274:/ 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-hooks.melt:4274:/ 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-hooks.melt:4274:/ 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-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4274; /*^apply.arg*/ argtab[3].meltbp_cstring = "blockjsonrpcerror jerror="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.JERROR__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-hooks.melt:4274:/ 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-hooks.melt:4274:/ 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*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4275:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if (/*_.JERROR__V2*/ meltfptr[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[2] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:4275:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "blockjsonrpcerror check jerror"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4275; /*_.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 ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V6*/ meltfptr[2] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4275:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = 0 ; } ; } ; /*_.IFCPP___V5*/ meltfptr[3] = /*_._IFELSE___V6*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4275:/ clear"); /*clear*/ /*_._IFELSE___V6*/ meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V5*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4276:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~GOTERROR*/ meltfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)((/*~GOTERROR*/ meltfclos->tabval[0]))) == MELTOBMAG_OBJECT); melt_putfield_object(((/*~GOTERROR*/ meltfclos->tabval[0])), (0), (/*_.JERROR__V2*/ meltfptr[1]), "REFERENCED_VALUE"); ; /*^touch*/ meltgc_touch((/*~GOTERROR*/ meltfclos->tabval[0])); ; /*^touchobj*/ melt_dbgtrace_written_object ((/*~GOTERROR*/ meltfclos->tabval[0]), "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4273:/ clear"); /*clear*/ /*_.IFCPP___V5*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl9", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_100_WARMELTmiHOOKS_LAMBDA_cl9_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_100_WARMELTmiHOOKS_LAMBDA_cl9*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER(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_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER_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_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER fromline 1752 */ /** start of frame for meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER// fromline 1568 : public Melt_CallFrameWithValues<18> { 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_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<18> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER), clos) {}; MeltFrame_meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER() //the constructor fromline 1642 : Melt_CallFrameWithValues<18> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<18> (fil,lin, sizeof(MeltFrame_meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER)) {}; MeltFrame_meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<18> (fil,lin, sizeof(MeltFrame_meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER /** end of frame for meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER fromline 1697**/ /* end of frame for routine meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER fromline 1756 */ /* classy proc frame meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER */ MeltFrame_meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER 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("REGISTER_ALARM_TIMER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:4439:/ getarg"); /*_.CLOS__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#PERIODMS__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DATA__V3*/ meltfptr[2] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DATA__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4445:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L2*/ 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-hooks.melt:4445:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = /* 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-hooks.melt:4445:/ apply"); /*apply*/ { union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L3*/ meltfnum[2]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4445; /*^apply.arg*/ argtab[3].meltbp_cstring = "register_alarm_timer clos="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOS__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " periodms="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#PERIODMS__L1*/ meltfnum[0]; /*_.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_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4445:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4445:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 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_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L4*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.CLOS__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:4446:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#gteqI__L5*/ meltfnum[1] = ((/*_#PERIODMS__L1*/ meltfnum[0]) >= (50));; MELT_LOCATION("warmelt-hooks.melt:4447:/ cond"); /*cond*/ if (/*_#gteqI__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4448:/ quasiblock"); /*_.RES__V9*/ meltfptr[8] = (/*nil*/NULL);; /*citerblock BLOCK_SIGNALS*/ { /* block_signals meltcit1__BLKSIGNAL start */ long meltcit1__BLKSIGNAL_lev = melt_blocklevel_signals; melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev + 1; MELT_LOCATION("warmelt-hooks.melt:4452:/ quasiblock"); /*_.PERIODBOX__V11*/ meltfptr[10] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[1])), (/*_#PERIODMS__L1*/ meltfnum[0])));; MELT_LOCATION("warmelt-hooks.melt:4453:/ cond"); /*cond*/ if ( (melt_module_var_fetch (meltmodvarix_MELT_ALARMBUCKET_symb))) /*then*/ { /*^cond.then*/ /*_.OLDBUCK__V12*/ meltfptr[11] = (melt_module_var_fetch (meltmodvarix_MELT_ALARMBUCKET_symb));; } else { MELT_LOCATION("warmelt-hooks.melt:4453:/ cond.else"); /*^block*/ /*anyblock*/ { /*_.MAKE_BUCKETLONG__V13*/ meltfptr[12] = (meltgc_new_longsbucket((meltobject_ptr_t) (/*!DISCR_BUCKET_LONGS*/ meltfrout->tabval[2]), (31)));; /*^compute*/ /*_.OLDBUCK__V12*/ meltfptr[11] = /*_.MAKE_BUCKETLONG__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4453:/ clear"); /*clear*/ /*_.MAKE_BUCKETLONG__V13*/ meltfptr[12] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4454:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_ALARM_HANDLER*/ meltfrout->tabval[3])), (4), "CLASS_ALARM_HANDLER"); /*_.INST__V15*/ meltfptr[14] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @ALARMH_PERIOD", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ meltfptr[14])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V15*/ meltfptr[14]), (1), (/*_.PERIODBOX__V11*/ meltfptr[10]), "ALARMH_PERIOD"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @ALARMH_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ meltfptr[14])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V15*/ meltfptr[14]), (2), (/*_.CLOS__V2*/ meltfptr[1]), "ALARMH_CLOS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @ALARMH_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ meltfptr[14])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V15*/ meltfptr[14]), (3), (/*_.DATA__V3*/ meltfptr[2]), "ALARMH_DATA"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V15*/ meltfptr[14], "newly made instance"); ; /*_.ALHD__V14*/ meltfptr[12] = /*_.INST__V15*/ meltfptr[14];; /*^compute*/ /*_#CURELTIM__L6*/ meltfnum[5] = melt_relative_time_millisec();; /*^compute*/ /*_#NEXTIM__L7*/ meltfnum[6] = ((/*_#CURELTIM__L6*/ meltfnum[5]) + (/*_#PERIODMS__L1*/ meltfnum[0]));; /*^compute*/ /*_.NEWBUCK__V16*/ meltfptr[15] = meltgc_longsbucket_put ((melt_ptr_t) /*_.OLDBUCK__V12*/ meltfptr[11], (/*_#NEXTIM__L7*/ meltfnum[6]), (melt_ptr_t) /*_.ALHD__V14*/ meltfptr[12]);; /*^compute*/ /*_#FIRSTKEY__L8*/ meltfnum[7] = melt_longsbucket_nth_key ((melt_ptr_t) /*_.NEWBUCK__V16*/ meltfptr[15], (int)0);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4462:/ cond"); /*cond*/ if (/*_#FIRSTKEY__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#miI__L10*/ meltfnum[9] = ((/*_#FIRSTKEY__L8*/ meltfnum[7]) - (/*_#CURELTIM__L6*/ meltfnum[5]));; /*^compute*/ /*_#FIRSTDELAY__L9*/ meltfnum[8] = /*_#miI__L10*/ meltfnum[9];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4462:/ clear"); /*clear*/ /*_#miI__L10*/ meltfnum[9] = 0 ; } ; } else /*^cond.else*/ { /*_#FIRSTDELAY__L9*/ meltfnum[8] = 0;; } ; MELT_LOCATION("warmelt-hooks.melt:4464:/ putmodvar"); melt_module_var_put (meltmodvarix_MELT_ALARMBUCKET_symb, (melt_ptr_t)(/*_.NEWBUCK__V16*/ meltfptr[15])); ; { MELT_LOCATION("warmelt-hooks.melt:4465:/ locexp"); melt_set_real_timer_millisec(/*_#FIRSTDELAY__L9*/ meltfnum[8]); } ; MELT_LOCATION("warmelt-hooks.melt:4466:/ compute"); /*_.RES__V9*/ meltfptr[8] = /*_.SETQ___V17*/ meltfptr[16] = /*_.ALHD__V14*/ meltfptr[12];; /*_.LET___V10*/ meltfptr[9] = /*_.SETQ___V17*/ meltfptr[16];; MELT_LOCATION("warmelt-hooks.melt:4452:/ clear"); /*clear*/ /*_.PERIODBOX__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.OLDBUCK__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.ALHD__V14*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#CURELTIM__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#NEXTIM__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.NEWBUCK__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_#FIRSTKEY__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#FIRSTDELAY__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V17*/ meltfptr[16] = 0 ; /* block_signals meltcit1__BLKSIGNAL end */ melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev; MELT_CHECK_SIGNAL(); /*citerepilog*/ MELT_LOCATION("warmelt-hooks.melt:4450:/ clear"); /*clear*/ /*_.LET___V10*/ meltfptr[9] = 0 ; } /*endciterblock BLOCK_SIGNALS*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4467:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.RES__V9*/ meltfptr[8];; { MELT_LOCATION("warmelt-hooks.melt:4467:/ 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___V8*/ meltfptr[7] = /*_.RETURN___V18*/ meltfptr[10];; MELT_LOCATION("warmelt-hooks.melt:4448:/ clear"); /*clear*/ /*_.RES__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V18*/ meltfptr[10] = 0 ; /*_._IF___V7*/ meltfptr[3] = /*_.LET___V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4447:/ clear"); /*clear*/ /*_.LET___V8*/ meltfptr[7] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V7*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_._IF___V6*/ meltfptr[4] = /*_._IF___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4446:/ clear"); /*clear*/ /*_#gteqI__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V7*/ meltfptr[3] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V6*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4439:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_._IF___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-hooks.melt:4439:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L4*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V6*/ meltfptr[4] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("REGISTER_ALARM_TIMER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_103_WARMELTmiHOOKS_REGISTER_ALARM_TIMER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER(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_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER_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_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER fromline 1752 */ /** start of frame for meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER// fromline 1568 : public Melt_CallFrameWithValues<26> { 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_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER(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_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER), clos) {}; MeltFrame_meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER() //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_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<26> (fil,lin, sizeof(MeltFrame_meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER)) {}; MeltFrame_meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<26> (fil,lin, sizeof(MeltFrame_meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER /** end of frame for meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER fromline 1697**/ /* end of frame for routine meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER fromline 1756 */ /* classy proc frame meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER */ MeltFrame_meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER 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("UNREGISTER_ALARM_TIMER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:4471:/ getarg"); /*_.TIM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4473:/ 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-hooks.melt:4473:/ 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-hooks.melt:4473:/ 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-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4473; /*^apply.arg*/ argtab[3].meltbp_cstring = "unregister_alarm_timer tim="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.TIM__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-hooks.melt:4473:/ 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-hooks.melt:4473:/ 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_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4474:/ cond"); /*cond*/ if (/*_.TIM__V2*/ meltfptr[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[3] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:4474:/ cond.else"); /*^block*/ /*anyblock*/ { /*^quasiblock*/ /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4474:/ 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 ; /*^quasiblock*/ /*_.PROGN___V7*/ meltfptr[6] = /*_.RETURN___V6*/ meltfptr[2];; /*^compute*/ /*_._IFELSE___V5*/ meltfptr[3] = /*_.PROGN___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4474:/ clear"); /*clear*/ /*_.RETURN___V6*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V7*/ meltfptr[6] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; /*_#IS_NOT_A__L3*/ meltfnum[1] = !melt_is_instance_of((melt_ptr_t)(/*_.TIM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ALARM_HANDLER*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-hooks.melt:4475:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[2] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:4475:/ cond.else"); /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4476:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.TIM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ALARM_HANDLER*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-hooks.melt:4476:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:4476:/ 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 tim"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4476; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.TIM__V2*/ meltfptr[1]; /*_.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[9] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4476:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; /*_.IFCPP___V9*/ meltfptr[6] = /*_._IFELSE___V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4476:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[9] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[6] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-hooks.melt:4477:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4477:/ 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-hooks.melt:4475:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[9] = /*_.RETURN___V12*/ meltfptr[10];; /*^compute*/ /*_._IFELSE___V8*/ meltfptr[2] = /*_.PROGN___V13*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4475:/ clear"); /*clear*/ /*_.IFCPP___V9*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V13*/ meltfptr[9] = 0 ; } ; } ; /*citerblock BLOCK_SIGNALS*/ { /* block_signals meltcit1__BLKSIGNAL start */ long meltcit1__BLKSIGNAL_lev = melt_blocklevel_signals; melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev + 1; MELT_LOCATION("warmelt-hooks.melt:4480:/ quasiblock"); /*_.OLDBUCK__V14*/ meltfptr[6] = (melt_module_var_fetch (meltmodvarix_MELT_ALARMBUCKET_symb));; /*^compute*/ /*_#OLDBUCKLEN__L5*/ meltfnum[0] = melt_longsbucket_count ((melt_ptr_t) /*_.OLDBUCK__V14*/ meltfptr[6]);; /*^compute*/ /*_.NEWBUCK__V15*/ meltfptr[10] = (meltgc_new_longsbucket((meltobject_ptr_t) (/*!DISCR_BUCKET_LONGS*/ meltfrout->tabval[3]), (/*_#OLDBUCKLEN__L5*/ meltfnum[0])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4484:/ cond"); /*cond*/ if (/*_#OLDBUCKLEN__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[9] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:4484:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4486:/ putmodvar"); melt_module_var_put (meltmodvarix_MELT_ALARMBUCKET_symb, (melt_ptr_t)((/*nil*/NULL))); ; { MELT_LOCATION("warmelt-hooks.melt:4487:/ locexp"); melt_set_real_timer_millisec(0); } ; MELT_LOCATION("warmelt-hooks.melt:4488:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4488:/ 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-hooks.melt:4484:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[17] = /*_.RETURN___V17*/ meltfptr[16];; /*^compute*/ /*_._IFELSE___V16*/ meltfptr[9] = /*_.PROGN___V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4484:/ clear"); /*clear*/ /*_.RETURN___V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V18*/ meltfptr[17] = 0 ; } ; } ; /*citerblock FOREACH_IN_BUCKETLONG*/ { /*foreach_in_bucketlong meltcit2__EACHBUCKLONG*/ unsigned meltcit2__EACHBUCKLONG_ix = 0, meltcit2__EACHBUCKLONG_cnt =0; /*_#OLDKEY__L6*/ meltfnum[5] = 0L; /*_.OLDALA__V19*/ meltfptr[16] = NULL; for (meltcit2__EACHBUCKLONG_ix = 0; /* retrieve in meltcit2__EACHBUCKLONG iteration the count, it might change! */ (meltcit2__EACHBUCKLONG_cnt = melt_longsbucket_count ((melt_ptr_t) /*_.OLDBUCK__V14*/ meltfptr[6])) > 0 && meltcit2__EACHBUCKLONG_ix < meltcit2__EACHBUCKLONG_cnt; meltcit2__EACHBUCKLONG_ix++) { /*_#OLDKEY__L6*/ meltfnum[5] = 0L; /*_.OLDALA__V19*/ meltfptr[16] = NULL; { struct melt_bucketlongentry_st* meltcit2__EACHBUCKLONG_buent = ((struct meltbucketlongs_st*)/*_.OLDBUCK__V14*/ meltfptr[6])->buckl_entab + meltcit2__EACHBUCKLONG_ix; if (!meltcit2__EACHBUCKLONG_buent->ebl_va) continue; /*_#OLDKEY__L6*/ meltfnum[5] = meltcit2__EACHBUCKLONG_buent->ebl_at; /*_.OLDALA__V19*/ meltfptr[16] = meltcit2__EACHBUCKLONG_buent->ebl_va; meltcit2__EACHBUCKLONG_buent = NULL; } /*foreach_in_bucketlong meltcit2__EACHBUCKLONG body:*/ #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4492:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L7*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.OLDALA__V19*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_ALARM_HANDLER*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-hooks.melt:4492:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[20] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:4492:/ 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 oldala"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4492; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OLDALA__V19*/ meltfptr[16]; /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 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___V21*/ meltfptr[20] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4492:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; } ; } ; /*_.IFCPP___V20*/ meltfptr[17] = /*_._IFELSE___V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4492:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V21*/ meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V20*/ meltfptr[17] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#eqeq__L8*/ meltfnum[6] = ((/*_.OLDALA__V19*/ meltfptr[16]) == (/*_.TIM__V2*/ meltfptr[1]));; MELT_LOCATION("warmelt-hooks.melt:4493:/ cond"); /*cond*/ if (/*_#eqeq__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[21] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:4493:/ cond.else"); /*^block*/ /*anyblock*/ { /*_.BUCKETLONG_PUT__V24*/ meltfptr[20] = meltgc_longsbucket_put ((melt_ptr_t) /*_.NEWBUCK__V15*/ meltfptr[10], (/*_#OLDKEY__L6*/ meltfnum[5]), (melt_ptr_t) /*_.OLDALA__V19*/ meltfptr[16]);; MELT_LOCATION("warmelt-hooks.melt:4494:/ compute"); /*_.NEWBUCK__V15*/ meltfptr[10] = /*_.SETQ___V25*/ meltfptr[24] = /*_.BUCKETLONG_PUT__V24*/ meltfptr[20];; MELT_LOCATION("warmelt-hooks.melt:4493:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[25] = /*_.SETQ___V25*/ meltfptr[24];; /*^compute*/ /*_._IFELSE___V23*/ meltfptr[21] = /*_.PROGN___V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4493:/ clear"); /*clear*/ /*_.BUCKETLONG_PUT__V24*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V26*/ meltfptr[25] = 0 ; } ; } ; /* ending foreach_in_bucketlong meltcit2__EACHBUCKLONG*/ /*_#OLDKEY__L6*/ meltfnum[5] = 0L; /*_.OLDALA__V19*/ meltfptr[16] = NULL; } /* end foreach_in_bucketlong meltcit2__EACHBUCKLONG_ix */ /*citerepilog*/ MELT_LOCATION("warmelt-hooks.melt:4489:/ clear"); /*clear*/ /*_#OLDKEY__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.OLDALA__V19*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V20*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_#eqeq__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V23*/ meltfptr[21] = 0 ; } /*endciterblock FOREACH_IN_BUCKETLONG*/ ; MELT_LOCATION("warmelt-hooks.melt:4496:/ putmodvar"); melt_module_var_put (meltmodvarix_MELT_ALARMBUCKET_symb, (melt_ptr_t)(/*_.NEWBUCK__V15*/ meltfptr[10])); ; MELT_LOCATION("warmelt-hooks.melt:4480:/ clear"); /*clear*/ /*_.OLDBUCK__V14*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_#OLDBUCKLEN__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.NEWBUCK__V15*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V16*/ meltfptr[9] = 0 ; /* block_signals meltcit1__BLKSIGNAL end */ melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev; MELT_CHECK_SIGNAL(); /*citerepilog*/ } /*endciterblock BLOCK_SIGNALS*/ ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4471:/ clear"); /*clear*/ /*_._IFELSE___V5*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[2] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("UNREGISTER_ALARM_TIMER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_104_WARMELTmiHOOKS_UNREGISTER_ALARM_TIMER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER(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_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER_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_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER fromline 1752 */ /** start of frame for meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER// fromline 1568 : public Melt_CallFrameWithValues<26> { public: /* fromline 1572*/ long mcfr_varnum[11]; /*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_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER(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_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER), clos) {}; MeltFrame_meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER() //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_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<26> (fil,lin, sizeof(MeltFrame_meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER)) {}; MeltFrame_meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<26> (fil,lin, sizeof(MeltFrame_meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER /** end of frame for meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER fromline 1697**/ /* end of frame for routine meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER fromline 1756 */ /* classy proc frame meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER */ MeltFrame_meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER meltfram__ /*declfrastruct fromline 1782*/ /*classyprocarg meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER 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("REGISTER_CHILD_PROCESS_HANDLER", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:4614:/ getarg"); /*_.CLOS__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#PID__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DATA__V3*/ meltfptr[2] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DATA__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4618:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L2*/ 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-hooks.melt:4618:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = /* 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-hooks.melt:4618:/ apply"); /*apply*/ { union meltparam_un argtab[9]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L3*/ meltfnum[2]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4618; /*^apply.arg*/ argtab[3].meltbp_cstring = "register_child_process_handler clos="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CLOS__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[5].meltbp_cstring = " pid="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#PID__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[7].meltbp_cstring = " data="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.DATA__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_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4618:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4618:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 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_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L4*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.CLOS__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:4619:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#gtI__L5*/ meltfnum[1] = ((/*_#PID__L1*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-hooks.melt:4620:/ cond"); /*cond*/ if (/*_#gtI__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-hooks.melt:4621:/ quasiblock"); /*_#PIDISBAD__L6*/ meltfnum[5] = 0;; { MELT_LOCATION("warmelt-hooks.melt:4623:/ locexp"); /* register_child_process_handler TRYKILLCHK__1 */ if (kill ((pid_t) /*_#PID__L1*/ meltfnum[0], 0)) /*_#PIDISBAD__L6*/ meltfnum[5] = -1L ; ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4629:/ 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-hooks.melt:4629:/ 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-hooks.melt:4629:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[7]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4629; /*^apply.arg*/ argtab[3].meltbp_cstring = "register_child_process_handler pidisbad="; /*^apply.arg*/ argtab[4].meltbp_long = /*_#PIDISBAD__L6*/ meltfnum[5]; /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V9*/ meltfptr[8] = /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4629:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V9*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4629:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V9*/ meltfptr[8] = 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-hooks.melt:4630:/ cond"); /*cond*/ if (/*_#PIDISBAD__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^quasiblock*/ /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-hooks.melt:4630:/ 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[9] = /*_.RETURN___V12*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4630:/ clear"); /*clear*/ /*_.RETURN___V12*/ meltfptr[8] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V11*/ meltfptr[9] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-hooks.melt:4631:/ quasiblock"); MELT_CHECK_SIGNAL(); ; /*_.MAKE_INTEGERBOX__V14*/ meltfptr[13] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[2])), (/*_#PID__L1*/ meltfnum[0])));; MELT_LOCATION("warmelt-hooks.melt:4631:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_CHILD_PROCESS_HANDLER*/ meltfrout->tabval[1])), (4), "CLASS_CHILD_PROCESS_HANDLER"); /*_.INST__V16*/ meltfptr[15] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @CHILPROH_PID", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ meltfptr[15])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V16*/ meltfptr[15]), (1), (/*_.MAKE_INTEGERBOX__V14*/ meltfptr[13]), "CHILPROH_PID"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @CHILPROH_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ meltfptr[15])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V16*/ meltfptr[15]), (2), (/*_.CLOS__V2*/ meltfptr[1]), "CHILPROH_CLOS"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @CHILPROH_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ meltfptr[15])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V16*/ meltfptr[15]), (3), (/*_.DATA__V3*/ meltfptr[2]), "CHILPROH_DATA"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V16*/ meltfptr[15], "newly made instance"); ; /*_.CHPH__V15*/ meltfptr[14] = /*_.INST__V16*/ meltfptr[15];; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4637:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L9*/ meltfnum[7] = /*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-hooks.melt:4637:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L10*/ 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-hooks.melt:4637:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[6]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4637; /*^apply.arg*/ argtab[3].meltbp_cstring = "register_child_process_handler chph="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CHPH__V15*/ meltfptr[14]; /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 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___V17*/ meltfptr[16] = /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4637:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-hooks.melt:4637:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V17*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; /*citerblock BLOCK_SIGNALS*/ { /* block_signals meltcit1__BLKSIGNAL start */ long meltcit1__BLKSIGNAL_lev = melt_blocklevel_signals; melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev + 1; MELT_LOCATION("warmelt-hooks.melt:4640:/ quasiblock"); /*^cond*/ /*cond*/ if ( (melt_module_var_fetch (meltmodvarix_MELT_CHILDBUCK_symb))) /*then*/ { /*^cond.then*/ /*_.BUCK__V19*/ meltfptr[17] = (melt_module_var_fetch (meltmodvarix_MELT_CHILDBUCK_symb));; } else { MELT_LOCATION("warmelt-hooks.melt:4640:/ cond.else"); /*^block*/ /*anyblock*/ { /*_.MAKE_BUCKETLONG__V20*/ meltfptr[16] = (meltgc_new_longsbucket((meltobject_ptr_t) (/*!DISCR_BUCKET_LONGS*/ meltfrout->tabval[3]), (13)));; /*^compute*/ /*_.BUCK__V19*/ meltfptr[17] = /*_.MAKE_BUCKETLONG__V20*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4640:/ clear"); /*clear*/ /*_.MAKE_BUCKETLONG__V20*/ meltfptr[16] = 0 ; } ; } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-hooks.melt:4643:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_BUCKETLONG__L11*/ meltfnum[6] = (melt_magic_discr((melt_ptr_t) (/*_.BUCK__V19*/ meltfptr[17])) == MELTOBMAG_BUCKETLONGS);; MELT_LOCATION("warmelt-hooks.melt:4643:/ cond"); /*cond*/ if (/*_#IS_BUCKETLONG__L11*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V22*/ meltfptr[21] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-hooks.melt:4643:/ 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 buck"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-hooks.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 4643; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BUCK__V19*/ meltfptr[17]; /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 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___V22*/ meltfptr[21] = /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4643:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V23*/ meltfptr[22] = 0 ; } ; } ; /*_.IFCPP___V21*/ meltfptr[16] = /*_._IFELSE___V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4643:/ clear"); /*clear*/ /*_#IS_BUCKETLONG__L11*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V22*/ meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V21*/ meltfptr[16] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; /*^compute*/ /*_.BUCKETLONG_PUT__V24*/ meltfptr[22] = meltgc_longsbucket_put ((melt_ptr_t) /*_.BUCK__V19*/ meltfptr[17], (/*_#PID__L1*/ meltfnum[0]), (melt_ptr_t) /*_.CHPH__V15*/ meltfptr[14]);; MELT_LOCATION("warmelt-hooks.melt:4644:/ compute"); /*_.BUCK__V19*/ meltfptr[17] = /*_.SETQ___V25*/ meltfptr[21] = /*_.BUCKETLONG_PUT__V24*/ meltfptr[22];; MELT_LOCATION("warmelt-hooks.melt:4645:/ putmodvar"); melt_module_var_put (meltmodvarix_MELT_CHILDBUCK_symb, (melt_ptr_t)(/*_.BUCK__V19*/ meltfptr[17])); ; MELT_LOCATION("warmelt-hooks.melt:4640:/ clear"); /*clear*/ /*_.BUCK__V19*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V21*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.BUCKETLONG_PUT__V24*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V25*/ meltfptr[21] = 0 ; /* block_signals meltcit1__BLKSIGNAL end */ melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev; MELT_CHECK_SIGNAL(); /*citerepilog*/ } /*endciterblock BLOCK_SIGNALS*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4648:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.CHPH__V15*/ meltfptr[14];; { MELT_LOCATION("warmelt-hooks.melt:4648:/ 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___V13*/ meltfptr[8] = /*_.RETURN___V26*/ meltfptr[17];; MELT_LOCATION("warmelt-hooks.melt:4631:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.CHPH__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V26*/ meltfptr[17] = 0 ; /*_.LET___V8*/ meltfptr[7] = /*_.LET___V13*/ meltfptr[8];; MELT_LOCATION("warmelt-hooks.melt:4621:/ clear"); /*clear*/ /*_#PIDISBAD__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V11*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V13*/ meltfptr[8] = 0 ; /*_._IF___V7*/ meltfptr[3] = /*_.LET___V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4620:/ clear"); /*clear*/ /*_.LET___V8*/ meltfptr[7] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V7*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_._IF___V6*/ meltfptr[4] = /*_._IF___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:4619:/ clear"); /*clear*/ /*_#gtI__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V7*/ meltfptr[3] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V6*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-hooks.melt:4614:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_._IF___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-hooks.melt:4614:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG > 0 if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L4*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V6*/ meltfptr[4] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("REGISTER_CHILD_PROCESS_HANDLER", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_106_WARMELTmiHOOKS_REGISTER_CHILD_PROCESS_HANDLER*/ /**** end of warmelt-hooks+03.cc ****/