# HG changeset patch # User Mario de Sousa <msousa@fe.up.pt> # Date 1301564734 -3600 # Node ID d7d92b2f87e9824eb0d95612bc2c91a82664c650 # Parent 90782e241346c55cb46e7540f9a8f8abc5042953# Parent 18988de676ac5426ddfbeef365c56ba6c704539a Merging my Huge change with Edouards/Laurents version diff -r 90782e241346 -r d7d92b2f87e9 .hgignore --- a/.hgignore Wed Mar 30 19:53:32 2011 +0100 +++ b/.hgignore Thu Mar 31 10:45:34 2011 +0100 @@ -1,1 +1,12 @@ .project + +syntax: regexp +\.o$ +syntax: regexp +^iec2c$ +syntax: regexp +^iec2iec$ +syntax: regexp +\.depend$ +syntax: regexp +^stage1_2/iec\.(y|flex)\..*$ diff -r 90782e241346 -r d7d92b2f87e9 Makefile --- a/Makefile Wed Mar 30 19:53:32 2011 +0100 +++ b/Makefile Thu Mar 31 10:45:34 2011 +0100 @@ -66,7 +66,7 @@ Makefile.depend depend: $(CXX) -MM -MG -I. *.cc \ - | perl -pe 's/:/ Makefile.depend:/' > Makefile.depend + | sed 's/:/ Makefile.depend:/' > Makefile.depend include Makefile.depend diff -r 90782e241346 -r d7d92b2f87e9 Makefile.CYGWIN_NT-5.1 --- a/Makefile.CYGWIN_NT-5.1 Wed Mar 30 19:53:32 2011 +0100 +++ b/Makefile.CYGWIN_NT-5.1 Thu Mar 31 10:45:34 2011 +0100 @@ -2,9 +2,9 @@ CXX = g++ -mno-cygwin #get warnings, debugging information and optimization -CFLAGS = -Wall -pedantic -Wpointer-arith -Wwrite-strings +CFLAGS = -Wall -Wpointer-arith -Wwrite-strings # CFLAGS += -Werror -CFLAGS += -ggdb +# CFLAGS += -ggdb #CFLAGS += -O3 -funroll-loops # Note: if the optimizer crashes, we'll leave out the -O3 for those files @@ -14,4 +14,4 @@ #CXXFLAGS += -O3 -funroll-loops CXXFLAGS = $(CFLAGS) -IECLIBDIR=lib \ No newline at end of file +IECLIBDIR=lib diff -r 90782e241346 -r d7d92b2f87e9 Makefile.Linux --- a/Makefile.Linux Wed Mar 30 19:53:32 2011 +0100 +++ b/Makefile.Linux Thu Mar 31 10:45:34 2011 +0100 @@ -2,7 +2,7 @@ CXX = g++ #get warnings, debugging information and optimization -CFLAGS = -Wall -pedantic -Wpointer-arith -Wwrite-strings +CFLAGS = -Wall -Wpointer-arith -Wwrite-strings # CFLAGS += -Werror CFLAGS += -ggdb #CFLAGS += -O3 -funroll-loops diff -r 90782e241346 -r d7d92b2f87e9 absyntax/Makefile --- a/absyntax/Makefile Wed Mar 30 19:53:32 2011 +0100 +++ b/absyntax/Makefile Thu Mar 31 10:45:34 2011 +0100 @@ -27,3 +27,8 @@ ../% /% absyntax/% stage1_2/% stage3/% stage4/% util/%: $(MAKE) -C $(@D) $(@F) +Makefile.depend depend: + $(CXX) -MM -MG -I. *.cc \ + | sed 's/:/ Makefile.depend:/' > Makefile.depend + +include Makefile.depend diff -r 90782e241346 -r d7d92b2f87e9 absyntax_utils/Makefile --- a/absyntax_utils/Makefile Wed Mar 30 19:53:32 2011 +0100 +++ b/absyntax_utils/Makefile Thu Mar 31 10:45:34 2011 +0100 @@ -39,7 +39,7 @@ Makefile.depend depend: - $(CXX) -MM -MG -I. *.cc > Makefile.depend - #| perl -pe 's/:/ Makefile.depend:/' > Makefile.depend + $(CXX) -MM -MG -I. *.cc \ + | sed 's/:/ Makefile.depend:/' > Makefile.depend include Makefile.depend diff -r 90782e241346 -r d7d92b2f87e9 absyntax_utils/decompose_var_instance_name.cc --- a/absyntax_utils/decompose_var_instance_name.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/absyntax_utils/decompose_var_instance_name.cc Thu Mar 31 10:45:34 2011 +0100 @@ -46,21 +46,22 @@ previously_returned_variable_name = NULL; } -symbol_c *decompose_var_instance_name_c::next_part(void) { +symbol_c *decompose_var_instance_name_c::next_part(bool increment) { /* We must always start from the top! * See note in the structured_variable_c visitor * to understand why... */ symbol_c *res = (symbol_c *)variable_name->accept(*this); - next_variable_name = current_recursive_variable_name; + if (increment) + next_variable_name = current_recursive_variable_name; if (previously_returned_variable_name == res) - return NULL; - previously_returned_variable_name = res; + return NULL; + if (increment) + previously_returned_variable_name = res; return res; } - /*************************/ /* B.1 - Common elements */ /*************************/ @@ -123,7 +124,7 @@ * so we do not have to recursevily visit it again... * return (void *)symbol->field_selector->accept(*this); -> NOT REQUIRED!! */ - return (void *)symbol->field_selector; + return (void *)symbol->field_selector; } current_recursive_variable_name = symbol; diff -r 90782e241346 -r d7d92b2f87e9 absyntax_utils/decompose_var_instance_name.hh --- a/absyntax_utils/decompose_var_instance_name.hh Wed Mar 30 19:53:32 2011 +0100 +++ b/absyntax_utils/decompose_var_instance_name.hh Thu Mar 31 10:45:34 2011 +0100 @@ -53,7 +53,7 @@ public: decompose_var_instance_name_c(symbol_c *variable_instance_name); - symbol_c *next_part(void); + symbol_c *next_part(bool increment = true); private: /*************************/ diff -r 90782e241346 -r d7d92b2f87e9 absyntax_utils/function_call_param_iterator.cc --- a/absyntax_utils/function_call_param_iterator.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/absyntax_utils/function_call_param_iterator.cc Thu Mar 31 10:45:34 2011 +0100 @@ -495,8 +495,10 @@ /* If the syntax parser is working correctly, exactly one of the * following two symbols will be NULL, while the other is != NULL. */ - if (symbol-> formal_param_list != NULL) return symbol-> formal_param_list->accept(*this); - if (symbol->nonformal_param_list != NULL) return symbol->nonformal_param_list->accept(*this); + if (symbol == (function_invocation_c *)f_call) { + if (symbol-> formal_param_list != NULL) return symbol-> formal_param_list->accept(*this); + if (symbol->nonformal_param_list != NULL) return symbol->nonformal_param_list->accept(*this); + } return NULL; } diff -r 90782e241346 -r d7d92b2f87e9 absyntax_utils/function_param_iterator.cc --- a/absyntax_utils/function_param_iterator.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/absyntax_utils/function_param_iterator.cc Thu Mar 31 10:45:34 2011 +0100 @@ -159,6 +159,7 @@ identifier_c *identifier; param_count = 0; + en_eno_param_implicit = false; next_param++; current_operation = function_param_iterator_c::iterate_op; res = f_decl->accept(*this); @@ -196,6 +197,11 @@ return current_param_type; } +/* Returns if currently referenced parameter is an implicit defined EN/ENO parameter. */ +bool function_param_iterator_c::is_en_eno_param_implicit(void) { + return en_eno_param_implicit; +} + /* Returns the currently referenced parameter's data passing direction. * i.e. VAR_INPUT, VAR_OUTPUT or VAR_INOUT */ @@ -203,6 +209,11 @@ return current_param_direction; } +void *function_param_iterator_c::visit(implicit_definition_c *symbol) { + en_eno_param_implicit = current_operation == function_param_iterator_c::iterate_op; + return NULL; +} + /****************************************/ /* 1.4.3 - Declaration & Initialisation */ /****************************************/ @@ -224,6 +235,8 @@ * variables will get overwritten when we visit the next * var1_init_decl_c list! */ + symbol->method->accept(*this); + current_param_default_value = symbol->value; current_param_type = symbol->type; @@ -232,11 +245,25 @@ /* var1_list ':' array_spec_init */ //SYM_REF2(array_var_init_decl_c, var1_list, array_spec_init) -void *function_param_iterator_c::visit(array_var_init_decl_c *symbol) {TRACE("array_var_init_decl_c"); return symbol->var1_list->accept(*this);} +void *function_param_iterator_c::visit(array_var_init_decl_c *symbol) { + TRACE("array_var_init_decl_c"); + + current_param_default_value = spec_init_sperator_c::get_init(symbol->array_spec_init); + current_param_type = spec_init_sperator_c::get_spec(symbol->array_spec_init); + + return symbol->var1_list->accept(*this); +} /* var1_list ':' initialized_structure */ //SYM_REF2(structured_var_init_decl_c, var1_list, initialized_structure) -void *function_param_iterator_c::visit(structured_var_init_decl_c *symbol) {TRACE("structured_var_init_decl_c"); return symbol->var1_list->accept(*this);} +void *function_param_iterator_c::visit(structured_var_init_decl_c *symbol) { + TRACE("structured_var_init_decl_c"); + + current_param_default_value = spec_init_sperator_c::get_init(symbol->initialized_structure); + current_param_type = spec_init_sperator_c::get_spec(symbol->initialized_structure); + + return symbol->var1_list->accept(*this); +} void *function_param_iterator_c::visit(output_declarations_c *symbol) { TRACE("output_declarations_c"); @@ -251,14 +278,12 @@ * variables will get overwritten when we visit the next * var1_init_decl_c list! */ + symbol->method->accept(*this); + current_param_default_value = NULL; current_param_type = symbol->type; return handle_single_param(symbol->name); -#if 0 - if (eno_declared) ERROR; - return (void *)declare_eno_param(); -#endif } void *function_param_iterator_c::visit(input_output_declarations_c *symbol) { TRACE("input_output_declarations_c"); @@ -269,11 +294,25 @@ /* var1_list ':' array_specification */ //SYM_REF2(array_var_declaration_c, var1_list, array_specification) -void *function_param_iterator_c::visit(array_var_declaration_c *symbol) {TRACE("array_var_declaration_c"); return symbol->var1_list->accept(*this);} +void *function_param_iterator_c::visit(array_var_declaration_c *symbol) { + TRACE("array_var_declaration_c"); + + current_param_default_value = NULL; + current_param_type = symbol->array_specification; + + return symbol->var1_list->accept(*this); +} /* var1_list ':' structure_type_name */ //SYM_REF2(structured_var_declaration_c, var1_list, structure_type_name) -void *function_param_iterator_c::visit(structured_var_declaration_c *symbol) {TRACE("structured_var_declaration_c"); return symbol->var1_list->accept(*this);} +void *function_param_iterator_c::visit(structured_var_declaration_c *symbol) { + TRACE("structured_var_declaration_c"); + + current_param_default_value = NULL; + current_param_type = symbol->structure_type_name; + + return symbol->var1_list->accept(*this); +} /* VAR [CONSTANT] var_init_decl_list END_VAR */ void *function_param_iterator_c::visit(var_declarations_c *symbol) {TRACE("var_declarations_c"); return NULL;} diff -r 90782e241346 -r d7d92b2f87e9 absyntax_utils/function_param_iterator.hh --- a/absyntax_utils/function_param_iterator.hh Wed Mar 30 19:53:32 2011 +0100 +++ b/absyntax_utils/function_param_iterator.hh Thu Mar 31 10:45:34 2011 +0100 @@ -81,6 +81,7 @@ symbol_c *current_param_type; symbol_c *current_param_default_value; param_direction_t current_param_direction; + bool en_eno_param_implicit; /* Which operation of the class was called... * Search a parameter, or iterate to the next parameter. */ @@ -131,12 +132,16 @@ /* Returns the currently referenced parameter's type name. */ symbol_c *param_type(void); + /* Returns if currently referenced parameter is an implicit defined EN/ENO parameter. */ + bool is_en_eno_param_implicit(void); + /* Returns the currently referenced parameter's data passing direction. * i.e. VAR_INPUT, VAR_OUTPUT or VAR_INOUT */ param_direction_t param_direction(void); private: + void *visit(implicit_definition_c *symbol); /******************************************/ /* B 1.4.3 - Declaration & Initialisation */ /******************************************/ diff -r 90782e241346 -r d7d92b2f87e9 absyntax_utils/get_function_type_decl.c --- a/absyntax_utils/get_function_type_decl.c Wed Mar 30 19:53:32 2011 +0100 +++ b/absyntax_utils/get_function_type_decl.c Thu Mar 31 10:45:34 2011 +0100 @@ -26,8 +26,8 @@ * IEC 61131-3 standard function library * generated code, do not edit by hand */ - - + + function_type_t get_function_type(identifier_c *function_name) { if (!strcasecmp(function_name->value, "REAL_TO_SINT")) diff -r 90782e241346 -r d7d92b2f87e9 absyntax_utils/search_expression_type.cc --- a/absyntax_utils/search_expression_type.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/absyntax_utils/search_expression_type.cc Thu Mar 31 10:45:34 2011 +0100 @@ -185,19 +185,7 @@ integer_c search_expression_type_c::integer("1"); // what default value should we use here ??? -#define compute_standard_function_default search_expression_type_c::compute_standard_function_default -#define compute_standard_function_il search_expression_type_c::compute_standard_function_il -#define search(x) search_f(x) -#define next() next_nf() -// #define search_constant_type_c::constant_int_type_name search_expression_type_c::integer -#define constant_int_type_name integer #include "search_type_code.c" -#undef constant_int_type_name -// #undef search_constant_type_c::constant_int_type_name -#undef next -#undef search -#undef compute_standard_function_default -#undef compute_standard_function_il /*static bool_type_name_c bool_type_name;*/ diff -r 90782e241346 -r d7d92b2f87e9 absyntax_utils/search_type_code.c --- a/absyntax_utils/search_type_code.c Wed Mar 30 19:53:32 2011 +0100 +++ b/absyntax_utils/search_type_code.c Thu Mar 31 10:45:34 2011 +0100 @@ -29,7 +29,7 @@ -void *compute_standard_function_default(function_invocation_c *st_symbol = NULL, il_formal_funct_call_c *il_symbol = NULL) { +void *search_expression_type_c::compute_standard_function_default(function_invocation_c *st_symbol = NULL, il_formal_funct_call_c *il_symbol = NULL) { function_type_t current_function_type; function_call_param_iterator_c *tmp_function_call_param_iterator; if (st_symbol != NULL && il_symbol == NULL) { @@ -55,14 +55,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -91,14 +91,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -127,14 +127,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -163,14 +163,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -199,14 +199,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -235,14 +235,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -271,14 +271,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -307,14 +307,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -343,14 +343,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -379,14 +379,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -415,14 +415,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -451,14 +451,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -487,14 +487,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -523,14 +523,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -559,14 +559,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -595,14 +595,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -631,14 +631,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -667,14 +667,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -703,14 +703,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -739,14 +739,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -775,14 +775,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -811,14 +811,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -847,14 +847,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -883,14 +883,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -919,14 +919,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -955,14 +955,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -991,14 +991,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1027,14 +1027,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1063,14 +1063,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1099,14 +1099,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1135,14 +1135,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1171,14 +1171,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1207,14 +1207,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1243,14 +1243,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1279,14 +1279,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1315,14 +1315,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1351,14 +1351,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1387,14 +1387,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1423,14 +1423,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1459,14 +1459,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1495,14 +1495,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1531,14 +1531,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1567,14 +1567,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1603,14 +1603,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1639,14 +1639,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1675,14 +1675,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1711,14 +1711,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1747,14 +1747,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1783,14 +1783,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1819,14 +1819,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1855,14 +1855,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1891,14 +1891,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1927,14 +1927,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1963,14 +1963,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1999,14 +1999,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2035,14 +2035,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2071,14 +2071,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2107,14 +2107,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2143,14 +2143,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2179,14 +2179,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2215,14 +2215,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2251,14 +2251,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2287,14 +2287,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2323,14 +2323,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2359,14 +2359,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2395,14 +2395,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2431,14 +2431,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2467,14 +2467,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2503,14 +2503,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2539,14 +2539,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2575,14 +2575,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2611,14 +2611,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2647,14 +2647,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2683,14 +2683,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2719,14 +2719,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2755,14 +2755,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2791,14 +2791,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2827,14 +2827,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2863,14 +2863,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2899,14 +2899,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2935,14 +2935,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2971,14 +2971,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3007,14 +3007,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3043,14 +3043,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3079,14 +3079,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3115,14 +3115,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3151,14 +3151,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3187,14 +3187,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3223,14 +3223,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3259,14 +3259,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3295,14 +3295,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3331,14 +3331,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3367,14 +3367,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3403,14 +3403,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3439,14 +3439,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3475,14 +3475,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3511,14 +3511,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3547,14 +3547,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3583,14 +3583,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3619,14 +3619,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3655,14 +3655,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3691,14 +3691,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3727,14 +3727,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3763,14 +3763,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3799,14 +3799,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3835,14 +3835,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3871,14 +3871,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3907,14 +3907,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3943,14 +3943,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3979,14 +3979,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4015,14 +4015,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4051,14 +4051,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4087,14 +4087,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4123,14 +4123,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4159,14 +4159,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4195,14 +4195,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4231,14 +4231,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4267,14 +4267,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4303,14 +4303,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4339,14 +4339,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4375,14 +4375,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4411,14 +4411,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4447,14 +4447,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4483,14 +4483,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4519,14 +4519,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4555,14 +4555,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4591,14 +4591,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4627,14 +4627,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4663,14 +4663,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4699,14 +4699,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4735,14 +4735,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4771,14 +4771,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4807,14 +4807,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4843,14 +4843,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4879,14 +4879,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4915,14 +4915,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4951,14 +4951,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4987,14 +4987,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5023,14 +5023,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5059,14 +5059,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5095,14 +5095,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5131,14 +5131,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5167,14 +5167,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5203,14 +5203,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5239,14 +5239,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5275,14 +5275,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5311,14 +5311,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5347,14 +5347,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5383,14 +5383,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5419,14 +5419,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5455,14 +5455,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5491,14 +5491,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5527,14 +5527,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5563,14 +5563,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5599,14 +5599,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5635,14 +5635,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5671,14 +5671,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5707,14 +5707,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5743,14 +5743,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5779,14 +5779,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5815,14 +5815,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5851,14 +5851,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5887,14 +5887,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5923,14 +5923,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5959,14 +5959,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5995,14 +5995,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6031,14 +6031,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6067,14 +6067,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6103,14 +6103,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6139,14 +6139,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6175,14 +6175,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6211,14 +6211,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6247,14 +6247,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6283,14 +6283,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6319,14 +6319,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6355,14 +6355,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6391,14 +6391,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6427,14 +6427,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6463,14 +6463,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6499,14 +6499,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6535,14 +6535,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6571,14 +6571,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6607,14 +6607,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6643,14 +6643,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6679,14 +6679,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6715,14 +6715,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6751,14 +6751,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6787,14 +6787,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6823,14 +6823,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6859,14 +6859,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6895,14 +6895,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6931,14 +6931,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6967,14 +6967,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7003,14 +7003,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7039,14 +7039,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7075,14 +7075,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7111,14 +7111,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7147,14 +7147,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7183,14 +7183,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7219,14 +7219,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7255,14 +7255,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7291,14 +7291,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7327,14 +7327,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7363,14 +7363,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7399,14 +7399,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7435,14 +7435,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7471,14 +7471,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7507,14 +7507,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7543,14 +7543,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7579,14 +7579,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7615,14 +7615,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7651,14 +7651,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7687,14 +7687,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7723,14 +7723,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7759,14 +7759,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7795,14 +7795,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7831,14 +7831,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7867,14 +7867,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7903,14 +7903,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7939,14 +7939,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7975,14 +7975,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8011,14 +8011,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8047,14 +8047,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8083,14 +8083,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8119,14 +8119,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8155,14 +8155,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8191,14 +8191,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8227,14 +8227,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8263,14 +8263,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8299,14 +8299,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8335,14 +8335,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8371,14 +8371,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8407,14 +8407,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8443,14 +8443,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8479,14 +8479,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8515,14 +8515,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8551,14 +8551,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8587,14 +8587,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8623,14 +8623,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8659,14 +8659,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8695,14 +8695,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8731,14 +8731,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8767,14 +8767,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8803,14 +8803,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8839,14 +8839,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8875,14 +8875,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8911,14 +8911,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8947,14 +8947,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8983,14 +8983,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9019,14 +9019,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9055,14 +9055,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9091,14 +9091,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9127,14 +9127,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9163,14 +9163,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9199,14 +9199,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9235,14 +9235,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9271,14 +9271,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9307,14 +9307,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9343,14 +9343,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9379,14 +9379,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9415,14 +9415,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9451,14 +9451,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9487,14 +9487,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9523,14 +9523,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9559,14 +9559,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9595,14 +9595,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9631,14 +9631,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9667,14 +9667,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9703,14 +9703,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9739,14 +9739,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9775,14 +9775,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9811,14 +9811,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9847,14 +9847,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9883,14 +9883,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9919,14 +9919,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9955,14 +9955,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9991,14 +9991,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10027,14 +10027,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10063,14 +10063,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10099,14 +10099,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10135,14 +10135,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10171,14 +10171,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10207,14 +10207,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10243,14 +10243,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10279,14 +10279,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10315,14 +10315,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10351,14 +10351,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10387,14 +10387,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10423,14 +10423,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10459,14 +10459,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10495,14 +10495,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10531,14 +10531,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10567,14 +10567,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10603,14 +10603,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10639,14 +10639,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10675,14 +10675,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10711,14 +10711,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10747,14 +10747,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10783,14 +10783,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10819,14 +10819,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10855,14 +10855,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10891,14 +10891,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10927,14 +10927,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10963,14 +10963,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10999,14 +10999,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11035,14 +11035,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11071,14 +11071,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11107,14 +11107,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11143,14 +11143,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11179,14 +11179,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11215,14 +11215,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11251,14 +11251,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11287,14 +11287,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11323,14 +11323,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11359,14 +11359,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11395,14 +11395,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11431,14 +11431,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11467,14 +11467,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11503,14 +11503,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11539,14 +11539,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11575,14 +11575,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11611,14 +11611,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11647,14 +11647,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11683,14 +11683,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11719,14 +11719,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11755,14 +11755,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11791,14 +11791,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11827,14 +11827,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11863,14 +11863,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11899,14 +11899,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11935,14 +11935,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11971,14 +11971,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12007,14 +12007,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12043,14 +12043,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12079,14 +12079,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12115,14 +12115,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12151,14 +12151,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12187,14 +12187,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12223,14 +12223,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12259,14 +12259,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12295,14 +12295,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12331,14 +12331,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12367,14 +12367,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12403,14 +12403,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12439,14 +12439,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12475,14 +12475,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12511,14 +12511,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12547,14 +12547,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12583,14 +12583,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12619,14 +12619,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12655,14 +12655,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12691,14 +12691,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12727,14 +12727,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12763,14 +12763,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12799,14 +12799,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12835,14 +12835,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12871,14 +12871,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12907,14 +12907,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12943,14 +12943,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12979,14 +12979,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13015,14 +13015,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13051,14 +13051,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13087,14 +13087,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13123,14 +13123,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13159,14 +13159,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13175,7 +13175,7 @@ if(IN_type_symbol == NULL || search_expression_type->is_real_type(IN_type_symbol)) { - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + symbol_c * return_type_symbol = &search_constant_type_c::integer; return return_type_symbol; } @@ -13195,14 +13195,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13231,14 +13231,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13267,14 +13267,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13303,14 +13303,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13339,14 +13339,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13355,7 +13355,7 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + symbol_c * return_type_symbol = &search_constant_type_c::integer; return return_type_symbol; } @@ -13375,14 +13375,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13391,7 +13391,7 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + symbol_c * return_type_symbol = &search_constant_type_c::integer; return return_type_symbol; } @@ -13411,14 +13411,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13427,7 +13427,7 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + symbol_c * return_type_symbol = &search_constant_type_c::integer; return return_type_symbol; } @@ -13447,14 +13447,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13463,7 +13463,7 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + symbol_c * return_type_symbol = &search_constant_type_c::integer; return return_type_symbol; } @@ -13483,14 +13483,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13519,14 +13519,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13555,14 +13555,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13591,14 +13591,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13627,14 +13627,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13663,14 +13663,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13699,14 +13699,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13735,14 +13735,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13771,14 +13771,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13807,14 +13807,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13843,14 +13843,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13879,14 +13879,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13915,14 +13915,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13951,14 +13951,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -13968,14 +13968,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -13999,14 +13999,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14030,14 +14030,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14061,14 +14061,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14103,14 +14103,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -14120,14 +14120,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14151,14 +14151,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14193,14 +14193,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -14210,14 +14210,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14241,14 +14241,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14272,14 +14272,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14311,14 +14311,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14350,14 +14350,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14392,14 +14392,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -14409,14 +14409,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14440,14 +14440,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14482,14 +14482,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -14499,14 +14499,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14541,14 +14541,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -14558,14 +14558,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14600,14 +14600,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14636,14 +14636,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14653,14 +14653,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -14695,14 +14695,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14712,14 +14712,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -14754,14 +14754,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14771,14 +14771,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -14813,14 +14813,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14830,14 +14830,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -14872,14 +14872,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -14889,14 +14889,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14931,14 +14931,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -14948,14 +14948,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14990,14 +14990,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -15007,14 +15007,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15049,14 +15049,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15085,14 +15085,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("G"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *G_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *G_param_name = (symbol_c *)(new identifier_c("G")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *G_param_value = function_call_param_iterator.search_f(G_param_name); symbol_c *G_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (G_param_value == NULL) - G_param_value = function_call_param_iterator.next(); + G_param_value = function_call_param_iterator.next_nf(); if (G_param_value != NULL) { G_type_symbol = search_expression_type->get_type(G_param_value); last_type_symbol = last_type_symbol && G_type_symbol && search_expression_type->is_same_type(G_type_symbol, last_type_symbol) ? search_expression_type->common_type(G_type_symbol, last_type_symbol) : G_type_symbol ; @@ -15102,14 +15102,14 @@ { { - identifier_c param_name("IN0"); + symbol_c *IN0_param_name = (symbol_c *)(new identifier_c("IN0")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN0_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN0_param_value = function_call_param_iterator.search_f(IN0_param_name); symbol_c *IN0_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN0_param_value == NULL) - IN0_param_value = function_call_param_iterator.next(); + IN0_param_value = function_call_param_iterator.next_nf(); if (IN0_param_value != NULL) { IN0_type_symbol = search_expression_type->get_type(IN0_param_value); last_type_symbol = last_type_symbol && IN0_type_symbol && search_expression_type->is_same_type(IN0_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN0_type_symbol, last_type_symbol) : IN0_type_symbol ; @@ -15119,14 +15119,14 @@ { { - identifier_c param_name("IN1"); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -15167,14 +15167,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -15184,14 +15184,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15226,14 +15226,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -15243,14 +15243,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15285,14 +15285,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("MN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *MN_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *MN_param_name = (symbol_c *)(new identifier_c("MN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *MN_param_value = function_call_param_iterator.search_f(MN_param_name); symbol_c *MN_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (MN_param_value == NULL) - MN_param_value = function_call_param_iterator.next(); + MN_param_value = function_call_param_iterator.next_nf(); if (MN_param_value != NULL) { MN_type_symbol = search_expression_type->get_type(MN_param_value); last_type_symbol = last_type_symbol && MN_type_symbol && search_expression_type->is_same_type(MN_type_symbol, last_type_symbol) ? search_expression_type->common_type(MN_type_symbol, last_type_symbol) : MN_type_symbol ; @@ -15302,14 +15302,14 @@ { { - identifier_c param_name("IN"); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); symbol_c *IN_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15319,14 +15319,14 @@ { { - identifier_c param_name("MX"); + symbol_c *MX_param_name = (symbol_c *)(new identifier_c("MX")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *MX_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *MX_param_value = function_call_param_iterator.search_f(MX_param_name); symbol_c *MX_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (MX_param_value == NULL) - MX_param_value = function_call_param_iterator.next(); + MX_param_value = function_call_param_iterator.next_nf(); if (MX_param_value != NULL) { MX_type_symbol = search_expression_type->get_type(MX_param_value); last_type_symbol = last_type_symbol && MX_type_symbol && search_expression_type->is_same_type(MX_type_symbol, last_type_symbol) ? search_expression_type->common_type(MX_type_symbol, last_type_symbol) : MX_type_symbol ; @@ -15367,14 +15367,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("K"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *K_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *K_param_name = (symbol_c *)(new identifier_c("K")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *K_param_value = function_call_param_iterator.search_f(K_param_name); symbol_c *K_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (K_param_value == NULL) - K_param_value = function_call_param_iterator.next(); + K_param_value = function_call_param_iterator.next_nf(); if (K_param_value != NULL) { K_type_symbol = search_expression_type->get_type(K_param_value); last_type_symbol = last_type_symbol && K_type_symbol && search_expression_type->is_same_type(K_type_symbol, last_type_symbol) ? search_expression_type->common_type(K_type_symbol, last_type_symbol) : K_type_symbol ; @@ -15384,14 +15384,14 @@ { { - identifier_c param_name("IN0"); + symbol_c *IN0_param_name = (symbol_c *)(new identifier_c("IN0")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN0_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN0_param_value = function_call_param_iterator.search_f(IN0_param_name); symbol_c *IN0_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN0_param_value == NULL) - IN0_param_value = function_call_param_iterator.next(); + IN0_param_value = function_call_param_iterator.next_nf(); if (IN0_param_value != NULL) { IN0_type_symbol = search_expression_type->get_type(IN0_param_value); last_type_symbol = last_type_symbol && IN0_type_symbol && search_expression_type->is_same_type(IN0_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN0_type_symbol, last_type_symbol) : IN0_type_symbol ; @@ -15401,14 +15401,14 @@ { { - identifier_c param_name("IN1"); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -15449,14 +15449,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -15466,14 +15466,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15508,14 +15508,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -15525,14 +15525,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15567,14 +15567,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -15584,14 +15584,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15626,14 +15626,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -15643,14 +15643,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15685,14 +15685,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -15702,14 +15702,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15744,14 +15744,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -15761,14 +15761,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15803,14 +15803,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15839,14 +15839,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15856,14 +15856,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -15898,14 +15898,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15915,14 +15915,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -15957,14 +15957,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15974,14 +15974,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -15991,14 +15991,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -16039,14 +16039,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -16056,14 +16056,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16087,14 +16087,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16129,14 +16129,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -16146,14 +16146,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16163,14 +16163,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -16211,14 +16211,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -16228,14 +16228,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -16245,14 +16245,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -16293,14 +16293,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -16310,14 +16310,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16327,14 +16327,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -16344,14 +16344,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -16398,14 +16398,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -16415,14 +16415,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16455,7 +16455,7 @@ return NULL; } -void *compute_standard_function_il(il_function_call_c *symbol, symbol_c *param_data_type) { +void *search_expression_type_c::compute_standard_function_il(il_function_call_c *symbol, symbol_c *param_data_type) { function_type_t current_function_type = get_function_type((identifier_c *)symbol->function_name); function_call_param_iterator_c function_call_param_iterator(symbol); @@ -25941,7 +25941,7 @@ if(IN_type_symbol == NULL || search_expression_type->is_real_type(IN_type_symbol)) { - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + symbol_c * return_type_symbol = &search_constant_type_c::integer; return return_type_symbol; } @@ -26071,7 +26071,7 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + symbol_c * return_type_symbol = &search_constant_type_c::integer; return return_type_symbol; } @@ -26097,7 +26097,7 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + symbol_c * return_type_symbol = &search_constant_type_c::integer; return return_type_symbol; } @@ -26123,7 +26123,7 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + symbol_c * return_type_symbol = &search_constant_type_c::integer; return return_type_symbol; } @@ -26149,7 +26149,7 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + symbol_c * return_type_symbol = &search_constant_type_c::integer; return return_type_symbol; } @@ -26514,14 +26514,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -26545,14 +26545,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -26576,14 +26576,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -26607,14 +26607,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -26656,14 +26656,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -26687,14 +26687,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -26736,14 +26736,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -26767,14 +26767,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -26798,14 +26798,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -26837,14 +26837,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -26876,14 +26876,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -26925,14 +26925,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -26956,14 +26956,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -27005,14 +27005,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -27054,14 +27054,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -27129,14 +27129,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -27178,14 +27178,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -27227,14 +27227,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -27276,14 +27276,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -27325,14 +27325,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -27374,14 +27374,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -27423,14 +27423,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -27498,14 +27498,14 @@ { { - identifier_c param_name("IN0"); + symbol_c *IN0_param_name = (symbol_c *)(new identifier_c("IN0")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN0_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN0_param_value = function_call_param_iterator.search_f(IN0_param_name); symbol_c *IN0_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN0_param_value == NULL) - IN0_param_value = function_call_param_iterator.next(); + IN0_param_value = function_call_param_iterator.next_nf(); if (IN0_param_value != NULL) { IN0_type_symbol = search_expression_type->get_type(IN0_param_value); last_type_symbol = last_type_symbol && IN0_type_symbol && search_expression_type->is_same_type(IN0_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN0_type_symbol, last_type_symbol) : IN0_type_symbol ; @@ -27515,14 +27515,14 @@ { { - identifier_c param_name("IN1"); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -27570,14 +27570,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -27619,14 +27619,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -27668,14 +27668,14 @@ { { - identifier_c param_name("IN"); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); symbol_c *IN_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -27685,14 +27685,14 @@ { { - identifier_c param_name("MX"); + symbol_c *MX_param_name = (symbol_c *)(new identifier_c("MX")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *MX_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *MX_param_value = function_call_param_iterator.search_f(MX_param_name); symbol_c *MX_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (MX_param_value == NULL) - MX_param_value = function_call_param_iterator.next(); + MX_param_value = function_call_param_iterator.next_nf(); if (MX_param_value != NULL) { MX_type_symbol = search_expression_type->get_type(MX_param_value); last_type_symbol = last_type_symbol && MX_type_symbol && search_expression_type->is_same_type(MX_type_symbol, last_type_symbol) ? search_expression_type->common_type(MX_type_symbol, last_type_symbol) : MX_type_symbol ; @@ -27740,14 +27740,14 @@ { { - identifier_c param_name("IN0"); + symbol_c *IN0_param_name = (symbol_c *)(new identifier_c("IN0")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN0_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN0_param_value = function_call_param_iterator.search_f(IN0_param_name); symbol_c *IN0_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN0_param_value == NULL) - IN0_param_value = function_call_param_iterator.next(); + IN0_param_value = function_call_param_iterator.next_nf(); if (IN0_param_value != NULL) { IN0_type_symbol = search_expression_type->get_type(IN0_param_value); last_type_symbol = last_type_symbol && IN0_type_symbol && search_expression_type->is_same_type(IN0_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN0_type_symbol, last_type_symbol) : IN0_type_symbol ; @@ -27757,14 +27757,14 @@ { { - identifier_c param_name("IN1"); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -27812,14 +27812,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -27861,14 +27861,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -27910,14 +27910,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -27959,14 +27959,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -28008,14 +28008,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -28057,14 +28057,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -28132,14 +28132,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -28181,14 +28181,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -28230,14 +28230,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -28247,14 +28247,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -28302,14 +28302,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -28333,14 +28333,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -28382,14 +28382,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -28399,14 +28399,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -28454,14 +28454,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -28471,14 +28471,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -28526,14 +28526,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -28543,14 +28543,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -28560,14 +28560,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -28621,14 +28621,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; diff -r 90782e241346 -r d7d92b2f87e9 absyntax_utils/search_var_instance_decl.cc --- a/absyntax_utils/search_var_instance_decl.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/absyntax_utils/search_var_instance_decl.cc Thu Mar 31 10:45:34 2011 +0100 @@ -25,7 +25,7 @@ /* Determine the data type of a specific variable instance, including * function block instances. * A reference to the relevant variable declaration is returned. - * The variable instance may NOT be a member of a structure of a memeber + * The variable instance may NOT be a member of a structure of a member * of a structure of an element of an array of ... * * example: @@ -64,11 +64,12 @@ } symbol_c *search_var_instance_decl_c::get_decl(symbol_c *variable_instance_name) { + this->current_vartype = none_vt; this->search_name = variable_instance_name; return (symbol_c *)search_scope->accept(*this); } -unsigned int search_var_instance_decl_c::get_vartype() { +unsigned int search_var_instance_decl_c::get_vartype(void) { return current_vartype; } @@ -77,7 +78,7 @@ /***************************/ void *search_var_instance_decl_c::visit(library_c *symbol) { /* we do not want to search multiple declaration scopes, - * so we do not visit all the functions, fucntion blocks, etc... + * so we do not visit all the functions, function blocks, etc... */ return NULL; } @@ -85,8 +86,9 @@ /******************************************/ -/* B 1.4.3 - Declaration & Initialisation */ +/* B 1.4.3 - Declaration & Initialization */ /******************************************/ + /* edge -> The F_EDGE or R_EDGE directive */ // SYM_REF2(edge_declaration_c, edge, var1_list) // TODO diff -r 90782e241346 -r d7d92b2f87e9 absyntax_utils/search_var_instance_decl.hh --- a/absyntax_utils/search_var_instance_decl.hh Wed Mar 30 19:53:32 2011 +0100 +++ b/absyntax_utils/search_var_instance_decl.hh Thu Mar 31 10:45:34 2011 +0100 @@ -69,7 +69,7 @@ public: search_var_instance_decl_c(symbol_c *search_scope); symbol_c *get_decl(symbol_c *variable_instance_name); - unsigned int get_vartype(); + unsigned int get_vartype(void); public: @@ -93,6 +93,7 @@ /******************************************/ /* B 1.4.3 - Declaration & Initialisation */ /******************************************/ + /* edge -> The F_EDGE or R_EDGE directive */ // SYM_REF2(edge_declaration_c, edge, var1_list) // TODO diff -r 90782e241346 -r d7d92b2f87e9 absyntax_utils/search_varfb_instance_type.cc --- a/absyntax_utils/search_varfb_instance_type.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/absyntax_utils/search_varfb_instance_type.cc Thu Mar 31 10:45:34 2011 +0100 @@ -56,13 +56,13 @@ search_varfb_instance_type_c::search_varfb_instance_type_c(symbol_c *search_scope): search_var_instance_decl(search_scope) { this->decompose_var_instance_name = NULL; this->current_structelement_name = NULL; - this->search_base_type = false; -} - -symbol_c *search_varfb_instance_type_c::get_type(symbol_c *variable_name, bool base_type) { + this->current_rawtype = NULL; +} + +symbol_c *search_varfb_instance_type_c::get_type(symbol_c *variable_name) { this->current_structelement_name = NULL; + this->current_rawtype = NULL; this->decompose_var_instance_name = new decompose_var_instance_name_c(variable_name); - this->search_base_type = base_type; if (NULL == decompose_var_instance_name) ERROR; /* find the part of the variable name that will appear in the @@ -88,7 +88,7 @@ symbol_c *res = (symbol_c *)var_decl->accept(*this); if (NULL == res) ERROR; - /* make sure that we have decomposed all strcuture elements of the variable name */ + /* make sure that we have decomposed all structure elements of the variable name */ symbol_c *var_name = decompose_var_instance_name->next_part(); if (NULL != var_name) ERROR; @@ -97,6 +97,8 @@ unsigned int search_varfb_instance_type_c::get_vartype(symbol_c *variable_name) { this->current_structelement_name = NULL; + this->current_rawtype = NULL; + this->is_complex = false; this->decompose_var_instance_name = new decompose_var_instance_name_c(variable_name); if (NULL == decompose_var_instance_name) ERROR; @@ -120,15 +122,28 @@ * This class, while visiting, will recursively call * decompose_var_instance_name->get_next() when and if required... */ + var_decl->accept(*this); unsigned int res = search_var_instance_decl.get_vartype(); - /* make sure that we have decomposed all strcuture elements of the variable name */ + /* make sure that we have decomposed all structure elements of the variable name */ symbol_c *var_name = decompose_var_instance_name->next_part(); if (NULL != var_name) ERROR; return res; } +symbol_c *search_varfb_instance_type_c::get_rawtype(symbol_c *variable_name) { + symbol_c *rawtype = this->get_type(variable_name); + if (this->current_rawtype != NULL) + return this->current_rawtype; + else + return rawtype; +} + +bool search_varfb_instance_type_c::type_is_complex(void) { + return this->is_complex; +} + /* a helper function... */ void *search_varfb_instance_type_c::visit_list(list_c *list) { if (NULL == current_structelement_name) ERROR; @@ -160,13 +175,17 @@ /* Type declaration found!! */ return fb_decl->accept(*this); + this->current_rawtype = type_name; + /* No. It is not a function block, so we let * the base class take care of it... */ - if (this->search_base_type) - return search_base_type_c::visit(type_name); - else - return type_name; + if (NULL == decompose_var_instance_name->next_part(false)) { + return base_type(type_name); + } + else { + return search_base_type_c::visit(type_name); + } } /********************************/ @@ -175,28 +194,26 @@ /* identifier ':' array_spec_init */ void *search_varfb_instance_type_c::visit(array_type_declaration_c *symbol) { + this->is_complex = true; return symbol->array_spec_init->accept(*this); } -/* array_specification [ASSIGN array_initialization} */ +/* array_specification [ASSIGN array_initialization] */ /* array_initialization may be NULL ! */ void *search_varfb_instance_type_c::visit(array_spec_init_c *symbol) { - symbol_c *var_name = decompose_var_instance_name->next_part(); - if (NULL != var_name) - current_structelement_name = var_name; + this->is_complex = true; return symbol->array_specification->accept(*this); } - + /* ARRAY '[' array_subrange_list ']' OF non_generic_type_name */ void *search_varfb_instance_type_c::visit(array_specification_c *symbol) { - symbol_c *var_name = decompose_var_instance_name->next_part(); - if (NULL != var_name) - current_structelement_name = var_name; + this->is_complex = true; return symbol->non_generic_type_name->accept(*this); } /* structure_type_name ':' structure_specification */ void *search_varfb_instance_type_c::visit(structure_type_declaration_c *symbol) { + this->is_complex = true; return symbol->structure_specification->accept(*this); /* NOTE: structure_specification will point to either a * initialized_structure_c @@ -209,33 +226,7 @@ /* structure_initialization may be NULL ! */ // SYM_REF2(initialized_structure_c, structure_type_name, structure_initialization) void *search_varfb_instance_type_c::visit(initialized_structure_c *symbol) { - /* make sure that we have decomposed all strcuture elements of the variable name */ - symbol_c *var_name = decompose_var_instance_name->next_part(); - if (NULL == var_name) { - /* this is it... ! - * No need to look any further... - */ - /* NOTE: we could simply do a - * return (void *)symbol; - * nevertheless, note that this search_varfb_instance_type_c - * class inherits from the search_base_type_c class, - * which means that it will usually return the base type, - * and not the derived type (*). If we are to be consistent, - * we should guarantee that we always return the base type. - * To do this we could use - * return (void *)symbol->accept(*this); - * since this class inherits from the search_base_type_c. - * However, in this case we don't want it to follow - * the structs as this search_varfb_instance_type_c does. - * We therefore have to create a new search_base_type_c - * instance to search through this type without going - * through the structs... - */ - return base_type(symbol->structure_type_name); - } - - /* now search the structure declaration */ - current_structelement_name = var_name; + this->is_complex = true; /* recursively find out the data type of var_name... */ return symbol->structure_type_name->accept(*this); } @@ -244,6 +235,9 @@ /* structure_declaration: STRUCT structure_element_declaration_list END_STRUCT */ /* structure_element_declaration_list structure_element_declaration ';' */ void *search_varfb_instance_type_c::visit(structure_element_declaration_list_c *symbol) { + /* make sure that we have decomposed all structure elements of the variable name */ + current_structelement_name = decompose_var_instance_name->next_part(); + /* now search the structure declaration */ return visit_list(symbol); } diff -r 90782e241346 -r d7d92b2f87e9 absyntax_utils/search_varfb_instance_type.hh --- a/absyntax_utils/search_varfb_instance_type.hh Wed Mar 30 19:53:32 2011 +0100 +++ b/absyntax_utils/search_varfb_instance_type.hh Thu Mar 31 10:45:34 2011 +0100 @@ -53,13 +53,16 @@ search_var_instance_decl_c search_var_instance_decl; decompose_var_instance_name_c *decompose_var_instance_name; symbol_c *current_structelement_name; - bool search_base_type; + symbol_c *current_rawtype; + bool is_complex; public: search_varfb_instance_type_c(symbol_c *search_scope); - symbol_c *get_type(symbol_c *variable_name, bool base_type = true); + symbol_c *get_type(symbol_c *variable_name); + symbol_c *get_rawtype(symbol_c *variable_name); unsigned int get_vartype(symbol_c *variable_name); + bool type_is_complex(void); private: /* a helper function... */ diff -r 90782e241346 -r d7d92b2f87e9 debian/README.Debian --- a/debian/README.Debian Wed Mar 30 19:53:32 2011 +0100 +++ b/debian/README.Debian Thu Mar 31 10:45:34 2011 +0100 @@ -3,4 +3,4 @@ <possible notes regarding this package - if none, delete this file> - -- lolitech <gregory.trelat@lolitech.fr> Wed, 21 Nov 2007 17:01:50 +0100 + -- edouard <edouard.tisserant@gmail.com> Wed, 21 Nov 2007 17:01:50 +0100 diff -r 90782e241346 -r d7d92b2f87e9 debian/changelog --- a/debian/changelog Wed Mar 30 19:53:32 2011 +0100 +++ b/debian/changelog Thu Mar 31 10:45:34 2011 +0100 @@ -2,5 +2,5 @@ * Initial release (Closes: #nnnn) <nnnn is the bug number of your ITP> - -- lolitech <gregory.trelat@lolitech.fr> Wed, 21 Nov 2007 17:01:50 +0100 + -- edouard <edouard.tisserant@gmail.com> Wed, 21 Nov 2007 17:01:50 +0100 diff -r 90782e241346 -r d7d92b2f87e9 debian/control --- a/debian/control Wed Mar 30 19:53:32 2011 +0100 +++ b/debian/control Thu Mar 31 10:45:34 2011 +0100 @@ -1,7 +1,7 @@ Source: matiec Section: devel Priority: standard -Maintainer: lolitech <gregory.trelat@lolitech.fr> +Maintainer: edouard <edouard.tisserant@gmail.com> Build-Depends: debhelper (>= 5), bison, flex Standards-Version: 3.7.2 diff -r 90782e241346 -r d7d92b2f87e9 debian/copyright --- a/debian/copyright Wed Mar 30 19:53:32 2011 +0100 +++ b/debian/copyright Thu Mar 31 10:45:34 2011 +0100 @@ -1,4 +1,4 @@ -This package was debianized by lolitech <gregory.trelat@lolitech.fr> on +This package was debianized by edouard <edouard.tisserant@gmail.com>> on Wed, 21 Nov 2007 17:01:50 +0100. It was downloaded from <fill in http/ftp site> @@ -27,7 +27,7 @@ On Debian systems, the complete text of the GNU General Public License can be found in `/usr/share/common-licenses/GPL'. -The Debian packaging is (C) 2007, lolitech <gregory.trelat@lolitech.fr> and +The Debian packaging is (C) 2007, edouard <edouard.tisserant@gmail.com> and is licensed under the GPL, see above. diff -r 90782e241346 -r d7d92b2f87e9 debian/docs --- a/debian/docs Wed Mar 30 19:53:32 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,1 +0,0 @@ -readme diff -r 90782e241346 -r d7d92b2f87e9 debian/rules --- a/debian/rules Wed Mar 30 19:53:32 2011 +0100 +++ b/debian/rules Thu Mar 31 10:45:34 2011 +0100 @@ -49,7 +49,6 @@ cp -a lib $(CURDIR)/debian/matiec/usr/share/matiec cp iec2c $(CURDIR)/debian/matiec/usr/share/matiec - # Build architecture-independent files here. binary-indep: build install @@ -59,9 +58,9 @@ binary-arch: build install dh_testdir dh_testroot - dh_installchangelogs - dh_installdocs - dh_installexamples +# dh_installchangelogs +# dh_installdocs +# dh_installexamples # dh_install # dh_installmenu # dh_installdebconf @@ -73,7 +72,7 @@ # dh_installinit # dh_installcron # dh_installinfo - dh_installman +# dh_installman dh_link dh_strip dh_compress diff -r 90782e241346 -r d7d92b2f87e9 lib/accessor.h --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lib/accessor.h Thu Mar 31 10:45:34 2011 +0100 @@ -0,0 +1,90 @@ +#ifndef __ACCESSOR_H +#define __ACCESSOR_H + + +// variable declaration macros +#define __DECLARE_VAR(type, name)\ + __IEC_##type##_t name; +#define __DECLARE_GLOBAL(type, resource, name)\ + __IEC_##type##_t resource##__##name;\ + static __IEC_##type##_t *GLOBAL__##name = &resource##__##name;\ + void __INIT_GLOBAL_##name(type value) {\ + (*GLOBAL__##name).value = value;\ + }\ + void __SET_GLOBAL_##name(type value) {\ + if (!((*GLOBAL__##name).flags & __IEC_FORCE_FLAG))\ + (*GLOBAL__##name).value = value;\ + }\ + type* __GET_GLOBAL_##name(void) {\ + return &((*GLOBAL__##name).value);\ + } +#define __DECLARE_GLOBAL_LOCATION(type, location)\ + extern type *location; +#define __DECLARE_GLOBAL_LOCATED(type, resource, name)\ + __IEC_##type##_p resource##__##name;\ + static __IEC_##type##_p *GLOBAL__##name = &resource##__##name;\ + void __INIT_GLOBAL_##name(type value) {\ + *((*GLOBAL__##name).value) = value;\ + }\ + void __SET_GLOBAL_##name(type value) {\ + if (!((*GLOBAL__##name).flags & __IEC_FORCE_FLAG))\ + *((*GLOBAL__##name).value) = value;\ + }\ + type* __GET_GLOBAL_##name(void) {\ + return (*GLOBAL__##name).value;\ + } +#define __DECLARE_EXTERNAL(type, name)\ + __IEC_##type##_p name; +#define __DECLARE_LOCATED(type, name)\ + __IEC_##type##_p name; + + +// variable initialization macros +#define __INIT_RETAIN(name, retained)\ + name.flags |= retained?__IEC_RETAIN_FLAG:0; +#define __INIT_VAR(name, initial, retained)\ + name.value = initial;\ + __INIT_RETAIN(name, retained) +#define __INIT_GLOBAL(name, initial, retained)\ + __INIT_GLOBAL_##name(initial);\ + __INIT_RETAIN((*GLOBAL__##name), retained) +#define __INIT_GLOBAL_LOCATED(resource, name, location, retained)\ + resource##__##name.value = location;\ + __INIT_RETAIN(resource##__##name, retained) +#define __INIT_EXTERNAL(type, global, name, retained)\ + name.value = __GET_GLOBAL_##global();\ + __INIT_RETAIN(name, retained) +#define __INIT_LOCATED(type, location, name, retained)\ + {extern type *location;\ + name.value = location;\ + __INIT_RETAIN(name, retained)} +#define __INIT_LOCATED_VALUE(name, initial)\ + *(name.value) = initial; + + +// variable getting macros +#define __GET_VAR(name, ...)\ + name.value __VA_ARGS__ +#define __GET_EXTERNAL(name, ...)\ + ((name.flags & __IEC_FORCE_FLAG) ? name.fvalue __VA_ARGS__ : *(name.value) __VA_ARGS__) +#define __GET_LOCATED(name, ...)\ + ((name.flags & __IEC_FORCE_FLAG) ? name.fvalue __VA_ARGS__ : *(name.value) __VA_ARGS__) +#define __GET_VAR_BY_REF(name, ...)\ + ((name.flags & __IEC_FORCE_FLAG) ? &(name.fvalue __VA_ARGS__) : &(name.value __VA_ARGS__)) +#define __GET_EXTERNAL_BY_REF(name, ...)\ + ((name.flags & __IEC_FORCE_FLAG) ? &(name.fvalue __VA_ARGS__) : &(*(name.value) __VA_ARGS__)) +#define __GET_LOCATED_BY_REF(name, ...)\ + ((name.flags & __IEC_FORCE_FLAG) ? &(name.fvalue __VA_ARGS__) : &(*(name.value) __VA_ARGS__)) + +// variable setting macros +#define __SET_VAR(name, new_value, ...)\ + if (!(name.flags & __IEC_FORCE_FLAG)) name.value __VA_ARGS__ = new_value +#define __SET_EXTERNAL(global, name, new_value)\ + if (!(name.flags & __IEC_FORCE_FLAG))\ + __SET_GLOBAL_##global(new_value) +#define __SET_COMPLEX_EXTERNAL(name, new_value, ...)\ + *(name.value) __VA_ARGS__ = new_value +#define __SET_LOCATED(name, new_value, ...)\ + if (!(name.flags & __IEC_FORCE_FLAG)) *(name.value) __VA_ARGS__ = new_value + +#endif //__ACCESSOR_H diff -r 90782e241346 -r d7d92b2f87e9 lib/iec_std_lib.h --- a/lib/iec_std_lib.h Wed Mar 30 19:53:32 2011 +0100 +++ b/lib/iec_std_lib.h Thu Mar 31 10:45:34 2011 +0100 @@ -79,7 +79,7 @@ #define __DATE_LITERAL(value) __literal(DATE,value,) #define __TOD_LITERAL(value) __literal(TOD,value,) #define __DT_LITERAL(value) __literal(DT,value,) -#define __STRING_LITERAL(value) __literal(STRING,value,) +#define __STRING_LITERAL(count,value) (STRING){count,value} #define __BYTE_LITERAL(value) __literal(BYTE,value,) #define __WORD_LITERAL(value) __literal(WORD,value,) #define __DWORD_LITERAL(value) __literal(DWORD,value,__32b_sufix) @@ -185,6 +185,7 @@ static inline struct timespec __date_to_timespec(int day, int month, int year) { struct timespec ts; struct tm broken_down_time; + time_t epoch_seconds; broken_down_time.tm_sec = 0; broken_down_time.tm_min = 0; @@ -193,7 +194,7 @@ broken_down_time.tm_mon = month - 1; /* month since January, in the range 0 to 11 */ broken_down_time.tm_year = year - 1900; /* number of years since 1900 */ - time_t epoch_seconds = mktime(&broken_down_time); /* determine number of seconds since the epoch, i.e. Jan 1st 1970 */ + epoch_seconds = mktime(&broken_down_time); /* determine number of seconds since the epoch, i.e. Jan 1st 1970 */ if ((time_t)(-1) == epoch_seconds) IEC_error(); @@ -206,12 +207,13 @@ static inline struct timespec __dt_to_timespec(double seconds, double minutes, double hours, int day, int month, int year) { struct timespec ts; + struct tm broken_down_time; + time_t epoch_seconds; long double total_sec = (hours*60 + minutes)*60 + seconds; ts.tv_sec = (long int)total_sec; ts.tv_nsec = (long int)((total_sec - ts.tv_sec)*1e9); - struct tm broken_down_time; broken_down_time.tm_sec = 0; broken_down_time.tm_min = 0; broken_down_time.tm_hour = 0; @@ -219,7 +221,7 @@ broken_down_time.tm_mon = month - 1; /* month since January, in the range 0 to 11 */ broken_down_time.tm_year = year - 1900; /* number of years since 1900 */ - time_t epoch_seconds = mktime(&broken_down_time); /* determine number of seconds since the epoch, i.e. Jan 1st 1970 */ + epoch_seconds = mktime(&broken_down_time); /* determine number of seconds since the epoch, i.e. Jan 1st 1970 */ if ((time_t)(-1) == epoch_seconds) IEC_error(); @@ -323,24 +325,27 @@ return IN.len; } static inline STRING __left(EN_ENO_PARAMS, STRING IN, __strlen_t L){ + STRING res; TEST_EN_COND(STRING, L < 0) - STRING res = __INIT_STRING; + res = __INIT_STRING; L = L < IN.len ? L : IN.len; memcpy(&res.body, &IN.body, L); res.len = L; return res; } static inline STRING __right(EN_ENO_PARAMS, STRING IN, __strlen_t L){ + STRING res; TEST_EN_COND(STRING, L < 0) - STRING res = __INIT_STRING; + res = __INIT_STRING; L = L < IN.len ? L : IN.len; memcpy(&res.body, &IN.body[IN.len - L], L); res.len = L; return res; } static inline STRING __mid(EN_ENO_PARAMS, STRING IN, __strlen_t L, __strlen_t P){ + STRING res; TEST_EN_COND(STRING, L < 0 || P < 0) - STRING res = __INIT_STRING; + res = __INIT_STRING; if(P <= IN.len){ P -= 1; /* now can be used as [index]*/ L = L + P <= IN.len ? L : IN.len - P; @@ -350,11 +355,13 @@ return res; } static inline STRING __concat(EN_ENO_PARAMS, UINT param_count, ...){ + UINT i; + STRING res; + va_list ap; + __strlen_t charcount; TEST_EN(STRING) - va_list ap; - UINT i; - __strlen_t charcount = 0; - STRING res = __INIT_STRING; + charcount = 0; + res = __INIT_STRING; va_start (ap, param_count); /* Initialize the argument list. */ @@ -373,9 +380,10 @@ return res; } static inline STRING __insert(EN_ENO_PARAMS, STRING IN1, STRING IN2, __strlen_t P){ + STRING res; + __strlen_t to_copy; TEST_EN_COND(STRING, P < 0) - STRING res = __INIT_STRING; - __strlen_t to_copy; + res = __INIT_STRING; to_copy = P > IN1.len ? IN1.len : P - 1; memcpy(&res.body, &IN1.body , to_copy); @@ -392,9 +400,10 @@ return res; } static inline STRING __delete(EN_ENO_PARAMS, STRING IN, __strlen_t L, __strlen_t P){ + STRING res; + __strlen_t to_copy; TEST_EN_COND(STRING, L < 0 || P < 0) - STRING res = __INIT_STRING; - __strlen_t to_copy; + res = __INIT_STRING; to_copy = P > IN.len ? IN.len : P-1; memcpy(&res.body, &IN.body , to_copy); @@ -409,9 +418,10 @@ return res; } static inline STRING __replace(EN_ENO_PARAMS, STRING IN1, STRING IN2, __strlen_t L, __strlen_t P){ + STRING res; + __strlen_t to_copy; TEST_EN_COND(STRING, L < 0 || P < 0) - STRING res = __INIT_STRING; - __strlen_t to_copy; + res = __INIT_STRING; to_copy = P > IN1.len ? IN1.len : P-1; memcpy(&res.body, &IN1.body , to_copy); @@ -443,10 +453,13 @@ UINT count2 = 0; /* count of matching char */ while(count1 + count2 < IN1->len && count2 < IN2->len) { - if(IN1->body[count1 + count2] != IN2->body[count2++]){ - count1 += count2; + if(IN1->body[count1 + count2] != IN2->body[count2]){ + count1 += count2 + 1; count2 = 0; } + else { + count2++; + } } return count2 == IN2->len -1 ? 0 : count1 + 1; } @@ -469,29 +482,33 @@ return (STRING){5,"FALSE"}; } static inline STRING __bit_to_string(EN_ENO_PARAMS, LWORD IN){ + STRING res; TEST_EN(STRING) - STRING res = __INIT_STRING; + res = __INIT_STRING; res.len = snprintf((char*)res.body, STR_MAX_LEN, "16#%llx", IN); if(res.len > STR_MAX_LEN) res.len = STR_MAX_LEN; return res; } static inline STRING __real_to_string(EN_ENO_PARAMS, LREAL IN){ + STRING res; TEST_EN(STRING) - STRING res = __INIT_STRING; + res = __INIT_STRING; res.len = snprintf((char*)res.body, STR_MAX_LEN, "%.10g", IN); if(res.len > STR_MAX_LEN) res.len = STR_MAX_LEN; return res; } static inline STRING __sint_to_string(EN_ENO_PARAMS, LINT IN){ + STRING res; TEST_EN(STRING) - STRING res = __INIT_STRING; + res = __INIT_STRING; res.len = snprintf((char*)res.body, STR_MAX_LEN, "%lld", IN); if(res.len > STR_MAX_LEN) res.len = STR_MAX_LEN; return res; } static inline STRING __uint_to_string(EN_ENO_PARAMS, ULINT IN){ + STRING res; TEST_EN(STRING) - STRING res = __INIT_STRING; + res = __INIT_STRING; res.len = snprintf((char*)res.body, STR_MAX_LEN, "%llu", IN); if(res.len > STR_MAX_LEN) res.len = STR_MAX_LEN; return res; @@ -506,8 +523,6 @@ static inline LINT __pstring_to_sint(STRING* IN){ LINT res = 0; - char tmp[STR_MAX_LEN]; - char tmp2[STR_MAX_LEN]; __strlen_t l; unsigned int shift = 0; @@ -580,9 +595,10 @@ return (ULINT)__pstring_to_sint(&IN); } static inline LREAL __string_to_real(EN_ENO_PARAMS, STRING IN){ - TEST_EN(LREAL) + __strlen_t l; + TEST_EN(LREAL) + l = IN.len; /* search the dot */ - __strlen_t l = IN.len; while(--l > 0 && IN.body[l] != '.'); if(l != 0){ return atof((const char *)&IN.body); @@ -604,7 +620,8 @@ return (TIME){IN, (IN - (LINT)IN) * 1000000000}; } static inline TIME __string_to_time(EN_ENO_PARAMS, STRING IN){ - TEST_EN(TIME) + __strlen_t l; + TEST_EN(TIME) /* TODO : * * Duration literals without underlines: T#14ms T#-14ms T#14.7s T#14.7m @@ -627,7 +644,7 @@ */ /* Quick hack : only transform seconds */ /* search the dot */ - __strlen_t l = IN.len; + l = IN.len; while(--l > 0 && IN.body[l] != '.'); if(l != 0){ LREAL IN_val = atof((const char *)&IN.body); @@ -649,10 +666,12 @@ return IN.tv_sec; } static inline STRING __time_to_string(EN_ENO_PARAMS, TIME IN){ + STRING res; + div_t days; TEST_EN(STRING) /*t#5d14h12m18s3.5ms*/ - STRING res = __INIT_STRING; - div_t days = div(IN.tv_sec ,86400); + res = __INIT_STRING; + days = div(IN.tv_sec ,86400); if(!days.rem && IN.tv_nsec == 0){ res.len = snprintf((char*)&res.body, STR_MAX_LEN, "T#%dd", days.quot); }else{ @@ -676,11 +695,13 @@ return res; } static inline STRING __date_to_string(EN_ENO_PARAMS, DATE IN){ - TEST_EN(STRING) + STRING res; + struct tm* broken_down_time; + time_t seconds; + TEST_EN(STRING) /* D#1984-06-25 */ - STRING res = __INIT_STRING; - struct tm* broken_down_time; - time_t seconds = IN.tv_sec; + res = __INIT_STRING; + seconds = IN.tv_sec; if (NULL == (broken_down_time = localtime(&seconds))){ /* get the UTC (GMT) broken down time */ IEC_error(); return (STRING){7,"D#ERROR"}; @@ -690,11 +711,13 @@ return res; } static inline STRING __tod_to_string(EN_ENO_PARAMS, TOD IN){ + STRING res; + struct tm* broken_down_time; + time_t seconds; TEST_EN(STRING) /* TOD#15:36:55.36 */ - STRING res = __INIT_STRING; - struct tm* broken_down_time; - time_t seconds = IN.tv_sec; + res = __INIT_STRING; + seconds = IN.tv_sec; if (NULL == (broken_down_time = localtime(&seconds))){ /* get the UTC (GMT) broken down time */ IEC_error(); return (STRING){9,"TOD#ERROR"}; @@ -708,11 +731,12 @@ return res; } static inline STRING __dt_to_string(EN_ENO_PARAMS, DT IN){ + STRING res; + struct tm* broken_down_time; + time_t seconds; TEST_EN(STRING) /* DT#1984-06-25-15:36:55.36 */ - STRING res; - struct tm* broken_down_time; - time_t seconds = IN.tv_sec; + seconds = IN.tv_sec; if (NULL == (broken_down_time = localtime(&seconds))){ /* get the UTC (GMT) broken down time */ IEC_error(); return (STRING){8,"DT#ERROR"}; @@ -740,43 +764,31 @@ /* BCD */ #define __bcd_digit(fac) static inline ULINT __bcd_to_uint(EN_ENO_PARAMS, LWORD IN){ + ULINT res; + ULINT i; TEST_EN(ULINT) - return IN & 0xf + - !(IN >>= 4) ? 0 : IN & 0xf * 10ULL + - !(IN >>= 4) ? 0 : IN & 0xf * 100ULL + - !(IN >>= 4) ? 0 : IN & 0xf * 1000ULL + - !(IN >>= 4) ? 0 : IN & 0xf * 10000ULL + - !(IN >>= 4) ? 0 : IN & 0xf * 100000ULL + - !(IN >>= 4) ? 0 : IN & 0xf * 1000000ULL + - !(IN >>= 4) ? 0 : IN & 0xf * 10000000ULL + - !(IN >>= 4) ? 0 : IN & 0xf * 100000000ULL + - !(IN >>= 4) ? 0 : IN & 0xf * 1000000000ULL + - !(IN >>= 4) ? 0 : IN & 0xf * 10000000000ULL + - !(IN >>= 4) ? 0 : IN & 0xf * 100000000000ULL + - !(IN >>= 4) ? 0 : IN & 0xf * 1000000000000ULL + - !(IN >>= 4) ? 0 : IN & 0xf * 10000000000000ULL + - !(IN >>= 4) ? 0 : IN & 0xf * 100000000000000ULL + - !(IN >>= 4) ? 0 : IN & 0xf * 1000000000000000ULL; - -} + + res = IN & 0xf; + for(i = 10ULL; i <= 1000000000000000ULL; i *= 10){ + if(!(IN >>= 4)) + break; + res += (IN & 0xf) * i; + } + return res; +} + static inline LWORD __uint_to_bcd(EN_ENO_PARAMS, ULINT IN){ + LWORD res; + USINT i; TEST_EN(LWORD) - return (IN - (IN /= 10))| - (IN - (IN /= 10)) << 4 | - (IN - (IN /= 10)) << 8 | - (IN - (IN /= 10)) << 12 | - (IN - (IN /= 10)) << 16 | - (IN - (IN /= 10)) << 20 | - (IN - (IN /= 10)) << 24 | - (IN - (IN /= 10)) << 28 | - (IN - (IN /= 10)) << 32 | - (IN - (IN /= 10)) << 36 | - (IN - (IN /= 10)) << 40 | - (IN - (IN /= 10)) << 44 | - (IN - (IN /= 10)) << 48 | - (IN - (IN /= 10)) << 52 | - (IN - (IN /= 10)) << 56 | - (IN - (IN /= 10)) << 60; + + res = IN % 10; + for(i = 4; i<=60; i += 4){ + if(!(IN /= 10)) + break; + res |= (IN % 10) << i; + } + return res; } /* workaround for va-atgs limitation on shorter that int params */ @@ -807,9 +819,9 @@ /*******************************************/ #define __arith_expand(fname,TYPENAME, OP) \ static inline TYPENAME fname##TYPENAME(EN_ENO_PARAMS, UINT param_count, TYPENAME op1, ...){\ - TEST_EN(TYPENAME)\ va_list ap;\ UINT i;\ + TEST_EN(TYPENAME)\ \ va_start (ap, op1); /* Initialize the argument list. */\ \ @@ -879,9 +891,9 @@ /* XOR */ /**************/ static inline BOOL __xor_BOOL(EN_ENO_PARAMS, UINT param_count, BOOL op1, ...){ - TEST_EN(BOOL) va_list ap; UINT i; + TEST_EN(BOOL) va_start (ap, op1); /* Initialize the argument list. */ @@ -942,7 +954,7 @@ static inline TYPENAME __ror_##TYPENAME(EN_ENO_PARAMS, TYPENAME IN, USINT N){\ TEST_EN(TYPENAME)\ N %= 8*sizeof(TYPENAME);\ - return (IN >> N) | (IN << 8*sizeof(TYPENAME)-N);\ + return (IN >> N) | (IN << (8*sizeof(TYPENAME)-N));\ } /* Call previously defined macro for each ANY_NBIT */ ANY_NBIT(__ror_) @@ -951,7 +963,7 @@ static inline TYPENAME __rol_##TYPENAME(EN_ENO_PARAMS, TYPENAME IN, USINT N){\ TEST_EN(TYPENAME)\ N %= 8*sizeof(TYPENAME);\ - return (IN << N) | (IN >> 8*sizeof(TYPENAME)-N);\ + return (IN << N) | (IN >> (8*sizeof(TYPENAME)-N));\ } /* Call previously defined macro for each ANY_NBIT */ ANY_NBIT(__rol_) @@ -995,13 +1007,13 @@ /**************/ /* LN */ /**************/ -#define __ln_(TYPENAME) __numeric(__ln_, TYPENAME, ln) +#define __ln_(TYPENAME) __numeric(__ln_, TYPENAME, log) ANY_REAL(__ln_) /**************/ /* LOG */ /**************/ -#define __log_(TYPENAME) __numeric(__log_, TYPENAME, log) +#define __log_(TYPENAME) __numeric(__log_, TYPENAME, log10) ANY_REAL(__log_) /**************/ @@ -1107,9 +1119,9 @@ #define __extrem_(fname,TYPENAME, COND) \ static inline TYPENAME fname##TYPENAME(EN_ENO_PARAMS, UINT param_count, TYPENAME op1, ...){\ - TEST_EN(TYPENAME)\ va_list ap;\ UINT i;\ + TEST_EN(TYPENAME)\ \ va_start (ap, op1); /* Initialize the argument list. */\ \ @@ -1153,10 +1165,11 @@ /**************/ #define __mux_(TYPENAME) \ static inline TYPENAME __mux_##TYPENAME(EN_ENO_PARAMS, UINT param_count, UINT K, ...){\ - TEST_EN_COND(TYPENAME, K >= param_count)\ va_list ap;\ UINT i;\ - TYPENAME tmp = __INIT_##TYPENAME;\ + TYPENAME tmp;\ + TEST_EN_COND(TYPENAME, K >= param_count)\ + tmp = __INIT_##TYPENAME;\ \ va_start (ap, K); /* Initialize the argument list. */\ \ @@ -1182,9 +1195,9 @@ #define __compare_(fname,TYPENAME, COND) \ static inline BOOL fname##TYPENAME(EN_ENO_PARAMS, UINT param_count, TYPENAME op1, ...){\ - TEST_EN(BOOL)\ va_list ap;\ UINT i;\ + TEST_EN(BOOL)\ \ va_start (ap, op1); /* Initialize the argument list. */\ DBG(#fname #TYPENAME "\n")\ @@ -1295,32 +1308,32 @@ __compare_string(__ne_, != ) -///* Get string representation of variable referenced by a void pointer -// * where type is given as its number */ -//#define __decl_str_case(cat,TYPENAME) \ -// case TYPENAME##_ENUM:\ -// return __##cat##_to_string(*(TYPENAME*)p); -//#define __decl_str_case_bit(TYPENAME) __decl_str_case(bit,TYPENAME) -//#define __decl_str_case_real(TYPENAME) __decl_str_case(real,TYPENAME) -//#define __decl_str_case_sint(TYPENAME) __decl_str_case(sint,TYPENAME) -//#define __decl_str_case_uint(TYPENAME) __decl_str_case(uint,TYPENAME) -//static inline STRING __get_type_enum_str(__IEC_types_enum t, void* p){ -// switch(t){ -// __decl_str_case(bool,BOOL) -// ANY_NBIT(__decl_str_case_bit) -// ANY_REAL(__decl_str_case_real) -// ANY_SINT(__decl_str_case_sint) -// ANY_UINT(__decl_str_case_uint) -// __decl_str_case(time,TIME) -// __decl_str_case(date,DATE) -// __decl_str_case(tod,TOD) -// __decl_str_case(dt, DT) -// } -//} -// - - - - - - +/* Get string representation of variable referenced by a void pointer + * where type is given as its number */ +/*#define __decl_str_case(cat,TYPENAME) \ + case TYPENAME##_ENUM:\ + return __##cat##_to_string(*(TYPENAME*)p); +#define __decl_str_case_bit(TYPENAME) __decl_str_case(bit,TYPENAME) +#define __decl_str_case_real(TYPENAME) __decl_str_case(real,TYPENAME) +#define __decl_str_case_sint(TYPENAME) __decl_str_case(sint,TYPENAME) +#define __decl_str_case_uint(TYPENAME) __decl_str_case(uint,TYPENAME) +static inline STRING __get_type_enum_str(__IEC_types_enum t, void* p){ + switch(t){ + __decl_str_case(bool,BOOL) + ANY_NBIT(__decl_str_case_bit) + ANY_REAL(__decl_str_case_real) + ANY_SINT(__decl_str_case_sint) + ANY_UINT(__decl_str_case_uint) + __decl_str_case(time,TIME) + __decl_str_case(date,DATE) + __decl_str_case(tod,TOD) + __decl_str_case(dt, DT) + } +} +*/ + + + + + + diff -r 90782e241346 -r d7d92b2f87e9 lib/iec_types.h --- a/lib/iec_types.h Wed Mar 30 19:53:32 2011 +0100 +++ b/lib/iec_types.h Thu Mar 31 10:45:34 2011 +0100 @@ -31,7 +31,7 @@ typedef double IEC_LREAL; -#if !defined __timespec_defined +#if !defined __timespec_defined && !defined __time_t_defined # define __timespec_defined 1 struct timespec diff -r 90782e241346 -r d7d92b2f87e9 lib/iec_types_all.h --- a/lib/iec_types_all.h Wed Mar 30 19:53:32 2011 +0100 +++ b/lib/iec_types_all.h Thu Mar 31 10:45:34 2011 +0100 @@ -10,40 +10,58 @@ /* Include non windows.h clashing typedefs */ #include "iec_types.h" -/* Those typdefs clash with windows.h */ -/* i.e. this file cannot be included aside windows.h */ -typedef IEC_BOOL BOOL; - #define TRUE 1 #define FALSE 0 -typedef IEC_SINT SINT; -typedef IEC_INT INT; -typedef IEC_DINT DINT; -typedef IEC_LINT LINT; +#define __IEC_DEBUG_FLAG 0x01 +#define __IEC_FORCE_FLAG 0x02 +#define __IEC_RETAIN_FLAG 0x04 -typedef IEC_USINT USINT; -typedef IEC_UINT UINT; -typedef IEC_UDINT UDINT; -typedef IEC_ULINT ULINT; +#define __DECLARE_IEC_TYPE(type)\ +typedef IEC_##type type;\ +\ +typedef struct {\ + IEC_##type value;\ + IEC_BYTE flags;\ +} __IEC_##type##_t;\ +\ +typedef struct {\ + IEC_##type *value;\ + IEC_BYTE flags;\ + IEC_##type fvalue;\ +} __IEC_##type##_p; -typedef IEC_BYTE BYTE; -typedef IEC_WORD WORD; -typedef IEC_DWORD DWORD; -typedef IEC_LWORD LWORD; +#define __DECLARE_DERIVED_TYPE(base, type)\ +typedef base type;\ +typedef __IEC_##base##_t __IEC_##type##_t; -typedef IEC_REAL REAL; -typedef IEC_LREAL LREAL; +#define __DECLARE_COMPLEX_STRUCT(type)\ +typedef struct {\ + type value;\ + IEC_BYTE flags;\ +} __IEC_##type##_t;\ +\ +typedef struct {\ + type *value;\ + IEC_BYTE flags;\ +} __IEC_##type##_p; -typedef IEC_TIME TIME; -typedef IEC_DATE DATE; -typedef IEC_DT DT; -typedef IEC_TOD TOD; +#define __DECLARE_ARRAY_TYPE(base, type, size)\ +typedef struct {\ + base table size;\ +} type;\ +__DECLARE_COMPLEX_STRUCT(type); -typedef IEC_STRING STRING; +#define __DECLARE_STRUCT_TYPE(elements, type)\ +typedef elements type;\ +__DECLARE_COMPLEX_STRUCT(type); + +/* Those typdefs clash with windows.h */ +/* i.e. this file cannot be included aside windows.h */ +ANY(__DECLARE_IEC_TYPE) typedef struct { - BOOL state; // current step state. 0 : inative, 1: active + __IEC_BOOL_t state; // current step state. 0 : inative, 1: active BOOL prev_state; // previous step state. 0 : inative, 1: active TIME elapsed_time; // time since step is active } STEP; @@ -62,36 +80,31 @@ /* Enumerate native types */ #define __decl_enum_type(TYPENAME) TYPENAME##_ENUM, +#define __decl_enum_pointer(TYPENAME) TYPENAME##_P_ENUM, +#define __decl_enum_output(TYPENAME) TYPENAME##_O_ENUM, typedef enum{ ANY(__decl_enum_type) - ANY_SFC(__decl_enum_type) - /*TODO handle custom types*/ + ANY(__decl_enum_pointer) + ANY(__decl_enum_output) + /* SFC specific types are never external or global */ + UNKNOWN_ENUM } __IEC_types_enum; /* Get size of type from its number */ -#define __decl_size_case(TYPENAME) case TYPENAME##_ENUM: return sizeof(TYPENAME); -#define __decl_size_case_force_BOOL(TYPENAME) case TYPENAME##_ENUM: return sizeof(BOOL); +#define __decl_size_case(TYPENAME) \ + case TYPENAME##_ENUM:\ + case TYPENAME##_O_ENUM:\ + case TYPENAME##_P_ENUM:\ + return sizeof(TYPENAME); static inline USINT __get_type_enum_size(__IEC_types_enum t){ switch(t){ ANY(__decl_size_case) /* size do not correspond to real struct. * only a bool is used to represent state*/ - ANY_SFC(__decl_size_case_force_BOOL) - /*TODO handle custom types*/ + default: + return 0; } + return 0; } -/* Get name of type from its number */ -#define __decl_typename_case(TYPENAME) case TYPENAME##_ENUM: return #TYPENAME ; -static inline const char* __get_type_enum_name(__IEC_types_enum t){ - switch(t){ - ANY(__decl_typename_case) - /* size do not correspond to real struct. - * only a bool is used to represent state*/ - ANY_SFC(__decl_typename_case) - /*TODO handle custom types*/ - } -} - - #endif /*IEC_TYPES_ALL_H*/ diff -r 90782e241346 -r d7d92b2f87e9 lib/ieclib.txt --- a/lib/ieclib.txt Wed Mar 30 19:53:32 2011 +0100 +++ b/lib/ieclib.txt Thu Mar 31 10:45:34 2011 +0100 @@ -36,3 +36,4 @@ {#include "integral_st.txt" } {#include "pid_st.txt" } {#include "ramp_st.txt" } +{#include "sema.txt" } diff -r 90782e241346 -r d7d92b2f87e9 lib/sema.txt --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lib/sema.txt Thu Mar 31 10:45:34 2011 +0100 @@ -0,0 +1,25 @@ +(* + * (c) 2011 Edouard Tisserant + * + * Fake semaphore support, for non preemptive implementation. + * + *) + + +FUNCTION_BLOCK SEMA + VAR_INPUT + CLAIM : BOOL; + RELEASE : BOOL; + END_VAR + VAR_OUTPUT + BUSY : BOOL; + END_VAR + VAR + Q_INTERNAL : BOOL; + END_VAR + + Q_INTERNAL := CLAIM OR ( Q_INTERNAL AND (NOT RELEASE)); + BUSY := Q_INTERNAL; + +END_FUNCTION_BLOCK + diff -r 90782e241346 -r d7d92b2f87e9 lib/timer.txt --- a/lib/timer.txt Wed Mar 30 19:53:32 2011 +0100 +++ b/lib/timer.txt Thu Mar 31 10:45:34 2011 +0100 @@ -80,7 +80,7 @@ CURRENT_TIME, START_TIME : TIME; END_VAR - {data__->CURRENT_TIME = __CURRENT_TIME;} + {__SET_VAR(data__->CURRENT_TIME,__CURRENT_TIME)} IF ((STATE = 0) AND NOT(PREV_IN) AND IN) (* found rising edge on IN *) THEN @@ -161,7 +161,7 @@ CURRENT_TIME, START_TIME : TIME; END_VAR - {data__->CURRENT_TIME = __CURRENT_TIME;} + {__SET_VAR(data__->CURRENT_TIME,__CURRENT_TIME)} IF ((STATE = 0) AND NOT(PREV_IN) AND IN) (* found rising edge on IN *) THEN @@ -245,7 +245,7 @@ CURRENT_TIME, START_TIME : TIME; END_VAR - {data__->CURRENT_TIME = __CURRENT_TIME;} + {__SET_VAR(data__->CURRENT_TIME,__CURRENT_TIME)} IF ((STATE = 0) AND PREV_IN AND NOT(IN)) (* found falling edge on IN *) THEN diff -r 90782e241346 -r d7d92b2f87e9 setup.py --- a/setup.py Wed Mar 30 19:53:32 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,39 +0,0 @@ -import os,sys -from distutils.core import setup - -install_dir=os.path.join("LOLITech","matiec") - -data_files=[] -os.getcwd() -os.chdir(os.getcwd()) - -def generate(base_dir): - listfile=[] - if base_dir == "": - directory = "." - else: - directory = base_dir - data_files.append((os.path.join(install_dir, base_dir), listfile)) - - for element in os.listdir(directory): - element_path=os.path.join(base_dir, element) - if os.path.isdir(element_path): - basename_element=os.path.basename(element_path) - if basename_element == "lib": - generate(element_path) - elif os.path.isfile(element_path): - ext_element=os.path.splitext(element) - if ext_element[1] == ".exe" or ext_element[1] == ".h" or ext_element[1] == ".txt" or ext_element[1] == ".c": - listfile.append(element_path) - -generate("") - -setup(name='MatIEC', - version='0.1', - description='IEC to C Compiler', - author='Mario de Sousa, Edouard Tisserant, Laurent Bessard', - author_email='edouard.tisserant@lolitech.fr,laurent.bessard@lolitech.fr,gregory.trelat@lolitech.fr', - url='http://www.beremiz.org', - license='GPL', - data_files=data_files, # Add files to install -) \ No newline at end of file diff -r 90782e241346 -r d7d92b2f87e9 stage1_2/Makefile --- a/stage1_2/Makefile Wed Mar 30 19:53:32 2011 +0100 +++ b/stage1_2/Makefile Thu Mar 31 10:45:34 2011 +0100 @@ -8,12 +8,14 @@ all: iec.flex.o iec.y.o stage1_2.o clean: + echo > Makefile.depend -rm -f iec.flex.c iec.y.cc iec.y.hh iec.y.output -rm -f iec.noerrorcheck.y -rm -f test_flex -rm -f stage1_2.o -rm -f iec.y.o -rm -f iec.flex.o + -rm -f Makefile.depend CFLAGS += -I. -I../* -I../../absyntax @@ -21,7 +23,8 @@ iec.flex.c: iec.flex flex -oiec.flex.c iec.flex -stage1_2.o: stage1_2.cc iec.y.hh +stage1_2.cc: iec.y.hh +stage1_2.o: stage1_2.cc iec.flex.o: iec.y.hh iec.flex.c $(CXX) -c iec.flex.c -D DEFAULT_LIBDIR='"$(IECLIBDIR)"' $(CFLAGS) @@ -43,3 +46,11 @@ ../% /%: $(MAKE) -C $(@D) $(@F) + +Makefile.depend depend: + $(CXX) -MM -MG -I. *.cc \ + | sed 's/:/ Makefile.depend:/' > Makefile.depend + +include Makefile.depend + + diff -r 90782e241346 -r d7d92b2f87e9 stage1_2/iec.y --- a/stage1_2/iec.y Wed Mar 30 19:53:32 2011 +0100 +++ b/stage1_2/iec.y Thu Mar 31 10:45:34 2011 +0100 @@ -3629,9 +3629,9 @@ */ {$$ = new eno_param_declaration_c($1, new bool_type_name_c(locloc(@$)), new explicit_definition_c(), locloc(@$));} /* ERROR_CHECK_BEGIN */ -| en_identifier BOOL +| eno_identifier BOOL {$$ = NULL; print_err_msg(locl(@1), locf(@2), "':' missing between variable list and specification in ENO declaration."); yynerrs++;} -| en_identifier ':' error +| eno_identifier ':' error {$$ = NULL; if (is_current_syntax_token()) {print_err_msg(locl(@2), locf(@3), "no specification defined in ENO declaration.");} else {print_err_msg(locf(@3), locl(@3), "invalid specification in ENO declaration."); yyclearin;} @@ -6683,6 +6683,22 @@ {$$ = new il_assign_operator_c($1, locloc(@$));} | en_identifier ASSIGN {$$ = new il_assign_operator_c($1, locloc(@$));} +| S1_operator ASSIGN + {$$ = new il_assign_operator_c(il_operator_c_2_identifier_c($1), locloc(@$));} +| R1_operator ASSIGN + {$$ = new il_assign_operator_c(il_operator_c_2_identifier_c($1), locloc(@$));} +| CLK_operator ASSIGN + {$$ = new il_assign_operator_c(il_operator_c_2_identifier_c($1), locloc(@$));} +| CU_operator ASSIGN + {$$ = new il_assign_operator_c(il_operator_c_2_identifier_c($1), locloc(@$));} +| CD_operator ASSIGN + {$$ = new il_assign_operator_c(il_operator_c_2_identifier_c($1), locloc(@$));} +| PV_operator ASSIGN + {$$ = new il_assign_operator_c(il_operator_c_2_identifier_c($1), locloc(@$));} +| IN_operator ASSIGN + {$$ = new il_assign_operator_c(il_operator_c_2_identifier_c($1), locloc(@$));} +| PT_operator ASSIGN + {$$ = new il_assign_operator_c(il_operator_c_2_identifier_c($1), locloc(@$));} /* ERROR_CHECK_BEGIN */ | error ASSIGN {$$ = NULL; print_err_msg(locf(@1), locl(@1), "invalid parameter defined in parameter assignment."); yyerrok;} diff -r 90782e241346 -r d7d92b2f87e9 stage3/Makefile --- a/stage3/Makefile Wed Mar 30 19:53:32 2011 +0100 +++ b/stage3/Makefile Thu Mar 31 10:45:34 2011 +0100 @@ -22,7 +22,7 @@ Makefile.depend depend: - $(CXX) -MM -MG -I. *.cc > Makefile.depend - #| perl -pe 's/:/ Makefile.depend:/' > Makefile.depend + $(CXX) -MM -MG -I. *.cc \ + | sed 's/:/ Makefile.depend:/' > Makefile.depend -include Makefile.depend \ No newline at end of file +include Makefile.depend diff -r 90782e241346 -r d7d92b2f87e9 stage3/visit_expression_type.cc --- a/stage3/visit_expression_type.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/stage3/visit_expression_type.cc Thu Mar 31 10:45:34 2011 +0100 @@ -50,10 +50,10 @@ (symbol1)) #define STAGE3_ERROR(symbol1, symbol2, msg) { \ - printf("semantic error between (%d:%d) and (%d:%d): %s\n", \ + /*printf("semantic error between (%d:%d) and (%d:%d): %s\n", \ FIRST_(symbol1,symbol2)->first_line, FIRST_(symbol1,symbol2)->first_column, \ LAST_(symbol1,symbol2) ->last_line, LAST_(symbol1,symbol2) ->last_column, \ - msg); \ + msg);*/ \ il_error = true; \ } @@ -64,7 +64,7 @@ void *visit_expression_type_c::visit(program_declaration_c *symbol) { search_varfb_instance_type = new search_varfb_instance_type_c(symbol); symbol->var_declarations->accept(*this); - printf("checking semantics in body of program %s\n", ((token_c *)(symbol->program_type_name))->value); + //printf("checking semantics in body of program %s\n", ((token_c *)(symbol->program_type_name))->value); il_parenthesis_level = 0; il_error = false; il_default_variable_type = NULL; @@ -78,7 +78,7 @@ void *visit_expression_type_c::visit(function_declaration_c *symbol) { search_varfb_instance_type = new search_varfb_instance_type_c(symbol); symbol->var_declarations_list->accept(*this); - printf("checking semantics in body of function %s\n", ((token_c *)(symbol->derived_function_name))->value); + //printf("checking semantics in body of function %s\n", ((token_c *)(symbol->derived_function_name))->value); il_parenthesis_level = 0; il_error = false; il_default_variable_type = NULL; @@ -92,7 +92,7 @@ void *visit_expression_type_c::visit(function_block_declaration_c *symbol) { search_varfb_instance_type = new search_varfb_instance_type_c(symbol); symbol->var_declarations->accept(*this); - printf("checking semantics in body of FB %s\n", ((token_c *)(symbol->fblock_name))->value); + //printf("checking semantics in body of FB %s\n", ((token_c *)(symbol->fblock_name))->value); il_parenthesis_level = 0; il_error = false; il_default_variable_type = NULL; diff -r 90782e241346 -r d7d92b2f87e9 stage4/Makefile --- a/stage4/Makefile Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/Makefile Thu Mar 31 10:45:34 2011 +0100 @@ -19,3 +19,8 @@ ../% /% absyntax/% stage1_2/% stage3/% stage4/% util/%: $(MAKE) -C $(@D) $(@F) +Makefile.depend depend: + $(CXX) -MM -MG -I. *.cc \ + | sed 's/:/ Makefile.depend:/' > Makefile.depend + +include Makefile.depend diff -r 90782e241346 -r d7d92b2f87e9 stage4/generate_c/Makefile --- a/stage4/generate_c/Makefile Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/generate_c/Makefile Thu Mar 31 10:45:34 2011 +0100 @@ -23,10 +23,6 @@ Makefile.depend depend: $(CXX) -MM -MG -I. *.cc \ - | perl -pe 's/:/ Makefile.depend:/' > Makefile.depend + | sed 's/:/ Makefile.depend:/' > Makefile.depend include Makefile.depend - - - - diff -r 90782e241346 -r d7d92b2f87e9 stage4/generate_c/generate_c.cc --- a/stage4/generate_c/generate_c.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/generate_c/generate_c.cc Thu Mar 31 10:45:34 2011 +0100 @@ -122,23 +122,38 @@ #define SFC_STEP_ACTION_PREFIX "__SFC_" -/***********************************************************************/ -/***********************************************************************/ -/***********************************************************************/ -/***********************************************************************/ - -#include "generate_c_base.cc" -#include "generate_c_typedecl.cc" -#include "generate_c_sfcdecl.cc" -#include "generate_c_vardecl.cc" -#include "generate_c_configbody.cc" -#include "generate_location_list.cc" -#include "generate_var_list.cc" - -/***********************************************************************/ -/***********************************************************************/ -/***********************************************************************/ -/***********************************************************************/ + +/* Variable declaration symbol for accessor macros */ +#define DECLARE_VAR "__DECLARE_VAR" +#define DECLARE_GLOBAL "__DECLARE_GLOBAL" +#define DECLARE_GLOBAL_LOCATION "__DECLARE_GLOBAL_LOCATION" +#define DECLARE_GLOBAL_LOCATED "__DECLARE_GLOBAL_LOCATED" +#define DECLARE_EXTERNAL "__DECLARE_EXTERNAL" +#define DECLARE_LOCATED "__DECLARE_LOCATED" + +/* Variable declaration symbol for accessor macros */ +#define INIT_VAR "__INIT_VAR" +#define INIT_GLOBAL "__INIT_GLOBAL" +#define INIT_GLOBAL_LOCATED "__INIT_GLOBAL_LOCATED" +#define INIT_EXTERNAL "__INIT_EXTERNAL" +#define INIT_LOCATED "__INIT_LOCATED" +#define INIT_LOCATED_VALUE "__INIT_LOCATED_VALUE" + + +/* Variable getter symbol for accessor macros */ +#define GET_VAR "__GET_VAR" +#define GET_EXTERNAL "__GET_EXTERNAL" +#define GET_LOCATED "__GET_LOCATED" +#define GET_VAR_BY_REF "__GET_VAR_BY_REF" +#define GET_EXTERNAL_BY_REF "__GET_EXTERNAL_BY_REF" +#define GET_LOCATED_BY_REF "__GET_LOCATED_BY_REF" + +/* Variable setter symbol for accessor macros */ +#define SET_VAR "__SET_VAR" +#define SET_EXTERNAL "__SET_EXTERNAL" +#define SET_COMPLEX_EXTERNAL "__SET_COMPLEX_EXTERNAL" +#define SET_LOCATED "__SET_LOCATED" + /* Generate a name for a temporary variable. * Each new name generated is appended a different number, @@ -149,8 +164,27 @@ #define TEMP_VAR VAR_LEADER "TMP_" #define SOURCE_VAR VAR_LEADER "SRC_" +/***********************************************************************/ +/***********************************************************************/ +/***********************************************************************/ +/***********************************************************************/ + +#include "generate_c_base.cc" +#include "generate_c_typedecl.cc" +#include "generate_c_sfcdecl.cc" +#include "generate_c_vardecl.cc" +#include "generate_c_configbody.cc" +#include "generate_location_list.cc" +#include "generate_var_list.cc" + +/***********************************************************************/ +/***********************************************************************/ +/***********************************************************************/ +/***********************************************************************/ + #include "generate_c_st.cc" #include "generate_c_il.cc" +#include "generate_c_inlinefcall.cc" #include "generate_c.hh" @@ -165,13 +199,13 @@ /* A helper class that knows how to generate code for both the IL and ST languages... */ class calculate_time_c: public iterator_visitor_c { private: - unsigned long time; + unsigned long long time; float current_value; public: calculate_time_c(void){time = 0;}; - unsigned long get_time(void) {return time;}; + unsigned long long get_time(void) {return time;}; void *get_integer_value(token_c *token) { std::string str = ""; @@ -213,7 +247,7 @@ if (symbol->hours) symbol->hours->accept(*this); symbol->days->accept(*this); - time += (unsigned long)(current_value * 24 * 3600 * SECOND); + time += (unsigned long long)(current_value * 24 * 3600 * SECOND); return NULL; } @@ -222,7 +256,7 @@ if (symbol->minutes) symbol->minutes->accept(*this); symbol->hours->accept(*this); - time += (unsigned long)(current_value * 3600 * SECOND); + time += (unsigned long long)(current_value * 3600 * SECOND); return NULL; } @@ -231,7 +265,7 @@ if (symbol->seconds) symbol->seconds->accept(*this); symbol->minutes->accept(*this); - time += (unsigned long)(current_value * 60 * SECOND); + time += (unsigned long long)(current_value * 60 * SECOND); return NULL; } @@ -240,14 +274,14 @@ if (symbol->milliseconds) symbol->milliseconds->accept(*this); symbol->seconds->accept(*this); - time += (unsigned long)(current_value * SECOND); + time += (unsigned long long)(current_value * SECOND); return NULL; } /* SYM_REF2(milliseconds_c, milliseconds, unused) */ void *visit(milliseconds_c *symbol) { symbol->milliseconds->accept(*this); - time += (unsigned long)(current_value * MILLISECOND); + time += (unsigned long long)(current_value * MILLISECOND); return NULL; } }; @@ -259,37 +293,52 @@ class calculate_common_ticktime_c: public iterator_visitor_c { private: - unsigned long common_ticktime; + unsigned long long common_ticktime; + unsigned long long least_common_ticktime; public: - calculate_common_ticktime_c(void){common_ticktime = 0;} - - unsigned long euclide(unsigned long a, unsigned long b) { - unsigned long c = a % b; + calculate_common_ticktime_c(void){ + common_ticktime = 0; + least_common_ticktime = 0; + } + + unsigned long long euclide(unsigned long long a, unsigned long long b) { + unsigned long long c = a % b; if (c == 0) return b; else return euclide(b, c); } - void update_ticktime(unsigned long time) { + void update_ticktime(unsigned long long time) { if (common_ticktime == 0) common_ticktime = time; else if (time > common_ticktime) common_ticktime = euclide(time, common_ticktime); else common_ticktime = euclide(common_ticktime, time); - } - - unsigned long get_ticktime(void) { + if (least_common_ticktime == 0) + least_common_ticktime = time; + else + least_common_ticktime = (least_common_ticktime * time) / common_ticktime; + } + + unsigned long long get_common_ticktime(void) { return common_ticktime; } + unsigned long get_greatest_tick_count(void) { + unsigned long long least_common_tick = least_common_ticktime / common_ticktime; + if (least_common_tick >> 32) + ERROR; + return (unsigned long)(~(((unsigned long)-1) % (unsigned long)least_common_tick) + 1); + } + /* TASK task_name task_initialization */ //SYM_REF2(task_configuration_c, task_name, task_initialization) void *visit(task_initialization_c *symbol) { calculate_time_c calculate_time; - unsigned long time = 0; + unsigned long long time = 0; if (symbol->interval_data_source != NULL) { symbol->interval_data_source->accept(calculate_time); time = calculate_time.get_time(); @@ -305,15 +354,16 @@ /***********************************************************************/ /***********************************************************************/ -/* A helper class that knows how to generate code for both the IL and ST languages... */ +/* A helper class that knows how to generate code for the SFC, IL and ST languages... */ class generate_c_SFC_IL_ST_c: public null_visitor_c { private: stage4out_c *s4o_ptr; symbol_c *scope; + symbol_c *fbname; const char *variable_prefix; public: - generate_c_SFC_IL_ST_c(stage4out_c *s4o_ptr, symbol_c *scope, const char *variable_prefix = NULL); + generate_c_SFC_IL_ST_c(stage4out_c *s4o_ptr, symbol_c *name, symbol_c *scope, const char *variable_prefix = NULL); /*********************************************/ /* B.1.6 Sequential function chart elements */ /*********************************************/ @@ -351,27 +401,28 @@ #include "generate_c_sfc.cc" -generate_c_SFC_IL_ST_c::generate_c_SFC_IL_ST_c(stage4out_c *s4o_ptr, symbol_c *scope, const char *variable_prefix) { +generate_c_SFC_IL_ST_c::generate_c_SFC_IL_ST_c(stage4out_c *s4o_ptr, symbol_c *name, symbol_c *scope, const char *variable_prefix) { if (NULL == scope) ERROR; this->s4o_ptr = s4o_ptr; this->scope = scope; + this->fbname = name; this->variable_prefix = variable_prefix; } void *generate_c_SFC_IL_ST_c::visit(sequential_function_chart_c * symbol) { - generate_c_sfc_c generate_c_sfc(s4o_ptr, scope, variable_prefix); + generate_c_sfc_c generate_c_sfc(s4o_ptr, fbname, scope, variable_prefix); generate_c_sfc.generate(symbol); return NULL; } void *generate_c_SFC_IL_ST_c::visit(instruction_list_c *symbol) { - generate_c_il_c generate_c_il(s4o_ptr, scope, variable_prefix); + generate_c_il_c generate_c_il(s4o_ptr, fbname, scope, variable_prefix); generate_c_il.generate(symbol); return NULL; } void *generate_c_SFC_IL_ST_c::visit(statement_list_c *symbol) { - generate_c_st_c generate_c_st(s4o_ptr, scope, variable_prefix); + generate_c_st_c generate_c_st(s4o_ptr, fbname, scope, variable_prefix); generate_c_st.generate(symbol); return NULL; } @@ -552,7 +603,7 @@ s4o.print(s4o.indent_spaces + "}\n"); /* (C) Function body */ - generate_c_SFC_IL_ST_c generate_c_code(&s4o, symbol); + generate_c_SFC_IL_ST_c generate_c_code(&s4o, symbol->derived_function_name, symbol); symbol->function_body->accept(generate_c_code); vardecl = new generate_c_vardecl_c(&s4o, @@ -588,6 +639,7 @@ generate_c_vardecl_c *vardecl; generate_c_sfcdecl_c *sfcdecl; generate_c_typedecl_c *typedecl; + generate_c_inlinefcall_c *inlinedecl; TRACE("function_block_declaration_c"); /* (A) Function Block data structure declaration... */ @@ -622,11 +674,11 @@ delete vardecl; /* (A.4) Generate private internal variables for SFC */ - sfcdecl = new generate_c_sfcdecl_c(&s4o_incl, generate_c_sfcdecl_c::sfcdecl_sd); - sfcdecl->print(symbol->fblock_body); + sfcdecl = new generate_c_sfcdecl_c(&s4o_incl, symbol); + sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::sfcdecl_sd); delete sfcdecl; s4o_incl.print("\n"); - + /* (A.5) Function Block data structure type name. */ s4o_incl.indent_left(); s4o_incl.print("} "); @@ -634,6 +686,11 @@ s4o_incl.print(";\n\n"); delete typedecl; + /* (A.6) Function Block inline function declaration for function invocation */ + inlinedecl = new generate_c_inlinefcall_c(&s4o, symbol->fblock_name, symbol, FB_FUNCTION_PARAM"->"); + inlinedecl->print(symbol->fblock_body); + delete inlinedecl; + /* (B) Constructor */ /* (B.1) Constructor name... */ s4o.print(s4o.indent_spaces + "void "); @@ -645,7 +702,7 @@ symbol->fblock_name->accept(*this); s4o.print(" *"); s4o.print(FB_FUNCTION_PARAM); - s4o.print(") {\n"); + s4o.print(", BOOL retain) {\n"); s4o.indent_right(); /* (B.2) Member initializations... */ @@ -663,25 +720,23 @@ vardecl->print(symbol->var_declarations, NULL, FB_FUNCTION_PARAM"->"); delete vardecl; s4o.print("\n"); + + sfcdecl = new generate_c_sfcdecl_c(&s4o, symbol, FB_FUNCTION_PARAM"->"); + /* (B.3) Generate private internal variables for SFC */ - sfcdecl = new generate_c_sfcdecl_c(&s4o, generate_c_sfcdecl_c::sfcinit_sd); - sfcdecl->print(symbol->fblock_body, FB_FUNCTION_PARAM"->"); - delete sfcdecl; + sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::sfcinit_sd); + s4o.indent_left(); s4o.print(s4o.indent_spaces + "}\n\n"); /* (C) Function with FB body */ /* (C.1) Step definitions */ - sfcdecl = new generate_c_sfcdecl_c(&s4o, generate_c_sfcdecl_c::stepdef_sd); - sfcdecl->print(symbol->fblock_body); - delete sfcdecl; + sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::stepdef_sd); /* (C.2) Action definitions */ - sfcdecl = new generate_c_sfcdecl_c(&s4o, generate_c_sfcdecl_c::actiondef_sd); - sfcdecl->print(symbol->fblock_body); - delete sfcdecl; - + sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::actiondef_sd); + /* (C.3) Function declaration */ s4o.print("// Code part\n"); /* function interface */ @@ -698,20 +753,26 @@ s4o.print(s4o.indent_spaces + "// Control execution\n"); s4o.print(s4o.indent_spaces + "if (!"); + s4o.print(GET_VAR); + s4o.print("("); s4o.print(FB_FUNCTION_PARAM); - s4o.print("->EN) {\n"); + s4o.print("->EN)) {\n"); s4o.indent_right(); s4o.print(s4o.indent_spaces); + s4o.print(SET_VAR); + s4o.print("("); s4o.print(FB_FUNCTION_PARAM); - s4o.print("->ENO = __BOOL_LITERAL(FALSE);\n"); + s4o.print("->ENO,__BOOL_LITERAL(FALSE));\n"); s4o.print(s4o.indent_spaces + "return;\n"); s4o.indent_left(); s4o.print(s4o.indent_spaces + "}\n"); s4o.print(s4o.indent_spaces + "else {\n"); s4o.indent_right(); s4o.print(s4o.indent_spaces); + s4o.print(SET_VAR); + s4o.print("("); s4o.print(FB_FUNCTION_PARAM); - s4o.print("->ENO = __BOOL_LITERAL(TRUE);\n"); + s4o.print("->ENO,__BOOL_LITERAL(TRUE));\n"); s4o.indent_left(); s4o.print(s4o.indent_spaces + "}\n"); @@ -726,7 +787,7 @@ s4o.print("\n"); /* (C.5) Function code */ - generate_c_SFC_IL_ST_c generate_c_code(&s4o, symbol, FB_FUNCTION_PARAM"->"); + generate_c_SFC_IL_ST_c generate_c_code(&s4o, symbol->fblock_name, symbol, FB_FUNCTION_PARAM"->"); symbol->fblock_body->accept(generate_c_code); s4o.indent_left(); s4o.print(s4o.indent_spaces + "} // "); @@ -735,13 +796,11 @@ s4o.print(s4o.indent_spaces + "() \n\n"); /* (C.6) Step undefinitions */ - sfcdecl = new generate_c_sfcdecl_c(&s4o, generate_c_sfcdecl_c::stepundef_sd); - sfcdecl->print(symbol->fblock_body); - delete sfcdecl; - + sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::stepundef_sd); + /* (C.7) Action undefinitions */ - sfcdecl = new generate_c_sfcdecl_c(&s4o, generate_c_sfcdecl_c::actionundef_sd); - sfcdecl->print(symbol->fblock_body); + sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::actionundef_sd); + delete sfcdecl; s4o.indent_left(); @@ -769,6 +828,7 @@ generate_c_vardecl_c *vardecl; generate_c_sfcdecl_c *sfcdecl; generate_c_typedecl_c *typedecl; + generate_c_inlinefcall_c *inlinedecl; TRACE("program_declaration_c"); /* (A) Program data structure declaration... */ @@ -800,10 +860,12 @@ generate_c_vardecl_c::external_vt); vardecl->print(symbol->var_declarations); delete vardecl; + /* (A.4) Generate private internal variables for SFC */ - sfcdecl = new generate_c_sfcdecl_c(&s4o_incl, generate_c_sfcdecl_c::sfcdecl_sd); - sfcdecl->print(symbol->function_block_body); + sfcdecl = new generate_c_sfcdecl_c(&s4o_incl, symbol); + sfcdecl->generate(symbol->function_block_body, generate_c_sfcdecl_c::sfcdecl_sd); delete sfcdecl; + s4o_incl.print("\n"); /* (A.5) Program data structure type name. */ s4o_incl.indent_left(); @@ -812,6 +874,11 @@ s4o_incl.print(";\n\n"); delete typedecl; + /* (A.6) Function Block inline function declaration for function invocation */ + inlinedecl = new generate_c_inlinefcall_c(&s4o, symbol->program_type_name, symbol, FB_FUNCTION_PARAM"->"); + inlinedecl->print(symbol->function_block_body); + delete inlinedecl; + /* (B) Constructor */ /* (B.1) Constructor name... */ s4o.print(s4o.indent_spaces + "void "); @@ -823,7 +890,7 @@ symbol->program_type_name->accept(*this); s4o.print(" *"); s4o.print(FB_FUNCTION_PARAM); - s4o.print(") {\n"); + s4o.print(", BOOL retain) {\n"); s4o.indent_right(); /* (B.2) Member initializations... */ @@ -839,24 +906,21 @@ vardecl->print(symbol->var_declarations, NULL, FB_FUNCTION_PARAM"->"); delete vardecl; s4o.print("\n"); + + sfcdecl = new generate_c_sfcdecl_c(&s4o, symbol, FB_FUNCTION_PARAM"->"); + /* (B.3) Generate private internal variables for SFC */ - sfcdecl = new generate_c_sfcdecl_c(&s4o, generate_c_sfcdecl_c::sfcinit_sd); - sfcdecl->print(symbol->function_block_body,FB_FUNCTION_PARAM"->"); - delete sfcdecl; + sfcdecl->generate(symbol->function_block_body, generate_c_sfcdecl_c::sfcinit_sd); s4o.indent_left(); s4o.print(s4o.indent_spaces + "}\n\n"); /* (C) Function with PROGRAM body */ /* (C.1) Step definitions */ - sfcdecl = new generate_c_sfcdecl_c(&s4o, generate_c_sfcdecl_c::stepdef_sd); - sfcdecl->print(symbol->function_block_body); - delete sfcdecl; + sfcdecl->generate(symbol->function_block_body, generate_c_sfcdecl_c::stepdef_sd); /* (C.2) Action definitions */ - sfcdecl = new generate_c_sfcdecl_c(&s4o, generate_c_sfcdecl_c::actiondef_sd); - sfcdecl->print(symbol->function_block_body); - delete sfcdecl; + sfcdecl->generate(symbol->function_block_body, generate_c_sfcdecl_c::actiondef_sd); /* (C.3) Function declaration */ s4o.print("// Code part\n"); @@ -883,7 +947,7 @@ s4o.print("\n"); /* (C.5) Function code */ - generate_c_SFC_IL_ST_c generate_c_code(&s4o, symbol, FB_FUNCTION_PARAM"->"); + generate_c_SFC_IL_ST_c generate_c_code(&s4o, symbol->program_type_name, symbol, FB_FUNCTION_PARAM"->"); symbol->function_block_body->accept(generate_c_code); s4o.indent_left(); s4o.print(s4o.indent_spaces + "} // "); @@ -892,15 +956,13 @@ s4o.print(s4o.indent_spaces + "() \n\n"); /* (C.6) Step undefinitions */ - sfcdecl = new generate_c_sfcdecl_c(&s4o, generate_c_sfcdecl_c::stepundef_sd); - sfcdecl->print(symbol->function_block_body); + sfcdecl->generate(symbol->function_block_body, generate_c_sfcdecl_c::stepundef_sd); + + /* (C.7) Action undefinitions */ + sfcdecl->generate(symbol->function_block_body, generate_c_sfcdecl_c::actionundef_sd); + delete sfcdecl; - - /* (C.7) Action undefinitions */ - sfcdecl = new generate_c_sfcdecl_c(&s4o, generate_c_sfcdecl_c::actionundef_sd); - sfcdecl->print(symbol->function_block_body); - delete sfcdecl; - + s4o.indent_left(); s4o.print("\n\n\n\n"); @@ -962,6 +1024,8 @@ s4o.print("#include \"iec_std_lib.h\"\n\n"); s4o.print("#include \"accessor.h\"\n\n"); + s4o.print("#include \"accessor.h\"\n\n"); + /* (A) configuration declaration... */ /* (A.1) configuration name in comment */ s4o.print("// CONFIGURATION "); @@ -987,6 +1051,8 @@ s4o.print(FB_INIT_SUFFIX); s4o.print("(void) {\n"); s4o.indent_right(); + s4o.print(s4o.indent_spaces); + s4o.print("BOOL retain = 0;\n"); /* (B.3) Global variables initializations... */ s4o.print(s4o.indent_spaces); @@ -1014,7 +1080,7 @@ /* (C.2) Run function name... */ s4o.print(s4o.indent_spaces + "void config"); s4o.print(FB_RUN_SUFFIX); - s4o.print("(int tick) {\n"); + s4o.print("(unsigned long tick) {\n"); s4o.indent_right(); /* (C.3) Resources initializations... */ @@ -1038,7 +1104,7 @@ } else { s4o.print(FB_RUN_SUFFIX); - s4o.print("(int tick);\n"); + s4o.print("(unsigned long tick);\n"); } } if (wanted_declaretype == initdeclare_dt || wanted_declaretype == rundeclare_dt) { @@ -1065,7 +1131,7 @@ } else { s4o.print(FB_RUN_SUFFIX); - s4o.print("(int tick);\n"); + s4o.print("(unsigned long tick);\n"); } } if (wanted_declaretype == initdeclare_dt || wanted_declaretype == rundeclare_dt) { @@ -1139,6 +1205,50 @@ assigntype_t wanted_assigntype; + /* the qualifier of variables that need to be processed... */ + static const unsigned int none_vq = 0x0000; + static const unsigned int constant_vq = 0x0001; // CONSTANT + static const unsigned int retain_vq = 0x0002; // RETAIN + static const unsigned int non_retain_vq = 0x0004; // NON_RETAIN + + /* variable used to store the qualifier of program currently being processed... */ + unsigned int current_varqualifier; + + void *print_retain(void) { + s4o.print(","); + switch (current_varqualifier) { + case retain_vq: + s4o.print("1"); + break; + case non_retain_vq: + s4o.print("0"); + break; + default: + s4o.print("retain"); + break; + } + return NULL; + } + + /******************************************/ + /* B 1.4.3 - Declaration & Initialisation */ + /******************************************/ + + void *visit(constant_option_c *symbol) { + current_varqualifier = constant_vq; + return NULL; + } + + void *visit(retain_option_c *symbol) { + current_varqualifier = retain_vq; + return NULL; + } + + void *visit(non_retain_option_c *symbol) { + current_varqualifier = non_retain_vq; + return NULL; + } + /********************************/ /* B 1.7 Configuration elements */ /********************************/ @@ -1182,8 +1292,10 @@ current_resource_name->accept(*this); s4o.print("\n\n"); - s4o.print("extern int common_ticktime__;\n\n"); - + s4o.print("extern unsigned long long common_ticktime__;\n\n"); + + s4o.print("#include \"accessor.h\"\n\n"); + /* (A.2) Global variables... */ if (current_global_vars != NULL) { vardecl = new generate_c_vardecl_c(&s4o, @@ -1216,13 +1328,16 @@ s4o.print(FB_INIT_SUFFIX); s4o.print("(void) {\n"); s4o.indent_right(); + s4o.print(s4o.indent_spaces); + s4o.print("BOOL retain = 0;\n"); /* (B.2) Global variables initialisations... */ if (current_global_vars != NULL) { s4o.print(s4o.indent_spaces); vardecl = new generate_c_vardecl_c(&s4o, generate_c_vardecl_c::constructorinit_vf, - generate_c_vardecl_c::global_vt); + generate_c_vardecl_c::global_vt, + current_resource_name); vardecl->print(current_global_vars); delete vardecl; } @@ -1244,7 +1359,7 @@ s4o.print("void "); current_resource_name->accept(*this); s4o.print(FB_RUN_SUFFIX); - s4o.print("(int tick) {\n"); + s4o.print("(unsigned long tick) {\n"); s4o.indent_right(); wanted_declaretype = run_dt; @@ -1285,11 +1400,14 @@ s4o.print("\n"); break; case init_dt: + if (symbol->retain_option != NULL) + symbol->retain_option->accept(*this); s4o.print(s4o.indent_spaces); symbol->program_type_name->accept(*this); s4o.print(FB_INIT_SUFFIX); s4o.print("(&"); symbol->program_name->accept(*this); + print_retain(); s4o.print(");\n"); break; case run_dt: @@ -1372,31 +1490,37 @@ s4o.print(FB_INIT_SUFFIX); s4o.print("(&"); current_task_name->accept(*this); - s4o.print("_R_TRIG);\n"); + s4o.print("_R_TRIG, retain);\n"); } break; case run_dt: if (symbol->single_data_source != NULL) { symbol_c *config_var_decl = NULL; symbol_c *res_var_decl = NULL; + unsigned int vartype; symbol_c *current_var_reference = ((global_var_reference_c *)(symbol->single_data_source))->global_var_name; res_var_decl = search_resource_instance->get_decl(current_var_reference); if (res_var_decl == NULL) { config_var_decl = search_config_instance->get_decl(current_var_reference); if (config_var_decl == NULL) ERROR; + vartype = search_config_instance->get_vartype(); s4o.print(s4o.indent_spaces + "{extern "); config_var_decl->accept(*this); s4o.print(" *"); symbol->single_data_source->accept(*this); s4o.print("; "); } - else + else { + vartype = search_resource_instance->get_vartype(); s4o.print(s4o.indent_spaces); + } + s4o.print(SET_VAR); + s4o.print("("); current_task_name->accept(*this); - s4o.print("_R_TRIG.CLK = *"); + s4o.print("_R_TRIG.CLK, *__GET_GLOBAL_"); symbol->single_data_source->accept(*this); - s4o.print(";"); + s4o.print("());"); if (config_var_decl != NULL) s4o.print("}"); s4o.print("\n"); @@ -1408,8 +1532,10 @@ s4o.print(s4o.indent_spaces); current_task_name->accept(*this); s4o.print(" = "); + s4o.print(GET_VAR); + s4o.print("("); current_task_name->accept(*this); - s4o.print("_R_TRIG.Q"); + s4o.print("_R_TRIG.Q)"); } else { s4o.print(s4o.indent_spaces); @@ -1533,7 +1659,7 @@ const char *current_name; const char *current_builddir; - unsigned long common_ticktime; + unsigned long long common_ticktime; public: generate_c_c(stage4out_c *s4o_ptr, const char *builddir): @@ -1553,7 +1679,7 @@ /* B 0 - Programming Model */ /***************************/ void *visit(library_c *symbol) { - pous_incl_s4o.print("#ifndef __POUS_H\n#define __POUS_H\n\n"); + pous_incl_s4o.print("#ifndef __POUS_H\n#define __POUS_H\n\n#include \"accessor.h\"\n\n"); for(int i = 0; i < symbol->n; i++) { symbol->elements[i]->accept(*this); } @@ -1631,16 +1757,23 @@ calculate_common_ticktime_c calculate_common_ticktime; symbol->accept(calculate_common_ticktime); - common_ticktime = calculate_common_ticktime.get_ticktime(); + common_ticktime = calculate_common_ticktime.get_common_ticktime(); + if (common_ticktime == 0) { + fprintf(stderr, "\nYou must at least define a periodic task to set cycle period!"); + ERROR; + } symbol->configuration_name->accept(*this); stage4out_c config_s4o(current_builddir, current_name, "c"); generate_c_config_c generate_c_config(&config_s4o); symbol->accept(generate_c_config); - config_s4o.print("int common_ticktime__ = "); - config_s4o.print_integer((int)(common_ticktime / 1000000)); - config_s4o.print("; /*ms*/\n"); + config_s4o.print("unsigned long long common_ticktime__ = "); + config_s4o.print_long_long_integer(common_ticktime); + config_s4o.print("; /*ns*/\n"); + config_s4o.print("unsigned long greatest_tick_count__ = "); + config_s4o.print_long_integer(calculate_common_ticktime.get_greatest_tick_count()); + config_s4o.print("; /*tick*/\n"); symbol->resource_declarations->accept(*this); diff -r 90782e241346 -r d7d92b2f87e9 stage4/generate_c/generate_c_base.cc --- a/stage4/generate_c/generate_c_base.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/generate_c/generate_c_base.cc Thu Mar 31 10:45:34 2011 +0100 @@ -51,18 +51,36 @@ typedef struct { + symbol_c *param_name; symbol_c *param_value; symbol_c *param_type; function_param_iterator_c::param_direction_t param_direction; } FUNCTION_PARAM; -#define ADD_PARAM_LIST(value, type, direction)\ +#define DECLARE_PARAM_LIST()\ + std::list<FUNCTION_PARAM*> param_list;\ + std::list<FUNCTION_PARAM*>::iterator pt;\ + FUNCTION_PARAM *param; + +#define ADD_PARAM_LIST(name, value, type, direction)\ param = new FUNCTION_PARAM;\ + param->param_name = name;\ param->param_value = value;\ param->param_type = type;\ param->param_direction = direction;\ - param_list.push_back(*param); - + param_list.push_back(param); + +#define PARAM_LIST_ITERATOR() for(pt = param_list.begin(); pt != param_list.end(); pt++) + +#define PARAM_NAME (*pt)->param_name +#define PARAM_VALUE (*pt)->param_value +#define PARAM_TYPE (*pt)->param_type +#define PARAM_DIRECTION (*pt)->param_direction + +#define CLEAR_PARAM_LIST()\ + PARAM_LIST_ITERATOR()\ + delete *pt;\ + param_list.clear(); class generate_c_base_c: public iterator_visitor_c { @@ -72,7 +90,7 @@ private: /* Unlike programs that are mapped onto C++ classes, Function Blocks are mapped onto a data structure type - * and a separate function conatining the code. This function is passed a pointer to an instance of the data + * and a separate function containing the code. This function is passed a pointer to an instance of the data * structure. This means that the code inside the functions must insert a pointer to the data structure whenever * it wishes to access a Function Block variable. * The variable_prefix_ variable will contain the correct string which needs to be prefixed to all variable accesses. @@ -80,10 +98,10 @@ */ const char *variable_prefix_; - - public: - generate_c_base_c(stage4out_c *s4o_ptr): s4o(*s4o_ptr) {variable_prefix_ = NULL;} + generate_c_base_c(stage4out_c *s4o_ptr): s4o(*s4o_ptr) { + variable_prefix_ = NULL; + } ~generate_c_base_c(void) {} void set_variable_prefix(const char *variable_prefix) {variable_prefix_ = variable_prefix;} @@ -219,6 +237,36 @@ return NULL; } + void *print_check_function(symbol_c *type, + symbol_c *value, + symbol_c *fb_name = NULL, + bool temp = false) { + search_base_type_c search_base_type; + bool is_subrange = search_base_type.type_is_subrange(type); + if (is_subrange) { + s4o.print("__CHECK_"); + type->accept(*this); + s4o.print("("); + } + if (fb_name != NULL) { + s4o.print(GET_VAR); + s4o.print("("); + print_variable_prefix(); + fb_name->accept(*this); + s4o.print("."); + value->accept(*this); + s4o.print(")"); + } + else { + if (temp) + s4o.print(TEMP_VAR); + value->accept(*this); + } + if (is_subrange) + s4o.print(")"); + return NULL; + } + /***************************/ /* 2.1.6 - Pragmas */ /***************************/ @@ -347,11 +395,11 @@ } /* for() */ str += '"'; - s4o.print("(STRING){"); + s4o.print("__STRING_LITERAL("); s4o.print_integer(count); s4o.print(","); s4o.print(str); - s4o.print("}"); + s4o.print(")"); return NULL; } diff -r 90782e241346 -r d7d92b2f87e9 stage4/generate_c/generate_c_il.cc --- a/stage4/generate_c/generate_c_il.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/generate_c/generate_c_il.cc Thu Mar 31 10:45:34 2011 +0100 @@ -139,6 +139,15 @@ class generate_c_il_c: public generate_c_typedecl_c, il_default_variable_visitor_c { + public: + typedef enum { + expression_vg, + assignment_vg, + complextype_base_vg, + complextype_suffix_vg, + fparam_output_vg + } variablegeneration_t; + private: /* When compiling il code, it becomes necessary to determine the * data type of il operands. To do this, we must first find the @@ -202,6 +211,9 @@ * The following object is it... */ bool_type_name_c bool_type; + lint_type_name_c lint_type; + lword_type_name_c lword_type; + lreal_type_name_c lreal_type; /* the data type of the IL default variable... */ #define IL_DEFVAR_T VAR_LEADER "IL_DEFVAR_T" @@ -234,10 +246,16 @@ search_base_type_c search_base_type; - bool current_param_is_pointer; + symbol_c* current_array_type; + symbol_c* current_param_type; + + int fcall_number; + symbol_c *fbname; + + variablegeneration_t wanted_variablegeneration; public: - generate_c_il_c(stage4out_c *s4o_ptr, symbol_c *scope, const char *variable_prefix = NULL) + generate_c_il_c(stage4out_c *s4o_ptr, symbol_c *name, symbol_c *scope, const char *variable_prefix = NULL) : generate_c_typedecl_c(s4o_ptr), default_variable_name(IL_DEFVAR, NULL), default_variable_back_name(IL_DEFVAR_BACK, NULL) @@ -248,7 +266,11 @@ current_operand = NULL; current_operand_type = NULL; il_default_variable_init_value = NULL; - current_param_is_pointer = false; + current_array_type = NULL; + current_param_type = NULL; + fcall_number = 0; + fbname = name; + wanted_variablegeneration = expression_vg; this->set_variable_prefix(variable_prefix); } @@ -381,6 +403,125 @@ else {ERROR;} } + void BYTE_operator_result_type(void) { + if (search_expression_type->is_literal_integer_type(this->default_variable_name.current_type)) { + if (search_expression_type->is_literal_integer_type(this->current_operand_type)) + this->default_variable_name.current_type = &(this->lword_type); + else + this->default_variable_name.current_type = this->current_operand_type; + } + else if (search_expression_type->is_literal_integer_type(this->current_operand_type)) + this->current_operand_type = this->default_variable_name.current_type; + } + + void NUM_operator_result_type(void) { + if (search_expression_type->is_literal_real_type(this->default_variable_name.current_type)) { + if (search_expression_type->is_literal_integer_type(this->current_operand_type) || + search_expression_type->is_literal_real_type(this->current_operand_type)) + this->default_variable_name.current_type = &(this->lreal_type); + else + this->default_variable_name.current_type = this->current_operand_type; + } + else if (search_expression_type->is_literal_integer_type(this->default_variable_name.current_type)) { + if (search_expression_type->is_literal_integer_type(this->current_operand_type)) + this->default_variable_name.current_type = &(this->lint_type); + else if (search_expression_type->is_literal_real_type(this->current_operand_type)) + this->default_variable_name.current_type = &(this->lreal_type); + else + this->default_variable_name.current_type = this->current_operand_type; + } + else if (search_expression_type->is_literal_integer_type(this->current_operand_type) || + search_expression_type->is_literal_real_type(this->current_operand_type)) + this->current_operand_type = this->default_variable_name.current_type; + } + + void *print_getter(symbol_c *symbol) { + unsigned int vartype = search_varfb_instance_type->get_vartype(symbol); + if (wanted_variablegeneration == fparam_output_vg) { + if (vartype == search_var_instance_decl_c::external_vt) + s4o.print(GET_EXTERNAL_BY_REF); + else if (vartype == search_var_instance_decl_c::located_vt) + s4o.print(GET_LOCATED_BY_REF); + else + s4o.print(GET_VAR_BY_REF); + } + else { + if (vartype == search_var_instance_decl_c::external_vt) + s4o.print(GET_EXTERNAL); + else if (vartype == search_var_instance_decl_c::located_vt) + s4o.print(GET_LOCATED); + else + s4o.print(GET_VAR); + } + s4o.print("("); + + variablegeneration_t old_wanted_variablegeneration = wanted_variablegeneration; + wanted_variablegeneration = complextype_base_vg; + symbol->accept(*this); + if (search_varfb_instance_type->type_is_complex()) + s4o.print(","); + wanted_variablegeneration = complextype_suffix_vg; + symbol->accept(*this); + s4o.print(")"); + wanted_variablegeneration = old_wanted_variablegeneration; + return NULL; + } + + void *print_setter(symbol_c* symbol, + symbol_c* type, + symbol_c* value, + symbol_c* fb_symbol = NULL, + symbol_c* fb_value = NULL, + bool negative = false) { + unsigned int vartype = search_varfb_instance_type->get_vartype(symbol); + if (vartype == search_var_instance_decl_c::external_vt) { + symbolic_variable_c *variable = dynamic_cast<symbolic_variable_c *>(symbol); + /* TODO Find a solution for forcing global complex variables */ + if (variable != NULL) { + s4o.print(SET_EXTERNAL); + s4o.print("("); + variable->var_name->accept(*this); + s4o.print(","); + } + else { + s4o.print(SET_COMPLEX_EXTERNAL); + s4o.print("("); + } + } + else { + if (vartype == search_var_instance_decl_c::located_vt) + s4o.print(SET_LOCATED); + else + s4o.print(SET_VAR); + s4o.print("("); + } + + if (fb_symbol != NULL) { + print_variable_prefix(); + fb_symbol->accept(*this); + s4o.print("."); + } + else + wanted_variablegeneration = complextype_base_vg; + symbol->accept(*this); + s4o.print(","); + if (negative) { + if (search_expression_type->is_bool_type(this->current_operand_type)) + s4o.print("!"); + else + s4o.print("~"); + } + wanted_variablegeneration = expression_vg; + print_check_function(type, value, fb_value); + if (search_varfb_instance_type->type_is_complex()) { + s4o.print(","); + wanted_variablegeneration = complextype_suffix_vg; + symbol->accept(*this); + } + s4o.print(")"); + wanted_variablegeneration = expression_vg; + return NULL; + } public: void *visit(il_default_variable_c *symbol) { @@ -388,7 +529,12 @@ symbol->var_name->accept(*this); if (NULL != symbol->current_type) { s4o.print("."); - symbol->current_type->accept(*this); + if (search_expression_type->is_literal_integer_type(symbol->current_type)) + this->lint_type.accept(*this); + else if (search_expression_type->is_literal_real_type(this->default_variable_name.current_type)) + this->lreal_type.accept(*this); + else + symbol->current_type->accept(*this); s4o.print("var"); } return NULL; @@ -417,21 +563,26 @@ /*********************/ /* B 1.4 - Variables */ /*********************/ + void *visit(symbolic_variable_c *symbol) { - unsigned int vartype = search_varfb_instance_type->get_vartype(symbol); - if (!current_param_is_pointer && (vartype == search_var_instance_decl_c::external_vt || vartype == search_var_instance_decl_c::located_vt)) { - s4o.print("*("); - generate_c_base_c::visit(symbol); - s4o.print(")"); - } - else if (current_param_is_pointer && vartype != search_var_instance_decl_c::external_vt && vartype != search_var_instance_decl_c::located_vt) { - s4o.print("&("); - generate_c_base_c::visit(symbol); - s4o.print(")"); - } - else { - generate_c_base_c::visit(symbol); - } + unsigned int vartype; + if (wanted_variablegeneration == complextype_base_vg) + generate_c_base_c::visit(symbol); + else if (wanted_variablegeneration == complextype_suffix_vg) + return NULL; + else if (this->is_variable_prefix_null()) { + vartype = search_varfb_instance_type->get_vartype(symbol); + if (wanted_variablegeneration == fparam_output_vg) { + s4o.print("&("); + generate_c_base_c::visit(symbol); + s4o.print(")"); + } + else { + generate_c_base_c::visit(symbol); + } + } + else + print_getter(symbol); return NULL; } @@ -443,17 +594,135 @@ TRACE("direct_variable_c"); /* Do not use print_token() as it will change everything into uppercase */ if (strlen(symbol->value) == 0) ERROR; - if (!current_param_is_pointer) { - s4o.print("*("); + if (this->is_variable_prefix_null()) { + if (wanted_variablegeneration != fparam_output_vg) + s4o.print("*("); + } + else { + switch (wanted_variablegeneration) { + case expression_vg: + s4o.print(GET_LOCATED); + s4o.print("("); + break; + case fparam_output_vg: + s4o.print(GET_LOCATED_BY_REF); + s4o.print("("); + break; + default: + break; + } } this->print_variable_prefix(); s4o.printlocation(symbol->value + 1); - if (!current_param_is_pointer) { + if ((this->is_variable_prefix_null() && wanted_variablegeneration != fparam_output_vg) || + wanted_variablegeneration != assignment_vg) s4o.print(")"); - } - return NULL; -} - + return NULL; +} + +/*************************************/ +/* B.1.4.2 Multi-element Variables */ +/*************************************/ + +// SYM_REF2(structured_variable_c, record_variable, field_selector) +void *visit(structured_variable_c *symbol) { + TRACE("structured_variable_c"); + switch (wanted_variablegeneration) { + case complextype_base_vg: + symbol->record_variable->accept(*this); + break; + case complextype_suffix_vg: + symbol->record_variable->accept(*this); + s4o.print("."); + symbol->field_selector->accept(*this); + break; + default: + if (this->is_variable_prefix_null()) { + symbol->record_variable->accept(*this); + s4o.print("."); + symbol->field_selector->accept(*this); + } + else + print_getter(symbol); + break; + } + return NULL; +} + +/* subscripted_variable '[' subscript_list ']' */ +//SYM_REF2(array_variable_c, subscripted_variable, subscript_list) +void *visit(array_variable_c *symbol) { + switch (wanted_variablegeneration) { + case complextype_base_vg: + symbol->subscripted_variable->accept(*this); + break; + case complextype_suffix_vg: + symbol->subscripted_variable->accept(*this); + + current_array_type = search_varfb_instance_type->get_rawtype(symbol->subscripted_variable); + if (current_array_type == NULL) ERROR; + + s4o.print(".table"); + symbol->subscript_list->accept(*this); + + current_array_type = NULL; + break; + default: + if (this->is_variable_prefix_null()) { + symbol->subscripted_variable->accept(*this); + + current_array_type = search_varfb_instance_type->get_rawtype(symbol->subscripted_variable); + if (current_array_type == NULL) ERROR; + + s4o.print(".table"); + symbol->subscript_list->accept(*this); + + current_array_type = NULL; + } + else + print_getter(symbol); + break; + } + return NULL; +} + +/* subscript_list ',' subscript */ +void *visit(subscript_list_c *symbol) { + for (int i = 0; i < symbol->n; i++) { + s4o.print("[__"); + current_array_type->accept(*this); + s4o.print("_TRANSIDX"); + print_integer(i); + s4o.print("("); + symbol->elements[i]->accept(*this); + s4o.print(")]"); + } + return NULL; +} + +/******************************************/ +/* B 1.4.3 - Declaration & Initialisation */ +/******************************************/ + +/* helper symbol for structure_initialization */ +/* structure_element_initialization_list ',' structure_element_initialization */ +void *visit(structure_element_initialization_list_c *symbol) { + generate_c_structure_initialization_c *structure_initialization = new generate_c_structure_initialization_c(&s4o); + structure_initialization->init_structure_default(this->current_param_type); + structure_initialization->init_structure_values(symbol); + delete structure_initialization; + return NULL; +} + +/* helper symbol for array_initialization */ +/* array_initial_elements_list ',' array_initial_elements */ +void *visit(array_initial_elements_list_c *symbol) { + generate_c_array_initialization_c *array_initialization = new generate_c_array_initialization_c(&s4o); + array_initialization->init_array_size(this->current_param_type); + array_initialization->init_array_values(symbol); + delete array_initialization; + return NULL; +} /****************************************/ /* B.2 - Language IL (Instruction List) */ /****************************************/ @@ -478,10 +747,25 @@ s4o.print(IL_DEFVAR_T); s4o.print(" "); this->default_variable_name.accept(*this); - s4o.print(";\n\n"); + s4o.print(";\n"); + s4o.print(s4o.indent_spaces); + print_backup_variable(); + s4o.print(".INTvar = 0;\n\n"); print_list(symbol, s4o.indent_spaces, ";\n" + s4o.indent_spaces, ";\n"); + /* label not used by at least one goto result in a warning. + * To work around this we introduce the useless goto + * to humour the compiler... + */ + s4o.print("\n"); + s4o.print(s4o.indent_spaces); + s4o.print("/* to humour the compiler, we insert a goto */\n"); + s4o.print(s4o.indent_spaces); + s4o.print("goto "); + s4o.print(END_LABEL); + s4o.print(";\n"); + /* write the label marking the end of the code block */ /* please see the comment before the RET_operator_c visitor for details... */ s4o.print("\n"); @@ -542,17 +826,17 @@ /* | function_name [il_operand_list] */ // SYM_REF2(il_function_call_c, function_name, il_operand_list) void *visit(il_function_call_c *symbol) { - function_declaration_c *f_decl = function_symtable.find_value(symbol->function_name); - symbol_c* function_type_prefix = NULL; symbol_c* function_name = NULL; symbol_c* function_type_suffix = NULL; - std::list<FUNCTION_PARAM> param_list; - FUNCTION_PARAM *param; + DECLARE_PARAM_LIST() symbol_c *param_data_type = default_variable_name.current_type; symbol_c *return_data_type = NULL; + function_call_param_iterator_c function_call_param_iterator(symbol); + + function_declaration_c *f_decl = function_symtable.find_value(symbol->function_name); if (f_decl == function_symtable.end_value()) { function_type_t current_function_type = get_function_type((identifier_c *)symbol->function_name); if (current_function_type == function_none) ERROR; @@ -560,29 +844,22 @@ return_data_type = (symbol_c *)search_expression_type->compute_standard_function_il(symbol, param_data_type); if (NULL == return_data_type) ERROR; - function_call_param_iterator_c function_call_param_iterator(symbol); - + symbol_c *en_param_name = (symbol_c *)(new identifier_c("EN")); /* Add the value from EN param */ - ADD_PARAM_LIST((symbol_c*)(new boolean_literal_c((symbol_c*)(new bool_type_name_c()), new boolean_true_c())), + ADD_PARAM_LIST(en_param_name, + (symbol_c*)(new boolean_literal_c((symbol_c*)(new bool_type_name_c()), new boolean_true_c())), (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_in) + symbol_c *eno_param_name = (symbol_c *)(new identifier_c("ENO")); /* Add the value from ENO param */ - ADD_PARAM_LIST(NULL, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_out) + ADD_PARAM_LIST(eno_param_name, NULL, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_out) int nb_param = 1; if (symbol->il_operand_list != NULL) nb_param += ((list_c *)symbol->il_operand_list)->n; - #define search(x) search_f(x) - #define next() next_nf() -// #define search_constant_type_c::constant_int_type_name search_expression_type_c::integer - #define constant_int_type_name integer #include "il_code_gen.c" - #undef constant_int_type_name -// #undef search_constant_type_c::constant_int_type_name - #undef next - #undef search } else { @@ -599,7 +876,6 @@ function_param_iterator_c fp_iterator(f_decl); identifier_c *param_name; - function_call_param_iterator_c function_call_param_iterator(symbol); for(int i = 1; (param_name = fp_iterator.next()) != NULL; i++) { symbol_c *param_type = fp_iterator.param_type(); if (param_type == NULL) ERROR; @@ -626,8 +902,10 @@ param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ - if (param_value == NULL) + if (param_value == NULL) { param_value = function_call_param_iterator.next_nf(); + if (param_value != NULL && fp_iterator.is_en_eno_param_implicit()) ERROR; + } if (param_value == NULL && param_direction == function_param_iterator_c::direction_in) { /* No value given for parameter, so we must use the default... */ @@ -635,10 +913,26 @@ param_value = fp_iterator.default_value(); } - ADD_PARAM_LIST(param_value, param_type, fp_iterator.param_direction()) + ADD_PARAM_LIST(param_name, param_value, param_type, fp_iterator.param_direction()) } /* for(...) */ } + if (function_call_param_iterator.next_nf() != NULL) ERROR; + + bool has_output_params = false; + + if (!this->is_variable_prefix_null()) { + PARAM_LIST_ITERATOR() { + if ((PARAM_DIRECTION == function_param_iterator_c::direction_out || + PARAM_DIRECTION == function_param_iterator_c::direction_inout) && + PARAM_VALUE != NULL) { + if (!has_output_params) { + has_output_params = true; + } + } + } + } + default_variable_name.current_type = return_data_type; this->default_variable_name.accept(*this); default_variable_name.current_type = param_data_type; @@ -649,45 +943,62 @@ function_type_prefix->accept(*this); s4o.print(")"); } - if (function_name != NULL) + if (has_output_params) { + fcall_number++; + s4o.print("__"); + fbname->accept(*this); + s4o.print("_"); function_name->accept(*this); - if (function_type_suffix != NULL) - function_type_suffix->accept(*this); + s4o.print_integer(fcall_number); + } + else { + if (function_name != NULL) + function_name->accept(*this); + if (function_type_suffix != NULL) + function_type_suffix->accept(*this); + } s4o.print("("); s4o.indent_right(); - std::list<FUNCTION_PARAM>::iterator pt; - for(pt = param_list.begin(); pt != param_list.end(); pt++) { - if (pt != param_list.begin()) - s4o.print(",\n"+s4o.indent_spaces); - symbol_c *param_value = pt->param_value; - symbol_c *param_type = pt->param_type; + int nb_param = 0; + PARAM_LIST_ITERATOR() { + symbol_c *param_value = PARAM_VALUE; + current_param_type = PARAM_TYPE; - switch (pt->param_direction) { + switch (PARAM_DIRECTION) { case function_param_iterator_c::direction_in: + if (nb_param > 0) + s4o.print(",\n"+s4o.indent_spaces); if (param_value == NULL) { /* If not, get the default value of this variable's type */ - param_value = (symbol_c *)param_type->accept(*type_initial_value_c::instance()); + param_value = (symbol_c *)current_param_type->accept(*type_initial_value_c::instance()); } if (param_value == NULL) ERROR; - if (search_base_type.type_is_subrange(param_type)) { - s4o.print("__CHECK_"); - param_type->accept(*this); - s4o.print("("); - } - param_value->accept(*this); - if (search_base_type.type_is_subrange(param_type)) - s4o.print(")"); + s4o.print("("); + if (search_expression_type->is_literal_integer_type(current_param_type)) + search_expression_type->lint_type_name.accept(*this); + else if (search_expression_type->is_literal_real_type(current_param_type)) + search_expression_type->lreal_type_name.accept(*this); + else + current_param_type->accept(*this); + s4o.print(")"); + print_check_function(current_param_type, param_value); + nb_param++; break; case function_param_iterator_c::direction_out: case function_param_iterator_c::direction_inout: - current_param_is_pointer = true; - if (param_value == NULL) { - s4o.print("NULL"); - } else { - param_value->accept(*this); - } - current_param_is_pointer = false; + if (!has_output_params) { + if (nb_param > 0) + s4o.print(",\n"+s4o.indent_spaces); + if (param_value == NULL) { + s4o.print("NULL"); + } else { + wanted_variablegeneration = fparam_output_vg; + param_value->accept(*this); + wanted_variablegeneration = expression_vg; + } + nb_param++; + } break; case function_param_iterator_c::direction_extref: /* TODO! */ @@ -695,10 +1006,18 @@ break; } /* switch */ } + if (has_output_params) { + if (nb_param > 0) + s4o.print(",\n"+s4o.indent_spaces); + s4o.print(FB_FUNCTION_PARAM); + } s4o.print(")"); /* the data type returned by the function, and stored in the il default variable... */ default_variable_name.current_type = return_data_type; + + CLEAR_PARAM_LIST() + return NULL; } @@ -807,18 +1126,16 @@ if (param_value != NULL) if ((param_direction == function_param_iterator_c::direction_in) || (param_direction == function_param_iterator_c::direction_inout)) { - symbol->fb_name->accept(*this); - s4o.print("."); - param_name->accept(*this); - s4o.print(" = "); - if (search_base_type.type_is_subrange(param_type)) { - s4o.print("__CHECK_"); - param_type->accept(*this); - s4o.print("("); + if (this->is_variable_prefix_null()) { + symbol->fb_name->accept(*this); + s4o.print("."); + param_name->accept(*this); + s4o.print(" = "); + print_check_function(param_type, param_value); + } + else { + print_setter(param_name, param_type, param_value, symbol->fb_name); } - param_value->accept(*this); - if (search_base_type.type_is_subrange(param_type)) - s4o.print(")"); s4o.print(";\n" + s4o.indent_spaces); } } /* for(...) */ @@ -827,6 +1144,7 @@ function_block_type_name->accept(*this); s4o.print(FB_FUNCTION_SUFFIX); s4o.print("(&"); + print_variable_prefix(); symbol->fb_name->accept(*this); s4o.print(")"); @@ -849,21 +1167,16 @@ if (param_value != NULL) if ((param_direction == function_param_iterator_c::direction_out) || (param_direction == function_param_iterator_c::direction_inout)) { - symbol_c *param_type = search_varfb_instance_type->get_type(param_value, false); - - s4o.print(";\n"+ s4o.indent_spaces); - param_value->accept(*this); - s4o.print(" = "); - if (search_base_type.type_is_subrange(param_type)) { - s4o.print("__CHECK_"); - param_type->accept(*this); - s4o.print("("); - } - symbol->fb_name->accept(*this); - s4o.print("."); - param_name->accept(*this); - if (search_base_type.type_is_subrange(param_type)) - s4o.print(")"); + symbol_c *param_type = search_varfb_instance_type->get_rawtype(param_value); + s4o.print(";\n" + s4o.indent_spaces); + if (this->is_variable_prefix_null()) { + param_value->accept(*this); + s4o.print(" = "); + print_check_function(param_type, param_name, symbol->fb_name); + } + else { + print_setter(param_value, param_type, param_name, NULL, symbol->fb_name); + } } } /* for(...) */ @@ -880,16 +1193,16 @@ /* | function_name '(' eol_list [il_param_list] ')' */ // SYM_REF2(il_formal_funct_call_c, function_name, il_param_list) void *visit(il_formal_funct_call_c *symbol) { - function_declaration_c *f_decl = function_symtable.find_value(symbol->function_name); - symbol_c* function_type_prefix = NULL; symbol_c* function_name = NULL; symbol_c* function_type_suffix = NULL; - std::list<FUNCTION_PARAM> param_list; - FUNCTION_PARAM *param; + DECLARE_PARAM_LIST() symbol_c *return_data_type = NULL; + function_call_param_iterator_c function_call_param_iterator(symbol); + + function_declaration_c *f_decl = function_symtable.find_value(symbol->function_name); if (f_decl == function_symtable.end_value()) { function_type_t current_function_type = get_function_type((identifier_c *)symbol->function_name); if (current_function_type == function_none) ERROR; @@ -897,37 +1210,27 @@ return_data_type = (symbol_c *)search_expression_type->compute_standard_function_default(NULL, symbol); if (NULL == return_data_type) ERROR; - function_call_param_iterator_c function_call_param_iterator(symbol); - int nb_param = 0; if (symbol->il_param_list != NULL) nb_param += ((list_c *)symbol->il_param_list)->n; - identifier_c en_param_name("EN"); + symbol_c *en_param_name = (symbol_c *)(new identifier_c("EN")); /* Get the value from EN param */ - symbol_c *EN_param_value = function_call_param_iterator.search_f(&en_param_name); + symbol_c *EN_param_value = function_call_param_iterator.search_f(en_param_name); if (EN_param_value == NULL) EN_param_value = (symbol_c*)(new boolean_literal_c((symbol_c*)(new bool_type_name_c()), new boolean_true_c())); else nb_param --; - ADD_PARAM_LIST(EN_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_in) + ADD_PARAM_LIST(en_param_name, EN_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_in) - identifier_c eno_param_name("EN0"); + symbol_c *eno_param_name = (symbol_c *)(new identifier_c("ENO")); /* Get the value from ENO param */ - symbol_c *ENO_param_value = function_call_param_iterator.search_f(&eno_param_name); + symbol_c *ENO_param_value = function_call_param_iterator.search_f(eno_param_name); if (ENO_param_value != NULL) nb_param --; - ADD_PARAM_LIST(ENO_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_out) + ADD_PARAM_LIST(eno_param_name, ENO_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_out) - #define search(x) search_f(x) - #define next() next_nf() -// #define search_constant_type_c::constant_int_type_name search_expression_type_c::integer - #define constant_int_type_name integer #include "st_code_gen.c" - #undef constant_int_type_name -// #undef search_constant_type_c::constant_int_type_name - #undef next - #undef search } else { @@ -944,7 +1247,6 @@ function_param_iterator_c fp_iterator(f_decl); identifier_c *param_name; - function_call_param_iterator_c function_call_param_iterator(symbol); for(int i = 1; (param_name = fp_iterator.next()) != NULL; i++) { symbol_c *param_type = fp_iterator.param_type(); if (param_type == NULL) ERROR; @@ -966,8 +1268,10 @@ * with the function calling code in generate_c_st_c, which does require * the following line... */ - if (param_value == NULL) + if (param_value == NULL) { param_value = function_call_param_iterator.next_nf(); + if (param_value != NULL && fp_iterator.is_en_eno_param_implicit()) ERROR; + } if (param_value == NULL) { /* No value given for parameter, so we must use the default... */ @@ -975,10 +1279,26 @@ param_value = fp_iterator.default_value(); } - ADD_PARAM_LIST(param_value, param_type, fp_iterator.param_direction()) - } - } - + ADD_PARAM_LIST(param_name, param_value, param_type, fp_iterator.param_direction()) + } + } + + if (function_call_param_iterator.next_nf() != NULL) ERROR; + + bool has_output_params = false; + + if (!this->is_variable_prefix_null()) { + PARAM_LIST_ITERATOR() { + if ((PARAM_DIRECTION == function_param_iterator_c::direction_out || + PARAM_DIRECTION == function_param_iterator_c::direction_inout) && + PARAM_VALUE != NULL) { + if (!has_output_params) { + has_output_params = true; + } + } + } + } + default_variable_name.current_type = return_data_type; this->default_variable_name.accept(*this); s4o.print(" = "); @@ -988,56 +1308,80 @@ function_type_prefix->accept(*this); s4o.print(")"); } - if (function_name != NULL) + if (has_output_params) { + fcall_number++; + s4o.print("__"); + fbname->accept(*this); + s4o.print("_"); function_name->accept(*this); - if (function_type_suffix != NULL) - function_type_suffix->accept(*this); + s4o.print_integer(fcall_number); + } + else { + if (function_name != NULL) + function_name->accept(*this); + if (function_type_suffix != NULL) + function_type_suffix->accept(*this); + } s4o.print("("); s4o.indent_right(); - std::list<FUNCTION_PARAM>::iterator pt; - for(pt = param_list.begin(); pt != param_list.end(); pt++) { - if (pt != param_list.begin()) - s4o.print(",\n"+s4o.indent_spaces); - symbol_c *param_value = pt->param_value; - symbol_c *param_type = pt->param_type; + int nb_param = 0; + PARAM_LIST_ITERATOR() { + symbol_c *param_value = PARAM_VALUE; + current_param_type = PARAM_TYPE; - switch (pt->param_direction) { + switch (PARAM_DIRECTION) { case function_param_iterator_c::direction_in: - if (param_value == NULL) { + if (nb_param > 0) + s4o.print(",\n"+s4o.indent_spaces); + if (param_value == NULL) { /* If not, get the default value of this variable's type */ - param_value = (symbol_c *)param_type->accept(*type_initial_value_c::instance()); + param_value = (symbol_c *)current_param_type->accept(*type_initial_value_c::instance()); } if (param_value == NULL) ERROR; - if (search_base_type.type_is_subrange(param_type)) { - s4o.print("__CHECK_"); - param_type->accept(*this); - s4o.print("("); - } - param_value->accept(*this); - if (search_base_type.type_is_subrange(param_type)) - s4o.print(")"); - break; + s4o.print("("); + if (search_expression_type->is_literal_integer_type(current_param_type)) + search_expression_type->lint_type_name.accept(*this); + else if (search_expression_type->is_literal_real_type(current_param_type)) + search_expression_type->lreal_type_name.accept(*this); + else + current_param_type->accept(*this); + s4o.print(")"); + print_check_function(current_param_type, param_value); + nb_param++; + break; case function_param_iterator_c::direction_out: case function_param_iterator_c::direction_inout: - current_param_is_pointer = true; - if (param_value == NULL) { - s4o.print("NULL"); - } else { - param_value->accept(*this); - } - current_param_is_pointer = false; - break; + if (!has_output_params) { + if (nb_param > 0) + s4o.print(",\n"+s4o.indent_spaces); + if (param_value == NULL) { + s4o.print("NULL"); + } else { + wanted_variablegeneration = fparam_output_vg; + param_value->accept(*this); + wanted_variablegeneration = expression_vg; + } + } + break; case function_param_iterator_c::direction_extref: /* TODO! */ ERROR; break; } /* switch */ } /* for(...) */ + if (has_output_params) { + if (nb_param > 0) + s4o.print(",\n"+s4o.indent_spaces); + s4o.print(FB_FUNCTION_PARAM); + } // symbol->parameter_assignment->accept(*this); s4o.print(")"); /* the data type returned by the function, and stored in the il default variable... */ + + CLEAR_PARAM_LIST() + return NULL; } @@ -1182,40 +1526,40 @@ } void *visit(ST_operator_c *symbol) { - symbol_c *operand_type = search_varfb_instance_type->get_type(this->current_operand, false); - - this->current_operand->accept(*this); - s4o.print(" = "); - if (search_base_type.type_is_subrange(operand_type)) { - s4o.print("__CHECK_"); - operand_type->accept(*this); - s4o.print("("); - } - this->default_variable_name.accept(*this); - if (search_base_type.type_is_subrange(operand_type)) - s4o.print(")"); - /* the data type resulting from this operation is unchamged. */ + symbol_c *operand_type = search_varfb_instance_type->get_rawtype(this->current_operand); + if (search_expression_type->is_literal_integer_type(this->default_variable_name.current_type) || + search_expression_type->is_literal_real_type(this->default_variable_name.current_type)) + this->default_variable_name.current_type = this->current_operand_type; + if (this->is_variable_prefix_null()) { + this->current_operand->accept(*this); + s4o.print(" = "); + print_check_function(operand_type, (symbol_c*)&(this->default_variable_name)); + } + else { + print_setter(this->current_operand, operand_type, (symbol_c*)&(this->default_variable_name)); + } + /* the data type resulting from this operation is unchanged. */ return NULL; } void *visit(STN_operator_c *symbol) { - symbol_c *operand_type = search_varfb_instance_type->get_type(this->current_operand, false); - - this->current_operand->accept(*this); - s4o.print(" = "); - if (search_base_type.type_is_subrange(operand_type)) { - s4o.print("__CHECK_"); - operand_type->accept(*this); - s4o.print("("); - } - if (search_expression_type->is_bool_type(this->current_operand_type)) - s4o.print("!"); - else - s4o.print("~"); - this->default_variable_name.accept(*this); - if (search_base_type.type_is_subrange(operand_type)) - s4o.print(")"); - /* the data type resulting from this operation is unchamged. */ + symbol_c *operand_type = search_varfb_instance_type->get_rawtype(this->current_operand); + if (search_expression_type->is_literal_integer_type(this->default_variable_name.current_type)) + this->default_variable_name.current_type = this->current_operand_type; + + if (this->is_variable_prefix_null()) { + this->current_operand->accept(*this); + s4o.print(" = "); + if (search_expression_type->is_bool_type(this->current_operand_type)) + s4o.print("!"); + else + s4o.print("~"); + this->default_variable_name.accept(*this); + } + else { + print_setter(this->current_operand, operand_type, (symbol_c*)&(this->default_variable_name), NULL, NULL, true); + } + /* the data type resulting from this operation is unchanged. */ return NULL; } @@ -1233,7 +1577,15 @@ C_modifier(); this->current_operand->accept(*this); - s4o.print(search_expression_type->is_bool_type(this->current_operand_type)?" = true":" = 1"); + s4o.print(" = __"); + if (search_expression_type->is_bool_type(this->current_operand_type)) + s4o.print("BOOL_LITERAL(TRUE)"); + else if (search_expression_type->is_integer_type(this->current_operand_type)) { + this->current_operand_type->accept(*this); + s4o.print("_LITERAL(1)"); + } + else + ERROR; /* the data type resulting from this operation is unchanged! */ return NULL; } @@ -1243,7 +1595,15 @@ C_modifier(); this->current_operand->accept(*this); - s4o.print(search_expression_type->is_bool_type(this->current_operand_type)?" = false":" = 0"); + s4o.print(" = __"); + if (search_expression_type->is_bool_type(this->current_operand_type)) + s4o.print("BOOL_LITERAL(FALSE)"); + else if (search_expression_type->is_integer_type(this->current_operand_type)) { + this->current_operand_type->accept(*this); + s4o.print("_LITERAL(0)"); + } + else + ERROR; /* the data type resulting from this operation is unchanged! */ return NULL; } @@ -1260,7 +1620,8 @@ void *visit(AND_operator_c *symbol) { if (search_expression_type->is_binary_type(this->default_variable_name.current_type) && search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { - XXX_operator(&(this->default_variable_name), " &= ", this->current_operand); + BYTE_operator_result_type(); + XXX_operator(&(this->default_variable_name), " &= ", this->current_operand); /* the data type resulting from this operation... */ this->default_variable_name.current_type = this->current_operand_type; } @@ -1271,7 +1632,8 @@ void *visit(OR_operator_c *symbol) { if (search_expression_type->is_binary_type(this->default_variable_name.current_type) && search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { - XXX_operator(&(this->default_variable_name), " |= ", this->current_operand); + BYTE_operator_result_type(); + XXX_operator(&(this->default_variable_name), " |= ", this->current_operand); /* the data type resulting from this operation... */ this->default_variable_name.current_type = this->current_operand_type; } @@ -1282,7 +1644,8 @@ void *visit(XOR_operator_c *symbol) { if (search_expression_type->is_binary_type(this->default_variable_name.current_type) && search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { - // '^' is a bit by bit exclusive OR !! Also seems to work with boolean types! + BYTE_operator_result_type(); + // '^' is a bit by bit exclusive OR !! Also seems to work with boolean types! XXX_operator(&(this->default_variable_name), " ^= ", this->current_operand); /* the data type resulting from this operation... */ this->default_variable_name.current_type = this->current_operand_type; @@ -1294,7 +1657,8 @@ void *visit(ANDN_operator_c *symbol) { if (search_expression_type->is_binary_type(this->default_variable_name.current_type) && search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { - XXX_operator(&(this->default_variable_name), + BYTE_operator_result_type(); + XXX_operator(&(this->default_variable_name), search_expression_type->is_bool_type(this->current_operand_type)?" &= !":" &= ~", this->current_operand); /* the data type resulting from this operation... */ @@ -1307,7 +1671,8 @@ void *visit(ORN_operator_c *symbol) { if (search_expression_type->is_binary_type(this->default_variable_name.current_type) && search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { - XXX_operator(&(this->default_variable_name), + BYTE_operator_result_type(); + XXX_operator(&(this->default_variable_name), search_expression_type->is_bool_type(this->current_operand_type)?" |= !":" |= ~", this->current_operand); /* the data type resulting from this operation... */ @@ -1320,7 +1685,8 @@ void *visit(XORN_operator_c *symbol) { if (search_expression_type->is_binary_type(this->default_variable_name.current_type) && search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { - XXX_operator(&(this->default_variable_name), + BYTE_operator_result_type(); + XXX_operator(&(this->default_variable_name), // bit by bit exclusive OR !! Also seems to work with boolean types! search_expression_type->is_bool_type(this->current_operand_type)?" ^= !":" ^= ~", this->current_operand); @@ -1341,7 +1707,8 @@ } if (search_expression_type->is_num_type(this->default_variable_name.current_type) && search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { - XXX_operator(&(this->default_variable_name), " += ", this->current_operand); + NUM_operator_result_type(); + XXX_operator(&(this->default_variable_name), " += ", this->current_operand); /* the data type resulting from this operation... */ this->default_variable_name.current_type = this->current_operand_type; return NULL; @@ -1360,7 +1727,8 @@ } if (search_expression_type->is_num_type(this->default_variable_name.current_type) && search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { - XXX_operator(&(this->default_variable_name), " -= ", this->current_operand); + NUM_operator_result_type(); + XXX_operator(&(this->default_variable_name), " -= ", this->current_operand); /* the data type resulting from this operation... */ this->default_variable_name.current_type = this->current_operand_type; return NULL; @@ -1378,6 +1746,7 @@ } if (search_expression_type->is_num_type(this->default_variable_name.current_type) && search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { + NUM_operator_result_type(); XXX_operator(&(this->default_variable_name), " *= ", this->current_operand); /* the data type resulting from this operation... */ this->default_variable_name.current_type = this->current_operand_type; @@ -1396,7 +1765,8 @@ } if (search_expression_type->is_num_type(this->default_variable_name.current_type) && search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { - XXX_operator(&(this->default_variable_name), " /= ", this->current_operand); + NUM_operator_result_type(); + XXX_operator(&(this->default_variable_name), " /= ", this->current_operand); /* the data type resulting from this operation... */ this->default_variable_name.current_type = this->current_operand_type; } @@ -1407,7 +1777,8 @@ void *visit(MOD_operator_c *symbol) { if (search_expression_type->is_num_type(this->default_variable_name.current_type) && search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { - XXX_operator(&(this->default_variable_name), " %= ", this->current_operand); + NUM_operator_result_type(); + XXX_operator(&(this->default_variable_name), " %= ", this->current_operand); /* the data type resulting from this operation... */ this->default_variable_name.current_type = this->current_operand_type; } diff -r 90782e241346 -r d7d92b2f87e9 stage4/generate_c/generate_c_inlinefcall.cc --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/stage4/generate_c/generate_c_inlinefcall.cc Thu Mar 31 10:45:34 2011 +0100 @@ -0,0 +1,677 @@ +/* + * (c) 2007 Mario de Sousa and Laurent Bessard + * + * Offered to the public under the terms of the GNU General Public License + * as published by the Free Software Foundation; either version 2 of the + * License, or (at your option) any later version. + * + * This program 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. + * + * This code is made available on the understanding that it will not be + * used in safety-critical situations without a full and competent review. + */ + +/* + * An IEC 61131-3 IL and ST compiler. + * + * Based on the + * FINAL DRAFT - IEC 61131-3, 2nd Ed. (2001-12-10) + * + */ + +/* + * This is one of the versions available for the 4th stage. + * + * This 4th stage generates a c++ source program equivalent + * to the IL and ST code. + */ + + +#define INLINE_RESULT_TEMP_VAR "__res" + +class generate_c_inlinefcall_c: public generate_c_typedecl_c { + + public: + typedef enum { + expression_vg, + assignment_vg, + complextype_base_vg, + complextype_suffix_vg + } variablegeneration_t; + + private: + + /* The name of the IL default variable... */ + #define IL_DEFVAR VAR_LEADER "IL_DEFVAR" + /* The name of the variable used to pass the result of a + * parenthesised instruction list to the immediately preceding + * scope ... + */ + il_default_variable_c default_variable_name; + + symbol_c* current_array_type; + + int fcall_number; + symbol_c *fbname; + + search_expression_type_c *search_expression_type; + + search_varfb_instance_type_c *search_varfb_instance_type; + + search_base_type_c search_base_type; + + variablegeneration_t wanted_variablegeneration; + + public: + generate_c_inlinefcall_c(stage4out_c *s4o_ptr, symbol_c *name, symbol_c *scope, const char *variable_prefix = NULL) + : generate_c_typedecl_c(s4o_ptr), + default_variable_name(IL_DEFVAR, NULL) + { + search_expression_type = new search_expression_type_c(scope); + search_varfb_instance_type = new search_varfb_instance_type_c(scope); + this->set_variable_prefix(variable_prefix); + fcall_number = 0; + fbname = name; + wanted_variablegeneration = expression_vg; + } + + virtual ~generate_c_inlinefcall_c(void) { + delete search_expression_type; + delete search_varfb_instance_type; + } + + void print(symbol_c* symbol) { + function_call_iterator_c fc_iterator(symbol); + symbol_c* function_call; + while ((function_call = fc_iterator.next()) != NULL) { + function_call->accept(*this); + } + } + + void generate_inline(symbol_c *function_name, + symbol_c *function_type_prefix, + symbol_c *function_type_suffix, + std::list<FUNCTION_PARAM*> param_list) { + std::list<FUNCTION_PARAM*>::iterator pt; + + fcall_number++; + + s4o.print(s4o.indent_spaces); + s4o.print("inline "); + function_type_prefix->accept(*this); + s4o.print(" __"); + fbname->accept(*this); + s4o.print("_"); + function_name->accept(*this); + if (function_type_suffix) + function_type_suffix->accept(*this); + s4o.print_integer(fcall_number); + s4o.print("("); + s4o.indent_right(); + + PARAM_LIST_ITERATOR() { + if (PARAM_DIRECTION == function_param_iterator_c::direction_in) { + PARAM_TYPE->accept(*this); + s4o.print(" "); + PARAM_NAME->accept(*this); + s4o.print(",\n" + s4o.indent_spaces); + } + } + fbname->accept(*this); + s4o.print(" *"); + s4o.print(FB_FUNCTION_PARAM); + s4o.indent_left(); + s4o.print(")\n" + s4o.indent_spaces); + s4o.print("{\n"); + s4o.indent_right(); + + s4o.print(s4o.indent_spaces); + function_type_prefix->accept(*this); + s4o.print(" "), + s4o.print(INLINE_RESULT_TEMP_VAR); + s4o.print(";\n"); + + PARAM_LIST_ITERATOR() { + if ((PARAM_DIRECTION == function_param_iterator_c::direction_out || + PARAM_DIRECTION == function_param_iterator_c::direction_inout) && + PARAM_VALUE != NULL) { + s4o.print(s4o.indent_spaces); + PARAM_TYPE->accept(*this); + s4o.print(" "); + s4o.print(TEMP_VAR); + PARAM_NAME->accept(*this); + s4o.print(" = "); + print_check_function(PARAM_TYPE, PARAM_VALUE); + s4o.print(";\n"); + } + } + + s4o.print(s4o.indent_spaces + INLINE_RESULT_TEMP_VAR), + s4o.print(" = "); + function_name->accept(*this); + if (function_type_suffix) + function_type_suffix->accept(*this); + s4o.print("("); + s4o.indent_right(); + + PARAM_LIST_ITERATOR() { + if (pt != param_list.begin()) + s4o.print(",\n" + s4o.indent_spaces); + if (PARAM_DIRECTION == function_param_iterator_c::direction_in) + PARAM_NAME->accept(*this); + else if (PARAM_VALUE != NULL){ + s4o.print("&"); + s4o.print(TEMP_VAR); + PARAM_NAME->accept(*this); + } + else { + s4o.print("NULL"); + } + } + s4o.print(");\n"); + s4o.indent_left(); + + PARAM_LIST_ITERATOR() { + if ((PARAM_DIRECTION == function_param_iterator_c::direction_out || + PARAM_DIRECTION == function_param_iterator_c::direction_inout) && + PARAM_VALUE != NULL) { + + s4o.print(s4o.indent_spaces); + print_setter(PARAM_VALUE, PARAM_TYPE, PARAM_NAME); + s4o.print(";\n"); + } + } + s4o.print(s4o.indent_spaces + "return "); + s4o.print(INLINE_RESULT_TEMP_VAR); + s4o.print(";\n"); + + s4o.indent_left(); + s4o.print(s4o.indent_spaces + "}\n\n"); + } + + private: + + void *print_getter(symbol_c *symbol) { + unsigned int vartype = search_varfb_instance_type->get_vartype(symbol); + if (vartype == search_var_instance_decl_c::external_vt) + s4o.print(GET_EXTERNAL); + else if (vartype == search_var_instance_decl_c::located_vt) + s4o.print(GET_LOCATED); + else + s4o.print(GET_VAR); + s4o.print("("); + + wanted_variablegeneration = complextype_base_vg; + symbol->accept(*this); + if (search_varfb_instance_type->type_is_complex()) + s4o.print(","); + wanted_variablegeneration = complextype_suffix_vg; + symbol->accept(*this); + s4o.print(")"); + wanted_variablegeneration = expression_vg; + return NULL; + } + + void *print_setter(symbol_c* symbol, + symbol_c* type, + symbol_c* value) { + unsigned int vartype = search_varfb_instance_type->get_vartype(symbol); + if (vartype == search_var_instance_decl_c::external_vt) { + symbolic_variable_c *variable = dynamic_cast<symbolic_variable_c *>(symbol); + /* TODO Find a solution for forcing global complex variables */ + if (variable != NULL) { + s4o.print(SET_EXTERNAL); + s4o.print("("); + variable->var_name->accept(*this); + s4o.print(","); + } + else { + s4o.print(SET_COMPLEX_EXTERNAL); + s4o.print("("); + } + } + else { + if (vartype == search_var_instance_decl_c::located_vt) + s4o.print(SET_LOCATED); + else + s4o.print(SET_VAR); + s4o.print("("); + } + + wanted_variablegeneration = complextype_base_vg; + symbol->accept(*this); + s4o.print(","); + wanted_variablegeneration = expression_vg; + print_check_function(type, value, NULL, true); + if (search_varfb_instance_type->type_is_complex()) { + s4o.print(","); + wanted_variablegeneration = complextype_suffix_vg; + symbol->accept(*this); + } + s4o.print(")"); + wanted_variablegeneration = expression_vg; + return NULL; + } + + /*********************/ + /* B 1.4 - Variables */ + /*********************/ + void *visit(symbolic_variable_c *symbol) { + unsigned int vartype; + if (wanted_variablegeneration == complextype_base_vg) + generate_c_base_c::visit(symbol); + else if (wanted_variablegeneration == complextype_suffix_vg) + return NULL; + else + print_getter(symbol); + return NULL; + } + + /********************************************/ + /* B.1.4.1 Directly Represented Variables */ + /********************************************/ + // direct_variable: direct_variable_token {$$ = new direct_variable_c($1);}; + void *visit(direct_variable_c *symbol) { + TRACE("direct_variable_c"); + /* Do not use print_token() as it will change everything into uppercase */ + if (strlen(symbol->value) == 0) ERROR; + s4o.print(GET_LOCATED); + s4o.print("("); + this->print_variable_prefix(); + s4o.printlocation(symbol->value + 1); + s4o.print(")"); + return NULL; + } + + /*************************************/ + /* B.1.4.2 Multi-element Variables */ + /*************************************/ + + // SYM_REF2(structured_variable_c, record_variable, field_selector) + void *visit(structured_variable_c *symbol) { + TRACE("structured_variable_c"); + switch (wanted_variablegeneration) { + case complextype_base_vg: + symbol->record_variable->accept(*this); + break; + case complextype_suffix_vg: + symbol->record_variable->accept(*this); + s4o.print("."); + symbol->field_selector->accept(*this); + break; + default: + print_getter(symbol); + break; + } + return NULL; + } + + /* subscripted_variable '[' subscript_list ']' */ + //SYM_REF2(array_variable_c, subscripted_variable, subscript_list) + void *visit(array_variable_c *symbol) { + switch (wanted_variablegeneration) { + case complextype_base_vg: + symbol->subscripted_variable->accept(*this); + break; + case complextype_suffix_vg: + symbol->subscripted_variable->accept(*this); + + current_array_type = search_varfb_instance_type->get_rawtype(symbol->subscripted_variable); + if (current_array_type == NULL) ERROR; + + s4o.print(".table"); + symbol->subscript_list->accept(*this); + + current_array_type = NULL; + break; + default: + print_getter(symbol); + break; + } + return NULL; + } + + /****************************************/ + /* B.2 - Language IL (Instruction List) */ + /****************************************/ + + /***********************************/ + /* B 2.1 Instructions and Operands */ + /***********************************/ + + void *visit(il_function_call_c *symbol) { + symbol_c* function_type_prefix = NULL; + symbol_c* function_name = NULL; + symbol_c* function_type_suffix = NULL; + DECLARE_PARAM_LIST() + + symbol_c *param_data_type = default_variable_name.current_type; + + function_call_param_iterator_c function_call_param_iterator(symbol); + + function_declaration_c *f_decl = function_symtable.find_value(symbol->function_name); + if (f_decl == function_symtable.end_value()) { + function_type_t current_function_type = get_function_type((identifier_c *)symbol->function_name); + if (current_function_type == function_none) ERROR; + + function_type_prefix = (symbol_c *)search_expression_type->compute_standard_function_il(symbol, param_data_type); + + symbol_c *en_param_name = (symbol_c *)(new identifier_c("EN")); + /* Add the value from EN param */ + ADD_PARAM_LIST(en_param_name, + (symbol_c*)(new boolean_literal_c((symbol_c*)(new bool_type_name_c()), new boolean_true_c())), + (symbol_c*)(new bool_type_name_c()), + function_param_iterator_c::direction_in) + + symbol_c *eno_param_name = (symbol_c *)(new identifier_c("ENO")); + /* Add the value from ENO param */ + ADD_PARAM_LIST(eno_param_name, NULL, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_out) + + int nb_param = 1; + if (symbol->il_operand_list != NULL) + nb_param += ((list_c *)symbol->il_operand_list)->n; + + #include "il_code_gen.c" + + } + else { + function_name = symbol->function_name; + + /* determine the base data type returned by the function being called... */ + search_base_type_c search_base_type; + function_type_prefix = (symbol_c *)f_decl->type_name->accept(search_base_type); + + /* loop through each function parameter, find the value we should pass + * to it, and then output the c equivalent... + */ + + function_param_iterator_c fp_iterator(f_decl); + identifier_c *param_name; + for(int i = 1; (param_name = fp_iterator.next()) != NULL; i++) { + symbol_c *param_type = fp_iterator.param_type(); + if (param_type == NULL) ERROR; + + function_param_iterator_c::param_direction_t param_direction = fp_iterator.param_direction(); + + symbol_c *param_value = NULL; + + /* if it is the first parameter, semantics specifies that we should + * get the value off the IL default variable! + */ + if (1 == i) + param_value = &this->default_variable_name; + + /* Get the value from a foo(<param_name> = <param_value>) style call */ + /* NOTE: the following line of code is not required in this case, but it doesn't + * harm to leave it in, as in the case of a non-formal syntax function call, + * it will always return NULL. + * We leave it in in case we later decide to merge this part of the code together + * with the function calling code in generate_c_st_c, which does require + * the following line... + */ + if (param_value == NULL) + param_value = function_call_param_iterator.search_f(param_name); + + /* Get the value from a foo(<param_value>) style call */ + if (param_value == NULL) { + param_value = function_call_param_iterator.next_nf(); + if (param_value != NULL && fp_iterator.is_en_eno_param_implicit()) ERROR; + } + + if (param_value == NULL && param_direction == function_param_iterator_c::direction_in) { + /* No value given for parameter, so we must use the default... */ + /* First check whether default value specified in function declaration...*/ + param_value = fp_iterator.default_value(); + } + + ADD_PARAM_LIST(param_name, param_value, param_type, fp_iterator.param_direction()) + } /* for(...) */ + } + + if (function_call_param_iterator.next_nf() != NULL) ERROR; + if (NULL == function_type_prefix) ERROR; + + bool has_output_params = false; + + PARAM_LIST_ITERATOR() { + if ((PARAM_DIRECTION == function_param_iterator_c::direction_out || + PARAM_DIRECTION == function_param_iterator_c::direction_inout) && + PARAM_VALUE != NULL) { + has_output_params = true; + } + } + + if (has_output_params) + generate_inline(function_name, function_type_prefix, function_type_suffix, param_list); + + CLEAR_PARAM_LIST() + + return NULL; + } + + /* | function_name '(' eol_list [il_param_list] ')' */ + // SYM_REF2(il_formal_funct_call_c, function_name, il_param_list) + void *visit(il_formal_funct_call_c *symbol) { + symbol_c* function_type_prefix = NULL; + symbol_c* function_name = NULL; + symbol_c* function_type_suffix = NULL; + DECLARE_PARAM_LIST() + + function_call_param_iterator_c function_call_param_iterator(symbol); + + function_declaration_c *f_decl = function_symtable.find_value(symbol->function_name); + if (f_decl == function_symtable.end_value()) { + function_type_t current_function_type = get_function_type((identifier_c *)symbol->function_name); + if (current_function_type == function_none) ERROR; + + function_type_prefix = (symbol_c *)search_expression_type->compute_standard_function_default(NULL, symbol); + + int nb_param = 0; + if (symbol->il_param_list != NULL) + nb_param += ((list_c *)symbol->il_param_list)->n; + + symbol_c *en_param_name = (symbol_c *)(new identifier_c("EN")); + /* Get the value from EN param */ + symbol_c *EN_param_value = function_call_param_iterator.search_f(en_param_name); + if (EN_param_value == NULL) + EN_param_value = (symbol_c*)(new boolean_literal_c((symbol_c*)(new bool_type_name_c()), new boolean_true_c())); + else + nb_param --; + ADD_PARAM_LIST(en_param_name, EN_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_in) + + symbol_c *eno_param_name = (symbol_c *)(new identifier_c("ENO")); + /* Get the value from ENO param */ + symbol_c *ENO_param_value = function_call_param_iterator.search_f(eno_param_name); + if (ENO_param_value != NULL) + nb_param --; + ADD_PARAM_LIST(eno_param_name, ENO_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_out) + + #include "st_code_gen.c" + + } + else { + function_name = symbol->function_name; + + /* determine the base data type returned by the function being called... */ + search_base_type_c search_base_type; + function_type_prefix = (symbol_c *)f_decl->type_name->accept(search_base_type); + + /* loop through each function parameter, find the value we should pass + * to it, and then output the c equivalent... + */ + + function_param_iterator_c fp_iterator(f_decl); + identifier_c *param_name; + for(int i = 1; (param_name = fp_iterator.next()) != NULL; i++) { + symbol_c *param_type = fp_iterator.param_type(); + if (param_type == NULL) ERROR; + + function_param_iterator_c::param_direction_t param_direction = fp_iterator.param_direction(); + + + symbol_c *param_value = NULL; + + /* Get the value from a foo(<param_name> = <param_value>) style call */ + if (param_value == NULL) + param_value = function_call_param_iterator.search_f(param_name); + + /* Get the value from a foo(<param_value>) style call */ + /* NOTE: the following line of code is not required in this case, but it doesn't + * harm to leave it in, as in the case of a formal syntax function call, + * it will always return NULL. + * We leave it in in case we later decide to merge this part of the code together + * with the function calling code in generate_c_st_c, which does require + * the following line... + */ + if (param_value == NULL) { + param_value = function_call_param_iterator.next_nf(); + if (param_value != NULL && fp_iterator.is_en_eno_param_implicit()) ERROR; + } + + if (param_value == NULL) { + /* No value given for parameter, so we must use the default... */ + /* First check whether default value specified in function declaration...*/ + param_value = fp_iterator.default_value(); + } + + ADD_PARAM_LIST(param_name, param_value, param_type, fp_iterator.param_direction()) + } + } + + if (function_call_param_iterator.next_nf() != NULL) ERROR; + if (NULL == function_type_prefix) ERROR; + + bool has_output_params = false; + + PARAM_LIST_ITERATOR() { + if ((PARAM_DIRECTION == function_param_iterator_c::direction_out || + PARAM_DIRECTION == function_param_iterator_c::direction_inout) && + PARAM_VALUE != NULL) { + has_output_params = true; + } + } + + if (has_output_params) + generate_inline(function_name, function_type_prefix, function_type_suffix, param_list); + + CLEAR_PARAM_LIST() + + return NULL; + } + + /***************************************/ + /* B.3 - Language ST (Structured Text) */ + /***************************************/ + /***********************/ + /* B 3.1 - Expressions */ + /***********************/ + + void *visit(function_invocation_c *symbol) { + symbol_c* function_type_prefix = NULL; + symbol_c* function_name = NULL; + symbol_c* function_type_suffix = NULL; + DECLARE_PARAM_LIST() + + symbol_c *parameter_assignment_list = NULL; + if (NULL != symbol-> formal_param_list) parameter_assignment_list = symbol-> formal_param_list; + if (NULL != symbol->nonformal_param_list) parameter_assignment_list = symbol->nonformal_param_list; + if (NULL == parameter_assignment_list) ERROR; + + function_call_param_iterator_c function_call_param_iterator(symbol); + + function_declaration_c *f_decl = function_symtable.find_value(symbol->function_name); + if (f_decl == function_symtable.end_value()) { + /* The function called is not in the symtable, so we test if it is a + * standard function defined in standard */ + + function_type_t current_function_type = get_function_type((identifier_c *)symbol->function_name); + if (current_function_type == function_none) ERROR; + + function_type_prefix = search_expression_type->get_type(symbol); + + int nb_param = ((list_c *)parameter_assignment_list)->n; + + symbol_c *en_param_name = (symbol_c *)(new identifier_c("EN")); + /* Get the value from EN param */ + symbol_c *EN_param_value = function_call_param_iterator.search_f(en_param_name); + if (EN_param_value == NULL) + EN_param_value = (symbol_c*)(new boolean_literal_c((symbol_c*)(new bool_type_name_c()), new boolean_true_c())); + else + nb_param --; + ADD_PARAM_LIST(en_param_name, EN_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_in) + + symbol_c *eno_param_name = (symbol_c *)(new identifier_c("ENO")); + /* Get the value from ENO param */ + symbol_c *ENO_param_value = function_call_param_iterator.search_f(eno_param_name); + if (ENO_param_value != NULL) + nb_param --; + ADD_PARAM_LIST(eno_param_name, ENO_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_out) + + #include "st_code_gen.c" + + } + else { + function_name = symbol->function_name; + + /* determine the base data type returned by the function being called... */ + search_base_type_c search_base_type; + function_type_prefix = (symbol_c *)f_decl->type_name->accept(search_base_type); + + /* loop through each function parameter, find the value we should pass + * to it, and then output the c equivalent... + */ + function_param_iterator_c fp_iterator(f_decl); + identifier_c *param_name; + for(int i = 1; (param_name = fp_iterator.next()) != NULL; i++) { + symbol_c *param_type = fp_iterator.param_type(); + if (param_type == NULL) ERROR; + + function_param_iterator_c::param_direction_t param_direction = fp_iterator.param_direction(); + + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *param_value = function_call_param_iterator.search_f(param_name); + + /* Get the value from a foo(<param_value>) style call */ + if (param_value == NULL) { + param_value = function_call_param_iterator.next_nf(); + if (param_value != NULL && fp_iterator.is_en_eno_param_implicit()) ERROR; + } + + if (param_value == NULL && param_direction == function_param_iterator_c::direction_in) { + /* No value given for parameter, so we must use the default... */ + /* First check whether default value specified in function declaration...*/ + param_value = fp_iterator.default_value(); + } + + ADD_PARAM_LIST(param_name, param_value, param_type, param_direction) + } /* for(...) */ + // symbol->parameter_assignment->accept(*this); + } + + if (function_call_param_iterator.next_nf() != NULL) ERROR; + if (NULL == function_type_prefix) ERROR; + + bool has_output_params = false; + + PARAM_LIST_ITERATOR() { + if ((PARAM_DIRECTION == function_param_iterator_c::direction_out || + PARAM_DIRECTION == function_param_iterator_c::direction_inout) && + PARAM_VALUE != NULL) { + has_output_params = true; + } + } + + if (has_output_params) + generate_inline(function_name, function_type_prefix, function_type_suffix, param_list); + + CLEAR_PARAM_LIST() + + return NULL; + } + +}; /* generate_c_inlinefcall_c */ + + diff -r 90782e241346 -r d7d92b2f87e9 stage4/generate_c/generate_c_sfc.cc --- a/stage4/generate_c/generate_c_sfc.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/generate_c/generate_c_sfc.cc Thu Mar 31 10:45:34 2011 +0100 @@ -38,10 +38,6 @@ int index; } TRANSITION; - - - - /***********************************************************************/ /***********************************************************************/ /***********************************************************************/ @@ -64,7 +60,6 @@ generate_c_il_c *generate_c_il; generate_c_st_c *generate_c_st; generate_c_SFC_IL_ST_c *generate_c_code; - search_var_instance_decl_c *search_var_instance_decl; int transition_number; std::list<TRANSITION> transition_list; @@ -75,12 +70,11 @@ sfcgeneration_t wanted_sfcgeneration; public: - generate_c_sfc_elements_c(stage4out_c *s4o_ptr, symbol_c *scope, const char *variable_prefix = NULL) + generate_c_sfc_elements_c(stage4out_c *s4o_ptr, symbol_c *name, symbol_c *scope, const char *variable_prefix = NULL) : generate_c_base_c(s4o_ptr) { - generate_c_il = new generate_c_il_c(s4o_ptr, scope, variable_prefix); - generate_c_st = new generate_c_st_c(s4o_ptr, scope, variable_prefix); - generate_c_code = new generate_c_SFC_IL_ST_c(s4o_ptr, scope, variable_prefix); - search_var_instance_decl = new search_var_instance_decl_c(scope); + generate_c_il = new generate_c_il_c(s4o_ptr, name, scope, variable_prefix); + generate_c_st = new generate_c_st_c(s4o_ptr, name, scope, variable_prefix); + generate_c_code = new generate_c_SFC_IL_ST_c(s4o_ptr, name, scope, variable_prefix); this->set_variable_prefix(variable_prefix); } @@ -89,7 +83,6 @@ delete generate_c_il; delete generate_c_st; delete generate_c_code; - delete search_var_instance_decl; } void reset_transition_number(void) {transition_number = 0;} @@ -131,32 +124,27 @@ } void print_transition_number(void) { - char str[10]; - sprintf(str, "%d", transition_number); - s4o.print(str); + s4o.print_integer(transition_number); } void print_reset_step(symbol_c *step_name) { s4o.print(s4o.indent_spaces); + s4o.print(SET_VAR); + s4o.print("("); print_step_argument(step_name, "state"); - s4o.print(" = 0;\n"); + s4o.print(",0);\n"); } void print_set_step(symbol_c *step_name) { s4o.print(s4o.indent_spaces); + s4o.print(SET_VAR); + s4o.print("("); print_step_argument(step_name, "state"); - s4o.print(" = 1;\n" + s4o.indent_spaces); + s4o.print(",1);\n" + s4o.indent_spaces); print_step_argument(step_name, "elapsed_time"); s4o.print(" = __time_to_timespec(1, 0, 0, 0, 0, 0);\n"); } - bool is_variable(symbol_c *symbol) { - /* we try to find the variable instance declaration, to determine its type... */ - symbol_c *var_decl = search_var_instance_decl->get_decl(symbol); - - return var_decl != NULL; - } - /*********************************************/ /* B.1.6 Sequential function chart elements */ /*********************************************/ @@ -172,18 +160,24 @@ s4o.print(s4o.indent_spaces + "{\n"); s4o.indent_right(); s4o.print(s4o.indent_spaces + "char activated = "); + s4o.print(GET_VAR); + s4o.print("("); print_step_argument(current_step, "state"); - s4o.print(" && !"); + s4o.print(") && !"); print_step_argument(current_step, "prev_state"); s4o.print(";\n"); s4o.print(s4o.indent_spaces + "char desactivated = !"); + s4o.print(GET_VAR); + s4o.print("("); print_step_argument(current_step, "state"); - s4o.print(" && "); + s4o.print(") && "); print_step_argument(current_step, "prev_state"); s4o.print(";\n"); s4o.print(s4o.indent_spaces + "char active = "); + s4o.print(GET_VAR); + s4o.print("("); print_step_argument(current_step, "state"); - s4o.print(";\n"); + s4o.print(");\n"); symbol->action_association_list->accept(*this); s4o.indent_left(); s4o.print(s4o.indent_spaces + "}\n\n"); @@ -206,18 +200,24 @@ s4o.print(s4o.indent_spaces + "{\n"); s4o.indent_right(); s4o.print(s4o.indent_spaces + "char activated = "); + s4o.print(GET_VAR); + s4o.print("("); print_step_argument(current_step, "state"); - s4o.print(" && !"); + s4o.print(") && !"); print_step_argument(current_step, "prev_state"); s4o.print(";\n"); s4o.print(s4o.indent_spaces + "char desactivated = !"); + s4o.print(GET_VAR); + s4o.print("("); print_step_argument(current_step, "state"); - s4o.print(" && "); + s4o.print(") && "); print_step_argument(current_step, "prev_state"); s4o.print(";\n"); s4o.print(s4o.indent_spaces + "char active = "); + s4o.print(GET_VAR); + s4o.print("("); print_step_argument(current_step, "state"); - s4o.print(";\n"); + s4o.print(");\n"); symbol->action_association_list->accept(*this); s4o.indent_left(); s4o.print(s4o.indent_spaces + "}\n\n"); @@ -263,10 +263,12 @@ if (symbol->integer != NULL) { s4o.print(s4o.indent_spaces + "if ("); + s4o.print(GET_VAR); + s4o.print("("); print_variable_prefix(); s4o.print("__transition_list["); print_transition_number(); - s4o.print("]) {\n"); + s4o.print("])) {\n"); s4o.indent_right(); wanted_sfcgeneration = stepreset_sg; symbol->from_steps->accept(*this); @@ -287,19 +289,23 @@ s4o.indent_left(); s4o.print(s4o.indent_spaces + "}\n"); s4o.print(s4o.indent_spaces); + s4o.print(SET_VAR); + s4o.print("("); print_variable_prefix(); s4o.print("__transition_list["); print_transition_number(); - s4o.print("] = 0;\n"); + s4o.print("],0);\n"); s4o.indent_left(); s4o.print(s4o.indent_spaces + "}\n"); break; case stepset_sg: s4o.print(s4o.indent_spaces + "if ("); + s4o.print(GET_VAR); + s4o.print("("); print_variable_prefix(); s4o.print("__transition_list["); print_transition_number(); - s4o.print("]) {\n"); + s4o.print("])) {\n"); s4o.indent_right(); symbol->to_steps->accept(*this); s4o.indent_left(); @@ -309,10 +315,12 @@ case stepreset_sg: if (symbol->integer == NULL) { s4o.print(s4o.indent_spaces + "if ("); + s4o.print(GET_VAR); + s4o.print("("); print_variable_prefix(); s4o.print("__transition_list["); print_transition_number(); - s4o.print("]) {\n"); + s4o.print("])) {\n"); s4o.indent_right(); symbol->from_steps->accept(*this); s4o.indent_left(); @@ -335,6 +343,8 @@ generate_c_il->declare_backup_variable(); s4o.print(s4o.indent_spaces); symbol->transition_condition_il->accept(*generate_c_il); + s4o.print(SET_VAR); + s4o.print("("); print_variable_prefix(); if (wanted_sfcgeneration == transitiontestdebug_sg) s4o.print("__debug_"); @@ -342,13 +352,15 @@ s4o.print("__"); s4o.print("transition_list["); print_transition_number(); - s4o.print("] = "); + s4o.print("],"); generate_c_il->print_backup_variable(); - s4o.print(";\n"); + s4o.print(");\n"); } // Transition condition is in ST if (symbol->transition_condition_st != NULL) { s4o.print(s4o.indent_spaces); + s4o.print(SET_VAR); + s4o.print("("); print_variable_prefix(); if (wanted_sfcgeneration == transitiontestdebug_sg) s4o.print("__debug_"); @@ -356,22 +368,26 @@ s4o.print("__"); s4o.print("transition_list["); print_transition_number(); - s4o.print("] = "); + s4o.print("],"); symbol->transition_condition_st->accept(*generate_c_st); - s4o.print(";\n"); + s4o.print(");\n"); } if (wanted_sfcgeneration == transitiontest_sg) { s4o.print(s4o.indent_spaces + "if (__DEBUG) {\n"); s4o.indent_right(); s4o.print(s4o.indent_spaces); + s4o.print(SET_VAR); + s4o.print("("); print_variable_prefix(); s4o.print("__debug_transition_list["); print_transition_number(); - s4o.print("] = "); + s4o.print("],"); + s4o.print(GET_VAR); + s4o.print("("); print_variable_prefix(); s4o.print("__transition_list["); print_transition_number(); - s4o.print("];\n"); + s4o.print("]));\n"); s4o.indent_left(); s4o.print(s4o.indent_spaces + "}\n"); } @@ -409,7 +425,10 @@ if (symbol->step_name != NULL) { switch (wanted_sfcgeneration) { case transitiontest_sg: + s4o.print(GET_VAR); + s4o.print("("); print_step_argument(symbol->step_name, "state"); + s4o.print(")"); break; case stepset_sg: print_set_step(symbol->step_name); @@ -431,7 +450,10 @@ switch (wanted_sfcgeneration) { case transitiontest_sg: for(int i = 0; i < symbol->n; i++) { + s4o.print(GET_VAR); + s4o.print("("); print_step_argument(symbol->elements[i], "state"); + s4o.print(")"); if (i < symbol->n - 1) { s4o.print(" && "); } @@ -473,8 +495,10 @@ } else { s4o.print(s4o.indent_spaces + "if ("); + s4o.print(GET_VAR); + s4o.print("("); print_step_argument(current_step, "state"); - s4o.print(") {\n"); + s4o.print(")) {\n"); s4o.indent_right(); s4o.print(s4o.indent_spaces); print_action_argument(symbol->action_name, "state"); @@ -524,29 +548,17 @@ s4o.print(" = 1;\n"); } if (strcmp(qualifier, "S") == 0) { - if (is_variable(current_action)) { - print_variable_prefix(); - current_action->accept(*this); - } - else - print_action_argument(current_action, "set"); + print_action_argument(current_action, "set"); s4o.print(" = 1;\n"); } if (strcmp(qualifier, "R") == 0) { - if (is_variable(current_action)) { - print_variable_prefix(); - current_action->accept(*this); - s4o.print(" = 0;\n"); - } - else { - print_action_argument(current_action, "reset"); - s4o.print(" = 1;\n"); - } + print_action_argument(current_action, "reset"); + s4o.print(" = 1;\n"); } if (strcmp(qualifier, "SD") == 0 || strcmp(qualifier, "DS") == 0 || strcmp(qualifier, "SL") == 0) { if (strcmp(qualifier, "SL") == 0) { - print_action_argument(current_action, "reset_remaining_time"); + print_action_argument(current_action, "reset_remaining_time"); } else { print_action_argument(current_action, "set_remaining_time"); @@ -583,7 +595,6 @@ }; /* generate_c_sfc_actiondecl_c */ - /***********************************************************************/ /***********************************************************************/ /***********************************************************************/ @@ -592,17 +603,30 @@ class generate_c_sfc_c: public generate_c_typedecl_c { private: + std::list<VARIABLE> variable_list; + generate_c_sfc_elements_c *generate_c_sfc_elements; + search_var_instance_decl_c *search_var_instance_decl; public: - generate_c_sfc_c(stage4out_c *s4o_ptr, symbol_c *scope, const char *variable_prefix = NULL) + generate_c_sfc_c(stage4out_c *s4o_ptr, symbol_c *name, symbol_c *scope, const char *variable_prefix = NULL) : generate_c_typedecl_c(s4o_ptr) { - generate_c_sfc_elements = new generate_c_sfc_elements_c(s4o_ptr, scope, variable_prefix); + generate_c_sfc_elements = new generate_c_sfc_elements_c(s4o_ptr, name, scope, variable_prefix); + search_var_instance_decl = new search_var_instance_decl_c(scope); this->set_variable_prefix(variable_prefix); } virtual ~generate_c_sfc_c(void) { + variable_list.clear(); delete generate_c_sfc_elements; + delete search_var_instance_decl; + } + + bool is_variable(symbol_c *symbol) { + /* we try to find the variable instance declaration, to determine if symbol is variable... */ + symbol_c *var_decl = search_var_instance_decl->get_decl(symbol); + + return var_decl != NULL; } /*********************************************/ @@ -614,6 +638,7 @@ generate_c_sfc_elements->reset_transition_number(); for(i = 0; i < symbol->n; i++) { + symbol->elements[i]->accept(*this); generate_c_sfc_elements->generate(symbol->elements[i], generate_c_sfc_elements_c::transitionlist_sg); } @@ -621,7 +646,7 @@ s4o.print(s4o.indent_spaces +"BOOL transition;\n"); s4o.print(s4o.indent_spaces +"TIME elapsed_time, current_time;\n\n"); - /* generate elapsed_time initialisations */ + /* generate elapsed_time initializations */ s4o.print(s4o.indent_spaces + "// Calculate elapsed_time\n"); s4o.print(s4o.indent_spaces +"current_time = __CURRENT_TIME;\n"); s4o.print(s4o.indent_spaces +"elapsed_time = __time_sub(__BOOL_LITERAL(TRUE), NULL, current_time, "); @@ -631,20 +656,42 @@ print_variable_prefix(); s4o.print("__lasttick_time = current_time;\n"); - /* generate step initialisations */ - s4o.print(s4o.indent_spaces + "// Steps initialisation\n"); + /* generate transition initializations */ + s4o.print(s4o.indent_spaces + "// Transitions initialization\n"); + s4o.print(s4o.indent_spaces + "if (__DEBUG) {\n"); + s4o.indent_right(); s4o.print(s4o.indent_spaces + "for (i = 0; i < "); print_variable_prefix(); + s4o.print("__nb_transitions; i++) {\n"); + s4o.indent_right(); + s4o.print(s4o.indent_spaces); + print_variable_prefix(); + s4o.print("__transition_list[i] = "); + print_variable_prefix(); + s4o.print("__debug_transition_list[i];\n"); + s4o.indent_left(); + s4o.print(s4o.indent_spaces + "}\n"); + s4o.indent_left(); + s4o.print(s4o.indent_spaces + "}\n"); + + /* generate step initializations */ + s4o.print(s4o.indent_spaces + "// Steps initialization\n"); + s4o.print(s4o.indent_spaces + "for (i = 0; i < "); + print_variable_prefix(); s4o.print("__nb_steps; i++) {\n"); s4o.indent_right(); s4o.print(s4o.indent_spaces); print_variable_prefix(); s4o.print("__step_list[i].prev_state = "); - print_variable_prefix(); - s4o.print("__step_list[i].state;\n"); + s4o.print(GET_VAR); + s4o.print("("); + print_variable_prefix(); + s4o.print("__step_list[i].state);\n"); s4o.print(s4o.indent_spaces + "if ("); - print_variable_prefix(); - s4o.print("__step_list[i].state) {\n"); + s4o.print(GET_VAR); + s4o.print("("); + print_variable_prefix(); + s4o.print("__step_list[i].state)) {\n"); s4o.indent_right(); s4o.print(s4o.indent_spaces); print_variable_prefix(); @@ -656,8 +703,8 @@ s4o.indent_left(); s4o.print(s4o.indent_spaces + "}\n"); - /* generate action initilizations */ - s4o.print(s4o.indent_spaces + "// Actions initialisation\n"); + /* generate action initializations */ + s4o.print(s4o.indent_spaces + "// Actions initialization\n"); s4o.print(s4o.indent_spaces + "for (i = 0; i < "); print_variable_prefix(); s4o.print("__nb_actions; i++) {\n"); @@ -788,6 +835,38 @@ /* generate action execution */ s4o.print(s4o.indent_spaces + "// Actions execution\n"); + { + std::list<VARIABLE>::iterator pt; + for(pt = variable_list.begin(); pt != variable_list.end(); pt++) { + symbol_c *var_decl = search_var_instance_decl->get_decl(pt->symbol); + if (var_decl != NULL) { + unsigned int vartype = search_var_instance_decl->get_vartype(); + + s4o.print(s4o.indent_spaces); + if (vartype == search_var_instance_decl_c::external_vt) { + s4o.print(SET_EXTERNAL); + s4o.print("("); + pt->symbol->accept(*this); + s4o.print(","); + } + else { + if (vartype == search_var_instance_decl_c::located_vt) + s4o.print(SET_LOCATED); + else + s4o.print(SET_VAR); + s4o.print("("); + } + print_variable_prefix(); + pt->symbol->accept(*this); + s4o.print(","); + print_variable_prefix(); + s4o.print("__action_list["); + s4o.print(SFC_STEP_ACTION_PREFIX); + pt->symbol->accept(*this); + s4o.print("].state);\n"); + } + } + } for(i = 0; i < symbol->n; i++) { generate_c_sfc_elements->generate(symbol->elements[i], generate_c_sfc_elements_c::actionbody_sg); } @@ -796,6 +875,41 @@ return NULL; } + void *visit(initial_step_c *symbol) { + symbol->action_association_list->accept(*this); + return NULL; + } + + void *visit(step_c *symbol) { + symbol->action_association_list->accept(*this); + return NULL; + } + + void *visit(action_association_c *symbol) { + symbol_c *var_decl = search_var_instance_decl->get_decl(symbol->action_name); + + if (var_decl != NULL) { + std::list<VARIABLE>::iterator pt; + for(pt = variable_list.begin(); pt != variable_list.end(); pt++) { + if (!compare_identifiers(pt->symbol, symbol->action_name)) + return NULL; + } + VARIABLE *variable; + variable = new VARIABLE; + variable->symbol = (identifier_c*)(symbol->action_name); + variable_list.push_back(*variable); + } + return NULL; + } + + void *visit(transition_c *symbol) { + return NULL; + } + + void *visit(action_c *symbol) { + return NULL; + } + void generate(sequential_function_chart_c *sfc) { sfc->accept(*this); } diff -r 90782e241346 -r d7d92b2f87e9 stage4/generate_c/generate_c_sfcdecl.cc --- a/stage4/generate_c/generate_c_sfcdecl.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/generate_c/generate_c_sfcdecl.cc Thu Mar 31 10:45:34 2011 +0100 @@ -31,8 +31,10 @@ * code. */ - - +typedef struct +{ + identifier_c *symbol; +} VARIABLE; /***********************************************************************/ /***********************************************************************/ @@ -50,29 +52,37 @@ stepundef_sd, actiondef_sd, actionundef_sd, - actioncount_sd + actioncount_sd, + transitioncount_sd } sfcdeclaration_t; private: - char step_number; - char action_number; - char transition_number; + int step_number; + int action_number; + int transition_number; + std::list<VARIABLE> variable_list; sfcdeclaration_t wanted_sfcdeclaration; + + search_var_instance_decl_c *search_var_instance_decl; public: - generate_c_sfcdecl_c(stage4out_c *s4o_ptr, sfcdeclaration_t sfcdeclaration) + generate_c_sfcdecl_c(stage4out_c *s4o_ptr, symbol_c *scope, const char *variable_prefix = NULL) : generate_c_typedecl_c(s4o_ptr) { - wanted_sfcdeclaration = sfcdeclaration; - } - ~generate_c_sfcdecl_c(void) {} - - void print(symbol_c *symbol, const char *variable_prefix = NULL) { this->set_variable_prefix(variable_prefix); - + search_var_instance_decl = new search_var_instance_decl_c(scope); + } + ~generate_c_sfcdecl_c(void) { + variable_list.clear(); + delete search_var_instance_decl; + } + + void generate(symbol_c *symbol, sfcdeclaration_t declaration_type) { + wanted_sfcdeclaration = declaration_type; + symbol->accept(*this); } - + /*********************************************/ /* B.1.6 Sequential function chart elements */ /*********************************************/ @@ -99,14 +109,15 @@ s4o.print(s4o.indent_spaces + "UINT __nb_actions;\n"); /* transitions table declaration */ - s4o.print(s4o.indent_spaces + "BOOL __transition_list["); + s4o.print(s4o.indent_spaces + "__IEC_BOOL_t __transition_list["); s4o.print_integer(transition_number); s4o.print("];\n"); /* transitions debug table declaration */ - s4o.print(s4o.indent_spaces + "BOOL __debug_transition_list["); + s4o.print(s4o.indent_spaces + "__IEC_BOOL_t __debug_transition_list["); s4o.print_integer(transition_number); s4o.print("];\n"); + s4o.print(s4o.indent_spaces + "UINT __nb_transitions;\n"); /* last_ticktime declaration */ s4o.print(s4o.indent_spaces + "TIME __lasttick_time;\n"); @@ -128,7 +139,7 @@ wanted_sfcdeclaration = sfcinit_sd; /* steps table initialisation */ - s4o.print(s4o.indent_spaces + "STEP temp_step = {0, 0, 0};\n"); + s4o.print(s4o.indent_spaces + "static const STEP temp_step = {{0, 0}, 0, 0};\n"); s4o.print(s4o.indent_spaces + "for(i = 0; i < "); print_variable_prefix(); s4o.print("__nb_steps; i++) {\n"); @@ -141,7 +152,7 @@ for(int i = 0; i < symbol->n; i++) symbol->elements[i]->accept(*this); - /* steps table count */ + /* actions table count */ wanted_sfcdeclaration = actioncount_sd; for(int i = 0; i < symbol->n; i++) symbol->elements[i]->accept(*this); @@ -154,7 +165,7 @@ wanted_sfcdeclaration = sfcinit_sd; /* actions table initialisation */ - s4o.print(s4o.indent_spaces + "ACTION temp_action = {0, 0, 0, 0, 0, 0};\n"); + s4o.print(s4o.indent_spaces + "static const ACTION temp_action = {0, 0, 0, 0, 0, 0};\n"); s4o.print(s4o.indent_spaces + "for(i = 0; i < "); print_variable_prefix(); s4o.print("__nb_actions; i++) {\n"); @@ -165,6 +176,18 @@ s4o.indent_left(); s4o.print(s4o.indent_spaces + "}\n"); + /* transitions table count */ + wanted_sfcdeclaration = transitioncount_sd; + for(int i = 0; i < symbol->n; i++) + symbol->elements[i]->accept(*this); + s4o.print(s4o.indent_spaces); + print_variable_prefix(); + s4o.print("__nb_transitions = "); + s4o.print_integer(transition_number); + s4o.print(";\n"); + transition_number = 0; + wanted_sfcdeclaration = sfcinit_sd; + /* last_ticktime initialisation */ s4o.print(s4o.indent_spaces); print_variable_prefix(); @@ -178,6 +201,18 @@ break; case actiondef_sd: s4o.print("// Actions definitions\n"); + { + std::list<VARIABLE>::iterator pt; + for(pt = variable_list.begin(); pt != variable_list.end(); pt++) { + s4o.print("#define "); + s4o.print(SFC_STEP_ACTION_PREFIX); + pt->symbol->accept(*this); + s4o.print(" "); + s4o.print_integer(action_number); + s4o.print("\n"); + action_number++; + } + } for(int i = 0; i < symbol->n; i++) symbol->elements[i]->accept(*this); s4o.print("\n"); @@ -190,6 +225,15 @@ break; case actionundef_sd: s4o.print("// Actions undefinitions\n"); + { + std::list<VARIABLE>::iterator pt; + for(pt = variable_list.begin(); pt != variable_list.end(); pt++) { + s4o.print("#undef "); + s4o.print(SFC_STEP_ACTION_PREFIX); + pt->symbol->accept(*this); + s4o.print("\n"); + } + } for(int i = 0; i < symbol->n; i++) symbol->elements[i]->accept(*this); s4o.print("\n"); @@ -202,16 +246,22 @@ void *visit(initial_step_c *symbol) { switch (wanted_sfcdeclaration) { + case actioncount_sd: + symbol->action_association_list->accept(*this); + break; + case sfcdecl_sd: + symbol->action_association_list->accept(*this); case stepcount_sd: - case sfcdecl_sd: step_number++; break; case sfcinit_sd: s4o.print(s4o.indent_spaces); + s4o.print(SET_VAR); + s4o.print("("); print_variable_prefix(); s4o.print("__step_list["); s4o.print_integer(step_number); - s4o.print("].state = 1;\n"); + s4o.print("].state,1);\n"); step_number++; break; case stepdef_sd: @@ -237,8 +287,12 @@ void *visit(step_c *symbol) { switch (wanted_sfcdeclaration) { + case actioncount_sd: + symbol->action_association_list->accept(*this); + break; + case sfcdecl_sd: + symbol->action_association_list->accept(*this); case stepcount_sd: - case sfcdecl_sd: case sfcinit_sd: step_number++; break; @@ -263,9 +317,29 @@ return NULL; } + void *visit(action_association_c *symbol) { + /* we try to find the variable instance declaration, to determine if symbol is variable... */ + symbol_c *var_decl = search_var_instance_decl->get_decl(symbol->action_name); + + if (var_decl != NULL) { + std::list<VARIABLE>::iterator pt; + for(pt = variable_list.begin(); pt != variable_list.end(); pt++) { + if (!compare_identifiers(pt->symbol, symbol->action_name)) + return NULL; + } + VARIABLE *variable; + variable = new VARIABLE; + variable->symbol = (identifier_c*)(symbol->action_name); + variable_list.push_back(*variable); + action_number++; + } + return NULL; + } + void *visit(transition_c *symbol) { switch (wanted_sfcdeclaration) { case sfcdecl_sd: + case transitioncount_sd: transition_number++; break; default: diff -r 90782e241346 -r d7d92b2f87e9 stage4/generate_c/generate_c_st.cc --- a/stage4/generate_c/generate_c_st.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/generate_c/generate_c_st.cc Thu Mar 31 10:45:34 2011 +0100 @@ -40,6 +40,15 @@ class generate_c_st_c: public generate_c_typedecl_c { + public: + typedef enum { + expression_vg, + assignment_vg, + complextype_base_vg, + complextype_suffix_vg, + fparam_output_vg + } variablegeneration_t; + private: /* When calling a function block, we must first find it's type, * by searching through the declarations of the variables currently @@ -71,18 +80,25 @@ search_base_type_c search_base_type; symbol_c* current_array_type; - - bool current_param_is_pointer; + symbol_c* current_param_type; + + int fcall_number; + symbol_c *fbname; + + variablegeneration_t wanted_variablegeneration; public: - generate_c_st_c(stage4out_c *s4o_ptr, symbol_c *scope, const char *variable_prefix = NULL) + generate_c_st_c(stage4out_c *s4o_ptr, symbol_c *name, symbol_c *scope, const char *variable_prefix = NULL) : generate_c_typedecl_c(s4o_ptr) { search_fb_instance_decl = new search_fb_instance_decl_c(scope); search_expression_type = new search_expression_type_c(scope); search_varfb_instance_type = new search_varfb_instance_type_c(scope); this->set_variable_prefix(variable_prefix); current_array_type = NULL; - current_param_is_pointer = false; + current_param_type = NULL; + fcall_number = 0; + fbname = name; + wanted_variablegeneration = expression_vg; } virtual ~generate_c_st_c(void) { @@ -99,25 +115,109 @@ private: +void *print_getter(symbol_c *symbol) { + unsigned int vartype = search_varfb_instance_type->get_vartype(symbol); + if (wanted_variablegeneration == fparam_output_vg) { + if (vartype == search_var_instance_decl_c::external_vt) + s4o.print(GET_EXTERNAL_BY_REF); + else if (vartype == search_var_instance_decl_c::located_vt) + s4o.print(GET_LOCATED_BY_REF); + else + s4o.print(GET_VAR_BY_REF); + } + else { + if (vartype == search_var_instance_decl_c::external_vt) + s4o.print(GET_EXTERNAL); + else if (vartype == search_var_instance_decl_c::located_vt) + s4o.print(GET_LOCATED); + else + s4o.print(GET_VAR); + } + s4o.print("("); + + variablegeneration_t old_wanted_variablegeneration = wanted_variablegeneration; + wanted_variablegeneration = complextype_base_vg; + symbol->accept(*this); + if (search_varfb_instance_type->type_is_complex()) + s4o.print(","); + wanted_variablegeneration = complextype_suffix_vg; + symbol->accept(*this); + s4o.print(")"); + wanted_variablegeneration = old_wanted_variablegeneration; + return NULL; +} + +void *print_setter(symbol_c* symbol, + symbol_c* type, + symbol_c* value, + symbol_c* fb_symbol = NULL, + symbol_c* fb_value = NULL) { + unsigned int vartype = search_varfb_instance_type->get_vartype(symbol); + if (vartype == search_var_instance_decl_c::external_vt) { + symbolic_variable_c *variable = dynamic_cast<symbolic_variable_c *>(symbol); + /* TODO Find a solution for forcing global complex variables */ + if (variable != NULL) { + s4o.print(SET_EXTERNAL); + s4o.print("("); + variable->var_name->accept(*this); + s4o.print(","); + } + else { + s4o.print(SET_COMPLEX_EXTERNAL); + s4o.print("("); + } + } + else { + if (vartype == search_var_instance_decl_c::located_vt) + s4o.print(SET_LOCATED); + else + s4o.print(SET_VAR); + s4o.print("("); + } + + if (fb_symbol != NULL) { + print_variable_prefix(); + fb_symbol->accept(*this); + s4o.print("."); + } + else + wanted_variablegeneration = complextype_base_vg; + symbol->accept(*this); + s4o.print(","); + wanted_variablegeneration = expression_vg; + print_check_function(type, value, fb_value); + if (search_varfb_instance_type->type_is_complex()) { + s4o.print(","); + wanted_variablegeneration = complextype_suffix_vg; + symbol->accept(*this); + } + s4o.print(")"); + wanted_variablegeneration = expression_vg; + return NULL; +} /*********************/ /* B 1.4 - Variables */ /*********************/ void *visit(symbolic_variable_c *symbol) { - unsigned int vartype = search_varfb_instance_type->get_vartype(symbol); - if (!current_param_is_pointer && (vartype == search_var_instance_decl_c::external_vt || vartype == search_var_instance_decl_c::located_vt)) { - s4o.print("*("); - generate_c_base_c::visit(symbol); - s4o.print(")"); - } - else if (current_param_is_pointer && vartype != search_var_instance_decl_c::external_vt && vartype != search_var_instance_decl_c::located_vt) { - s4o.print("&("); - generate_c_base_c::visit(symbol); - s4o.print(")"); - } - else { - generate_c_base_c::visit(symbol); - } + unsigned int vartype; + if (wanted_variablegeneration == complextype_base_vg) + generate_c_base_c::visit(symbol); + else if (wanted_variablegeneration == complextype_suffix_vg) + return NULL; + else if (this->is_variable_prefix_null()) { + vartype = search_varfb_instance_type->get_vartype(symbol); + if (wanted_variablegeneration == fparam_output_vg) { + s4o.print("&("); + generate_c_base_c::visit(symbol); + s4o.print(")"); + } + else { + generate_c_base_c::visit(symbol); + } + } + else + print_getter(symbol); return NULL; } @@ -129,14 +229,29 @@ TRACE("direct_variable_c"); /* Do not use print_token() as it will change everything into uppercase */ if (strlen(symbol->value) == 0) ERROR; - if (!current_param_is_pointer) { - s4o.print("*("); + if (this->is_variable_prefix_null()) { + if (wanted_variablegeneration != fparam_output_vg) + s4o.print("*("); + } + else { + switch (wanted_variablegeneration) { + case expression_vg: + s4o.print(GET_LOCATED); + s4o.print("("); + break; + case fparam_output_vg: + s4o.print(GET_LOCATED_BY_REF); + s4o.print("("); + break; + default: + break; + } } this->print_variable_prefix(); s4o.printlocation(symbol->value + 1); - if (!current_param_is_pointer) { + if ((this->is_variable_prefix_null() && wanted_variablegeneration != fparam_output_vg) || + wanted_variablegeneration != assignment_vg) s4o.print(")"); - } return NULL; } @@ -144,14 +259,64 @@ /* B.1.4.2 Multi-element Variables */ /*************************************/ +// SYM_REF2(structured_variable_c, record_variable, field_selector) +void *visit(structured_variable_c *symbol) { + TRACE("structured_variable_c"); + switch (wanted_variablegeneration) { + case complextype_base_vg: + symbol->record_variable->accept(*this); + break; + case complextype_suffix_vg: + symbol->record_variable->accept(*this); + s4o.print("."); + symbol->field_selector->accept(*this); + break; + default: + if (this->is_variable_prefix_null()) { + symbol->record_variable->accept(*this); + s4o.print("."); + symbol->field_selector->accept(*this); + } + else + print_getter(symbol); + break; + } + return NULL; +} + /* subscripted_variable '[' subscript_list ']' */ //SYM_REF2(array_variable_c, subscripted_variable, subscript_list) void *visit(array_variable_c *symbol) { - current_array_type = search_varfb_instance_type->get_type(symbol->subscripted_variable, false); - symbol->subscripted_variable->accept(*this); - if (current_array_type != NULL) { - symbol->subscript_list->accept(*this); - current_array_type = NULL; + switch (wanted_variablegeneration) { + case complextype_base_vg: + symbol->subscripted_variable->accept(*this); + break; + case complextype_suffix_vg: + symbol->subscripted_variable->accept(*this); + + current_array_type = search_varfb_instance_type->get_rawtype(symbol->subscripted_variable); + if (current_array_type == NULL) ERROR; + + s4o.print(".table"); + symbol->subscript_list->accept(*this); + + current_array_type = NULL; + break; + default: + if (this->is_variable_prefix_null()) { + symbol->subscripted_variable->accept(*this); + + current_array_type = search_varfb_instance_type->get_rawtype(symbol->subscripted_variable); + if (current_array_type == NULL) ERROR; + + s4o.print(".table"); + symbol->subscript_list->accept(*this); + + current_array_type = NULL; + } + else + print_getter(symbol); + break; } return NULL; } @@ -170,6 +335,29 @@ return NULL; } +/******************************************/ +/* B 1.4.3 - Declaration & Initialisation */ +/******************************************/ + +/* helper symbol for structure_initialization */ +/* structure_element_initialization_list ',' structure_element_initialization */ +void *visit(structure_element_initialization_list_c *symbol) { + generate_c_structure_initialization_c *structure_initialization = new generate_c_structure_initialization_c(&s4o); + structure_initialization->init_structure_default(this->current_param_type); + structure_initialization->init_structure_values(symbol); + delete structure_initialization; + return NULL; +} + +/* helper symbol for array_initialization */ +/* array_initial_elements_list ',' array_initial_elements */ +void *visit(array_initial_elements_list_c *symbol) { + generate_c_array_initialization_c *array_initialization = new generate_c_array_initialization_c(&s4o); + array_initialization->init_array_size(this->current_param_type); + array_initialization->init_array_values(symbol); + delete array_initialization; + return NULL; +} /***************************************/ /* B.3 - Language ST (Structured Text) */ @@ -404,14 +592,15 @@ symbol_c* function_type_prefix = NULL; symbol_c* function_name = NULL; symbol_c* function_type_suffix = NULL; - std::list<FUNCTION_PARAM> param_list; - FUNCTION_PARAM *param; + DECLARE_PARAM_LIST() symbol_c *parameter_assignment_list = NULL; if (NULL != symbol-> formal_param_list) parameter_assignment_list = symbol-> formal_param_list; if (NULL != symbol->nonformal_param_list) parameter_assignment_list = symbol->nonformal_param_list; if (NULL == parameter_assignment_list) ERROR; + function_call_param_iterator_c function_call_param_iterator(symbol); + function_declaration_c *f_decl = function_symtable.find_value(symbol->function_name); if (f_decl == function_symtable.end_value()) { /* The function called is not in the symtable, so we test if it is a @@ -422,57 +611,50 @@ symbol_c *function_return_type = search_expression_type->get_type(symbol); - function_call_param_iterator_c function_call_param_iterator(symbol); - int nb_param = ((list_c *)parameter_assignment_list)->n; - identifier_c en_param_name("EN"); + symbol_c *en_param_name = (symbol_c *)(new identifier_c("EN")); /* Get the value from EN param */ - symbol_c *EN_param_value = function_call_param_iterator.search_f(&en_param_name); + symbol_c *EN_param_value = function_call_param_iterator.search_f(en_param_name); if (EN_param_value == NULL) EN_param_value = (symbol_c*)(new boolean_literal_c((symbol_c*)(new bool_type_name_c()), new boolean_true_c())); else nb_param --; - ADD_PARAM_LIST(EN_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_in) - - identifier_c eno_param_name("ENO"); + ADD_PARAM_LIST(en_param_name, EN_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_in) + + symbol_c *eno_param_name = (symbol_c *)(new identifier_c("ENO")); /* Get the value from ENO param */ - symbol_c *ENO_param_value = function_call_param_iterator.search_f(&eno_param_name); + symbol_c *ENO_param_value = function_call_param_iterator.search_f(eno_param_name); if (ENO_param_value != NULL) nb_param --; - ADD_PARAM_LIST(ENO_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_out) - - #define search(x) search_f(x) - #define next() next_nf() -// #define search_constant_type_c::constant_int_type_name search_expression_type_c::integer - #define constant_int_type_name integer + ADD_PARAM_LIST(eno_param_name, ENO_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_out) + #include "st_code_gen.c" - #undef constant_int_type_name -// #undef search_constant_type_c::constant_int_type_name - #undef next - #undef search } else { - /* loop through each function parameter, find the value we should pass + function_name = symbol->function_name; + + /* loop through each function parameter, find the value we should pass * to it, and then output the c equivalent... */ function_param_iterator_c fp_iterator(f_decl); - - function_name = symbol->function_name; - identifier_c *param_name; - function_call_param_iterator_c function_call_param_iterator(symbol); for(int i = 1; (param_name = fp_iterator.next()) != NULL; i++) { + symbol_c *param_type = fp_iterator.param_type(); + if (param_type == NULL) ERROR; + function_param_iterator_c::param_direction_t param_direction = fp_iterator.param_direction(); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ - if (param_value == NULL) + if (param_value == NULL) { param_value = function_call_param_iterator.next_nf(); + if (param_value != NULL && fp_iterator.is_en_eno_param_implicit()) ERROR; + } if (param_value == NULL && param_direction == function_param_iterator_c::direction_in) { /* No value given for parameter, so we must use the default... */ @@ -480,69 +662,106 @@ param_value = fp_iterator.default_value(); } - symbol_c *param_type = fp_iterator.param_type(); - if (param_type == NULL) ERROR; - - ADD_PARAM_LIST(param_value, param_type, param_direction) + ADD_PARAM_LIST(param_name, param_value, param_type, param_direction) } /* for(...) */ // symbol->parameter_assignment->accept(*this); } + if (function_call_param_iterator.next_nf() != NULL) ERROR; + + bool has_output_params = false; + + if (!this->is_variable_prefix_null()) { + PARAM_LIST_ITERATOR() { + if ((PARAM_DIRECTION == function_param_iterator_c::direction_out || + PARAM_DIRECTION == function_param_iterator_c::direction_inout) && + PARAM_VALUE != NULL) { + if (!has_output_params) { + has_output_params = true; + } + } + } + } + if (function_type_prefix != NULL) { s4o.print("("); function_type_prefix->accept(*this); s4o.print(")"); } - if (function_name != NULL) + if (has_output_params) { + fcall_number++; + s4o.print("__"); + fbname->accept(*this); + s4o.print("_"); function_name->accept(*this); - if (function_type_suffix != NULL) - function_type_suffix->accept(*this); + if (function_type_suffix != NULL) + function_type_suffix->accept(*this); + s4o.print_integer(fcall_number); + } + else { + function_name->accept(*this); + if (function_type_suffix != NULL) + function_type_suffix->accept(*this); + } s4o.print("("); s4o.indent_right(); - std::list<FUNCTION_PARAM>::iterator pt; - for(pt = param_list.begin(); pt != param_list.end(); pt++) { - if (pt != param_list.begin()) - s4o.print(",\n"+s4o.indent_spaces); - symbol_c *param_value = pt->param_value; - symbol_c *param_type = pt->param_type; + int nb_param = 0; + PARAM_LIST_ITERATOR() { + symbol_c *param_value = PARAM_VALUE; + current_param_type = PARAM_TYPE; - switch (pt->param_direction) { + switch (PARAM_DIRECTION) { case function_param_iterator_c::direction_in: - if (param_value == NULL) { + if (nb_param > 0) + s4o.print(",\n"+s4o.indent_spaces); + if (param_value == NULL) { /* If not, get the default value of this variable's type */ - param_value = (symbol_c *)param_type->accept(*type_initial_value_c::instance()); + param_value = (symbol_c *)current_param_type->accept(*type_initial_value_c::instance()); } if (param_value == NULL) ERROR; - if (search_base_type.type_is_subrange(param_type)) { - s4o.print("__CHECK_"); - param_type->accept(*this); - s4o.print("("); - } - param_value->accept(*this); - if (search_base_type.type_is_subrange(param_type)) - s4o.print(")"); + s4o.print("("); + if (search_expression_type->is_literal_integer_type(current_param_type)) + search_expression_type->lint_type_name.accept(*this); + else if (search_expression_type->is_literal_real_type(current_param_type)) + search_expression_type->lreal_type_name.accept(*this); + else + current_param_type->accept(*this); + s4o.print(")"); + print_check_function(current_param_type, param_value); + nb_param++; break; case function_param_iterator_c::direction_out: case function_param_iterator_c::direction_inout: - current_param_is_pointer = true; - if (param_value == NULL) { - s4o.print("NULL"); - } else { - param_value->accept(*this); - } - current_param_is_pointer = false; + if (!has_output_params) { + if (nb_param > 0) + s4o.print(",\n"+s4o.indent_spaces); + if (param_value == NULL) + s4o.print("NULL"); + else { + wanted_variablegeneration = fparam_output_vg; + param_value->accept(*this); + wanted_variablegeneration = expression_vg; + } + nb_param++; + } break; case function_param_iterator_c::direction_extref: /* TODO! */ ERROR; break; } /* switch */ - } - + } + if (has_output_params) { + if (nb_param > 0) + s4o.print(",\n"+s4o.indent_spaces); + s4o.print(FB_FUNCTION_PARAM); + } s4o.print(")"); s4o.indent_left(); + CLEAR_PARAM_LIST() + return NULL; } @@ -557,18 +776,16 @@ /* B 3.2.1 Assignment Statements */ /*********************************/ void *visit(assignment_statement_c *symbol) { - symbol_c *left_type = search_varfb_instance_type->get_type(symbol->l_exp, false); + symbol_c *left_type = search_varfb_instance_type->get_rawtype(symbol->l_exp); - symbol->l_exp->accept(*this); - s4o.print(" = "); - if (search_base_type.type_is_subrange(left_type)) { - s4o.print("__CHECK_"); - left_type->accept(*this); - s4o.print("("); - } - symbol->r_exp->accept(*this); - if (search_base_type.type_is_subrange(left_type)) - s4o.print(")"); + if (this->is_variable_prefix_null()) { + symbol->l_exp->accept(*this); + s4o.print(" = "); + print_check_function(left_type, symbol->r_exp); + } + else { + print_setter(symbol->l_exp, left_type, symbol->r_exp); + } return NULL; } @@ -616,19 +833,16 @@ if (param_value != NULL) if ((param_direction == function_param_iterator_c::direction_in) || (param_direction == function_param_iterator_c::direction_inout)) { - print_variable_prefix(); - symbol->fb_name->accept(*this); - s4o.print("."); - param_name->accept(*this); - s4o.print(" = "); - if (search_base_type.type_is_subrange(param_type)) { - s4o.print("__CHECK_"); - param_type->accept(*this); - s4o.print("("); + if (this->is_variable_prefix_null()) { + symbol->fb_name->accept(*this); + s4o.print("."); + param_name->accept(*this); + s4o.print(" = "); + print_check_function(param_type, param_value); } - param_value->accept(*this); - if (search_base_type.type_is_subrange(param_type)) - s4o.print(")"); + else { + print_setter(param_name, param_type, param_value, symbol->fb_name); + } s4o.print(";\n" + s4o.indent_spaces); } } /* for(...) */ @@ -660,22 +874,16 @@ if (param_value != NULL) if ((param_direction == function_param_iterator_c::direction_out) || (param_direction == function_param_iterator_c::direction_inout)) { - symbol_c *param_type = search_varfb_instance_type->get_type(param_value, false); - - s4o.print(";\n"+ s4o.indent_spaces); - param_value->accept(*this); - s4o.print(" = "); - if (search_base_type.type_is_subrange(param_type)) { - s4o.print("__CHECK_"); - param_type->accept(*this); - s4o.print("("); + symbol_c *param_type = search_varfb_instance_type->get_rawtype(param_value); + s4o.print(";\n" + s4o.indent_spaces); + if (this->is_variable_prefix_null()) { + param_value->accept(*this); + s4o.print(" = "); + print_check_function(param_type, param_name, symbol->fb_name); } - print_variable_prefix(); - symbol->fb_name->accept(*this); - s4o.print("."); - param_name->accept(*this); - if (search_base_type.type_is_subrange(param_type)) - s4o.print(")"); + else { + print_setter(param_value, param_type, param_name, NULL, symbol->fb_name); + } } } /* for(...) */ diff -r 90782e241346 -r d7d92b2f87e9 stage4/generate_c/generate_c_typedecl.cc --- a/stage4/generate_c/generate_c_typedecl.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/generate_c/generate_c_typedecl.cc Thu Mar 31 10:45:34 2011 +0100 @@ -195,13 +195,13 @@ void *visit(subrange_type_declaration_c *symbol) { TRACE("subrange_type_declaration_c"); - s4o_incl.print("typedef "); + s4o_incl.print("__DECLARE_DERIVED_TYPE("); current_basetypedeclaration = subrangebasetype_bd; symbol->subrange_spec_init->accept(*this); current_basetypedeclaration = none_bd; - s4o_incl.print(" "); + s4o_incl.print(", "); symbol->subrange_type_name->accept(*basedecl); - s4o_incl.print(";\n"); + s4o_incl.print(")\n"); current_type_name = symbol->subrange_type_name; @@ -340,16 +340,17 @@ void *visit(array_type_declaration_c *symbol) { TRACE("array_type_declaration_c"); - s4o_incl.print("typedef "); + s4o_incl.print("__DECLARE_ARRAY_TYPE("); current_basetypedeclaration = arraybasetypeincl_bd; symbol->array_spec_init->accept(*this); current_basetypedeclaration = none_bd; - s4o_incl.print(" "); + s4o_incl.print(","); symbol->identifier->accept(*basedecl); + s4o_incl.print(","); current_basetypedeclaration = arraysubrange_bd; symbol->array_spec_init->accept(*this); current_basetypedeclaration = none_bd; - s4o_incl.print(";\n"); + s4o_incl.print(")\n"); if (search_base_type.type_is_subrange(symbol->identifier)) { s4o.print("#define __CHECK_"); @@ -443,11 +444,11 @@ void *visit(simple_type_declaration_c *symbol) { TRACE("simple_type_declaration_c"); - s4o_incl.print("typedef "); + s4o_incl.print("__DECLARE_DERIVED_TYPE"); symbol->simple_spec_init->accept(*this); - s4o_incl.print(" "); + s4o_incl.print(","); symbol->simple_type_name->accept(*basedecl); - s4o_incl.print(";\n"); + s4o_incl.print(");\n"); return NULL; } @@ -515,11 +516,11 @@ void *visit(structure_type_declaration_c *symbol) { TRACE("structure_type_declaration_c"); - s4o_incl.print("typedef "); + s4o_incl.print("__DECLARE_STRUCT_TYPE("); symbol->structure_specification->accept(*this); - s4o_incl.print(" "); + s4o_incl.print(","); symbol->structure_type_name->accept(*basedecl); - s4o_incl.print(";\n"); + s4o_incl.print(");\n"); return NULL; } diff -r 90782e241346 -r d7d92b2f87e9 stage4/generate_c/generate_c_vardecl.cc --- a/stage4/generate_c/generate_c_vardecl.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/generate_c/generate_c_vardecl.cc Thu Mar 31 10:45:34 2011 +0100 @@ -40,18 +40,48 @@ //#include "../../util/symtable.hh" - - +class initialization_analyzer_c: public null_visitor_c { + public: + typedef enum { + simple_it, + array_it, + struct_it + } initialization_type_t; + + private: + + initialization_type_t current_type; + + public: + initialization_analyzer_c(symbol_c* symbol) { + current_type = simple_it; + symbol->accept(*this); + } + ~initialization_analyzer_c(void) {} + + initialization_type_t get_initialization_type(void) { + return current_type; + } + + void *visit(array_initial_elements_list_c *symbol) { + current_type = array_it; + return NULL; + } + + void *visit(structure_element_initialization_list_c *symbol) { + current_type = struct_it; + return NULL; + } +}; class generate_c_array_initialization_c: public generate_c_typedecl_c { public: typedef enum { none_am, - dimensioncount_am, - initializationvalue_am, - arrayassignment_am, - varlistparse_am + arraysize_am, + typedecl_am, + initializationvalue_am } arrayinitialization_mode_t; arrayinitialization_mode_t current_mode; @@ -61,7 +91,6 @@ symbol_c* array_default_initialization; private: - int dimension_number; int current_dimension; int array_size; int defined_values_count; @@ -71,72 +100,64 @@ generate_c_array_initialization_c(stage4out_c *s4o_ptr): generate_c_typedecl_c(s4o_ptr) {} ~generate_c_array_initialization_c(void) {} - void init_array_dimensions(symbol_c *array_specification) { - dimension_number = 0; - current_dimension = 0; + void init_array_size(symbol_c *array_specification) { array_size = 1; defined_values_count = 0; current_initialization_count = 0; array_base_type = array_default_value = array_default_initialization = NULL; - current_mode = dimensioncount_am; + current_mode = arraysize_am; array_specification->accept(*this); } void init_array(symbol_c *var1_list, symbol_c *array_specification, symbol_c *array_initialization) { int i; - init_array_dimensions(array_specification); + init_array_size(array_specification); - current_mode = initializationvalue_am; s4o.print("\n"); s4o.print(s4o.indent_spaces + "{\n"); s4o.indent_right(); - s4o.print(s4o.indent_spaces + "int index["); - print_integer(dimension_number); - s4o.print("];\n"); s4o.print(s4o.indent_spaces); + s4o.print("static const "); + + current_mode = typedecl_am; array_specification->accept(*this); + s4o.print(" temp = "); + init_array_values(array_initialization); + s4o.print(";\n"); - - current_mode = arrayassignment_am; - array_specification->accept(*this); - - current_mode = varlistparse_am; var1_list->accept(*this); - - current_mode = arrayassignment_am; - for (i = 0; i < dimension_number; i++) { - s4o.indent_left(); - s4o.print(s4o.indent_spaces + "}\n"); - } s4o.indent_left(); s4o.print(s4o.indent_spaces + "}"); } void init_array_values(symbol_c *array_initialization) { - s4o.print("{"); + s4o.print("{{"); + + current_mode = initializationvalue_am; array_initialization->accept(*this); + if (array_default_initialization != NULL && defined_values_count < array_size) array_default_initialization->accept(*this); if (defined_values_count < array_size) { for (int i = defined_values_count; i < array_size; i++) { if (defined_values_count > 0) - s4o.print(", "); + s4o.print(","); array_default_value->accept(*this); defined_values_count++; } } - s4o.print("}"); + + s4o.print("}}"); } void *visit(identifier_c *type_name) { symbol_c *type_decl; switch (current_mode) { - case dimensioncount_am: - case arrayassignment_am: + case arraysize_am: /* look up the type declaration... */ type_decl = type_symtable.find_value(type_name); if (type_decl == type_symtable.end_value()) @@ -156,20 +177,11 @@ for (i = 0; i < symbol->n; i++) { s4o.print(s4o.indent_spaces); + s4o.print(SET_VAR); + s4o.print("("); print_variable_prefix(); symbol->elements[i]->accept(*this); - for (j = 0; j < dimension_number; j++) { - s4o.print("[index["); - print_integer(j); - s4o.print("]]"); - } - s4o.print(" = temp"); - for (j = 0; j < dimension_number; j++) { - s4o.print("[index["); - print_integer(j); - s4o.print("]]"); - } - s4o.print(";\n"); + s4o.print(", temp);\n"); } return NULL; } @@ -182,7 +194,7 @@ /* array_initialization may be NULL ! */ void *visit(array_spec_init_c *symbol) { switch (current_mode) { - case dimensioncount_am: + case arraysize_am: array_default_initialization = symbol->array_initialization; break; default: @@ -196,7 +208,7 @@ void *visit(array_specification_c *symbol) { symbol->array_subrange_list->accept(*this); switch (current_mode) { - case dimensioncount_am: + case arraysize_am: array_base_type = symbol->non_generic_type_name; array_default_value = (symbol_c *)symbol->non_generic_type_name->accept(*type_initial_value_c::instance());; if (array_default_value == NULL) ERROR; @@ -211,23 +223,9 @@ //SYM_REF2(subrange_c, lower_limit, upper_limit) void *visit(subrange_c *symbol) { switch (current_mode) { - case dimensioncount_am: - dimension_number++; + case arraysize_am: array_size *= extract_integer(symbol->upper_limit) - extract_integer(symbol->lower_limit) + 1; break; - case arrayassignment_am: - s4o.print(s4o.indent_spaces + "for (index["); - print_integer(current_dimension); - s4o.print("] = 0; index["); - print_integer(current_dimension); - s4o.print("] <= "); - print_integer(extract_integer(symbol->upper_limit) - extract_integer(symbol->lower_limit)); - s4o.print("; index["); - print_integer(current_dimension); - s4o.print("]++) {\n"); - s4o.indent_right(); - current_dimension++; - break; default: break; } @@ -245,15 +243,16 @@ if (defined_values_count >= array_size) ERROR; if (defined_values_count > 0) - s4o.print(", "); + s4o.print(","); symbol->elements[i]->accept(*this); defined_values_count++; } else { array_initial_elements_c *array_initial_element = dynamic_cast<array_initial_elements_c *>(symbol->elements[i]); - if (array_initial_element != NULL) - symbol->elements[i]->accept(*this); + if (array_initial_element != NULL) { + symbol->elements[i]->accept(*this); + } } current_initialization_count++; } @@ -281,7 +280,7 @@ initial_element_number = temp_element_number; if (initial_element_number > 0) { defined_values_count++; - s4o.print(", "); + s4o.print(","); } } else @@ -290,11 +289,13 @@ ERROR; for (int i = 0; i < initial_element_number; i++) { if (i > 0) - s4o.print(", "); - if (symbol->array_initial_element != NULL) + s4o.print(","); + if (symbol->array_initial_element != NULL) { symbol->array_initial_element->accept(*this); - else + } + else { array_default_value->accept(*this); + } } if (initial_element_number > 1) defined_values_count += initial_element_number - 1; @@ -481,9 +482,9 @@ public: typedef enum { none_sm, + initdefault_sm, typedecl_sm, - initializationvalue_sm, - varlistparse_sm + initializationvalue_sm } structureinitialization_mode_t; structureinitialization_mode_t current_mode; @@ -500,7 +501,7 @@ structure_type_decl = NULL; current_element_type = NULL; - current_mode = typedecl_sm; + current_mode = initdefault_sm; structure_type_name->accept(*this); } @@ -509,27 +510,34 @@ init_structure_default(structure_type_name); - current_mode = initializationvalue_sm; s4o.print("\n"); s4o.print(s4o.indent_spaces + "{\n"); s4o.indent_right(); s4o.print(s4o.indent_spaces); + s4o.print("static const "); + + current_mode = typedecl_sm; structure_type_name->accept(*this); + s4o.print(" temp = "); - structure_initialization->accept(*this); + + init_structure_values(structure_initialization); + s4o.print(";\n"); - - current_mode = varlistparse_sm; var1_list->accept(*this); - s4o.indent_left(); s4o.print(s4o.indent_spaces + "}"); } + void init_structure_values(symbol_c *structure_initialization) { + current_mode = initializationvalue_sm; + structure_initialization->accept(*this); + } + void *visit(identifier_c *type_name) { symbol_c *type_decl; switch (current_mode) { - case typedecl_sm: + case initdefault_sm: /* look up the type declaration... */ type_decl = type_symtable.find_value(type_name); if (type_decl == type_symtable.end_value()) @@ -549,9 +557,11 @@ for (i = 0; i < symbol->n; i++) { s4o.print(s4o.indent_spaces); + s4o.print(SET_VAR); + s4o.print("("); print_variable_prefix(); symbol->elements[i]->accept(*this); - s4o.print(" = temp;\n"); + s4o.print(",temp);\n"); } return NULL; } @@ -564,7 +574,7 @@ /* structure_element_declaration_list structure_element_declaration ';' */ void *visit(structure_element_declaration_list_c *symbol) { switch (current_mode) { - case typedecl_sm: + case initdefault_sm: structure_type_decl = (symbol_c *)symbol; break; default: @@ -583,7 +593,7 @@ structure_init_element_iterator_c structure_init_element_iterator(symbol); for(int i = 1; (element_name = structure_iterator.next()) != NULL; i++) { if (i > 1) - s4o.print(", "); + s4o.print(","); /* Get the value from an initialization */ symbol_c *element_value = structure_init_element_iterator.search(element_name); @@ -604,18 +614,17 @@ if (element_value == NULL) ERROR; - structure_element_initialization_list_c *structure_element_initialization_list = dynamic_cast<structure_element_initialization_list_c *>(element_value); + initialization_analyzer_c initialization_analyzer(element_value); - if (structure_element_initialization_list != NULL) { + if (initialization_analyzer.get_initialization_type() == initialization_analyzer_c::struct_it) { generate_c_structure_initialization_c *structure_initialization = new generate_c_structure_initialization_c(&s4o); - structure_initialization->set_variable_prefix(get_variable_prefix()); structure_initialization->init_structure_default(current_element_type); - structure_initialization->current_mode = generate_c_structure_initialization_c::initializationvalue_sm; - element_value->accept(*structure_initialization); + structure_initialization->init_structure_values(element_value); delete structure_initialization; } - else + else { element_value->accept(*this); + } } s4o.print("}"); return NULL; @@ -625,9 +634,7 @@ /* array_initial_elements_list ',' array_initial_elements */ void *visit(array_initial_elements_list_c *symbol) { generate_c_array_initialization_c *array_initialization = new generate_c_array_initialization_c(&s4o); - array_initialization->set_variable_prefix(get_variable_prefix()); - array_initialization->init_array_dimensions(current_element_type); - array_initialization->current_mode = generate_c_array_initialization_c::initializationvalue_am; + array_initialization->init_array_size(current_element_type); array_initialization->init_array_values(symbol); delete array_initialization; return NULL; @@ -640,10 +647,8 @@ /* structure_element_initialization_list ',' structure_element_initialization */ void *generate_c_array_initialization_c::visit(structure_element_initialization_list_c *symbol) { generate_c_structure_initialization_c *structure_initialization = new generate_c_structure_initialization_c(&s4o); - structure_initialization->set_variable_prefix(get_variable_prefix()); structure_initialization->init_structure_default(array_base_type); - structure_initialization->current_mode = generate_c_structure_initialization_c::initializationvalue_sm; - symbol->accept(*structure_initialization); + structure_initialization->init_structure_values(symbol); delete structure_initialization; return NULL; } @@ -747,6 +752,13 @@ // This, just of itself, will not print out any declarations!! // It must be acompanied by either program_vt and/or global_vt + /* the qualifier of variables that need to be processed... */ + static const unsigned int none_vq = 0x0000; + static const unsigned int constant_vq = 0x0001; // CONSTANT + static const unsigned int retain_vq = 0x0002; // RETAIN + static const unsigned int non_retain_vq = 0x0004; // NON_RETAIN + + /* How variables should be declared: as local variables or * variables within a function call interface. * @@ -813,10 +825,15 @@ /* Only set in the constructor...! */ /* Will contain a set of values of generate_c_vardecl_c::XXXX_vt */ unsigned int wanted_vartype; + /* variable used to store the type of variable currently being processed... */ /* Will contain a single value of generate_c_vardecl_c::XXXX_vt */ unsigned int current_vartype; + /* variable used to store the qualifier of variable currently being processed... */ + /* Will contain a single value of generate_c_vardecl_c::XXXX_vq */ + unsigned int current_varqualifier; + /* How variables should be declared: as local variables or * variables within a function interface... */ @@ -872,6 +889,22 @@ */ symbol_c *globalnamespace; + void *print_retain(void) { + s4o.print(","); + switch (current_varqualifier) { + case retain_vq: + s4o.print("1"); + break; + case non_retain_vq: + s4o.print("0"); + break; + default: + s4o.print("retain"); + break; + } + return NULL; + } + /* Actually produce the output where variables are declared... */ /* Note that located variables and EN/ENO are the exception, they * being declared in the located_var_decl_c, @@ -888,19 +921,68 @@ (wanted_varformat == localinit_vf)) { for(int i = 0; i < list->n; i++) { s4o.print(s4o.indent_spaces); - if (wanted_varformat != init_vf) { - this->current_var_type_symbol->accept(*this); + if (wanted_varformat == local_vf) { + if (!is_fb) { + s4o.print(DECLARE_VAR); + s4o.print("("); + } + this->current_var_type_symbol->accept(*this); + if (is_fb) + s4o.print(" "); + else + s4o.print(","); + } + else if (wanted_varformat == localinit_vf) { + this->current_var_type_symbol->accept(*this); s4o.print(" "); } print_variable_prefix(); list->elements[i]->accept(*this); if (wanted_varformat != local_vf) { - if (this->current_var_init_symbol != NULL) { - s4o.print(" = "); + if (wanted_varformat == localinit_vf && + (current_vartype & inoutput_vt) != 0) { + s4o.print(";\n"); + s4o.print(s4o.indent_spaces); + s4o.print("if (__"); + list->elements[i]->accept(*this); + s4o.print(" != NULL) {\n"); + s4o.indent_right(); + s4o.print(s4o.indent_spaces); + list->elements[i]->accept(*this); + s4o.print(" = *__"); + list->elements[i]->accept(*this); + s4o.print(";\n"); + s4o.indent_left(); + s4o.print(s4o.indent_spaces); + s4o.print("}\n"); + s4o.print(s4o.indent_spaces); + s4o.print("else {\n"); + s4o.indent_right(); + s4o.print(s4o.indent_spaces); + s4o.print("static const "); + this->current_var_type_symbol->accept(*this); + s4o.print(" temp = "); this->current_var_init_symbol->accept(*this); + s4o.print(";\n"); + s4o.print(s4o.indent_spaces); + list->elements[i]->accept(*this); + s4o.print(" = temp;\n"); + s4o.indent_left(); + s4o.print(s4o.indent_spaces); + s4o.print("}\n"); + } + else { + if (this->current_var_init_symbol != NULL) { + s4o.print(" = "); + this->current_var_init_symbol->accept(*this); + } + s4o.print(";\n"); } } - s4o.print(";\n"); + else if (is_fb) + s4o.print(";\n"); + else + s4o.print(")\n"); } } @@ -952,15 +1034,19 @@ s4o.print("(&"); this->print_variable_prefix(); list->elements[i]->accept(*this); + print_retain(); s4o.print(");"); } else if (this->current_var_init_symbol != NULL) { s4o.print(nv->get()); + s4o.print(INIT_VAR); + s4o.print("("); this->print_variable_prefix(); list->elements[i]->accept(*this); - s4o.print(" = "); + s4o.print(","); this->current_var_init_symbol->accept(*this); - s4o.print(";"); + print_retain(); + s4o.print(")"); } } } @@ -977,6 +1063,7 @@ wanted_varformat = varformat; wanted_vartype = vartype; current_vartype = none_vt; + current_varqualifier = none_vq; current_var_type_symbol = NULL; current_var_init_symbol = NULL; globalnamespace = NULL; @@ -1086,9 +1173,21 @@ /******************************************/ /* B 1.4.3 - Declaration & Initialisation */ /******************************************/ -void *visit(constant_option_c *symbol) {s4o.print("CONSTANT"); return NULL;} -void *visit(retain_option_c *symbol) {s4o.print("RETAIN"); return NULL;} -void *visit(non_retain_option_c *symbol) {s4o.print("NON_RETAIN"); return NULL;} + +void *visit(constant_option_c *symbol) { + current_varqualifier = constant_vq; + return NULL; +} + +void *visit(retain_option_c *symbol) { + current_varqualifier = retain_vq; + return NULL; +} + +void *visit(non_retain_option_c *symbol) { + current_varqualifier = non_retain_vq; + return NULL; +} void *visit(input_declarations_c *symbol) { TRACE("input_declarations_c"); @@ -1100,8 +1199,11 @@ */ //s4o.indent_right(); current_vartype = input_vt; + if (symbol->option != NULL) + symbol->option->accept(*this); symbol->input_declaration_list->accept(*this); current_vartype = none_vt; + current_varqualifier = none_vt; //s4o.indent_left(); } return NULL; @@ -1141,29 +1243,39 @@ (wanted_varformat == init_vf) || (wanted_varformat == localinit_vf)) { s4o.print(s4o.indent_spaces); - if (wanted_varformat != init_vf) { + if (wanted_varformat == local_vf) { + s4o.print(DECLARE_VAR); + s4o.print("("); + symbol->type->accept(*this); + s4o.print(","); + } + else if (wanted_varformat == localinit_vf) { symbol->type->accept(*this); s4o.print(" "); } print_variable_prefix(); symbol->name->accept(*this); - if (wanted_varformat != local_vf) { + if (wanted_varformat == local_vf) + s4o.print(")\n"); + else { s4o.print(" = "); symbol->value->accept(*this); - s4o.print(";"); - } - s4o.print(";\n"); + s4o.print(";\n"); + } } if (wanted_varformat == constructorinit_vf) { /* NOTE: I (Mario) think this is dead code - never gets executed. Must confirm it before deleting it... */ s4o.print(nv->get()); + s4o.print(INIT_VAR); + s4o.print("("); this->print_variable_prefix(); // s4o.print("EN = __BOOL_LITERAL(TRUE);"); symbol->name->accept(*this); - s4o.print(" = "); + s4o.print(","); symbol->value->accept(*this); - s4o.print(";"); + print_retain(); + s4o.print(")"); } } return NULL; @@ -1189,16 +1301,22 @@ (wanted_varformat == init_vf) || (wanted_varformat == localinit_vf)) { s4o.print(s4o.indent_spaces); - if (wanted_varformat != init_vf) { + if (wanted_varformat == local_vf) { + s4o.print(DECLARE_VAR); + s4o.print("("); + symbol->type->accept(*this); + s4o.print(","); + } + else if (wanted_varformat == localinit_vf) { symbol->type->accept(*this); s4o.print(" "); } print_variable_prefix(); symbol->name->accept(*this); - if (wanted_varformat != local_vf) { - s4o.print(" = __BOOL_LITERAL(TRUE);"); - } - s4o.print(";\n"); + if (wanted_varformat == local_vf) + s4o.print(")\n"); + else + s4o.print(" = __BOOL_LITERAL(TRUE);\n"); } if (wanted_varformat == foutputassign_vf) { @@ -1218,10 +1336,14 @@ if (wanted_varformat == constructorinit_vf) { /* NOTE: I (Mario) think this is dead code - never gets executed. Must confirm it before deleting it... */ s4o.print(nv->get()); + s4o.print(INIT_VAR); + s4o.print("("); this->print_variable_prefix(); // s4o.print("ENO = __BOOL_LITERAL(TRUE);"); symbol->name->accept(*this); - s4o.print(" = __BOOL_LITERAL(TRUE);"); + s4o.print(",__BOOL_LITERAL(TRUE)"); + print_retain(); + s4o.print(")"); } } return NULL; @@ -1343,8 +1465,11 @@ */ //s4o.indent_right(); current_vartype = output_vt; + if (symbol->option != NULL) + symbol->option->accept(*this); symbol->var_init_decl_list->accept(*this); current_vartype = none_vt; + current_varqualifier = none_vq; //s4o.indent_left(); } return NULL; @@ -1372,13 +1497,45 @@ return NULL; } -#if 0 /* var1_list ':' array_specification */ -SYM_REF2(array_var_declaration_c, var1_list, array_specification) -#endif +//SYM_REF2(array_var_declaration_c, var1_list, array_specification) +void *visit(array_var_declaration_c *symbol) { + TRACE("array_var_declaration_c"); + /* Please read the comments inside the var1_init_decl_c + * visitor, as they apply here too. + */ + + /* Start off by setting the current_var_type_symbol and + * current_var_init_symbol private variables... + */ + update_type_init(symbol->array_specification); + + /* now to produce the c equivalent... */ + if (wanted_varformat == constructorinit_vf) { + generate_c_array_initialization_c *array_initialization = new generate_c_array_initialization_c(&s4o); + array_initialization->set_variable_prefix(get_variable_prefix()); + array_initialization->init_array(symbol->var1_list, this->current_var_type_symbol, this->current_var_init_symbol); + delete array_initialization; + } + else + symbol->var1_list->accept(*this); + + /* Values no longer in scope, and therefore no longer used. + * Make an effort to keep them set to NULL when not in use + * in order to catch bugs as soon as possible... + */ + void_type_init(); + + return NULL; +} void *visit(array_initial_elements_list_c *symbol) { - s4o.print(";// array initialisation"); + if (wanted_varformat == localinit_vf) { + generate_c_array_initialization_c *array_initialization = new generate_c_array_initialization_c(&s4o); + array_initialization->init_array_size(this->current_var_type_symbol); + array_initialization->init_array_values(this->current_var_init_symbol); + delete array_initialization; + } return NULL; } @@ -1414,6 +1571,15 @@ return NULL; } +void *visit(structure_element_initialization_list_c *symbol) { + if (wanted_varformat == localinit_vf) { + generate_c_structure_initialization_c *structure_initialization = new generate_c_structure_initialization_c(&s4o); + structure_initialization->init_structure_default(this->current_var_type_symbol); + structure_initialization->init_structure_values(this->current_var_init_symbol); + delete structure_initialization; + } + return NULL; +} /* VAR [CONSTANT] var_init_decl_list END_VAR */ /* option -> may be NULL ! */ @@ -1427,8 +1593,11 @@ symbol->option->accept(*this); */ current_vartype = private_vt; + if (symbol->option != NULL) + symbol->option->accept(*this); symbol->var_init_decl_list->accept(*this); current_vartype = none_vt; + current_varqualifier = none_vq; } return NULL; } @@ -1438,8 +1607,10 @@ TRACE("retentive_var_declarations_c"); if ((wanted_vartype & private_vt) != 0) { current_vartype = private_vt; + current_varqualifier = retain_vq; symbol->var_init_decl_list->accept(*this); current_vartype = none_vt; + current_varqualifier = none_vq; } return NULL; } @@ -1456,8 +1627,11 @@ symbol->option->accept(*this); */ current_vartype = located_vt; + if (symbol->option != NULL) + symbol->option->accept(*this); symbol->located_var_decl_list->accept(*this); current_vartype = none_vt; + current_varqualifier = none_vq; } return NULL; } @@ -1490,40 +1664,45 @@ switch(wanted_varformat) { case local_vf: s4o.print(s4o.indent_spaces); + s4o.print(DECLARE_LOCATED); + s4o.print("("); this->current_var_type_symbol->accept(*this); - s4o.print(" *"); + s4o.print(","); if (symbol->variable_name != NULL) symbol->variable_name->accept(*this); else symbol->location->accept(*this); - s4o.print(";\n"); + s4o.print(")\n"); break; case constructorinit_vf: s4o.print(nv->get()); - s4o.print("{extern "); + s4o.print(INIT_LOCATED); + s4o.print("("); this->current_var_type_symbol->accept(*this); - s4o.print("* "); + s4o.print(","); symbol->location->accept(*this); - s4o.print("; "); + s4o.print(","); print_variable_prefix(); if (symbol->variable_name != NULL) symbol->variable_name->accept(*this); else symbol->location->accept(*this); - s4o.print(" = "); - symbol->location->accept(*this); + print_retain(); + s4o.print(")\n"); if (this->current_var_init_symbol != NULL) { - s4o.print("; *"); - print_variable_prefix(); - if (symbol->variable_name != NULL) + s4o.print(s4o.indent_spaces); + s4o.print(INIT_LOCATED_VALUE); + s4o.print("("); + print_variable_prefix(); + if (symbol->variable_name != NULL) symbol->variable_name->accept(*this); else symbol->location->accept(*this); - s4o.print(" = "); + s4o.print(","); this->current_var_init_symbol->accept(*this); - } - s4o.print(";}"); + s4o.print(")"); + } break; case globalinit_vf: @@ -1586,8 +1765,11 @@ */ //s4o.indent_right(); current_vartype = external_vt; + if (symbol->option != NULL) + symbol->option->accept(*this); symbol->external_declaration_list->accept(*this); current_vartype = none_vt; + current_varqualifier = none_vq; //s4o.indent_left(); } return NULL; @@ -1623,29 +1805,26 @@ case local_vf: case localinit_vf: s4o.print(s4o.indent_spaces); + s4o.print(DECLARE_EXTERNAL); + s4o.print("("); this->current_var_type_symbol->accept(*this); - s4o.print(" *"); + s4o.print(","); symbol->global_var_name->accept(*this); - if ((wanted_varformat == localinit_vf) && - (this->current_var_init_symbol != NULL)) { - s4o.print(" = "); - this->current_var_init_symbol->accept(*this); - } - s4o.print(";\n"); + s4o.print(")\n"); break; case constructorinit_vf: s4o.print(nv->get()); - s4o.print("{extern "); + s4o.print(INIT_EXTERNAL); + s4o.print("("); this->current_var_type_symbol->accept(*this); - s4o.print(" *"); + s4o.print(","); symbol->global_var_name->accept(*this); - s4o.print("; "); + s4o.print(","); print_variable_prefix(); symbol->global_var_name->accept(*this); - s4o.print(" = "); - symbol->global_var_name->accept(*this); - s4o.print(";}"); + print_retain(); + s4o.print(")"); break; case finterface_vf: @@ -1686,8 +1865,11 @@ unsigned int previous_vartype = current_vartype; // previous_vartype will be either none_vt, or resource_vt current_vartype = global_vt; + if (symbol->option != NULL) + symbol->option->accept(*this); symbol->global_var_decl_list->accept(*this); current_vartype = previous_vartype; + current_varqualifier = none_vq; //s4o.indent_left(); } return NULL; @@ -1738,53 +1920,56 @@ /* now to produce the c equivalent... */ switch(wanted_varformat) { case local_vf: - s4o.print("extern "); + s4o.print(s4o.indent_spaces); + s4o.print(DECLARE_GLOBAL_LOCATION); + s4o.print("("); this->current_var_type_symbol->accept(*this); - s4o.print("* "); + s4o.print(","); symbol->location->accept(*this); - s4o.print(";\n"); + s4o.print(")\n"); if (symbol->global_var_name != NULL) { s4o.print(s4o.indent_spaces); + s4o.print(DECLARE_GLOBAL_LOCATED); + s4o.print("("); this->current_var_type_symbol->accept(*this); - s4o.print(" *"); + s4o.print(","); if (this->resource_name != NULL) { this->resource_name->accept(*this); - s4o.print("__"); } + s4o.print(","); symbol->global_var_name->accept(*this); - s4o.print(";\n"); - if (this->resource_name != NULL) { - s4o.print(s4o.indent_spaces); - s4o.print("#define "); - symbol->global_var_name->accept(*this); - s4o.print(" "); - this->resource_name->accept(*this); - s4o.print("__"); - symbol->global_var_name->accept(*this); - s4o.print("\n"); - } + s4o.print(")\n"); } break; case constructorinit_vf: - s4o.print(nv->get()); - if (symbol->global_var_name != NULL) { + s4o.print(nv->get()); + s4o.print(INIT_GLOBAL_LOCATED); + s4o.print("("); + if (this->resource_name != NULL) { + this->resource_name->accept(*this); + } + s4o.print(","); symbol->global_var_name->accept(*this); - s4o.print(" = "); + s4o.print(","); symbol->location->accept(*this); - s4o.print(";"); - s4o.print(nv->get()); - s4o.print("*"); - symbol->global_var_name->accept(*this); - } - else - symbol->location->accept(*this); - s4o.print(" = "); + print_retain(); + s4o.print(")"); + } if (this->current_var_init_symbol != NULL) { - this->current_var_init_symbol->accept(*this); - } - s4o.print(";"); + s4o.print(nv->get()); + s4o.print(INIT_GLOBAL); + s4o.print("("); + if (symbol->global_var_name != NULL) + symbol->global_var_name->accept(*this); + else + symbol->location->accept(*this); + s4o.print(","); + this->current_var_init_symbol->accept(*this); + print_retain(); + s4o.print(")"); + } break; default: @@ -1817,33 +2002,16 @@ case local_vf: case localinit_vf: for(int i = 0; i < list->n; i++) { - s4o.print(s4o.indent_spaces); + s4o.print(s4o.indent_spaces); + s4o.print(DECLARE_GLOBAL); + s4o.print("("); this->current_var_type_symbol->accept(*this); - s4o.print(" "); + s4o.print(","); if(this->resource_name != NULL) this->resource_name->accept(*this); - s4o.print("__"); + s4o.print(","); list->elements[i]->accept(*this); - s4o.print(";\n"); - if(this->resource_name != NULL) - s4o.print("static "); - this->current_var_type_symbol->accept(*this); - s4o.print(" *"); - list->elements[i]->accept(*this); - s4o.print(" = &"); - if(this->resource_name != NULL) - this->resource_name->accept(*this); - s4o.print("__"); - list->elements[i]->accept(*this); -#if 0 - if (wanted_varformat == localinit_vf) { - if (this->current_var_init_symbol != NULL) { - s4o.print(" = "); - this->current_var_init_symbol->accept(*this); - } - } -#endif - s4o.print(";\n"); + s4o.print(")\n"); } break; @@ -1852,11 +2020,13 @@ for(int i = 0; i < list->n; i++) { s4o.print(nv->get()); - s4o.print("*"); + s4o.print(INIT_GLOBAL); + s4o.print("("); list->elements[i]->accept(*this); - s4o.print(" = "); + s4o.print(","); this->current_var_init_symbol->accept(*this); - s4o.print(";"); + print_retain(); + s4o.print(")"); #if 0 /* The following code would be for globalinit_vf !! * But it is not currently required... diff -r 90782e241346 -r d7d92b2f87e9 stage4/generate_c/generate_var_list.cc --- a/stage4/generate_c/generate_var_list.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/generate_c/generate_var_list.cc Thu Mar 31 10:45:34 2011 +0100 @@ -43,7 +43,59 @@ symbol_c *symbol; } SYMBOL; - +typedef enum { + none_lt, + input_lt, + output_lt, + memory_lt +} locationtype_t; + + +/***********************************************************************/ +/***********************************************************************/ +/***********************************************************************/ +/***********************************************************************/ + + +class search_location_type_c: public iterator_visitor_c { + + public: + locationtype_t current_location_type; + + public: + search_location_type_c(void) {} + + virtual ~search_location_type_c(void) {} + + locationtype_t get_location_type(symbol_c *symbol) { + current_location_type = none_lt; + symbol->accept(*this); + if (current_location_type == none_lt) ERROR; + return current_location_type; + } + + private: + + void *visit(incompl_location_c* symbol) { + if (symbol->value[1] == 'I') + current_location_type = input_lt; + else if (symbol->value[1] == 'Q') + current_location_type = output_lt; + else if (symbol->value[1] == 'M') + current_location_type = memory_lt; + return NULL; + } + + void *visit(direct_variable_c *symbol) { + if (symbol->value[1] == 'I') + current_location_type = input_lt; + else if (symbol->value[1] == 'Q') + current_location_type = output_lt; + else if (symbol->value[1] == 'M') + current_location_type = memory_lt; + return NULL; + } +}; /***********************************************************************/ @@ -69,7 +121,9 @@ typedef enum { none_vtc, variable_vtc, - pointer_vtc, + external_vtc, + located_input_vtc, + located_output_vtc, array_vtc, structure_vtc, function_block_vtc @@ -169,8 +223,14 @@ print_var_number(); s4o.print(";"); switch (this->current_var_type_category) { - case pointer_vtc: - s4o.print("PT"); + case external_vtc: + s4o.print("EXT"); + break; + case located_input_vtc: + s4o.print("IN"); + break; + case located_output_vtc: + s4o.print("OUT"); break; case array_vtc: s4o.print("ARRAY"); @@ -261,14 +321,46 @@ */ update_var_type_symbol(symbol->located_var_spec_init); - if (symbol->variable_name != NULL) { - this->current_var_type_category = pointer_vtc; + search_location_type_c search_location_type; + locationtype_t location_type = search_location_type.get_location_type(symbol->location); + if (location_type == input_lt) + this->current_var_type_category = located_input_vtc; + else if (location_type == output_lt) + this->current_var_type_category = located_output_vtc; + + if (symbol->variable_name != NULL) declare_variable(symbol->variable_name); - } + else + declare_variable(symbol->location); current_var_type_symbol = NULL; return NULL; } + + /* variable_name incompl_location ':' var_spec */ + /* variable_name -> may be NULL ! */ + //SYM_REF3(incompl_located_var_decl_c, variable_name, incompl_location, var_spec) + void *visit(incompl_located_var_decl_c *symbol) { + /* Start off by setting the current_var_type_symbol and + * current_var_init_symbol private variables... + */ + update_var_type_symbol(symbol->var_spec); + + search_location_type_c search_location_type; + locationtype_t location_type = search_location_type.get_location_type(symbol->incompl_location); + if (location_type == input_lt) + this->current_var_type_category = located_input_vtc; + else if (location_type == output_lt) + this->current_var_type_category = located_output_vtc; + + if (symbol->variable_name != NULL) + declare_variable(symbol->variable_name); + else + declare_variable(symbol->incompl_location); + + current_var_type_symbol = NULL; + return NULL; + } /* var1_list ':' array_spec_init */ // SYM_REF2(array_var_init_decl_c, var1_list, array_spec_init) @@ -280,7 +372,7 @@ update_var_type_symbol(symbol->array_spec_init); this->current_var_type_category = array_vtc; - declare_variables(symbol->var1_list); + //declare_variables(symbol->var1_list); /* Values no longer in scope, and therefore no longer used. * Make an effort to keep them set to NULL when not in use @@ -305,7 +397,7 @@ update_var_type_symbol(symbol->initialized_structure); /* now to produce the c equivalent... */ - declare_variables(symbol->var1_list); + //declare_variables(symbol->var1_list); /* Values no longer in scope, and therefore no longer used. * Make an effort to keep them set to NULL when not in use @@ -355,8 +447,7 @@ update_var_type_symbol(symbol->specification); /* now to produce the c equivalent... */ - if (this->current_var_type_category == variable_vtc) - this->current_var_type_category = pointer_vtc; + this->current_var_type_category = external_vtc; declare_variable(symbol->global_var_name); /* Values no longer in scope, and therefore no longer used. @@ -402,10 +493,17 @@ /*| global_var_name location */ // SYM_REF2(global_var_spec_c, global_var_name, location) void *visit(global_var_spec_c *symbol) { - if (symbol->global_var_name != NULL) { - this->current_var_type_category = pointer_vtc; + search_location_type_c search_location_type; + locationtype_t location_type = search_location_type.get_location_type(symbol->location); + if (location_type == input_lt) + this->current_var_type_category = located_input_vtc; + else if (location_type == output_lt) + this->current_var_type_category = located_output_vtc; + + if (symbol->global_var_name != NULL) declare_variable(symbol->global_var_name); - } + else + declare_variable(symbol->location); return NULL; } @@ -429,6 +527,46 @@ return NULL; } + void *visit(en_param_declaration_c *symbol) { + TRACE("en_param_declaration_c"); + + /* Start off by setting the current_var_type_symbol and + * current_var_init_symbol private variables... + */ + this->current_var_type_symbol = symbol->type; + + /* now to produce the c equivalent... */ + declare_variable(symbol->name); + + /* Values no longer in scope, and therefore no longer used. + * Make an effort to keep them set to NULL when not in use + * in order to catch bugs as soon as possible... + */ + reset_var_type_symbol(); + + return NULL; + } + + void *visit(eno_param_declaration_c *symbol) { + TRACE("eno_param_declaration_c"); + + /* Start off by setting the current_var_type_symbol and + * current_var_init_symbol private variables... + */ + this->current_var_type_symbol = symbol->type; + + /* now to produce the c equivalent... */ + declare_variable(symbol->name); + + /* Values no longer in scope, and therefore no longer used. + * Make an effort to keep them set to NULL when not in use + * in order to catch bugs as soon as possible... + */ + reset_var_type_symbol(); + + return NULL; + } + /********************************/ /* B 1.3.3 - Derived data types */ /********************************/ @@ -521,7 +659,7 @@ print_symbol_list(); s4o.print("__step_list["); print_step_number(); - s4o.print("].state;STEP;\n"); + s4o.print("].state;BOOL;\n"); step_number++; return NULL; } @@ -537,7 +675,7 @@ print_symbol_list(); s4o.print("__step_list["); print_step_number(); - s4o.print("].state;STEP;\n"); + s4o.print("].state;BOOL;\n"); step_number++; return NULL; } @@ -561,7 +699,7 @@ print_symbol_list(); s4o.print("__debug_transition_list["); print_transition_number(); - s4o.print("];TRANSITION;\n"); + s4o.print("];BOOL;\n"); transition_number++; return NULL; } @@ -600,7 +738,7 @@ print_symbol_list(); s4o.print("__action_list["); print_action_number(); - s4o.print("].state;ACTION;\n"); + s4o.print("].state;BOOL;\n"); action_number++; return NULL; } diff -r 90782e241346 -r d7d92b2f87e9 stage4/generate_c/il_code_gen.c --- a/stage4/generate_c/il_code_gen.c Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/generate_c/il_code_gen.c Thu Mar 31 10:45:34 2011 +0100 @@ -38,6 +38,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -47,12 +48,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -72,6 +75,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -81,12 +85,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -106,6 +112,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -115,12 +122,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -140,6 +149,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -153,7 +163,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -175,6 +185,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -184,12 +195,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -209,6 +222,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -222,7 +236,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -244,6 +258,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -257,7 +272,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -279,6 +294,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -288,12 +304,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -313,6 +331,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -322,12 +341,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -347,6 +368,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -360,7 +382,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -382,6 +404,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -391,12 +414,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -416,6 +441,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -425,12 +451,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -450,6 +478,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -459,12 +488,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -484,6 +515,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -493,12 +525,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -518,6 +552,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -527,12 +562,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -552,6 +589,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -561,12 +599,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -586,6 +626,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -595,12 +636,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -620,6 +663,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -633,7 +677,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -655,6 +699,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -664,12 +709,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -689,6 +736,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -698,12 +746,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -723,6 +773,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -732,12 +783,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -757,6 +810,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -766,12 +820,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -791,6 +847,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -804,7 +861,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -826,6 +883,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -835,12 +893,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -860,6 +920,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -873,7 +934,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -895,6 +956,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -908,7 +970,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -930,6 +992,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -939,12 +1002,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -964,6 +1029,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -973,12 +1039,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -998,6 +1066,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1011,7 +1080,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -1033,6 +1102,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1042,12 +1112,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1067,6 +1139,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1076,12 +1149,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1101,6 +1176,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1110,12 +1186,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1135,6 +1213,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1144,12 +1223,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1169,6 +1250,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1178,12 +1260,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1203,6 +1287,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1212,12 +1297,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1237,6 +1324,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1246,12 +1334,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1271,6 +1361,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1284,7 +1375,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -1306,6 +1397,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1315,12 +1407,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1340,6 +1434,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1349,12 +1444,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1374,6 +1471,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1383,12 +1481,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1408,6 +1508,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1417,12 +1518,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1442,6 +1545,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1455,7 +1559,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -1477,6 +1581,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1486,12 +1591,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1511,6 +1618,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1524,7 +1632,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -1546,6 +1654,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1559,7 +1668,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -1581,6 +1690,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1590,12 +1700,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1615,6 +1727,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1624,12 +1737,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1649,6 +1764,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1662,7 +1778,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -1684,6 +1800,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1693,12 +1810,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1718,6 +1837,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1727,12 +1847,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1752,6 +1874,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1761,12 +1884,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1786,6 +1911,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1795,12 +1921,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1820,6 +1948,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1829,12 +1958,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1854,6 +1985,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1863,12 +1995,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1888,6 +2022,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1897,12 +2032,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1922,6 +2059,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1935,7 +2073,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -1957,6 +2095,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -1966,12 +2105,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1991,6 +2132,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2000,12 +2142,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2025,6 +2169,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2034,12 +2179,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2059,6 +2206,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2068,12 +2216,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2093,6 +2243,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2106,7 +2257,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -2128,6 +2279,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2137,12 +2289,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2162,6 +2316,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2175,7 +2330,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -2197,6 +2352,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2210,7 +2366,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -2232,6 +2388,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2241,12 +2398,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2266,6 +2425,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2275,12 +2435,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2300,6 +2462,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2313,7 +2476,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -2335,6 +2498,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2344,12 +2508,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2369,6 +2535,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2378,12 +2545,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2403,6 +2572,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2412,12 +2582,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2437,6 +2609,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2446,12 +2619,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2471,6 +2646,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2480,12 +2656,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2505,6 +2683,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2514,12 +2693,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2539,6 +2720,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2548,12 +2730,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2573,6 +2757,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2586,7 +2771,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -2608,6 +2793,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2617,12 +2803,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2642,6 +2830,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2655,7 +2844,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; break; @@ -2677,6 +2866,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2690,7 +2880,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; break; @@ -2712,6 +2902,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2725,7 +2916,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; break; @@ -2747,6 +2938,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2760,7 +2952,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; break; @@ -2782,6 +2974,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2795,7 +2988,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; break; @@ -2817,6 +3010,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2830,7 +3024,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; break; @@ -2852,6 +3046,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2865,7 +3060,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; break; @@ -2887,6 +3082,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2900,7 +3096,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -2922,6 +3118,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2935,7 +3132,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; break; @@ -2957,6 +3154,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -2970,7 +3168,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; break; @@ -2992,6 +3190,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3005,7 +3204,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; break; @@ -3027,6 +3226,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3040,7 +3240,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; break; @@ -3062,6 +3262,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3075,7 +3276,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; break; @@ -3097,6 +3298,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3110,7 +3312,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; break; @@ -3132,6 +3334,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3145,7 +3348,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; break; @@ -3167,6 +3370,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3176,12 +3380,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3201,6 +3407,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3210,12 +3417,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3235,6 +3444,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3244,12 +3454,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3269,6 +3481,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3278,12 +3491,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3303,6 +3518,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3316,7 +3532,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -3338,6 +3554,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3351,7 +3568,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -3373,6 +3590,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3386,7 +3604,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -3408,6 +3626,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3417,12 +3636,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3442,6 +3663,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3451,12 +3673,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3476,6 +3700,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3489,7 +3714,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -3511,6 +3736,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3520,12 +3746,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3545,6 +3773,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3554,12 +3783,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3579,6 +3810,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3588,12 +3820,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3613,6 +3847,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3622,12 +3857,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3647,6 +3884,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3656,12 +3894,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3681,6 +3921,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3690,12 +3931,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3715,6 +3958,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3724,12 +3968,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3749,6 +3995,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3762,7 +4009,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -3784,6 +4031,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3793,12 +4041,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3818,6 +4068,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3831,7 +4082,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; break; @@ -3853,6 +4104,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3866,7 +4118,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; break; @@ -3888,6 +4140,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3901,7 +4154,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; break; @@ -3923,6 +4176,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3936,7 +4190,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; break; @@ -3958,6 +4212,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -3971,7 +4226,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; break; @@ -3993,6 +4248,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4006,7 +4262,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; break; @@ -4028,6 +4284,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4041,7 +4298,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; break; @@ -4063,6 +4320,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4076,7 +4334,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -4098,6 +4356,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4111,7 +4370,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; break; @@ -4133,6 +4392,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4146,7 +4406,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; break; @@ -4168,6 +4428,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4181,7 +4442,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; break; @@ -4203,6 +4464,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4216,7 +4478,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; break; @@ -4238,6 +4500,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4251,7 +4514,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; break; @@ -4273,6 +4536,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4286,7 +4550,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; break; @@ -4308,6 +4572,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4321,7 +4586,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; break; @@ -4343,6 +4608,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4356,7 +4622,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; break; @@ -4378,6 +4644,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4391,7 +4658,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; break; @@ -4413,6 +4680,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4426,7 +4694,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; break; @@ -4448,6 +4716,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4461,7 +4730,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; break; @@ -4483,6 +4752,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4496,7 +4766,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; break; @@ -4518,6 +4788,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4531,7 +4802,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; break; @@ -4553,6 +4824,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4566,7 +4838,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; break; @@ -4588,6 +4860,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4601,7 +4874,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -4623,6 +4896,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4636,7 +4910,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; break; @@ -4658,6 +4932,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4671,7 +4946,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; break; @@ -4693,6 +4968,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4706,7 +4982,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; break; @@ -4728,6 +5004,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4741,7 +5018,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; break; @@ -4763,6 +5040,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4776,7 +5054,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; break; @@ -4798,6 +5076,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4811,7 +5090,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; break; @@ -4833,6 +5112,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4846,7 +5126,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; break; @@ -4868,6 +5148,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4877,12 +5158,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -4902,6 +5185,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4911,12 +5195,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -4936,6 +5222,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4945,12 +5232,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -4970,6 +5259,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -4979,12 +5269,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5004,6 +5296,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5017,7 +5310,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -5039,6 +5332,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5048,12 +5342,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5073,6 +5369,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5086,7 +5383,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -5108,6 +5405,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5121,7 +5419,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -5143,6 +5441,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5152,12 +5451,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5177,6 +5478,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5190,7 +5492,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -5212,6 +5514,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5221,12 +5524,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5246,6 +5551,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5255,12 +5561,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5280,6 +5588,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5289,12 +5598,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5314,6 +5625,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5323,12 +5635,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5348,6 +5662,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5357,12 +5672,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5382,6 +5699,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5391,12 +5709,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5416,6 +5736,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5425,12 +5746,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5450,6 +5773,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5463,7 +5787,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -5485,6 +5809,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5494,12 +5819,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5519,6 +5846,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5528,12 +5856,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5553,6 +5883,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5562,12 +5893,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5587,6 +5920,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5596,12 +5930,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5621,6 +5957,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5630,12 +5967,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5655,6 +5994,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5668,7 +6008,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -5690,6 +6030,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5699,12 +6040,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5724,6 +6067,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5737,7 +6081,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -5759,6 +6103,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5772,7 +6117,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -5794,6 +6139,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5803,12 +6149,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5828,6 +6176,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5841,7 +6190,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -5863,6 +6212,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5872,12 +6222,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5897,6 +6249,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5906,12 +6259,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5931,6 +6286,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5940,12 +6296,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5965,6 +6323,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -5974,12 +6333,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5999,6 +6360,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6008,12 +6370,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6033,6 +6397,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6042,12 +6407,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6067,6 +6434,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6076,12 +6444,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6101,6 +6471,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6114,7 +6485,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -6136,6 +6507,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6145,12 +6517,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6170,6 +6544,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6183,7 +6558,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; break; @@ -6205,6 +6580,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6218,7 +6594,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; break; @@ -6240,6 +6616,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6253,7 +6630,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; break; @@ -6275,6 +6652,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6288,7 +6666,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; break; @@ -6310,6 +6688,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6323,7 +6702,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -6345,6 +6724,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6358,7 +6738,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; break; @@ -6380,6 +6760,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6393,7 +6774,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -6415,6 +6796,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6428,7 +6810,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -6450,6 +6832,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6463,7 +6846,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; break; @@ -6485,6 +6868,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6498,7 +6882,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; break; @@ -6520,6 +6904,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6533,7 +6918,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; break; @@ -6555,6 +6940,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6568,7 +6954,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; break; @@ -6590,6 +6976,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6603,7 +6990,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; break; @@ -6625,6 +7012,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6638,7 +7026,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; break; @@ -6660,6 +7048,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6673,7 +7062,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; break; @@ -6695,6 +7084,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6708,7 +7098,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; break; @@ -6730,6 +7120,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6743,7 +7134,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; break; @@ -6765,6 +7156,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6778,7 +7170,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -6800,6 +7192,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6813,7 +7206,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; break; @@ -6835,6 +7228,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6844,12 +7238,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6869,6 +7265,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6878,12 +7275,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6903,6 +7302,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6912,12 +7312,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6937,6 +7339,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6946,12 +7349,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6971,6 +7376,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -6984,7 +7390,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -7006,6 +7412,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7015,12 +7422,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7040,6 +7449,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7053,7 +7463,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -7075,6 +7485,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7088,7 +7499,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -7110,6 +7521,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7119,12 +7531,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7144,6 +7558,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7153,12 +7568,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7178,6 +7595,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7191,7 +7609,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -7213,6 +7631,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7222,12 +7641,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7247,6 +7668,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7256,12 +7678,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7281,6 +7705,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7290,12 +7715,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7315,6 +7742,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7324,12 +7752,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7349,6 +7779,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7358,12 +7789,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7383,6 +7816,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7392,12 +7826,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7417,6 +7853,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7430,7 +7867,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -7452,6 +7889,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7461,12 +7899,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7486,6 +7926,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7495,12 +7936,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7520,6 +7963,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7529,12 +7973,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7554,6 +8000,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7563,12 +8010,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7588,6 +8037,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7597,12 +8047,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7622,6 +8074,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7635,7 +8088,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -7657,6 +8110,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7666,12 +8120,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7691,6 +8147,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7704,7 +8161,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -7726,6 +8183,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7739,7 +8197,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -7761,6 +8219,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7770,12 +8229,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7795,6 +8256,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7804,12 +8266,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7829,6 +8293,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7842,7 +8307,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -7864,6 +8329,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7873,12 +8339,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7898,6 +8366,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7907,12 +8376,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7932,6 +8403,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7941,12 +8413,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7966,6 +8440,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -7975,12 +8450,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8000,6 +8477,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8009,12 +8487,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8034,6 +8514,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8043,12 +8524,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8068,6 +8551,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8081,7 +8565,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -8103,6 +8587,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8112,12 +8597,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8137,6 +8624,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8146,12 +8634,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8171,6 +8661,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8180,12 +8671,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8205,6 +8698,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8214,12 +8708,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8239,6 +8735,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8248,12 +8745,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8273,6 +8772,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8286,7 +8786,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -8308,6 +8808,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8317,12 +8818,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8342,6 +8845,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8355,7 +8859,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -8377,6 +8881,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8390,7 +8895,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -8412,6 +8917,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8421,12 +8927,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8446,6 +8954,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8455,12 +8964,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8480,6 +8991,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8493,7 +9005,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -8515,6 +9027,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8524,12 +9037,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8549,6 +9064,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8558,12 +9074,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8583,6 +9101,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8592,12 +9111,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8617,6 +9138,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8626,12 +9148,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8651,6 +9175,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8660,12 +9185,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8685,6 +9212,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8694,12 +9222,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8719,6 +9249,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8732,7 +9263,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -8754,6 +9285,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8763,12 +9295,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8788,6 +9322,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8797,12 +9332,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8822,6 +9359,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8831,12 +9369,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8856,6 +9396,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8865,12 +9406,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8890,6 +9433,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8899,12 +9443,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8924,6 +9470,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8937,7 +9484,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -8959,6 +9506,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -8968,12 +9516,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8993,6 +9543,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9006,7 +9557,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -9028,6 +9579,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9041,7 +9593,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -9063,6 +9615,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9072,12 +9625,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9097,6 +9652,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9106,12 +9662,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9131,6 +9689,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9144,7 +9703,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -9166,6 +9725,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9175,12 +9735,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9200,6 +9762,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9209,12 +9772,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9234,6 +9799,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9243,12 +9809,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9268,6 +9836,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9277,12 +9846,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9302,6 +9873,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9311,12 +9883,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9336,6 +9910,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9345,12 +9920,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9370,6 +9947,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9383,7 +9961,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -9405,6 +9983,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9414,12 +9993,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9439,6 +10020,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9448,12 +10030,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9473,6 +10057,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9482,12 +10067,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9507,6 +10094,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9516,12 +10104,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9541,6 +10131,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9550,12 +10141,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9575,6 +10168,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9588,7 +10182,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -9610,6 +10204,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9619,12 +10214,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9644,6 +10241,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9657,7 +10255,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -9679,6 +10277,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9692,7 +10291,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -9714,6 +10313,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9723,12 +10323,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9748,6 +10350,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9757,12 +10360,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9782,6 +10387,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9795,7 +10401,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -9817,6 +10423,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9826,12 +10433,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9851,6 +10460,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9860,12 +10470,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9885,6 +10497,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9894,12 +10507,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9919,6 +10534,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9928,12 +10544,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9953,6 +10571,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9962,12 +10581,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9987,6 +10608,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -9996,12 +10618,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10021,6 +10645,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10034,7 +10659,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -10056,6 +10681,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10065,12 +10691,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10090,6 +10718,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10099,12 +10728,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10124,6 +10755,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10133,12 +10765,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10158,6 +10792,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10167,12 +10802,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10192,6 +10829,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10201,12 +10839,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10226,6 +10866,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10239,7 +10880,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -10261,6 +10902,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10270,12 +10912,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10295,6 +10939,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10308,7 +10953,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -10330,6 +10975,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10343,7 +10989,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -10365,6 +11011,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10374,12 +11021,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10399,6 +11048,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10408,12 +11058,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10433,6 +11085,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10446,7 +11099,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -10468,6 +11121,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10477,12 +11131,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10502,6 +11158,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10511,12 +11168,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10536,6 +11195,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10545,12 +11205,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10570,6 +11232,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10579,12 +11242,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10604,6 +11269,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10613,12 +11279,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10638,6 +11306,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10647,12 +11316,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10672,6 +11343,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10685,7 +11357,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -10707,6 +11379,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10716,12 +11389,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10741,6 +11416,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10750,12 +11426,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10775,6 +11453,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10784,12 +11463,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10809,6 +11490,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10818,12 +11500,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10843,6 +11527,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10852,12 +11537,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10877,6 +11564,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10890,7 +11578,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -10912,6 +11600,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10921,12 +11610,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10946,6 +11637,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10959,7 +11651,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -10981,6 +11673,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -10994,7 +11687,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -11016,6 +11709,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11025,12 +11719,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11050,6 +11746,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11059,12 +11756,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11084,6 +11783,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11097,7 +11797,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -11119,6 +11819,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11128,12 +11829,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11153,6 +11856,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11162,12 +11866,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11187,6 +11893,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11196,12 +11903,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11221,6 +11930,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11230,12 +11940,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11255,6 +11967,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11264,12 +11977,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11289,6 +12004,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11298,12 +12014,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11323,6 +12041,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11336,7 +12055,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -11358,6 +12077,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11367,12 +12087,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11392,6 +12114,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11405,7 +12128,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; break; @@ -11427,6 +12150,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11440,7 +12164,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; break; @@ -11462,6 +12186,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11475,7 +12200,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; break; @@ -11497,6 +12222,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11510,7 +12236,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; break; @@ -11532,6 +12258,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11545,7 +12272,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; break; @@ -11567,6 +12294,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11580,7 +12308,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; break; @@ -11602,6 +12330,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11615,7 +12344,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; break; @@ -11637,6 +12366,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11650,7 +12380,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -11672,6 +12402,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11685,7 +12416,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; break; @@ -11707,6 +12438,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11720,7 +12452,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; break; @@ -11742,6 +12474,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11755,7 +12488,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; break; @@ -11777,6 +12510,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11790,7 +12524,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; break; @@ -11812,6 +12546,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11825,7 +12560,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; break; @@ -11847,6 +12582,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11860,7 +12596,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; break; @@ -11882,6 +12618,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11895,7 +12632,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; break; @@ -11917,6 +12654,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11926,12 +12664,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11951,6 +12691,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11960,12 +12701,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11985,6 +12728,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -11994,12 +12738,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12019,6 +12765,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12028,12 +12775,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12053,6 +12802,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12066,7 +12816,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -12088,6 +12838,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12097,12 +12848,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12122,6 +12875,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12135,7 +12889,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -12157,6 +12911,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12170,7 +12925,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -12192,6 +12947,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12201,12 +12957,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12226,6 +12984,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12235,12 +12994,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12260,6 +13021,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12273,7 +13035,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -12295,6 +13057,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12304,12 +13067,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12329,6 +13094,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12338,12 +13104,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12363,6 +13131,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12372,12 +13141,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12397,6 +13168,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12406,12 +13178,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12431,6 +13205,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12440,12 +13215,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12465,6 +13242,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12474,12 +13252,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12499,6 +13279,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12508,12 +13289,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12533,6 +13316,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12546,7 +13330,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -12568,6 +13352,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12580,9 +13365,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + symbol_c * return_type_symbol = &search_constant_type_c::integer; function_type_prefix = (symbol_c*)(new pragma_c("int")); + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -12602,6 +13389,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12615,7 +13403,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; break; @@ -12637,6 +13425,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12650,7 +13439,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; break; @@ -12672,6 +13461,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12685,7 +13475,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; break; @@ -12707,6 +13497,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12720,7 +13511,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; break; @@ -12742,6 +13533,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12755,8 +13547,8 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + symbol_c * return_type_symbol = &search_constant_type_c::integer; function_type_prefix = return_type_symbol; break; @@ -12777,6 +13569,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12790,8 +13583,8 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + symbol_c * return_type_symbol = &search_constant_type_c::integer; function_type_prefix = return_type_symbol; break; @@ -12812,6 +13605,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12825,8 +13619,8 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + symbol_c * return_type_symbol = &search_constant_type_c::integer; function_type_prefix = return_type_symbol; break; @@ -12847,6 +13641,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12860,8 +13655,8 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + symbol_c * return_type_symbol = &search_constant_type_c::integer; function_type_prefix = return_type_symbol; break; @@ -12882,6 +13677,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12895,7 +13691,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; break; @@ -12916,6 +13712,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12929,7 +13726,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; break; @@ -12950,6 +13747,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12963,9 +13761,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_integer_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lint_type_name; break; } @@ -12985,6 +13785,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -12998,9 +13799,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -13020,6 +13823,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -13033,9 +13837,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -13055,6 +13861,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -13068,9 +13875,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -13090,6 +13899,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -13103,9 +13913,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -13125,6 +13937,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -13138,9 +13951,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -13160,6 +13975,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -13173,9 +13989,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -13195,6 +14013,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -13208,9 +14027,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -13230,6 +14051,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -13243,9 +14065,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -13265,6 +14089,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -13278,9 +14103,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -13300,6 +14127,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -13313,9 +14141,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -13335,6 +14165,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -13345,14 +14176,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -13367,35 +14198,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -13415,14 +14248,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -13435,11 +14268,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; break; @@ -13455,14 +14288,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -13475,11 +14308,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; break; @@ -13495,14 +14328,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -13515,11 +14348,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; break; @@ -13546,6 +14379,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -13556,14 +14390,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -13578,35 +14412,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -13626,14 +14462,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -13646,12 +14482,14 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; + if (search_expression_type->is_literal_integer_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lint_type_name; break; } @@ -13677,6 +14515,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -13687,14 +14526,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -13707,11 +14546,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = last_type_symbol; function_type_suffix = return_type_symbol; break; @@ -13728,14 +14567,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -13748,11 +14587,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; break; @@ -13768,14 +14607,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -13788,11 +14627,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; break; @@ -13805,11 +14644,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; break; @@ -13825,14 +14664,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -13845,11 +14684,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; break; @@ -13862,11 +14701,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; break; @@ -13882,14 +14721,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -13902,11 +14741,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; break; @@ -13933,6 +14772,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -13943,14 +14783,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -13963,11 +14803,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = last_type_symbol; function_type_suffix = return_type_symbol; break; @@ -13984,14 +14824,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14004,12 +14844,14 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; + if (search_expression_type->is_literal_integer_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lint_type_name; break; } @@ -14035,6 +14877,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -14045,14 +14888,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14065,11 +14908,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = last_type_symbol; function_type_suffix = return_type_symbol; break; @@ -14097,6 +14940,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -14107,14 +14951,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14127,11 +14971,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = last_type_symbol; function_type_suffix = IN1_type_symbol; break; @@ -14159,22 +15003,27 @@ symbol_c *last_type_symbol = NULL; { - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = &this->default_variable_name; - - symbol_c *IN_type_symbol = param_data_type; - last_type_symbol = param_data_type; - - - { - - function_name = (symbol_c*)(new pragma_c("__move_")); - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = &this->default_variable_name; + + symbol_c *IN_type_symbol = param_data_type; + last_type_symbol = param_data_type; + + + { + + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = last_type_symbol; function_type_suffix = return_type_symbol; + if (search_expression_type->is_literal_integer_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lint_type_name; + else if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -14194,6 +15043,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -14204,14 +15054,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -14224,11 +15074,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (N_type_symbol == NULL) N_type_symbol = last_type_symbol; - ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; break; @@ -14256,6 +15106,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -14266,14 +15117,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -14286,11 +15137,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (N_type_symbol == NULL) N_type_symbol = last_type_symbol; - ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; break; @@ -14318,6 +15169,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -14328,14 +15180,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -14348,11 +15200,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (N_type_symbol == NULL) N_type_symbol = last_type_symbol; - ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; break; @@ -14380,6 +15232,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -14390,14 +15243,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -14410,11 +15263,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (N_type_symbol == NULL) N_type_symbol = last_type_symbol; - ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; break; @@ -14442,6 +15295,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -14452,14 +15306,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14474,35 +15328,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -14533,6 +15389,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -14543,14 +15400,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14565,35 +15422,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -14624,6 +15483,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -14634,14 +15494,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14656,35 +15516,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -14715,6 +15577,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -14728,9 +15591,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = return_type_symbol; + if (search_expression_type->is_literal_integer_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lword_type_name; break; } @@ -14750,6 +15615,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *G_param_name = (symbol_c *)(new identifier_c("G")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *G_param_value = &this->default_variable_name; @@ -14760,14 +15626,14 @@ { { - identifier_c param_name("IN0"); + symbol_c *IN0_param_name = (symbol_c *)(new identifier_c("IN0")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN0_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN0_param_value = function_call_param_iterator.search_f(IN0_param_name); symbol_c *IN0_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN0_param_value == NULL) - IN0_param_value = function_call_param_iterator.next(); + IN0_param_value = function_call_param_iterator.next_nf(); if (IN0_param_value != NULL) { IN0_type_symbol = search_expression_type->get_type(IN0_param_value); last_type_symbol = last_type_symbol && IN0_type_symbol && search_expression_type->is_same_type(IN0_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN0_type_symbol, last_type_symbol) : IN0_type_symbol ; @@ -14777,14 +15643,14 @@ { { - identifier_c param_name("IN1"); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -14797,15 +15663,15 @@ if (G_type_symbol == NULL) G_type_symbol = last_type_symbol; - ADD_PARAM_LIST(G_param_value, G_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(G_param_name, G_param_value, G_type_symbol, function_param_iterator_c::direction_in) if (IN0_type_symbol == NULL) IN0_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN0_param_name, IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = last_type_symbol; function_type_suffix = IN0_type_symbol; break; @@ -14839,6 +15705,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -14849,14 +15716,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14871,35 +15738,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -14930,6 +15799,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -14940,14 +15810,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -14962,35 +15832,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -15021,6 +15893,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *MN_param_name = (symbol_c *)(new identifier_c("MN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *MN_param_value = &this->default_variable_name; @@ -15031,14 +15904,14 @@ { { - identifier_c param_name("IN"); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); symbol_c *IN_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15048,14 +15921,14 @@ { { - identifier_c param_name("MX"); + symbol_c *MX_param_name = (symbol_c *)(new identifier_c("MX")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *MX_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *MX_param_value = function_call_param_iterator.search_f(MX_param_name); symbol_c *MX_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (MX_param_value == NULL) - MX_param_value = function_call_param_iterator.next(); + MX_param_value = function_call_param_iterator.next_nf(); if (MX_param_value != NULL) { MX_type_symbol = search_expression_type->get_type(MX_param_value); last_type_symbol = last_type_symbol && MX_type_symbol && search_expression_type->is_same_type(MX_type_symbol, last_type_symbol) ? search_expression_type->common_type(MX_type_symbol, last_type_symbol) : MX_type_symbol ; @@ -15068,17 +15941,21 @@ if (MN_type_symbol == NULL) MN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(MN_param_value, MN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(MN_param_name, MN_param_value, MN_type_symbol, function_param_iterator_c::direction_in) if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (MX_type_symbol == NULL) MX_type_symbol = last_type_symbol; - ADD_PARAM_LIST(MX_param_value, MX_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(MX_param_name, MX_param_value, MX_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_integer_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lint_type_name; + else if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -15110,6 +15987,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *K_param_name = (symbol_c *)(new identifier_c("K")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *K_param_value = &this->default_variable_name; @@ -15120,14 +15998,14 @@ { { - identifier_c param_name("IN0"); + symbol_c *IN0_param_name = (symbol_c *)(new identifier_c("IN0")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN0_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN0_param_value = function_call_param_iterator.search_f(IN0_param_name); symbol_c *IN0_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN0_param_value == NULL) - IN0_param_value = function_call_param_iterator.next(); + IN0_param_value = function_call_param_iterator.next_nf(); if (IN0_param_value != NULL) { IN0_type_symbol = search_expression_type->get_type(IN0_param_value); last_type_symbol = last_type_symbol && IN0_type_symbol && search_expression_type->is_same_type(IN0_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN0_type_symbol, last_type_symbol) : IN0_type_symbol ; @@ -15137,14 +16015,14 @@ { { - identifier_c param_name("IN1"); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -15159,39 +16037,41 @@ nb_param = 3; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (K_type_symbol == NULL) K_type_symbol = last_type_symbol; - ADD_PARAM_LIST(K_param_value, K_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(K_param_name, K_param_value, K_type_symbol, function_param_iterator_c::direction_in) if (IN0_type_symbol == NULL) IN0_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN0_param_name, IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) int base_num = 2; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -15228,6 +16108,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -15238,14 +16119,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15260,35 +16141,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -15319,6 +16202,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -15329,14 +16213,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15351,35 +16235,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -15410,6 +16296,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -15420,14 +16307,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15442,35 +16329,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -15501,6 +16390,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -15511,14 +16401,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15533,35 +16423,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -15592,6 +16484,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -15602,14 +16495,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15624,35 +16517,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -15683,6 +16578,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -15693,14 +16589,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -15715,35 +16611,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -15774,6 +16672,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -15787,7 +16686,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; break; @@ -15808,6 +16707,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -15818,14 +16718,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -15838,11 +16738,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (L_type_symbol == NULL) L_type_symbol = last_type_symbol; - ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; break; @@ -15869,6 +16769,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -15879,14 +16780,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -15899,11 +16800,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (L_type_symbol == NULL) L_type_symbol = last_type_symbol; - ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; break; @@ -15930,6 +16831,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -15940,14 +16842,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -15957,14 +16859,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -15977,15 +16879,15 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (L_type_symbol == NULL) L_type_symbol = last_type_symbol; - ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) if (P_type_symbol == NULL) P_type_symbol = last_type_symbol; - ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; break; @@ -16018,6 +16920,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -16028,14 +16931,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16048,11 +16951,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; break; @@ -16068,14 +16971,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16090,35 +16993,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -16148,6 +17053,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -16158,14 +17064,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16175,14 +17081,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -16195,15 +17101,15 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) if (P_type_symbol == NULL) P_type_symbol = last_type_symbol; - ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; break; @@ -16236,6 +17142,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN_param_value = &this->default_variable_name; @@ -16246,14 +17153,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -16263,14 +17170,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -16283,15 +17190,15 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (L_type_symbol == NULL) L_type_symbol = last_type_symbol; - ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) if (P_type_symbol == NULL) P_type_symbol = last_type_symbol; - ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; break; @@ -16324,6 +17231,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -16334,14 +17242,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16351,14 +17259,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -16368,14 +17276,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -16388,19 +17296,19 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) if (L_type_symbol == NULL) L_type_symbol = last_type_symbol; - ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) if (P_type_symbol == NULL) P_type_symbol = last_type_symbol; - ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; break; @@ -16439,6 +17347,7 @@ symbol_c *last_type_symbol = NULL; { + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ symbol_c *IN1_param_value = &this->default_variable_name; @@ -16449,14 +17358,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16469,11 +17378,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; break; diff -r 90782e241346 -r d7d92b2f87e9 stage4/generate_c/st_code_gen.c --- a/stage4/generate_c/st_code_gen.c Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/generate_c/st_code_gen.c Thu Mar 31 10:45:34 2011 +0100 @@ -38,14 +38,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -54,12 +54,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -79,14 +81,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -95,12 +97,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -120,14 +124,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -136,12 +140,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -161,14 +167,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -181,7 +187,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -203,14 +209,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -219,12 +225,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -244,14 +252,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -264,7 +272,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -286,14 +294,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -306,7 +314,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -328,14 +336,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -344,12 +352,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -369,14 +379,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -385,12 +395,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -410,14 +422,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -430,7 +442,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -452,14 +464,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -468,12 +480,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -493,14 +507,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -509,12 +523,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -534,14 +550,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -550,12 +566,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -575,14 +593,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -591,12 +609,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -616,14 +636,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -632,12 +652,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -657,14 +679,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -673,12 +695,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -698,14 +722,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -714,12 +738,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -739,14 +765,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -759,7 +785,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -781,14 +807,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -797,12 +823,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -822,14 +850,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -838,12 +866,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -863,14 +893,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -879,12 +909,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -904,14 +936,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -920,12 +952,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -945,14 +979,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -965,7 +999,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -987,14 +1021,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1003,12 +1037,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1028,14 +1064,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1048,7 +1084,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -1070,14 +1106,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1090,7 +1126,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -1112,14 +1148,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1128,12 +1164,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1153,14 +1191,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1169,12 +1207,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1194,14 +1234,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1214,7 +1254,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -1236,14 +1276,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1252,12 +1292,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1277,14 +1319,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1293,12 +1335,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1318,14 +1362,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1334,12 +1378,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1359,14 +1405,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1375,12 +1421,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1400,14 +1448,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1416,12 +1464,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1441,14 +1491,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1457,12 +1507,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1482,14 +1534,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1498,12 +1550,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1523,14 +1577,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1543,7 +1597,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -1565,14 +1619,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1581,12 +1635,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1606,14 +1662,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1622,12 +1678,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1647,14 +1705,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1663,12 +1721,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1688,14 +1748,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1704,12 +1764,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1729,14 +1791,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1749,7 +1811,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -1771,14 +1833,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1787,12 +1849,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1812,14 +1876,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1832,7 +1896,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -1854,14 +1918,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1874,7 +1938,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -1896,14 +1960,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1912,12 +1976,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1937,14 +2003,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1953,12 +2019,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -1978,14 +2046,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -1998,7 +2066,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -2020,14 +2088,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2036,12 +2104,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2061,14 +2131,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2077,12 +2147,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2102,14 +2174,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2118,12 +2190,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2143,14 +2217,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2159,12 +2233,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2184,14 +2260,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2200,12 +2276,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2225,14 +2303,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2241,12 +2319,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2266,14 +2346,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2282,12 +2362,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2307,14 +2389,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2327,7 +2409,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -2349,14 +2431,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2365,12 +2447,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2390,14 +2474,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2406,12 +2490,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2431,14 +2517,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2447,12 +2533,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2472,14 +2560,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2488,12 +2576,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2513,14 +2603,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2533,7 +2623,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -2555,14 +2645,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2571,12 +2661,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2596,14 +2688,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2616,7 +2708,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -2638,14 +2730,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2658,7 +2750,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -2680,14 +2772,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2696,12 +2788,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2721,14 +2815,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2737,12 +2831,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2762,14 +2858,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2782,7 +2878,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -2804,14 +2900,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2820,12 +2916,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2845,14 +2943,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2861,12 +2959,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2886,14 +2986,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2902,12 +3002,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2927,14 +3029,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2943,12 +3045,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -2968,14 +3072,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -2984,12 +3088,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3009,14 +3115,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3025,12 +3131,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3050,14 +3158,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3066,12 +3174,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3091,14 +3201,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3111,7 +3221,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -3133,14 +3243,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3149,12 +3259,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3174,14 +3286,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3194,7 +3306,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; break; @@ -3216,14 +3328,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3236,7 +3348,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; break; @@ -3258,14 +3370,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3278,7 +3390,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; break; @@ -3300,14 +3412,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3320,7 +3432,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; break; @@ -3342,14 +3454,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3362,7 +3474,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; break; @@ -3384,14 +3496,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3404,7 +3516,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; break; @@ -3426,14 +3538,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3446,7 +3558,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; break; @@ -3468,14 +3580,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3488,7 +3600,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -3510,14 +3622,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3530,7 +3642,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; break; @@ -3552,14 +3664,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3572,7 +3684,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; break; @@ -3594,14 +3706,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3614,7 +3726,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; break; @@ -3636,14 +3748,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3656,7 +3768,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; break; @@ -3678,14 +3790,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3698,7 +3810,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; break; @@ -3720,14 +3832,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3740,7 +3852,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; break; @@ -3762,14 +3874,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3782,7 +3894,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; break; @@ -3804,14 +3916,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3820,12 +3932,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3845,14 +3959,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3861,12 +3975,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3886,14 +4002,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3902,12 +4018,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3927,14 +4045,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3943,12 +4061,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -3968,14 +4088,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -3988,7 +4108,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -4010,14 +4130,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4030,7 +4150,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -4052,14 +4172,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4072,7 +4192,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -4094,14 +4214,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4110,12 +4230,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -4135,14 +4257,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4151,12 +4273,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -4176,14 +4300,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4196,7 +4320,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -4218,14 +4342,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4234,12 +4358,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -4259,14 +4385,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4275,12 +4401,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -4300,14 +4428,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4316,12 +4444,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -4341,14 +4471,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4357,12 +4487,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -4382,14 +4514,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4398,12 +4530,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -4423,14 +4557,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4439,12 +4573,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -4464,14 +4600,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4480,12 +4616,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -4505,14 +4643,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4525,7 +4663,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -4547,14 +4685,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4563,12 +4701,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -4588,14 +4728,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4608,7 +4748,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; break; @@ -4630,14 +4770,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4650,7 +4790,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; break; @@ -4672,14 +4812,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4692,7 +4832,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; break; @@ -4714,14 +4854,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4734,7 +4874,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; break; @@ -4756,14 +4896,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4776,7 +4916,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; break; @@ -4798,14 +4938,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4818,7 +4958,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; break; @@ -4840,14 +4980,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4860,7 +5000,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; break; @@ -4882,14 +5022,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4902,7 +5042,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -4924,14 +5064,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4944,7 +5084,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; break; @@ -4966,14 +5106,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -4986,7 +5126,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; break; @@ -5008,14 +5148,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5028,7 +5168,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; break; @@ -5050,14 +5190,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5070,7 +5210,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; break; @@ -5092,14 +5232,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5112,7 +5252,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; break; @@ -5134,14 +5274,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5154,7 +5294,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; break; @@ -5176,14 +5316,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5196,7 +5336,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; break; @@ -5218,14 +5358,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5238,7 +5378,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; break; @@ -5260,14 +5400,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5280,7 +5420,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; break; @@ -5302,14 +5442,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5322,7 +5462,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; break; @@ -5344,14 +5484,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5364,7 +5504,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; break; @@ -5386,14 +5526,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5406,7 +5546,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; break; @@ -5428,14 +5568,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5448,7 +5588,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; break; @@ -5470,14 +5610,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5490,7 +5630,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; break; @@ -5512,14 +5652,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5532,7 +5672,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -5554,14 +5694,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5574,7 +5714,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; break; @@ -5596,14 +5736,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5616,7 +5756,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; break; @@ -5638,14 +5778,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5658,7 +5798,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; break; @@ -5680,14 +5820,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5700,7 +5840,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; break; @@ -5722,14 +5862,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5742,7 +5882,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; break; @@ -5764,14 +5904,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5784,7 +5924,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; break; @@ -5806,14 +5946,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5826,7 +5966,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; break; @@ -5848,14 +5988,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5864,12 +6004,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5889,14 +6031,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5905,12 +6047,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5930,14 +6074,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5946,12 +6090,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -5971,14 +6117,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -5987,12 +6133,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6012,14 +6160,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6032,7 +6180,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -6054,14 +6202,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6070,12 +6218,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6095,14 +6245,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6115,7 +6265,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -6137,14 +6287,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6157,7 +6307,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -6179,14 +6329,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6195,12 +6345,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6220,14 +6372,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6240,7 +6392,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -6262,14 +6414,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6278,12 +6430,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6303,14 +6457,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6319,12 +6473,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6344,14 +6500,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6360,12 +6516,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6385,14 +6543,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6401,12 +6559,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6426,14 +6586,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6442,12 +6602,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6467,14 +6629,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6483,12 +6645,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6508,14 +6672,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6524,12 +6688,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6549,14 +6715,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6569,7 +6735,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -6591,14 +6757,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6607,12 +6773,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6632,14 +6800,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6648,12 +6816,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6673,14 +6843,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6689,12 +6859,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6714,14 +6886,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6730,12 +6902,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6755,14 +6929,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6771,12 +6945,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6796,14 +6972,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6816,7 +6992,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -6838,14 +7014,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6854,12 +7030,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -6879,14 +7057,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6899,7 +7077,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -6921,14 +7099,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6941,7 +7119,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -6963,14 +7141,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -6979,12 +7157,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7004,14 +7184,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7024,7 +7204,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -7046,14 +7226,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7062,12 +7242,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7087,14 +7269,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7103,12 +7285,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7128,14 +7312,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7144,12 +7328,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7169,14 +7355,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7185,12 +7371,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7210,14 +7398,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7226,12 +7414,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7251,14 +7441,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7267,12 +7457,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7292,14 +7484,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7308,12 +7500,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7333,14 +7527,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7353,7 +7547,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -7375,14 +7569,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7391,12 +7585,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -7416,14 +7612,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7436,7 +7632,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; break; @@ -7458,14 +7654,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7478,7 +7674,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; break; @@ -7500,14 +7696,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7520,7 +7716,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; break; @@ -7542,14 +7738,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7562,7 +7758,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; break; @@ -7584,14 +7780,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7604,7 +7800,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -7626,14 +7822,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7646,7 +7842,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; break; @@ -7668,14 +7864,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7688,7 +7884,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -7710,14 +7906,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7730,7 +7926,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -7752,14 +7948,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7772,7 +7968,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; break; @@ -7794,14 +7990,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7814,7 +8010,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; break; @@ -7836,14 +8032,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7856,7 +8052,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; break; @@ -7878,14 +8074,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7898,7 +8094,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; break; @@ -7920,14 +8116,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7940,7 +8136,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; break; @@ -7962,14 +8158,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -7982,7 +8178,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; break; @@ -8004,14 +8200,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8024,7 +8220,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; break; @@ -8046,14 +8242,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8066,7 +8262,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; break; @@ -8088,14 +8284,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8108,7 +8304,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; break; @@ -8130,14 +8326,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8150,7 +8346,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -8172,14 +8368,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8192,7 +8388,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; break; @@ -8214,14 +8410,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8230,12 +8426,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8255,14 +8453,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8271,12 +8469,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8296,14 +8496,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8312,12 +8512,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8337,14 +8539,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8353,12 +8555,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8378,14 +8582,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8398,7 +8602,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -8420,14 +8624,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8436,12 +8640,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8461,14 +8667,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8481,7 +8687,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -8503,14 +8709,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8523,7 +8729,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -8545,14 +8751,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8561,12 +8767,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8586,14 +8794,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8602,12 +8810,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8627,14 +8837,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8647,7 +8857,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -8669,14 +8879,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8685,12 +8895,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8710,14 +8922,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8726,12 +8938,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8751,14 +8965,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8767,12 +8981,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8792,14 +9008,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8808,12 +9024,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8833,14 +9051,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8849,12 +9067,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8874,14 +9094,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8890,12 +9110,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8915,14 +9137,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8935,7 +9157,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -8957,14 +9179,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -8973,12 +9195,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -8998,14 +9222,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9014,12 +9238,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9039,14 +9265,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9055,12 +9281,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9080,14 +9308,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9096,12 +9324,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9121,14 +9351,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9137,12 +9367,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9162,14 +9394,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9182,7 +9414,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -9204,14 +9436,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9220,12 +9452,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9245,14 +9479,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9265,7 +9499,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -9287,14 +9521,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9307,7 +9541,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -9329,14 +9563,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9345,12 +9579,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9370,14 +9606,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9386,12 +9622,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9411,14 +9649,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9431,7 +9669,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -9453,14 +9691,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9469,12 +9707,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9494,14 +9734,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9510,12 +9750,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9535,14 +9777,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9551,12 +9793,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9576,14 +9820,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9592,12 +9836,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9617,14 +9863,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9633,12 +9879,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9658,14 +9906,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9674,12 +9922,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9699,14 +9949,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9719,7 +9969,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -9741,14 +9991,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9757,12 +10007,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9782,14 +10034,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9798,12 +10050,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9823,14 +10077,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9839,12 +10093,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9864,14 +10120,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9880,12 +10136,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9905,14 +10163,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9921,12 +10179,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -9946,14 +10206,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -9966,7 +10226,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -9988,14 +10248,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10004,12 +10264,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10029,14 +10291,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10049,7 +10311,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -10071,14 +10333,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10091,7 +10353,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -10113,14 +10375,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10129,12 +10391,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10154,14 +10418,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10170,12 +10434,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10195,14 +10461,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10215,7 +10481,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -10237,14 +10503,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10253,12 +10519,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10278,14 +10546,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10294,12 +10562,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10319,14 +10589,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10335,12 +10605,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10360,14 +10632,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10376,12 +10648,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10401,14 +10675,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10417,12 +10691,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10442,14 +10718,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10458,12 +10734,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10483,14 +10761,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10503,7 +10781,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -10525,14 +10803,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10541,12 +10819,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10566,14 +10846,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10582,12 +10862,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10607,14 +10889,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10623,12 +10905,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10648,14 +10932,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10664,12 +10948,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10689,14 +10975,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10705,12 +10991,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10730,14 +11018,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10750,7 +11038,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -10772,14 +11060,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10788,12 +11076,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10813,14 +11103,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10833,7 +11123,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -10855,14 +11145,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10875,7 +11165,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -10897,14 +11187,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10913,12 +11203,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10938,14 +11230,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10954,12 +11246,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -10979,14 +11273,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -10999,7 +11293,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -11021,14 +11315,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11037,12 +11331,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11062,14 +11358,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11078,12 +11374,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11103,14 +11401,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11119,12 +11417,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11144,14 +11444,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11160,12 +11460,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11185,14 +11487,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11201,12 +11503,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11226,14 +11530,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11242,12 +11546,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11267,14 +11573,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11287,7 +11593,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -11309,14 +11615,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11325,12 +11631,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11350,14 +11658,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11366,12 +11674,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11391,14 +11701,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11407,12 +11717,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11432,14 +11744,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11448,12 +11760,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11473,14 +11787,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11489,12 +11803,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11514,14 +11830,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11534,7 +11850,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -11556,14 +11872,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11572,12 +11888,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11597,14 +11915,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11617,7 +11935,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -11639,14 +11957,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11659,7 +11977,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -11681,14 +11999,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11697,12 +12015,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11722,14 +12042,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11738,12 +12058,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11763,14 +12085,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11783,7 +12105,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -11805,14 +12127,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11821,12 +12143,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11846,14 +12170,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11862,12 +12186,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11887,14 +12213,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11903,12 +12229,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11928,14 +12256,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11944,12 +12272,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -11969,14 +12299,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -11985,12 +12315,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12010,14 +12342,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12026,12 +12358,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12051,14 +12385,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12071,7 +12405,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -12093,14 +12427,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12109,12 +12443,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12134,14 +12470,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12150,12 +12486,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12175,14 +12513,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12191,12 +12529,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12216,14 +12556,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12232,12 +12572,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12257,14 +12599,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12273,12 +12615,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12298,14 +12642,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12318,7 +12662,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -12340,14 +12684,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12356,12 +12700,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12381,14 +12727,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12401,7 +12747,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -12423,14 +12769,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12443,7 +12789,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -12465,14 +12811,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12481,12 +12827,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12506,14 +12854,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12522,12 +12870,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12547,14 +12897,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12567,7 +12917,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -12589,14 +12939,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12605,12 +12955,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12630,14 +12982,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12646,12 +12998,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12671,14 +13025,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12687,12 +13041,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12712,14 +13068,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12728,12 +13084,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12753,14 +13111,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12769,12 +13127,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12794,14 +13154,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12810,12 +13170,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12835,14 +13197,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12855,7 +13217,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -12877,14 +13239,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12893,12 +13255,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12918,14 +13282,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12934,12 +13298,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -12959,14 +13325,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -12975,12 +13341,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -13000,14 +13368,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13016,12 +13384,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -13041,14 +13411,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13057,12 +13427,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -13082,14 +13454,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13102,7 +13474,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -13124,14 +13496,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13140,12 +13512,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -13165,14 +13539,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13185,7 +13559,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -13207,14 +13581,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13227,7 +13601,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -13249,14 +13623,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13265,12 +13639,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -13290,14 +13666,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13306,12 +13682,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -13331,14 +13709,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13351,7 +13729,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -13373,14 +13751,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13389,12 +13767,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -13414,14 +13794,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13430,12 +13810,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -13455,14 +13837,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13471,12 +13853,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -13496,14 +13880,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13512,12 +13896,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -13537,14 +13923,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13553,12 +13939,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -13578,14 +13966,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13594,12 +13982,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -13619,14 +14009,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13639,7 +14029,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -13661,14 +14051,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13677,12 +14067,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -13702,14 +14094,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13722,7 +14114,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; break; @@ -13744,14 +14136,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13764,7 +14156,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; break; @@ -13786,14 +14178,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13806,7 +14198,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; break; @@ -13828,14 +14220,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13848,7 +14240,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; break; @@ -13870,14 +14262,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13890,7 +14282,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; break; @@ -13912,14 +14304,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13932,7 +14324,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; break; @@ -13954,14 +14346,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -13974,7 +14366,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; break; @@ -13996,14 +14388,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14016,7 +14408,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -14038,14 +14430,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14058,7 +14450,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; break; @@ -14080,14 +14472,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14100,7 +14492,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; break; @@ -14122,14 +14514,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14142,7 +14534,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; break; @@ -14164,14 +14556,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14184,7 +14576,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; break; @@ -14206,14 +14598,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14226,7 +14618,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; break; @@ -14248,14 +14640,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14268,7 +14660,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; break; @@ -14290,14 +14682,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14310,7 +14702,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; function_type_prefix = return_type_symbol; break; @@ -14332,14 +14724,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14348,12 +14740,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -14373,14 +14767,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14389,12 +14783,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -14414,14 +14810,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14430,12 +14826,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -14455,14 +14853,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14471,12 +14869,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -14496,14 +14896,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14516,7 +14916,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; function_type_prefix = return_type_symbol; break; @@ -14538,14 +14938,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14554,12 +14954,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -14579,14 +14981,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14599,7 +15001,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; function_type_prefix = return_type_symbol; break; @@ -14621,14 +15023,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14641,7 +15043,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; function_type_prefix = return_type_symbol; break; @@ -14663,14 +15065,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14679,12 +15081,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -14704,14 +15108,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14720,12 +15124,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -14745,14 +15151,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14765,7 +15171,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; function_type_prefix = return_type_symbol; break; @@ -14787,14 +15193,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14803,12 +15209,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -14828,14 +15236,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14844,12 +15252,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -14869,14 +15279,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14885,12 +15295,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -14910,14 +15322,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14926,12 +15338,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -14951,14 +15365,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -14967,12 +15381,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -14992,14 +15408,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15008,12 +15424,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -15033,14 +15451,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15049,12 +15467,14 @@ if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol)) { - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; function_type_prefix = return_type_symbol; + function_type_suffix = IN_type_symbol; break; } @@ -15074,14 +15494,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15094,7 +15514,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; function_type_prefix = return_type_symbol; break; @@ -15116,14 +15536,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15135,9 +15555,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + symbol_c * return_type_symbol = &search_constant_type_c::integer; function_type_prefix = (symbol_c*)(new pragma_c("int")); + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -15157,14 +15579,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15177,7 +15599,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; function_type_prefix = return_type_symbol; break; @@ -15199,14 +15621,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15219,7 +15641,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; function_type_prefix = return_type_symbol; break; @@ -15241,14 +15663,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15261,7 +15683,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; function_type_prefix = return_type_symbol; break; @@ -15283,14 +15705,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15303,7 +15725,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; function_type_prefix = return_type_symbol; break; @@ -15325,14 +15747,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15345,8 +15767,8 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + symbol_c * return_type_symbol = &search_constant_type_c::integer; function_type_prefix = return_type_symbol; break; @@ -15367,14 +15789,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15387,8 +15809,8 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + symbol_c * return_type_symbol = &search_constant_type_c::integer; function_type_prefix = return_type_symbol; break; @@ -15409,14 +15831,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15429,8 +15851,8 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + symbol_c * return_type_symbol = &search_constant_type_c::integer; function_type_prefix = return_type_symbol; break; @@ -15451,14 +15873,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15471,8 +15893,8 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) - symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + symbol_c * return_type_symbol = &search_constant_type_c::integer; function_type_prefix = return_type_symbol; break; @@ -15493,14 +15915,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15513,7 +15935,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; break; @@ -15534,14 +15956,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15554,7 +15976,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; break; @@ -15575,14 +15997,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15595,9 +16017,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_integer_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lint_type_name; break; } @@ -15617,14 +16041,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15637,9 +16061,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -15659,14 +16085,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15679,9 +16105,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -15701,14 +16129,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15721,9 +16149,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -15743,14 +16173,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15763,9 +16193,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -15785,14 +16217,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15805,9 +16237,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -15827,14 +16261,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15847,9 +16281,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -15869,14 +16305,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15889,9 +16325,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -15911,14 +16349,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15931,9 +16369,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -15953,14 +16393,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -15973,9 +16413,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -15995,14 +16437,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -16015,9 +16457,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -16037,14 +16481,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -16054,14 +16498,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16076,35 +16520,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -16124,14 +16570,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16144,11 +16590,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; break; @@ -16164,14 +16610,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16184,11 +16630,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; break; @@ -16204,14 +16650,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16224,11 +16670,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; break; @@ -16255,14 +16701,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -16272,14 +16718,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16294,35 +16740,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -16342,14 +16790,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16362,12 +16810,14 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; + if (search_expression_type->is_literal_integer_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lint_type_name; break; } @@ -16393,14 +16843,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -16410,14 +16860,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16430,11 +16880,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = last_type_symbol; function_type_suffix = return_type_symbol; break; @@ -16451,14 +16901,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16471,11 +16921,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; break; @@ -16491,14 +16941,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16511,11 +16961,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; break; @@ -16528,11 +16978,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; break; @@ -16548,14 +16998,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16568,11 +17018,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; break; @@ -16585,11 +17035,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; break; @@ -16605,14 +17055,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16625,11 +17075,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; break; @@ -16656,14 +17106,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -16673,14 +17123,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16693,11 +17143,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = last_type_symbol; function_type_suffix = return_type_symbol; break; @@ -16714,14 +17164,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16734,12 +17184,14 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; + if (search_expression_type->is_literal_integer_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lint_type_name; break; } @@ -16765,14 +17217,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -16782,14 +17234,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16802,11 +17254,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = last_type_symbol; function_type_suffix = return_type_symbol; break; @@ -16834,14 +17286,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -16851,14 +17303,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -16871,11 +17323,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = last_type_symbol; function_type_suffix = IN1_type_symbol; break; @@ -16903,29 +17355,33 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); - if (IN_param_value != NULL) { - IN_type_symbol = search_expression_type->get_type(IN_param_value); - last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; - } - - - { - - function_name = (symbol_c*)(new pragma_c("__move_")); - - if (IN_type_symbol == NULL) - IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); + if (IN_param_value != NULL) { + IN_type_symbol = search_expression_type->get_type(IN_param_value); + last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; + } + + + { + + function_name = (symbol_c*)(new pragma_c("__move_")); + + if (IN_type_symbol == NULL) + IN_type_symbol = last_type_symbol; + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = last_type_symbol; function_type_suffix = return_type_symbol; + if (search_expression_type->is_literal_integer_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lint_type_name; + else if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -16945,14 +17401,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -16962,14 +17418,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -16982,11 +17438,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (N_type_symbol == NULL) N_type_symbol = last_type_symbol; - ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; break; @@ -17014,14 +17470,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -17031,14 +17487,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -17051,11 +17507,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (N_type_symbol == NULL) N_type_symbol = last_type_symbol; - ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; break; @@ -17083,14 +17539,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -17100,14 +17556,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -17120,11 +17576,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (N_type_symbol == NULL) N_type_symbol = last_type_symbol; - ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; break; @@ -17152,14 +17608,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -17169,14 +17625,14 @@ { { - identifier_c param_name("N"); + symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *N_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); symbol_c *N_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (N_param_value == NULL) - N_param_value = function_call_param_iterator.next(); + N_param_value = function_call_param_iterator.next_nf(); if (N_param_value != NULL) { N_type_symbol = search_expression_type->get_type(N_param_value); last_type_symbol = last_type_symbol && N_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ; @@ -17189,11 +17645,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (N_type_symbol == NULL) N_type_symbol = last_type_symbol; - ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; break; @@ -17221,14 +17677,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -17238,14 +17694,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -17260,35 +17716,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -17319,14 +17777,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -17336,14 +17794,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -17358,35 +17816,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -17417,14 +17877,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -17434,14 +17894,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -17456,35 +17916,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -17515,14 +17977,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -17535,9 +17997,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = return_type_symbol; + if (search_expression_type->is_literal_integer_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lword_type_name; break; } @@ -17557,14 +18021,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("G"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *G_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *G_param_name = (symbol_c *)(new identifier_c("G")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *G_param_value = function_call_param_iterator.search_f(G_param_name); symbol_c *G_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (G_param_value == NULL) - G_param_value = function_call_param_iterator.next(); + G_param_value = function_call_param_iterator.next_nf(); if (G_param_value != NULL) { G_type_symbol = search_expression_type->get_type(G_param_value); last_type_symbol = last_type_symbol && G_type_symbol && search_expression_type->is_same_type(G_type_symbol, last_type_symbol) ? search_expression_type->common_type(G_type_symbol, last_type_symbol) : G_type_symbol ; @@ -17574,14 +18038,14 @@ { { - identifier_c param_name("IN0"); + symbol_c *IN0_param_name = (symbol_c *)(new identifier_c("IN0")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN0_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN0_param_value = function_call_param_iterator.search_f(IN0_param_name); symbol_c *IN0_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN0_param_value == NULL) - IN0_param_value = function_call_param_iterator.next(); + IN0_param_value = function_call_param_iterator.next_nf(); if (IN0_param_value != NULL) { IN0_type_symbol = search_expression_type->get_type(IN0_param_value); last_type_symbol = last_type_symbol && IN0_type_symbol && search_expression_type->is_same_type(IN0_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN0_type_symbol, last_type_symbol) : IN0_type_symbol ; @@ -17591,14 +18055,14 @@ { { - identifier_c param_name("IN1"); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -17611,15 +18075,15 @@ if (G_type_symbol == NULL) G_type_symbol = last_type_symbol; - ADD_PARAM_LIST(G_param_value, G_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(G_param_name, G_param_value, G_type_symbol, function_param_iterator_c::direction_in) if (IN0_type_symbol == NULL) IN0_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN0_param_name, IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = last_type_symbol; function_type_suffix = IN0_type_symbol; break; @@ -17653,14 +18117,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -17670,14 +18134,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -17692,35 +18156,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -17751,14 +18217,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -17768,14 +18234,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -17790,35 +18256,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -17849,14 +18317,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("MN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *MN_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *MN_param_name = (symbol_c *)(new identifier_c("MN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *MN_param_value = function_call_param_iterator.search_f(MN_param_name); symbol_c *MN_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (MN_param_value == NULL) - MN_param_value = function_call_param_iterator.next(); + MN_param_value = function_call_param_iterator.next_nf(); if (MN_param_value != NULL) { MN_type_symbol = search_expression_type->get_type(MN_param_value); last_type_symbol = last_type_symbol && MN_type_symbol && search_expression_type->is_same_type(MN_type_symbol, last_type_symbol) ? search_expression_type->common_type(MN_type_symbol, last_type_symbol) : MN_type_symbol ; @@ -17866,14 +18334,14 @@ { { - identifier_c param_name("IN"); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); symbol_c *IN_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -17883,14 +18351,14 @@ { { - identifier_c param_name("MX"); + symbol_c *MX_param_name = (symbol_c *)(new identifier_c("MX")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *MX_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *MX_param_value = function_call_param_iterator.search_f(MX_param_name); symbol_c *MX_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (MX_param_value == NULL) - MX_param_value = function_call_param_iterator.next(); + MX_param_value = function_call_param_iterator.next_nf(); if (MX_param_value != NULL) { MX_type_symbol = search_expression_type->get_type(MX_param_value); last_type_symbol = last_type_symbol && MX_type_symbol && search_expression_type->is_same_type(MX_type_symbol, last_type_symbol) ? search_expression_type->common_type(MX_type_symbol, last_type_symbol) : MX_type_symbol ; @@ -17903,17 +18371,21 @@ if (MN_type_symbol == NULL) MN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(MN_param_value, MN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(MN_param_name, MN_param_value, MN_type_symbol, function_param_iterator_c::direction_in) if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (MX_type_symbol == NULL) MX_type_symbol = last_type_symbol; - ADD_PARAM_LIST(MX_param_value, MX_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(MX_param_name, MX_param_value, MX_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = IN_type_symbol; function_type_suffix = IN_type_symbol; + if (search_expression_type->is_literal_integer_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lint_type_name; + else if (search_expression_type->is_literal_real_type(function_type_suffix)) + function_type_suffix = &search_constant_type_c::lreal_type_name; break; } @@ -17945,14 +18417,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("K"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *K_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *K_param_name = (symbol_c *)(new identifier_c("K")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *K_param_value = function_call_param_iterator.search_f(K_param_name); symbol_c *K_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (K_param_value == NULL) - K_param_value = function_call_param_iterator.next(); + K_param_value = function_call_param_iterator.next_nf(); if (K_param_value != NULL) { K_type_symbol = search_expression_type->get_type(K_param_value); last_type_symbol = last_type_symbol && K_type_symbol && search_expression_type->is_same_type(K_type_symbol, last_type_symbol) ? search_expression_type->common_type(K_type_symbol, last_type_symbol) : K_type_symbol ; @@ -17962,14 +18434,14 @@ { { - identifier_c param_name("IN0"); + symbol_c *IN0_param_name = (symbol_c *)(new identifier_c("IN0")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN0_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN0_param_value = function_call_param_iterator.search_f(IN0_param_name); symbol_c *IN0_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN0_param_value == NULL) - IN0_param_value = function_call_param_iterator.next(); + IN0_param_value = function_call_param_iterator.next_nf(); if (IN0_param_value != NULL) { IN0_type_symbol = search_expression_type->get_type(IN0_param_value); last_type_symbol = last_type_symbol && IN0_type_symbol && search_expression_type->is_same_type(IN0_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN0_type_symbol, last_type_symbol) : IN0_type_symbol ; @@ -17979,14 +18451,14 @@ { { - identifier_c param_name("IN1"); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -18001,39 +18473,41 @@ nb_param = 3; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (K_type_symbol == NULL) K_type_symbol = last_type_symbol; - ADD_PARAM_LIST(K_param_value, K_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(K_param_name, K_param_value, K_type_symbol, function_param_iterator_c::direction_in) if (IN0_type_symbol == NULL) IN0_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN0_param_name, IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) int base_num = 2; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -18070,14 +18544,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -18087,14 +18561,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -18109,35 +18583,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -18168,14 +18644,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -18185,14 +18661,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -18207,35 +18683,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -18266,14 +18744,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -18283,14 +18761,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -18305,35 +18783,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -18364,14 +18844,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -18381,14 +18861,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -18403,35 +18883,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -18462,14 +18944,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -18479,14 +18961,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -18501,35 +18983,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -18560,14 +19044,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -18577,14 +19061,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -18599,35 +19083,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -18658,14 +19144,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -18678,7 +19164,7 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; break; @@ -18699,14 +19185,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -18716,14 +19202,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -18736,11 +19222,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (L_type_symbol == NULL) L_type_symbol = last_type_symbol; - ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; break; @@ -18767,14 +19253,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -18784,14 +19270,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -18804,11 +19290,11 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (L_type_symbol == NULL) L_type_symbol = last_type_symbol; - ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; break; @@ -18835,14 +19321,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -18852,14 +19338,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -18869,14 +19355,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -18889,15 +19375,15 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (L_type_symbol == NULL) L_type_symbol = last_type_symbol; - ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) if (P_type_symbol == NULL) P_type_symbol = last_type_symbol; - ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; break; @@ -18930,14 +19416,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -18947,14 +19433,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -18967,11 +19453,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; break; @@ -18987,14 +19473,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -19009,35 +19495,37 @@ nb_param = 2; char* nb_param_str = new char[10]; sprintf(nb_param_str, "%d", nb_param); - ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) + symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); + ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) int base_num = 3; symbol_c *param_value = NULL; + symbol_c *param_name = NULL; do{ char my_name[10]; sprintf(my_name, "IN%d", base_num++); - identifier_c param_name(my_name); + param_name = (symbol_c*)(new identifier_c(my_name)); /* Get the value from a foo(<param_name> = <param_value>) style call */ - param_value = function_call_param_iterator.search(¶m_name); + param_value = function_call_param_iterator.search_f(param_name); /* Get the value from a foo(<param_value>) style call */ if (param_value == NULL) - param_value = function_call_param_iterator.next(); + param_value = function_call_param_iterator.next_nf(); if (param_value != NULL){ symbol_c *current_type_symbol = search_expression_type->get_type(param_value); last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; /*Function specific CODE */ - ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) } }while(param_value != NULL); @@ -19067,14 +19555,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -19084,14 +19572,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -19101,14 +19589,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -19121,15 +19609,15 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) if (P_type_symbol == NULL) P_type_symbol = last_type_symbol; - ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; break; @@ -19162,14 +19650,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name); - symbol_c *IN_type_symbol = NULL; - - /* Get the value from a foo(<param_value>) style call */ - if (IN_param_value == NULL) - IN_param_value = function_call_param_iterator.next(); + symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); + symbol_c *IN_type_symbol = NULL; + + /* Get the value from a foo(<param_value>) style call */ + if (IN_param_value == NULL) + IN_param_value = function_call_param_iterator.next_nf(); if (IN_param_value != NULL) { IN_type_symbol = search_expression_type->get_type(IN_param_value); last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ; @@ -19179,14 +19667,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -19196,14 +19684,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -19216,15 +19704,15 @@ if (IN_type_symbol == NULL) IN_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) if (L_type_symbol == NULL) L_type_symbol = last_type_symbol; - ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) if (P_type_symbol == NULL) P_type_symbol = last_type_symbol; - ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; break; @@ -19257,14 +19745,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -19274,14 +19762,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -19291,14 +19779,14 @@ { { - identifier_c param_name("L"); + symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *L_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); symbol_c *L_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (L_param_value == NULL) - L_param_value = function_call_param_iterator.next(); + L_param_value = function_call_param_iterator.next_nf(); if (L_param_value != NULL) { L_type_symbol = search_expression_type->get_type(L_param_value); last_type_symbol = last_type_symbol && L_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ; @@ -19308,14 +19796,14 @@ { { - identifier_c param_name("P"); + symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *P_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); symbol_c *P_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (P_param_value == NULL) - P_param_value = function_call_param_iterator.next(); + P_param_value = function_call_param_iterator.next_nf(); if (P_param_value != NULL) { P_type_symbol = search_expression_type->get_type(P_param_value); last_type_symbol = last_type_symbol && P_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ; @@ -19328,19 +19816,19 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) if (L_type_symbol == NULL) L_type_symbol = last_type_symbol; - ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) if (P_type_symbol == NULL) P_type_symbol = last_type_symbol; - ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; break; @@ -19379,14 +19867,14 @@ symbol_c *last_type_symbol = NULL; { - identifier_c param_name("IN1"); - /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN1_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); + /* Get the value from a foo(<param_name> = <param_value>) style call */ + symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); symbol_c *IN1_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN1_param_value == NULL) - IN1_param_value = function_call_param_iterator.next(); + IN1_param_value = function_call_param_iterator.next_nf(); if (IN1_param_value != NULL) { IN1_type_symbol = search_expression_type->get_type(IN1_param_value); last_type_symbol = last_type_symbol && IN1_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ; @@ -19396,14 +19884,14 @@ { { - identifier_c param_name("IN2"); + symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); /* Get the value from a foo(<param_name> = <param_value>) style call */ - symbol_c *IN2_param_value = function_call_param_iterator.search(¶m_name); + symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); symbol_c *IN2_type_symbol = NULL; /* Get the value from a foo(<param_value>) style call */ if (IN2_param_value == NULL) - IN2_param_value = function_call_param_iterator.next(); + IN2_param_value = function_call_param_iterator.next_nf(); if (IN2_param_value != NULL) { IN2_type_symbol = search_expression_type->get_type(IN2_param_value); last_type_symbol = last_type_symbol && IN2_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ; @@ -19416,11 +19904,11 @@ if (IN1_type_symbol == NULL) IN1_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) if (IN2_type_symbol == NULL) IN2_type_symbol = last_type_symbol; - ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) + ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; break; diff -r 90782e241346 -r d7d92b2f87e9 stage4/generate_iec/Makefile --- a/stage4/generate_iec/Makefile Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/generate_iec/Makefile Thu Mar 31 10:45:34 2011 +0100 @@ -23,10 +23,8 @@ ../% /%: $(MAKE) -C $(@D) $(@F) - Makefile.depend depend: $(CXX) -MM -MG -I. *.cc \ - | perl -pe 's/:/ Makefile.depend:/' > Makefile.depend + | sed 's/:/ Makefile.depend:/' > Makefile.depend include Makefile.depend - diff -r 90782e241346 -r d7d92b2f87e9 stage4/stage4.cc --- a/stage4/stage4.cc Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/stage4.cc Thu Mar 31 10:45:34 2011 +0100 @@ -107,6 +107,16 @@ return NULL; } +void *stage4out_c::print_long_integer(unsigned long l_integer) { + *out << l_integer << "UL"; + return NULL; +} + +void *stage4out_c::print_long_long_integer(unsigned long long ll_integer) { + *out << ll_integer << "ULL"; + return NULL; +} + void *stage4out_c::printupper(const char *str) { for (int i = 0; str[i] != '\0'; i++) *out << (unsigned char)toupper(str[i]); diff -r 90782e241346 -r d7d92b2f87e9 stage4/stage4.hh --- a/stage4/stage4.hh Wed Mar 30 19:53:32 2011 +0100 +++ b/stage4/stage4.hh Thu Mar 31 10:45:34 2011 +0100 @@ -48,6 +48,8 @@ void *print(std::string str); void *print_integer(int integer); + void *print_long_integer(unsigned long l_integer); + void *print_long_long_integer(unsigned long long ll_integer); void *printupper(const char *str); void *printupper(std::string str); diff -r 90782e241346 -r d7d92b2f87e9 tests/LD_TEST.xml --- a/tests/LD_TEST.xml Wed Mar 30 19:53:32 2011 +0100 +++ b/tests/LD_TEST.xml Thu Mar 31 10:45:34 2011 +0100 @@ -4,8 +4,8 @@ xmlns:xhtml="http://www.w3.org/1999/xhtml" xsi:schemaLocation="http://www.plcopen.org/xml/tc6.xsd http://www.plcopen.org/xml/tc6.xsd"> <fileHeader contentDescription="This tests LD language" - companyName="LOLITECH" - companyURL="www.lolitech.com" + companyName="Beremiz" + companyURL="www.beremiz.org" productName="BREMIZ" productRelease="1" productVersion="1" diff -r 90782e241346 -r d7d92b2f87e9 tests/SFC_TEST.xml --- a/tests/SFC_TEST.xml Wed Mar 30 19:53:32 2011 +0100 +++ b/tests/SFC_TEST.xml Thu Mar 31 10:45:34 2011 +0100 @@ -4,8 +4,8 @@ xmlns:xhtml="http://www.w3.org/1999/xhtml" xsi:schemaLocation="http://www.plcopen.org/xml/tc6.xsd http://www.plcopen.org/xml/tc6.xsd"> <fileHeader contentDescription="This tests SFC language" - companyName="LOLITECH" - companyURL="www.lolitech.com" + companyName="Beremiz" + companyURL="www.beremiz.org" productName="BREMIZ" productRelease="1" productVersion="1" diff -r 90782e241346 -r d7d92b2f87e9 tests/STD_TEST.xml --- a/tests/STD_TEST.xml Wed Mar 30 19:53:32 2011 +0100 +++ b/tests/STD_TEST.xml Thu Mar 31 10:45:34 2011 +0100 @@ -4,8 +4,8 @@ xmlns:xhtml="http://www.w3.org/1999/xhtml" xsi:schemaLocation="http://www.plcopen.org/xml/tc6.xsd http://www.plcopen.org/xml/tc6.xsd"> <fileHeader contentDescription="This tests as most as possible IEC standard library" - companyName="LOLITECH" - companyURL="www.lolitech.com" + companyName="Beremiz" + companyURL="www.beremiz.org" productName="BREMIZ" productRelease="1" productVersion="1" diff -r 90782e241346 -r d7d92b2f87e9 tests/syntax/identifier/runtests --- a/tests/syntax/identifier/runtests Wed Mar 30 19:53:32 2011 +0100 +++ b/tests/syntax/identifier/runtests Thu Mar 31 10:45:34 2011 +0100 @@ -9,6 +9,7 @@ do sed s/XXXX/$id/g $ff > $ff"_"$id.iec if `../../../iec2iec $ff"_"$id.iec -I ../../../lib > $ff"_"$id.out 2>$ff"_"$id.err` + #if `../../../iec2c $ff"_"$id.iec -I ../../../lib > $ff"_"$id.out 2>$ff"_"$id.err` # TODO before deciding test is success [OK] # - test whether xxx.out has size <> 0 # - test whether xxx.err has size == 0