44 

    44 

    45     /* A helper function... */

    45     /* A helper function... */

    46     bool is_bool_type(symbol_c *type_symbol);

    46     bool is_bool_type(symbol_c *type_symbol);

    47     bool is_time_type(symbol_c *type_symbol);

    47     bool is_time_type(symbol_c *type_symbol);

    48     bool is_string_type(symbol_c *type_symbol);

    48     bool is_string_type(symbol_c *type_symbol);

    49     bool is_integer_type(symbol_c *type_symbol);

    50     bool is_integer_type(symbol_c *type_symbol);

    50     bool is_real_type(symbol_c *type_symbol);

    52     bool is_real_type(symbol_c *type_symbol);

    51     bool is_num_type(symbol_c *type_symbol);

    53     bool is_num_type(symbol_c *type_symbol);

    52     bool is_nbinary_type(symbol_c *type_symbol);

    54     bool is_nbinary_type(symbol_c *type_symbol);

    53     bool is_binary_type(symbol_c *type_symbol);

    55     bool is_binary_type(symbol_c *type_symbol);

    54 

    56 

    57 

    59 

    58     /*

    60     /*

    59     #include "search_type_code.c"

    61     #include "search_type_code.c"

    60     */

    62     */

    61     void *compute_standard_function_default(function_invocation_c *st_symbol, il_formal_funct_call_c *il_symbol);

    63     void *compute_standard_function_default(function_invocation_c *st_symbol, il_formal_funct_call_c *il_symbol);

    65     void *compute_standard_function_il(il_function_call_c *symbol, symbol_c *param_data_type);

    64     void *compute_standard_function_il(il_function_call_c *symbol, symbol_c *param_data_type);

    66 

    65 

    67 

    66 

    68 

    67 

    69     /*static bool_type_name_c bool_type_name;*/

    68     /*static bool_type_name_c bool_type_name;*/

   118     void *visit(mod_expression_c *symbol);

   117     void *visit(mod_expression_c *symbol);

   119     void *visit(power_expression_c *symbol);

   118     void *visit(power_expression_c *symbol);

   120     void *visit(neg_expression_c *symbol);

   119     void *visit(neg_expression_c *symbol);

   121     void *visit(not_expression_c *symbol);

   120     void *visit(not_expression_c *symbol);

   122     void *visit(function_invocation_c *symbol);

   121     void *visit(function_invocation_c *symbol);

   123 }; // search_expression_type_c

   126 }; // search_expression_type_c

   124 

   127 

   126 

   128