--- a/lib/iec_std_lib.h Fri Jul 13 19:20:26 2007 +0200
+++ b/lib/iec_std_lib.h Tue Jul 17 12:19:59 2007 +0200
@@ -415,7 +415,7 @@
}
static inline STRING __uint_to_string(ULINT IN){
STRING res = __INIT_STRING;
- res.len = snprintf(res.body, STR_MAX_LEN, "16#%llu", IN);
+ res.len = snprintf(res.body, STR_MAX_LEN, "%llu", IN);
if(res.len > STR_MAX_LEN) res.len = STR_MAX_LEN;
return res;
}
@@ -579,7 +579,7 @@
if(IN.tv_nsec == 0){
res.len = snprintf((char*)&res.body, STR_MAX_LEN, "T#%dd%dh%dm%ds", days.quot, hours.quot, minuts.quot, minuts.rem);
}else{
- res.len = snprintf((char*)&res.body, STR_MAX_LEN, "T#%dd%dh%dm%ds%gms", days.quot, hours.quot, minuts.quot, minuts.rem, IN.tv_nsec / 1000000);
+ res.len = snprintf((char*)&res.body, STR_MAX_LEN, "T#%dd%dh%dm%ds%gms", days.quot, hours.quot, minuts.quot, minuts.rem, (LREAL)IN.tv_nsec / 1000000);
}
}
}
@@ -592,11 +592,11 @@
STRING res = __INIT_STRING;
struct tm broken_down_time;
time_t seconds = IN.tv_sec;
- if (NULL == gmtime_r(&seconds, &broken_down_time)){ /* get the UTC (GMT) broken down time */
+ if (NULL == localtime_r(&seconds, &broken_down_time)){ /* get the UTC (GMT) broken down time */
IEC_error();
return (STRING){7,"D#ERROR"};
}
- res.len = snprintf((char*)&res.body, STR_MAX_LEN, "D#%d-%2.2d-%2.2d", broken_down_time.tm_year, broken_down_time.tm_mon, broken_down_time.tm_mday);
+ res.len = snprintf((char*)&res.body, STR_MAX_LEN, "D#%d-%2.2d-%2.2d", broken_down_time.tm_year + 1900, broken_down_time.tm_mon + 1, broken_down_time.tm_mday);
if(res.len > STR_MAX_LEN) res.len = STR_MAX_LEN;
return res;
}
@@ -605,14 +605,14 @@
STRING res = __INIT_STRING;
struct tm broken_down_time;
time_t seconds = IN.tv_sec;
- if (NULL == gmtime_r(&seconds, &broken_down_time)){ /* get the UTC (GMT) broken down time */
+ if (NULL == localtime_r(&seconds, &broken_down_time)){ /* get the UTC (GMT) broken down time */
IEC_error();
return (STRING){9,"TOD#ERROR"};
}
if(IN.tv_nsec == 0){
res.len = snprintf((char*)&res.body, STR_MAX_LEN, "TOD#%2.2d:%2.2d:%d", broken_down_time.tm_hour, broken_down_time.tm_min, broken_down_time.tm_sec);
}else{
- res.len = snprintf((char*)&res.body, STR_MAX_LEN, "TOD#%2.2d:%2.2d:%g", broken_down_time.tm_hour, broken_down_time.tm_min, (LREAL)broken_down_time.tm_sec + (LREAL)IN.tv_nsec / 1000000);
+ res.len = snprintf((char*)&res.body, STR_MAX_LEN, "TOD#%2.2d:%2.2d:%g", broken_down_time.tm_hour, broken_down_time.tm_min, (LREAL)broken_down_time.tm_sec + (LREAL)IN.tv_nsec / 1e9);
}
if(res.len > STR_MAX_LEN) res.len = STR_MAX_LEN;
return res;
@@ -622,7 +622,7 @@
STRING res;
struct tm broken_down_time;
time_t seconds = IN.tv_sec;
- if (NULL == gmtime_r(&seconds, &broken_down_time)){ /* get the UTC (GMT) broken down time */
+ if (NULL == localtime_r(&seconds, &broken_down_time)){ /* get the UTC (GMT) broken down time */
IEC_error();
return (STRING){8,"DT#ERROR"};
}
@@ -635,13 +635,13 @@
broken_down_time.tm_min,
broken_down_time.tm_sec);
}else{
- res.len = snprintf((char*)&res.body, STR_MAX_LEN, "DT#%d-%2.2d-%2.2d-%2.2d:%2.2d:%d",
+ res.len = snprintf((char*)&res.body, STR_MAX_LEN, "DT#%d-%2.2d-%2.2d-%2.2d:%2.2d:%g",
broken_down_time.tm_year,
broken_down_time.tm_mon,
broken_down_time.tm_mday,
broken_down_time.tm_hour,
broken_down_time.tm_min,
- (LREAL)broken_down_time.tm_sec + ((LREAL)IN.tv_nsec / 1000000));
+ (LREAL)broken_down_time.tm_sec + ((LREAL)IN.tv_nsec / 1e9));
}
if(res.len > STR_MAX_LEN) res.len = STR_MAX_LEN;
return res;
--- a/stage1_2/standard_function_names.c Fri Jul 13 19:20:26 2007 +0200
+++ b/stage1_2/standard_function_names.c Tue Jul 17 12:19:59 2007 +0200
@@ -214,7 +214,6 @@
"LREAL_TO_WORD",
"LREAL_TO_DWORD",
"LREAL_TO_LWORD",
-"TIME_TO_BOOL",
"TIME_TO_SINT",
"TIME_TO_INT",
"TIME_TO_DINT",
@@ -230,7 +229,6 @@
"TIME_TO_WORD",
"TIME_TO_DWORD",
"TIME_TO_LWORD",
-"DATE_TO_BOOL",
"DATE_TO_SINT",
"DATE_TO_INT",
"DATE_TO_DINT",
@@ -246,7 +244,6 @@
"DATE_TO_WORD",
"DATE_TO_DWORD",
"DATE_TO_LWORD",
-"TOD_TO_BOOL",
"TOD_TO_SINT",
"TOD_TO_INT",
"TOD_TO_DINT",
@@ -262,7 +259,6 @@
"TOD_TO_WORD",
"TOD_TO_DWORD",
"TOD_TO_LWORD",
-"DT_TO_BOOL",
"DT_TO_SINT",
"DT_TO_INT",
"DT_TO_DINT",
--- a/stage4/generate_cc/function_type_decl.h Fri Jul 13 19:20:26 2007 +0200
+++ b/stage4/generate_cc/function_type_decl.h Tue Jul 17 12:19:59 2007 +0200
@@ -213,7 +213,6 @@
function_lreal_to_word,
function_lreal_to_dword,
function_lreal_to_lword,
- function_time_to_bool,
function_time_to_sint,
function_time_to_int,
function_time_to_dint,
@@ -229,7 +228,6 @@
function_time_to_word,
function_time_to_dword,
function_time_to_lword,
- function_date_to_bool,
function_date_to_sint,
function_date_to_int,
function_date_to_dint,
@@ -245,7 +243,6 @@
function_date_to_word,
function_date_to_dword,
function_date_to_lword,
- function_tod_to_bool,
function_tod_to_sint,
function_tod_to_int,
function_tod_to_dint,
@@ -261,7 +258,6 @@
function_tod_to_word,
function_tod_to_dword,
function_tod_to_lword,
- function_dt_to_bool,
function_dt_to_sint,
function_dt_to_int,
function_dt_to_dint,
--- a/stage4/generate_cc/generate_cc_st.cc Fri Jul 13 19:20:26 2007 +0200
+++ b/stage4/generate_cc/generate_cc_st.cc Tue Jul 17 12:19:59 2007 +0200
@@ -469,12 +469,13 @@
symbol->function_name->accept(*this);
s4o.print("(");
+ s4o.indent_right();
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++) {
if (i != 1)
- s4o.print(", ");
+ s4o.print(",\n"+s4o.indent_spaces);
function_param_iterator_c::param_direction_t param_direction = fp_iterator.param_direction();
@@ -521,6 +522,7 @@
} /* for(...) */
// symbol->parameter_assignment->accept(*this);
s4o.print(")");
+ s4o.indent_left();
}
return NULL;
--- a/stage4/generate_cc/get_function_type_decl.c Fri Jul 13 19:20:26 2007 +0200
+++ b/stage4/generate_cc/get_function_type_decl.c Tue Jul 17 12:19:59 2007 +0200
@@ -632,9 +632,6 @@
if (!strcasecmp(function_name->value, "LREAL_TO_LWORD"))
return function_lreal_to_lword;
-if (!strcasecmp(function_name->value, "TIME_TO_BOOL"))
- return function_time_to_bool;
-
if (!strcasecmp(function_name->value, "TIME_TO_SINT"))
return function_time_to_sint;
@@ -680,9 +677,6 @@
if (!strcasecmp(function_name->value, "TIME_TO_LWORD"))
return function_time_to_lword;
-if (!strcasecmp(function_name->value, "DATE_TO_BOOL"))
- return function_date_to_bool;
-
if (!strcasecmp(function_name->value, "DATE_TO_SINT"))
return function_date_to_sint;
@@ -728,9 +722,6 @@
if (!strcasecmp(function_name->value, "DATE_TO_LWORD"))
return function_date_to_lword;
-if (!strcasecmp(function_name->value, "TOD_TO_BOOL"))
- return function_tod_to_bool;
-
if (!strcasecmp(function_name->value, "TOD_TO_SINT"))
return function_tod_to_sint;
@@ -776,9 +767,6 @@
if (!strcasecmp(function_name->value, "TOD_TO_LWORD"))
return function_tod_to_lword;
-if (!strcasecmp(function_name->value, "DT_TO_BOOL"))
- return function_dt_to_bool;
-
if (!strcasecmp(function_name->value, "DT_TO_SINT"))
return function_dt_to_sint;
--- a/stage4/generate_cc/il_code_gen.c Fri Jul 13 19:20:26 2007 +0200
+++ b/stage4/generate_cc/il_code_gen.c Tue Jul 17 12:19:59 2007 +0200
@@ -19,7 +19,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -51,7 +51,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -83,7 +83,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -115,7 +115,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -147,7 +147,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -179,7 +179,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -211,7 +211,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -243,7 +243,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -275,7 +275,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -307,7 +307,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -339,7 +339,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -372,7 +372,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -405,7 +405,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -438,7 +438,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -471,7 +471,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -504,7 +504,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -536,7 +536,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -568,7 +568,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -600,7 +600,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -632,7 +632,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -664,7 +664,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -696,7 +696,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -728,7 +728,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -760,7 +760,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -792,7 +792,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -824,7 +824,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -856,7 +856,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -888,7 +888,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -920,7 +920,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -952,7 +952,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -985,7 +985,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -1018,7 +1018,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -1051,7 +1051,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -1084,7 +1084,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -1117,7 +1117,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -1149,7 +1149,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -1181,7 +1181,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -1213,7 +1213,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -1245,7 +1245,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -1277,7 +1277,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -1309,7 +1309,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -1341,7 +1341,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -1373,7 +1373,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -1405,7 +1405,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -1437,7 +1437,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -1469,7 +1469,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -1501,7 +1501,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -1533,7 +1533,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -1565,7 +1565,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -1598,7 +1598,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -1631,7 +1631,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -1664,7 +1664,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -1697,7 +1697,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -1730,7 +1730,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -1762,7 +1762,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -1794,7 +1794,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -1826,7 +1826,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -1858,7 +1858,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -1890,7 +1890,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -1922,7 +1922,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -1954,7 +1954,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -1986,7 +1986,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -2018,7 +2018,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -2050,7 +2050,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -2082,7 +2082,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -2114,7 +2114,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -2146,7 +2146,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -2178,7 +2178,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -2211,7 +2211,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -2244,7 +2244,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -2277,7 +2277,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -2310,7 +2310,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -2343,7 +2343,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -2375,7 +2375,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -2407,7 +2407,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -2439,7 +2439,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -2471,7 +2471,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -2503,7 +2503,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -2535,7 +2535,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -2567,7 +2567,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -2599,7 +2599,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -2631,7 +2631,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -2663,7 +2663,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -2695,7 +2695,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -2727,7 +2727,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -2759,7 +2759,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -2791,7 +2791,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -2824,7 +2824,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -2857,7 +2857,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -2890,7 +2890,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -2923,7 +2923,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -2956,7 +2956,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -2988,7 +2988,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -3020,7 +3020,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -3052,7 +3052,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -3084,7 +3084,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::bool_type_name;
@@ -3116,7 +3116,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::sint_type_name;
@@ -3148,7 +3148,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::int_type_name;
@@ -3180,7 +3180,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::dint_type_name;
@@ -3212,7 +3212,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::lint_type_name;
@@ -3244,7 +3244,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::uint_type_name;
@@ -3276,7 +3276,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::udint_type_name;
@@ -3308,7 +3308,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::ulint_type_name;
@@ -3340,7 +3340,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::real_type_name;
@@ -3372,7 +3372,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::lreal_type_name;
@@ -3404,7 +3404,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::time_type_name;
@@ -3437,7 +3437,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::date_type_name;
@@ -3470,7 +3470,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::tod_type_name;
@@ -3503,7 +3503,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::dt_type_name;
@@ -3536,7 +3536,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::string_type_name;
@@ -3569,7 +3569,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::byte_type_name;
@@ -3601,7 +3601,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::word_type_name;
@@ -3633,7 +3633,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::dword_type_name;
@@ -3665,7 +3665,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::lword_type_name;
@@ -3697,7 +3697,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::bool_type_name;
@@ -3729,7 +3729,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::sint_type_name;
@@ -3761,7 +3761,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::int_type_name;
@@ -3793,7 +3793,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::dint_type_name;
@@ -3825,7 +3825,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::lint_type_name;
@@ -3857,7 +3857,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::usint_type_name;
@@ -3889,7 +3889,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::udint_type_name;
@@ -3921,7 +3921,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::ulint_type_name;
@@ -3953,7 +3953,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::real_type_name;
@@ -3985,7 +3985,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::lreal_type_name;
@@ -4017,7 +4017,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::time_type_name;
@@ -4050,7 +4050,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::date_type_name;
@@ -4083,7 +4083,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::tod_type_name;
@@ -4116,7 +4116,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::dt_type_name;
@@ -4149,7 +4149,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::string_type_name;
@@ -4182,7 +4182,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::byte_type_name;
@@ -4214,7 +4214,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::word_type_name;
@@ -4246,7 +4246,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::dword_type_name;
@@ -4278,7 +4278,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::lword_type_name;
@@ -4310,7 +4310,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::bool_type_name;
@@ -4342,7 +4342,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::sint_type_name;
@@ -4374,7 +4374,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::int_type_name;
@@ -4406,7 +4406,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::dint_type_name;
@@ -4438,7 +4438,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::lint_type_name;
@@ -4470,7 +4470,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::usint_type_name;
@@ -4502,7 +4502,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::uint_type_name;
@@ -4534,7 +4534,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::ulint_type_name;
@@ -4566,7 +4566,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::real_type_name;
@@ -4598,7 +4598,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::lreal_type_name;
@@ -4630,7 +4630,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::time_type_name;
@@ -4663,7 +4663,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::date_type_name;
@@ -4696,7 +4696,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::tod_type_name;
@@ -4729,7 +4729,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::dt_type_name;
@@ -4762,7 +4762,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::string_type_name;
@@ -4795,7 +4795,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::byte_type_name;
@@ -4827,7 +4827,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::word_type_name;
@@ -4859,7 +4859,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::dword_type_name;
@@ -4891,7 +4891,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::lword_type_name;
@@ -4923,7 +4923,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::bool_type_name;
@@ -4955,7 +4955,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::sint_type_name;
@@ -4987,7 +4987,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::int_type_name;
@@ -5019,7 +5019,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::dint_type_name;
@@ -5051,7 +5051,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::lint_type_name;
@@ -5083,7 +5083,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::usint_type_name;
@@ -5115,7 +5115,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::uint_type_name;
@@ -5147,7 +5147,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::udint_type_name;
@@ -5179,7 +5179,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::real_type_name;
@@ -5211,7 +5211,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::lreal_type_name;
@@ -5243,7 +5243,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::time_type_name;
@@ -5276,7 +5276,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::date_type_name;
@@ -5309,7 +5309,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::tod_type_name;
@@ -5342,7 +5342,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::dt_type_name;
@@ -5375,7 +5375,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::string_type_name;
@@ -5408,7 +5408,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::byte_type_name;
@@ -5440,7 +5440,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::word_type_name;
@@ -5472,7 +5472,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::dword_type_name;
@@ -5504,7 +5504,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::lword_type_name;
@@ -5536,7 +5536,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -5568,7 +5568,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -5600,7 +5600,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -5632,7 +5632,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -5664,7 +5664,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -5696,7 +5696,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -5728,7 +5728,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -5760,7 +5760,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -5792,7 +5792,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -5824,7 +5824,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -5856,7 +5856,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -5889,7 +5889,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -5922,7 +5922,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -5955,7 +5955,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -5988,7 +5988,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -6021,7 +6021,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -6053,7 +6053,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -6085,7 +6085,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -6117,7 +6117,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -6149,7 +6149,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -6181,7 +6181,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -6213,7 +6213,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -6245,7 +6245,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -6277,7 +6277,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -6309,7 +6309,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -6341,7 +6341,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -6373,7 +6373,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -6405,7 +6405,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -6437,7 +6437,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -6469,7 +6469,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -6502,7 +6502,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -6535,7 +6535,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -6568,7 +6568,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -6601,7 +6601,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -6634,7 +6634,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -6666,7 +6666,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -6698,7 +6698,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -6730,7 +6730,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -6749,5152 +6749,5020 @@
break;
/****
- *TIME_TO_BOOL
- */
- case function_time_to_bool :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ *TIME_TO_SINT
+ */
+ case function_time_to_sint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_sint*/
+ break;
+
+/****
+ *TIME_TO_INT
+ */
+ case function_time_to_int :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_int*/
+ break;
+
+/****
+ *TIME_TO_DINT
+ */
+ case function_time_to_dint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_dint*/
+ break;
+
+/****
+ *TIME_TO_LINT
+ */
+ case function_time_to_lint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_lint*/
+ break;
+
+/****
+ *TIME_TO_USINT
+ */
+ case function_time_to_usint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_usint*/
+ break;
+
+/****
+ *TIME_TO_UINT
+ */
+ case function_time_to_uint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_uint*/
+ break;
+
+/****
+ *TIME_TO_UDINT
+ */
+ case function_time_to_udint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_udint*/
+ break;
+
+/****
+ *TIME_TO_ULINT
+ */
+ case function_time_to_ulint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_ulint*/
+ break;
+
+/****
+ *TIME_TO_REAL
+ */
+ case function_time_to_real :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_real*/
+ break;
+
+/****
+ *TIME_TO_LREAL
+ */
+ case function_time_to_lreal :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_lreal*/
+ break;
+
+/****
+ *TIME_TO_STRING
+ */
+ case function_time_to_string :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_string*/
+ break;
+
+/****
+ *TIME_TO_BYTE
+ */
+ case function_time_to_byte :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_byte*/
+ break;
+
+/****
+ *TIME_TO_WORD
+ */
+ case function_time_to_word :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_word*/
+ break;
+
+/****
+ *TIME_TO_DWORD
+ */
+ case function_time_to_dword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_dword*/
+ break;
+
+/****
+ *TIME_TO_LWORD
+ */
+ case function_time_to_lword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_lword*/
+ break;
+
+/****
+ *DATE_TO_SINT
+ */
+ case function_date_to_sint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_sint*/
+ break;
+
+/****
+ *DATE_TO_INT
+ */
+ case function_date_to_int :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_int*/
+ break;
+
+/****
+ *DATE_TO_DINT
+ */
+ case function_date_to_dint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_dint*/
+ break;
+
+/****
+ *DATE_TO_LINT
+ */
+ case function_date_to_lint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_lint*/
+ break;
+
+/****
+ *DATE_TO_USINT
+ */
+ case function_date_to_usint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_usint*/
+ break;
+
+/****
+ *DATE_TO_UINT
+ */
+ case function_date_to_uint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_uint*/
+ break;
+
+/****
+ *DATE_TO_UDINT
+ */
+ case function_date_to_udint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_udint*/
+ break;
+
+/****
+ *DATE_TO_ULINT
+ */
+ case function_date_to_ulint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_ulint*/
+ break;
+
+/****
+ *DATE_TO_REAL
+ */
+ case function_date_to_real :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_real*/
+ break;
+
+/****
+ *DATE_TO_LREAL
+ */
+ case function_date_to_lreal :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_lreal*/
+ break;
+
+/****
+ *DATE_TO_STRING
+ */
+ case function_date_to_string :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__date_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_string*/
+ break;
+
+/****
+ *DATE_TO_BYTE
+ */
+ case function_date_to_byte :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_byte*/
+ break;
+
+/****
+ *DATE_TO_WORD
+ */
+ case function_date_to_word :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_word*/
+ break;
+
+/****
+ *DATE_TO_DWORD
+ */
+ case function_date_to_dword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_dword*/
+ break;
+
+/****
+ *DATE_TO_LWORD
+ */
+ case function_date_to_lword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_lword*/
+ break;
+
+/****
+ *TOD_TO_SINT
+ */
+ case function_tod_to_sint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_sint*/
+ break;
+
+/****
+ *TOD_TO_INT
+ */
+ case function_tod_to_int :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_int*/
+ break;
+
+/****
+ *TOD_TO_DINT
+ */
+ case function_tod_to_dint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_dint*/
+ break;
+
+/****
+ *TOD_TO_LINT
+ */
+ case function_tod_to_lint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_lint*/
+ break;
+
+/****
+ *TOD_TO_USINT
+ */
+ case function_tod_to_usint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_usint*/
+ break;
+
+/****
+ *TOD_TO_UINT
+ */
+ case function_tod_to_uint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_uint*/
+ break;
+
+/****
+ *TOD_TO_UDINT
+ */
+ case function_tod_to_udint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_udint*/
+ break;
+
+/****
+ *TOD_TO_ULINT
+ */
+ case function_tod_to_ulint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_ulint*/
+ break;
+
+/****
+ *TOD_TO_REAL
+ */
+ case function_tod_to_real :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_real*/
+ break;
+
+/****
+ *TOD_TO_LREAL
+ */
+ case function_tod_to_lreal :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_lreal*/
+ break;
+
+/****
+ *TOD_TO_STRING
+ */
+ case function_tod_to_string :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__tod_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_string*/
+ break;
+
+/****
+ *TOD_TO_BYTE
+ */
+ case function_tod_to_byte :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_byte*/
+ break;
+
+/****
+ *TOD_TO_WORD
+ */
+ case function_tod_to_word :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_word*/
+ break;
+
+/****
+ *TOD_TO_DWORD
+ */
+ case function_tod_to_dword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_dword*/
+ break;
+
+/****
+ *TOD_TO_LWORD
+ */
+ case function_tod_to_lword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_lword*/
+ break;
+
+/****
+ *DT_TO_SINT
+ */
+ case function_dt_to_sint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_sint*/
+ break;
+
+/****
+ *DT_TO_INT
+ */
+ case function_dt_to_int :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_int*/
+ break;
+
+/****
+ *DT_TO_DINT
+ */
+ case function_dt_to_dint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_dint*/
+ break;
+
+/****
+ *DT_TO_LINT
+ */
+ case function_dt_to_lint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_lint*/
+ break;
+
+/****
+ *DT_TO_USINT
+ */
+ case function_dt_to_usint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_usint*/
+ break;
+
+/****
+ *DT_TO_UINT
+ */
+ case function_dt_to_uint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_uint*/
+ break;
+
+/****
+ *DT_TO_UDINT
+ */
+ case function_dt_to_udint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_udint*/
+ break;
+
+/****
+ *DT_TO_ULINT
+ */
+ case function_dt_to_ulint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_ulint*/
+ break;
+
+/****
+ *DT_TO_REAL
+ */
+ case function_dt_to_real :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_real*/
+ break;
+
+/****
+ *DT_TO_LREAL
+ */
+ case function_dt_to_lreal :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_lreal*/
+ break;
+
+/****
+ *DT_TO_STRING
+ */
+ case function_dt_to_string :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__dt_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_string*/
+ break;
+
+/****
+ *DT_TO_BYTE
+ */
+ case function_dt_to_byte :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_byte*/
+ break;
+
+/****
+ *DT_TO_WORD
+ */
+ case function_dt_to_word :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_word*/
+ break;
+
+/****
+ *DT_TO_DWORD
+ */
+ case function_dt_to_dword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_dword*/
+ break;
+
+/****
+ *DT_TO_LWORD
+ */
+ case function_dt_to_lword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_lword*/
+ break;
+
+/****
+ *STRING_TO_BOOL
+ */
+ case function_string_to_bool :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_bool*/
- break;
-
-/****
- *TIME_TO_SINT
- */
- case function_time_to_sint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_bool(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_bool*/
+ break;
+
+/****
+ *STRING_TO_SINT
+ */
+ case function_string_to_sint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_sint*/
- break;
-
-/****
- *TIME_TO_INT
- */
- case function_time_to_int :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_sint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_sint*/
+ break;
+
+/****
+ *STRING_TO_INT
+ */
+ case function_string_to_int :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_int*/
- break;
-
-/****
- *TIME_TO_DINT
- */
- case function_time_to_dint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_sint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_int*/
+ break;
+
+/****
+ *STRING_TO_DINT
+ */
+ case function_string_to_dint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_dint*/
- break;
-
-/****
- *TIME_TO_LINT
- */
- case function_time_to_lint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_sint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_dint*/
+ break;
+
+/****
+ *STRING_TO_LINT
+ */
+ case function_string_to_lint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_lint*/
- break;
-
-/****
- *TIME_TO_USINT
- */
- case function_time_to_usint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_sint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_lint*/
+ break;
+
+/****
+ *STRING_TO_USINT
+ */
+ case function_string_to_usint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_usint*/
- break;
-
-/****
- *TIME_TO_UINT
- */
- case function_time_to_uint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_uint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_usint*/
+ break;
+
+/****
+ *STRING_TO_UINT
+ */
+ case function_string_to_uint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_uint*/
- break;
-
-/****
- *TIME_TO_UDINT
- */
- case function_time_to_udint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_uint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_uint*/
+ break;
+
+/****
+ *STRING_TO_UDINT
+ */
+ case function_string_to_udint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_udint*/
- break;
-
-/****
- *TIME_TO_ULINT
- */
- case function_time_to_ulint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_uint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_udint*/
+ break;
+
+/****
+ *STRING_TO_ULINT
+ */
+ case function_string_to_ulint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_ulint*/
- break;
-
-/****
- *TIME_TO_REAL
- */
- case function_time_to_real :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_uint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_ulint*/
+ break;
+
+/****
+ *STRING_TO_REAL
+ */
+ case function_string_to_real :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_real*/
- break;
-
-/****
- *TIME_TO_LREAL
- */
- case function_time_to_lreal :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_real*/
+ break;
+
+/****
+ *STRING_TO_LREAL
+ */
+ case function_string_to_lreal :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_lreal*/
- break;
-
-/****
- *TIME_TO_STRING
- */
- case function_time_to_string :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_lreal*/
+ break;
+
+/****
+ *STRING_TO_TIME
+ */
+ case function_string_to_time :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_time*/
+ break;
+
+/****
+ *STRING_TO_DATE
+ */
+ case function_string_to_date :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_date*/
+ break;
+
+/****
+ *STRING_TO_TOD
+ */
+ case function_string_to_tod :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_tod*/
+ break;
+
+/****
+ *STRING_TO_DT
+ */
+ case function_string_to_dt :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_dt*/
+ break;
+
+/****
+ *STRING_TO_BYTE
+ */
+ case function_string_to_byte :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_bit(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_byte*/
+ break;
+
+/****
+ *STRING_TO_WORD
+ */
+ case function_string_to_word :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_bit(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_word*/
+ break;
+
+/****
+ *STRING_TO_DWORD
+ */
+ case function_string_to_dword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_bit(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_dword*/
+ break;
+
+/****
+ *STRING_TO_LWORD
+ */
+ case function_string_to_lword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_bit(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_lword*/
+ break;
+
+/****
+ *BYTE_TO_BOOL
+ */
+ case function_byte_to_bool :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_bool*/
+ break;
+
+/****
+ *BYTE_TO_SINT
+ */
+ case function_byte_to_sint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_sint*/
+ break;
+
+/****
+ *BYTE_TO_INT
+ */
+ case function_byte_to_int :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_int*/
+ break;
+
+/****
+ *BYTE_TO_DINT
+ */
+ case function_byte_to_dint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_dint*/
+ break;
+
+/****
+ *BYTE_TO_LINT
+ */
+ case function_byte_to_lint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_lint*/
+ break;
+
+/****
+ *BYTE_TO_USINT
+ */
+ case function_byte_to_usint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_usint*/
+ break;
+
+/****
+ *BYTE_TO_UINT
+ */
+ case function_byte_to_uint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_uint*/
+ break;
+
+/****
+ *BYTE_TO_UDINT
+ */
+ case function_byte_to_udint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_udint*/
+ break;
+
+/****
+ *BYTE_TO_ULINT
+ */
+ case function_byte_to_ulint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_ulint*/
+ break;
+
+/****
+ *BYTE_TO_REAL
+ */
+ case function_byte_to_real :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_real*/
+ break;
+
+/****
+ *BYTE_TO_LREAL
+ */
+ case function_byte_to_lreal :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_lreal*/
+ break;
+
+/****
+ *BYTE_TO_TIME
+ */
+ case function_byte_to_time :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_time*/
+ break;
+
+/****
+ *BYTE_TO_DATE
+ */
+ case function_byte_to_date :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_date*/
+ break;
+
+/****
+ *BYTE_TO_TOD
+ */
+ case function_byte_to_tod :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_tod*/
+ break;
+
+/****
+ *BYTE_TO_DT
+ */
+ case function_byte_to_dt :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_dt*/
+ break;
+
+/****
+ *BYTE_TO_STRING
+ */
+ case function_byte_to_string :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_string*/
- break;
-
-/****
- *TIME_TO_BYTE
- */
- case function_time_to_byte :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__bit_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_string*/
+ break;
+
+/****
+ *BYTE_TO_WORD
+ */
+ case function_byte_to_word :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_word*/
+ break;
+
+/****
+ *BYTE_TO_DWORD
+ */
+ case function_byte_to_dword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_dword*/
+ break;
+
+/****
+ *BYTE_TO_LWORD
+ */
+ case function_byte_to_lword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_lword*/
+ break;
+
+/****
+ *WORD_TO_BOOL
+ */
+ case function_word_to_bool :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_bool*/
+ break;
+
+/****
+ *WORD_TO_SINT
+ */
+ case function_word_to_sint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_sint*/
+ break;
+
+/****
+ *WORD_TO_INT
+ */
+ case function_word_to_int :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_int*/
+ break;
+
+/****
+ *WORD_TO_DINT
+ */
+ case function_word_to_dint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_dint*/
+ break;
+
+/****
+ *WORD_TO_LINT
+ */
+ case function_word_to_lint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_lint*/
+ break;
+
+/****
+ *WORD_TO_USINT
+ */
+ case function_word_to_usint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_usint*/
+ break;
+
+/****
+ *WORD_TO_UINT
+ */
+ case function_word_to_uint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_uint*/
+ break;
+
+/****
+ *WORD_TO_UDINT
+ */
+ case function_word_to_udint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_udint*/
+ break;
+
+/****
+ *WORD_TO_ULINT
+ */
+ case function_word_to_ulint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_ulint*/
+ break;
+
+/****
+ *WORD_TO_REAL
+ */
+ case function_word_to_real :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_real*/
+ break;
+
+/****
+ *WORD_TO_LREAL
+ */
+ case function_word_to_lreal :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_lreal*/
+ break;
+
+/****
+ *WORD_TO_TIME
+ */
+ case function_word_to_time :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_time*/
+ break;
+
+/****
+ *WORD_TO_DATE
+ */
+ case function_word_to_date :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_date*/
+ break;
+
+/****
+ *WORD_TO_TOD
+ */
+ case function_word_to_tod :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_tod*/
+ break;
+
+/****
+ *WORD_TO_DT
+ */
+ case function_word_to_dt :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_dt*/
+ break;
+
+/****
+ *WORD_TO_STRING
+ */
+ case function_word_to_string :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__bit_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_string*/
+ break;
+
+/****
+ *WORD_TO_BYTE
+ */
+ case function_word_to_byte :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_byte*/
- break;
-
-/****
- *TIME_TO_WORD
- */
- case function_time_to_word :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_byte*/
+ break;
+
+/****
+ *WORD_TO_DWORD
+ */
+ case function_word_to_dword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_dword*/
+ break;
+
+/****
+ *WORD_TO_LWORD
+ */
+ case function_word_to_lword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_lword*/
+ break;
+
+/****
+ *DWORD_TO_BOOL
+ */
+ case function_dword_to_bool :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_bool*/
+ break;
+
+/****
+ *DWORD_TO_SINT
+ */
+ case function_dword_to_sint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_sint*/
+ break;
+
+/****
+ *DWORD_TO_INT
+ */
+ case function_dword_to_int :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_int*/
+ break;
+
+/****
+ *DWORD_TO_DINT
+ */
+ case function_dword_to_dint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_dint*/
+ break;
+
+/****
+ *DWORD_TO_LINT
+ */
+ case function_dword_to_lint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_lint*/
+ break;
+
+/****
+ *DWORD_TO_USINT
+ */
+ case function_dword_to_usint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_usint*/
+ break;
+
+/****
+ *DWORD_TO_UINT
+ */
+ case function_dword_to_uint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_uint*/
+ break;
+
+/****
+ *DWORD_TO_UDINT
+ */
+ case function_dword_to_udint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_udint*/
+ break;
+
+/****
+ *DWORD_TO_ULINT
+ */
+ case function_dword_to_ulint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_ulint*/
+ break;
+
+/****
+ *DWORD_TO_REAL
+ */
+ case function_dword_to_real :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_real*/
+ break;
+
+/****
+ *DWORD_TO_LREAL
+ */
+ case function_dword_to_lreal :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_lreal*/
+ break;
+
+/****
+ *DWORD_TO_TIME
+ */
+ case function_dword_to_time :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_time*/
+ break;
+
+/****
+ *DWORD_TO_DATE
+ */
+ case function_dword_to_date :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_date*/
+ break;
+
+/****
+ *DWORD_TO_TOD
+ */
+ case function_dword_to_tod :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_tod*/
+ break;
+
+/****
+ *DWORD_TO_DT
+ */
+ case function_dword_to_dt :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_dt*/
+ break;
+
+/****
+ *DWORD_TO_STRING
+ */
+ case function_dword_to_string :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__bit_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_string*/
+ break;
+
+/****
+ *DWORD_TO_BYTE
+ */
+ case function_dword_to_byte :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_byte*/
+ break;
+
+/****
+ *DWORD_TO_WORD
+ */
+ case function_dword_to_word :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_word*/
- break;
-
-/****
- *TIME_TO_DWORD
- */
- case function_time_to_dword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_dword*/
- break;
-
-/****
- *TIME_TO_LWORD
- */
- case function_time_to_lword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_word*/
+ break;
+
+/****
+ *DWORD_TO_LWORD
+ */
+ case function_dword_to_lword :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_lword*/
- break;
-
-/****
- *DATE_TO_BOOL
- */
- case function_date_to_bool :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_lword*/
+ break;
+
+/****
+ *LWORD_TO_BOOL
+ */
+ case function_lword_to_bool :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_bool*/
- break;
-
-/****
- *DATE_TO_SINT
- */
- case function_date_to_sint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_bool*/
+ break;
+
+/****
+ *LWORD_TO_SINT
+ */
+ case function_lword_to_sint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_sint*/
- break;
-
-/****
- *DATE_TO_INT
- */
- case function_date_to_int :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_sint*/
+ break;
+
+/****
+ *LWORD_TO_INT
+ */
+ case function_lword_to_int :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_int*/
- break;
-
-/****
- *DATE_TO_DINT
- */
- case function_date_to_dint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_int*/
+ break;
+
+/****
+ *LWORD_TO_DINT
+ */
+ case function_lword_to_dint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_dint*/
- break;
-
-/****
- *DATE_TO_LINT
- */
- case function_date_to_lint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_dint*/
+ break;
+
+/****
+ *LWORD_TO_LINT
+ */
+ case function_lword_to_lint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_lint*/
- break;
-
-/****
- *DATE_TO_USINT
- */
- case function_date_to_usint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_lint*/
+ break;
+
+/****
+ *LWORD_TO_USINT
+ */
+ case function_lword_to_usint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_usint*/
- break;
-
-/****
- *DATE_TO_UINT
- */
- case function_date_to_uint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_usint*/
+ break;
+
+/****
+ *LWORD_TO_UINT
+ */
+ case function_lword_to_uint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_uint*/
- break;
-
-/****
- *DATE_TO_UDINT
- */
- case function_date_to_udint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_uint*/
+ break;
+
+/****
+ *LWORD_TO_UDINT
+ */
+ case function_lword_to_udint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_udint*/
- break;
-
-/****
- *DATE_TO_ULINT
- */
- case function_date_to_ulint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_udint*/
+ break;
+
+/****
+ *LWORD_TO_ULINT
+ */
+ case function_lword_to_ulint :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_ulint*/
- break;
-
-/****
- *DATE_TO_REAL
- */
- case function_date_to_real :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_ulint*/
+ break;
+
+/****
+ *LWORD_TO_REAL
+ */
+ case function_lword_to_real :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_real*/
- break;
-
-/****
- *DATE_TO_LREAL
- */
- case function_date_to_lreal :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_real*/
+ break;
+
+/****
+ *LWORD_TO_LREAL
+ */
+ case function_lword_to_lreal :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_lreal*/
- break;
-
-/****
- *DATE_TO_STRING
- */
- case function_date_to_string :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_lreal*/
+ break;
+
+/****
+ *LWORD_TO_TIME
+ */
+ case function_lword_to_time :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_time*/
+ break;
+
+/****
+ *LWORD_TO_DATE
+ */
+ case function_lword_to_date :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_date*/
+ break;
+
+/****
+ *LWORD_TO_TOD
+ */
+ case function_lword_to_tod :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_tod*/
+ break;
+
+/****
+ *LWORD_TO_DT
+ */
+ case function_lword_to_dt :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_dt*/
+ break;
+
+/****
+ *LWORD_TO_STRING
+ */
+ case function_lword_to_string :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__date_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_string*/
- break;
-
-/****
- *DATE_TO_BYTE
- */
- case function_date_to_byte :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")__bit_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_string*/
+ break;
+
+/****
+ *LWORD_TO_BYTE
+ */
+ case function_lword_to_byte :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_byte*/
- break;
-
-/****
- *DATE_TO_WORD
- */
- case function_date_to_word :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_byte*/
+ break;
+
+/****
+ *LWORD_TO_WORD
+ */
+ case function_lword_to_word :
+ {
+ 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;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_word*/
- break;
-
-/****
- *DATE_TO_DWORD
- */
- case function_date_to_dword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_dword*/
- break;
-
-/****
- *DATE_TO_LWORD
- */
- case function_date_to_lword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_lword*/
- break;
-
-/****
- *TOD_TO_BOOL
- */
- case function_tod_to_bool :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_bool*/
- break;
-
-/****
- *TOD_TO_SINT
- */
- case function_tod_to_sint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_sint*/
- break;
-
-/****
- *TOD_TO_INT
- */
- case function_tod_to_int :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_int*/
- break;
-
-/****
- *TOD_TO_DINT
- */
- case function_tod_to_dint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_dint*/
- break;
-
-/****
- *TOD_TO_LINT
- */
- case function_tod_to_lint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_lint*/
- break;
-
-/****
- *TOD_TO_USINT
- */
- case function_tod_to_usint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_usint*/
- break;
-
-/****
- *TOD_TO_UINT
- */
- case function_tod_to_uint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_uint*/
- break;
-
-/****
- *TOD_TO_UDINT
- */
- case function_tod_to_udint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_udint*/
- break;
-
-/****
- *TOD_TO_ULINT
- */
- case function_tod_to_ulint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_ulint*/
- break;
-
-/****
- *TOD_TO_REAL
- */
- case function_tod_to_real :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_real*/
- break;
-
-/****
- *TOD_TO_LREAL
- */
- case function_tod_to_lreal :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_lreal*/
- break;
-
-/****
- *TOD_TO_STRING
- */
- case function_tod_to_string :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__tod_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_string*/
- break;
-
-/****
- *TOD_TO_BYTE
- */
- case function_tod_to_byte :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_byte*/
- break;
-
-/****
- *TOD_TO_WORD
- */
- case function_tod_to_word :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_word*/
- break;
-
-/****
- *TOD_TO_DWORD
- */
- case function_tod_to_dword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_dword*/
- break;
-
-/****
- *TOD_TO_LWORD
- */
- case function_tod_to_lword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_lword*/
- break;
-
-/****
- *DT_TO_BOOL
- */
- case function_dt_to_bool :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_bool*/
- break;
-
-/****
- *DT_TO_SINT
- */
- case function_dt_to_sint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_sint*/
- break;
-
-/****
- *DT_TO_INT
- */
- case function_dt_to_int :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_int*/
- break;
-
-/****
- *DT_TO_DINT
- */
- case function_dt_to_dint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_dint*/
- break;
-
-/****
- *DT_TO_LINT
- */
- case function_dt_to_lint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_lint*/
- break;
-
-/****
- *DT_TO_USINT
- */
- case function_dt_to_usint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_usint*/
- break;
-
-/****
- *DT_TO_UINT
- */
- case function_dt_to_uint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_uint*/
- break;
-
-/****
- *DT_TO_UDINT
- */
- case function_dt_to_udint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_udint*/
- break;
-
-/****
- *DT_TO_ULINT
- */
- case function_dt_to_ulint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_ulint*/
- break;
-
-/****
- *DT_TO_REAL
- */
- case function_dt_to_real :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_real*/
- break;
-
-/****
- *DT_TO_LREAL
- */
- case function_dt_to_lreal :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_lreal*/
- break;
-
-/****
- *DT_TO_STRING
- */
- case function_dt_to_string :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__dt_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_string*/
- break;
-
-/****
- *DT_TO_BYTE
- */
- case function_dt_to_byte :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_byte*/
- break;
-
-/****
- *DT_TO_WORD
- */
- case function_dt_to_word :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_word*/
- break;
-
-/****
- *DT_TO_DWORD
- */
- case function_dt_to_dword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_dword*/
- break;
-
-/****
- *DT_TO_LWORD
- */
- case function_dt_to_lword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_lword*/
- break;
-
-/****
- *STRING_TO_BOOL
- */
- case function_string_to_bool :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_bool(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_bool*/
- break;
-
-/****
- *STRING_TO_SINT
- */
- case function_string_to_sint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_sint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_sint*/
- break;
-
-/****
- *STRING_TO_INT
- */
- case function_string_to_int :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_sint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_int*/
- break;
-
-/****
- *STRING_TO_DINT
- */
- case function_string_to_dint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_sint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_dint*/
- break;
-
-/****
- *STRING_TO_LINT
- */
- case function_string_to_lint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_sint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_lint*/
- break;
-
-/****
- *STRING_TO_USINT
- */
- case function_string_to_usint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_uint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_usint*/
- break;
-
-/****
- *STRING_TO_UINT
- */
- case function_string_to_uint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_uint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_uint*/
- break;
-
-/****
- *STRING_TO_UDINT
- */
- case function_string_to_udint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_uint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_udint*/
- break;
-
-/****
- *STRING_TO_ULINT
- */
- case function_string_to_ulint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_uint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_ulint*/
- break;
-
-/****
- *STRING_TO_REAL
- */
- case function_string_to_real :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_real*/
- break;
-
-/****
- *STRING_TO_LREAL
- */
- case function_string_to_lreal :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_lreal*/
- break;
-
-/****
- *STRING_TO_TIME
- */
- case function_string_to_time :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_time*/
- break;
-
-/****
- *STRING_TO_DATE
- */
- case function_string_to_date :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_date*/
- break;
-
-/****
- *STRING_TO_TOD
- */
- case function_string_to_tod :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_tod*/
- break;
-
-/****
- *STRING_TO_DT
- */
- case function_string_to_dt :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_dt*/
- break;
-
-/****
- *STRING_TO_BYTE
- */
- case function_string_to_byte :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_bit(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_byte*/
- break;
-
-/****
- *STRING_TO_WORD
- */
- case function_string_to_word :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_bit(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_word*/
- break;
-
-/****
- *STRING_TO_DWORD
- */
- case function_string_to_dword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_bit(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_dword*/
- break;
-
-/****
- *STRING_TO_LWORD
- */
- case function_string_to_lword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_bit(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_lword*/
- break;
-
-/****
- *BYTE_TO_BOOL
- */
- case function_byte_to_bool :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_bool*/
- break;
-
-/****
- *BYTE_TO_SINT
- */
- case function_byte_to_sint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_sint*/
- break;
-
-/****
- *BYTE_TO_INT
- */
- case function_byte_to_int :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_int*/
- break;
-
-/****
- *BYTE_TO_DINT
- */
- case function_byte_to_dint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_dint*/
- break;
-
-/****
- *BYTE_TO_LINT
- */
- case function_byte_to_lint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_lint*/
- break;
-
-/****
- *BYTE_TO_USINT
- */
- case function_byte_to_usint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_usint*/
- break;
-
-/****
- *BYTE_TO_UINT
- */
- case function_byte_to_uint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_uint*/
- break;
-
-/****
- *BYTE_TO_UDINT
- */
- case function_byte_to_udint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_udint*/
- break;
-
-/****
- *BYTE_TO_ULINT
- */
- case function_byte_to_ulint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_ulint*/
- break;
-
-/****
- *BYTE_TO_REAL
- */
- case function_byte_to_real :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_real*/
- break;
-
-/****
- *BYTE_TO_LREAL
- */
- case function_byte_to_lreal :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_lreal*/
- break;
-
-/****
- *BYTE_TO_TIME
- */
- case function_byte_to_time :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_time*/
- break;
-
-/****
- *BYTE_TO_DATE
- */
- case function_byte_to_date :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_date*/
- break;
-
-/****
- *BYTE_TO_TOD
- */
- case function_byte_to_tod :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_tod*/
- break;
-
-/****
- *BYTE_TO_DT
- */
- case function_byte_to_dt :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_dt*/
- break;
-
-/****
- *BYTE_TO_STRING
- */
- case function_byte_to_string :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__bit_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_string*/
- break;
-
-/****
- *BYTE_TO_WORD
- */
- case function_byte_to_word :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_word*/
- break;
-
-/****
- *BYTE_TO_DWORD
- */
- case function_byte_to_dword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_dword*/
- break;
-
-/****
- *BYTE_TO_LWORD
- */
- case function_byte_to_lword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_lword*/
- break;
-
-/****
- *WORD_TO_BOOL
- */
- case function_word_to_bool :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_bool*/
- break;
-
-/****
- *WORD_TO_SINT
- */
- case function_word_to_sint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_sint*/
- break;
-
-/****
- *WORD_TO_INT
- */
- case function_word_to_int :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_int*/
- break;
-
-/****
- *WORD_TO_DINT
- */
- case function_word_to_dint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_dint*/
- break;
-
-/****
- *WORD_TO_LINT
- */
- case function_word_to_lint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_lint*/
- break;
-
-/****
- *WORD_TO_USINT
- */
- case function_word_to_usint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_usint*/
- break;
-
-/****
- *WORD_TO_UINT
- */
- case function_word_to_uint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_uint*/
- break;
-
-/****
- *WORD_TO_UDINT
- */
- case function_word_to_udint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_udint*/
- break;
-
-/****
- *WORD_TO_ULINT
- */
- case function_word_to_ulint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_ulint*/
- break;
-
-/****
- *WORD_TO_REAL
- */
- case function_word_to_real :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_real*/
- break;
-
-/****
- *WORD_TO_LREAL
- */
- case function_word_to_lreal :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_lreal*/
- break;
-
-/****
- *WORD_TO_TIME
- */
- case function_word_to_time :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_time*/
- break;
-
-/****
- *WORD_TO_DATE
- */
- case function_word_to_date :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_date*/
- break;
-
-/****
- *WORD_TO_TOD
- */
- case function_word_to_tod :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_tod*/
- break;
-
-/****
- *WORD_TO_DT
- */
- case function_word_to_dt :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_dt*/
- break;
-
-/****
- *WORD_TO_STRING
- */
- case function_word_to_string :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__bit_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_string*/
- break;
-
-/****
- *WORD_TO_BYTE
- */
- case function_word_to_byte :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_byte*/
- break;
-
-/****
- *WORD_TO_DWORD
- */
- case function_word_to_dword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_dword*/
- break;
-
-/****
- *WORD_TO_LWORD
- */
- case function_word_to_lword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_lword*/
- break;
-
-/****
- *DWORD_TO_BOOL
- */
- case function_dword_to_bool :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_bool*/
- break;
-
-/****
- *DWORD_TO_SINT
- */
- case function_dword_to_sint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_sint*/
- break;
-
-/****
- *DWORD_TO_INT
- */
- case function_dword_to_int :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_int*/
- break;
-
-/****
- *DWORD_TO_DINT
- */
- case function_dword_to_dint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_dint*/
- break;
-
-/****
- *DWORD_TO_LINT
- */
- case function_dword_to_lint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_lint*/
- break;
-
-/****
- *DWORD_TO_USINT
- */
- case function_dword_to_usint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_usint*/
- break;
-
-/****
- *DWORD_TO_UINT
- */
- case function_dword_to_uint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_uint*/
- break;
-
-/****
- *DWORD_TO_UDINT
- */
- case function_dword_to_udint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_udint*/
- break;
-
-/****
- *DWORD_TO_ULINT
- */
- case function_dword_to_ulint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_ulint*/
- break;
-
-/****
- *DWORD_TO_REAL
- */
- case function_dword_to_real :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_real*/
- break;
-
-/****
- *DWORD_TO_LREAL
- */
- case function_dword_to_lreal :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_lreal*/
- break;
-
-/****
- *DWORD_TO_TIME
- */
- case function_dword_to_time :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_time*/
- break;
-
-/****
- *DWORD_TO_DATE
- */
- case function_dword_to_date :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_date*/
- break;
-
-/****
- *DWORD_TO_TOD
- */
- case function_dword_to_tod :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_tod*/
- break;
-
-/****
- *DWORD_TO_DT
- */
- case function_dword_to_dt :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_dt*/
- break;
-
-/****
- *DWORD_TO_STRING
- */
- case function_dword_to_string :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__bit_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_string*/
- break;
-
-/****
- *DWORD_TO_BYTE
- */
- case function_dword_to_byte :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_byte*/
- break;
-
-/****
- *DWORD_TO_WORD
- */
- case function_dword_to_word :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_word*/
- break;
-
-/****
- *DWORD_TO_LWORD
- */
- case function_dword_to_lword :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_lword*/
- break;
-
-/****
- *LWORD_TO_BOOL
- */
- case function_lword_to_bool :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_bool*/
- break;
-
-/****
- *LWORD_TO_SINT
- */
- case function_lword_to_sint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_sint*/
- break;
-
-/****
- *LWORD_TO_INT
- */
- case function_lword_to_int :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_int*/
- break;
-
-/****
- *LWORD_TO_DINT
- */
- case function_lword_to_dint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_dint*/
- break;
-
-/****
- *LWORD_TO_LINT
- */
- case function_lword_to_lint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_lint*/
- break;
-
-/****
- *LWORD_TO_USINT
- */
- case function_lword_to_usint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_usint*/
- break;
-
-/****
- *LWORD_TO_UINT
- */
- case function_lword_to_uint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_uint*/
- break;
-
-/****
- *LWORD_TO_UDINT
- */
- case function_lword_to_udint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_udint*/
- break;
-
-/****
- *LWORD_TO_ULINT
- */
- case function_lword_to_ulint :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_ulint*/
- break;
-
-/****
- *LWORD_TO_REAL
- */
- case function_lword_to_real :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_real*/
- break;
-
-/****
- *LWORD_TO_LREAL
- */
- case function_lword_to_lreal :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_lreal*/
- break;
-
-/****
- *LWORD_TO_TIME
- */
- case function_lword_to_time :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_time*/
- break;
-
-/****
- *LWORD_TO_DATE
- */
- case function_lword_to_date :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_date*/
- break;
-
-/****
- *LWORD_TO_TOD
- */
- case function_lword_to_tod :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_tod*/
- break;
-
-/****
- *LWORD_TO_DT
- */
- case function_lword_to_dt :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_dt*/
- break;
-
-/****
- *LWORD_TO_STRING
- */
- case function_lword_to_string :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__bit_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_string*/
- break;
-
-/****
- *LWORD_TO_BYTE
- */
- case function_lword_to_byte :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_byte*/
- break;
-
-/****
- *LWORD_TO_WORD
- */
- case function_lword_to_word :
- {
- 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;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
s4o.print(")");
IN_param_value->accept(*this);
return NULL;
@@ -11921,7 +11789,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -11983,7 +11851,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -12016,7 +11884,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -12049,7 +11917,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -12082,7 +11950,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -12115,7 +11983,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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;
@@ -12148,7 +12016,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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;
@@ -12181,7 +12049,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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;
@@ -12214,7 +12082,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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;
@@ -12247,7 +12115,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -12278,7 +12146,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -12670,9 +12538,10 @@
{
symbol_c * return_type_symbol = last_type_symbol;
- s4o.print("(");
+ s4o.indent_right();
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("+");
+ s4o.print("+\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -12693,13 +12562,14 @@
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 */
- s4o.print("+");
+ s4o.print("+\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -12710,7 +12580,7 @@
}
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
{
@@ -12724,7 +12594,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -12742,7 +12612,7 @@
}
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
{
@@ -12756,7 +12626,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -12774,7 +12644,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -12788,7 +12658,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -12844,9 +12714,10 @@
{
symbol_c * return_type_symbol = last_type_symbol;
- s4o.print("(");
+ s4o.indent_right();
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("*");
+ s4o.print("*\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -12867,13 +12738,14 @@
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 */
- s4o.print("*");
+ s4o.print("*\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -12884,7 +12756,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -12954,11 +12826,13 @@
{
symbol_c * return_type_symbol = last_type_symbol;
- s4o.print("(");
+ s4o.indent_right();
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("-");
+ s4o.print("-\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
s4o.print(")");
+ s4o.indent_left();
return NULL;
}
@@ -12968,7 +12842,7 @@
}
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
{
{
@@ -12982,7 +12856,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -13000,7 +12874,7 @@
}
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
{
@@ -13014,7 +12888,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -13027,7 +12901,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -13045,7 +12919,7 @@
}
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
{
@@ -13059,7 +12933,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -13072,7 +12946,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -13090,7 +12964,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -13104,7 +12978,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -13160,11 +13034,13 @@
{
symbol_c * return_type_symbol = last_type_symbol;
- s4o.print("(");
+ s4o.indent_right();
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("/");
+ s4o.print("/\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
s4o.print(")");
+ s4o.indent_left();
return NULL;
}
@@ -13174,7 +13050,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -13244,11 +13120,13 @@
{
symbol_c * return_type_symbol = last_type_symbol;
- s4o.print("(");
+ s4o.indent_right();
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("%");
+ s4o.print("%\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
s4o.print(")");
+ s4o.indent_left();
return NULL;
}
@@ -13585,11 +13463,12 @@
{
symbol_c * return_type_symbol = last_type_symbol;
+ s4o.indent_right();
s4o.print("(");
if (search_expression_type->is_bool_type(last_type_symbol))
- s4o.print("(");
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("&");
+ s4o.print("&\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -13610,7 +13489,7 @@
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 */
- s4o.print("&");
+ s4o.print("&\n" + s4o.indent_spaces);
param_value->accept(*this);
}
@@ -13622,6 +13501,7 @@
s4o.print(")");
}
s4o.print("");
+ s4o.indent_left();
return NULL;
@@ -13670,11 +13550,12 @@
{
symbol_c * return_type_symbol = last_type_symbol;
+ s4o.indent_right();
s4o.print("(");
if (search_expression_type->is_bool_type(last_type_symbol))
- s4o.print("(");
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("|");
+ s4o.print("|\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -13695,7 +13576,7 @@
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 */
- s4o.print("|");
+ s4o.print("|\n" + s4o.indent_spaces);
param_value->accept(*this);
}
@@ -13707,6 +13588,7 @@
s4o.print(")");
}
s4o.print("");
+ s4o.indent_left();
return NULL;
@@ -13755,11 +13637,12 @@
{
symbol_c * return_type_symbol = last_type_symbol;
+ s4o.indent_right();
s4o.print("(");
if (search_expression_type->is_bool_type(last_type_symbol))
- s4o.print("(");
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("^");
+ s4o.print("^\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -13780,7 +13663,7 @@
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 */
- s4o.print("^");
+ s4o.print("^\n" + s4o.indent_spaces);
param_value->accept(*this);
}
@@ -13792,6 +13675,7 @@
s4o.print(")");
}
s4o.print("");
+ s4o.indent_left();
return NULL;
@@ -13852,7 +13736,7 @@
symbol_c *G_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
{
@@ -13941,13 +13825,14 @@
{
symbol_c * return_type_symbol = last_type_symbol;
+ s4o.indent_right();
s4o.print("__max_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -13968,13 +13853,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -14023,13 +13909,14 @@
{
symbol_c * return_type_symbol = last_type_symbol;
+ s4o.indent_right();
s4o.print("__min_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -14050,13 +13937,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -14194,15 +14082,16 @@
{
symbol_c * return_type_symbol = last_type_symbol;
+ s4o.indent_right();
s4o.print("__mux_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
K_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN0_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
int base_num = 2;
@@ -14223,13 +14112,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -14283,13 +14173,14 @@
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.indent_right();
s4o.print("__gt_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -14310,13 +14201,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -14365,13 +14257,14 @@
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.indent_right();
s4o.print("__ge_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -14392,13 +14285,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -14447,13 +14341,14 @@
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.indent_right();
s4o.print("__eq_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -14474,13 +14369,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -14529,13 +14425,14 @@
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.indent_right();
s4o.print("__lt_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -14556,13 +14453,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -14611,13 +14509,14 @@
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.indent_right();
s4o.print("__le_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -14638,13 +14537,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -14693,13 +14593,14 @@
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.indent_right();
s4o.print("__ne_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -14720,13 +14621,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -14757,7 +14659,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -14788,7 +14690,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -14840,7 +14742,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -14892,7 +14794,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -14965,7 +14867,7 @@
symbol_c *IN1_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
{
{
@@ -14979,7 +14881,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -14997,7 +14899,7 @@
}
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -15011,15 +14913,16 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ s4o.indent_right();
s4o.print("__concat(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -15040,13 +14943,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -15077,7 +14981,7 @@
symbol_c *IN1_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -15091,7 +14995,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -15150,7 +15054,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -15223,7 +15127,7 @@
symbol_c *IN1_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -15237,7 +15141,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -15317,7 +15221,7 @@
symbol_c *IN1_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -15331,7 +15235,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
--- a/stage4/generate_cc/search_base_type.cc Fri Jul 13 19:20:26 2007 +0200
+++ b/stage4/generate_cc/search_base_type.cc Tue Jul 17 12:19:59 2007 +0200
@@ -78,6 +78,8 @@
void *visit(lword_type_name_c *symbol) {return (void *)symbol;}
void *visit(string_type_name_c *symbol) {return (void *)symbol;}
void *visit(wstring_type_name_c *symbol) {return (void *)symbol;}
+ void *visit(constant_int_type_name_c *symbol) {return (void *)symbol;}
+ void *visit(constant_real_type_name_c *symbol) {return (void *)symbol;}
/********************************/
/* B 1.3.3 - Derived data types */
--- a/stage4/generate_cc/search_expression_type.cc Fri Jul 13 19:20:26 2007 +0200
+++ b/stage4/generate_cc/search_expression_type.cc Tue Jul 17 12:19:59 2007 +0200
@@ -430,16 +430,18 @@
void *visit(mul_expression_c *symbol) {
symbol_c *left_type = base_type((symbol_c *)symbol->l_exp->accept(*this));
symbol_c *right_type = base_type((symbol_c *)symbol->r_exp->accept(*this));
- if (typeid(*left_type) == typeid(time_type_name_c) && is_integer_type(right_type)) {return (void *)&time_type_name;}
- if (typeid(*left_type) == typeid(time_type_name_c) && is_real_type(right_type)) {return (void *)&time_type_name;}
+ if (typeid(*left_type) == typeid(time_type_name_c) && is_num_type(right_type)) {
+ return (void *)&time_type_name;
+ }
return compute_numeric_expression(left_type, right_type);
}
void *visit(div_expression_c *symbol) {
symbol_c *left_type = base_type((symbol_c *)symbol->l_exp->accept(*this));
symbol_c *right_type = base_type((symbol_c *)symbol->r_exp->accept(*this));
- if (typeid(*left_type) == typeid(time_type_name_c) && is_integer_type(right_type)) {return (void *)&time_type_name;}
- if (typeid(*left_type) == typeid(time_type_name_c) && is_real_type(right_type)) {return (void *)&time_type_name;}
+ if (typeid(*left_type) == typeid(time_type_name_c) && is_num_type(right_type)){
+ return (void *)&time_type_name;
+ }
return compute_numeric_expression(left_type, right_type);
}
@@ -452,39 +454,18 @@
void *visit(power_expression_c *symbol) {
symbol_c *left_type = base_type((symbol_c *)symbol->l_exp->accept(*this));
symbol_c *right_type = base_type((symbol_c *)symbol->r_exp->accept(*this));
- if (typeid(*left_type) == typeid(real_type_name_c) and typeid(*right_type) == typeid(sint_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(real_type_name_c) and typeid(*right_type) == typeid(int_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(real_type_name_c) and typeid(*right_type) == typeid(dint_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(real_type_name_c) and typeid(*right_type) == typeid(lint_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(real_type_name_c) and typeid(*right_type) == typeid(usint_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(real_type_name_c) and typeid(*right_type) == typeid(uint_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(real_type_name_c) and typeid(*right_type) == typeid(udint_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(real_type_name_c) and typeid(*right_type) == typeid(ulint_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(lreal_type_name_c) and typeid(*right_type) == typeid(sint_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(lreal_type_name_c) and typeid(*right_type) == typeid(int_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(lreal_type_name_c) and typeid(*right_type) == typeid(dint_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(lreal_type_name_c) and typeid(*right_type) == typeid(lint_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(lreal_type_name_c) and typeid(*right_type) == typeid(usint_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(lreal_type_name_c) and typeid(*right_type) == typeid(uint_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(lreal_type_name_c) and typeid(*right_type) == typeid(udint_type_name_c)) {return (void *)left_type;}
- if (typeid(*left_type) == typeid(lreal_type_name_c) and typeid(*right_type) == typeid(ulint_type_name_c)) {return (void *)left_type;}
+ if (is_real_type(left_type) && is_num_type(right_type)) {
+ return (void *)left_type;
+ }
ERROR;
return NULL;
}
void *visit(neg_expression_c *symbol) {
symbol_c *exp_type = base_type((symbol_c *)symbol->exp->accept(*this));
- if (typeid(*exp_type) == typeid(sint_type_name_c)) {return (void *)exp_type;}
- if (typeid(*exp_type) == typeid(int_type_name_c)) {return (void *)exp_type;}
- if (typeid(*exp_type) == typeid(dint_type_name_c)) {return (void *)exp_type;}
- if (typeid(*exp_type) == typeid(lint_type_name_c)) {return (void *)exp_type;}
- if (typeid(*exp_type) == typeid(usint_type_name_c)) {return (void *)exp_type;}
- if (typeid(*exp_type) == typeid(uint_type_name_c)) {return (void *)exp_type;}
- if (typeid(*exp_type) == typeid(udint_type_name_c)) {return (void *)exp_type;}
- if (typeid(*exp_type) == typeid(ulint_type_name_c)) {return (void *)exp_type;}
- if (typeid(*exp_type) == typeid(real_type_name_c)) {return (void *)exp_type;}
- if (typeid(*exp_type) == typeid(lreal_type_name_c)) {return (void *)exp_type;}
- if (typeid(*exp_type) == typeid(time_type_name_c)) {return (void *)exp_type;}
+ if (is_num_type(exp_type) || typeid(*exp_type) == typeid(time_type_name_c)){
+ return (void *)exp_type;
+ }
ERROR;
return NULL;
}
--- a/stage4/generate_cc/search_type_code.c Fri Jul 13 19:20:26 2007 +0200
+++ b/stage4/generate_cc/search_type_code.c Tue Jul 17 12:19:59 2007 +0200
@@ -30,7 +30,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -62,7 +62,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -94,7 +94,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -126,7 +126,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -158,7 +158,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -190,7 +190,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -222,7 +222,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -254,7 +254,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -286,7 +286,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -318,7 +318,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -350,7 +350,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -382,7 +382,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -414,7 +414,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -446,7 +446,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -478,7 +478,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -510,7 +510,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -542,7 +542,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -574,7 +574,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -606,7 +606,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -638,7 +638,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -670,7 +670,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -702,7 +702,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -734,7 +734,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -766,7 +766,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -798,7 +798,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -830,7 +830,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -862,7 +862,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -894,7 +894,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -926,7 +926,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -958,7 +958,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -990,7 +990,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -1022,7 +1022,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -1054,7 +1054,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -1086,7 +1086,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -1118,7 +1118,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -1150,7 +1150,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -1182,7 +1182,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -1214,7 +1214,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -1246,7 +1246,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -1278,7 +1278,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -1310,7 +1310,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -1342,7 +1342,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -1374,7 +1374,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -1406,7 +1406,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -1438,7 +1438,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -1470,7 +1470,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -1502,7 +1502,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -1534,7 +1534,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -1566,7 +1566,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -1598,7 +1598,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -1630,7 +1630,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -1662,7 +1662,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -1694,7 +1694,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -1726,7 +1726,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -1758,7 +1758,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -1790,7 +1790,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -1822,7 +1822,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -1854,7 +1854,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -1886,7 +1886,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -1918,7 +1918,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -1950,7 +1950,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -1982,7 +1982,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -2014,7 +2014,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -2046,7 +2046,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -2078,7 +2078,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -2110,7 +2110,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -2142,7 +2142,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -2174,7 +2174,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -2206,7 +2206,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -2238,7 +2238,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -2270,7 +2270,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -2302,7 +2302,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -2334,7 +2334,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -2366,7 +2366,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -2398,7 +2398,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -2430,7 +2430,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -2462,7 +2462,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -2494,7 +2494,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -2526,7 +2526,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -2558,7 +2558,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -2590,7 +2590,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -2622,7 +2622,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -2654,7 +2654,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -2686,7 +2686,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -2718,7 +2718,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -2750,7 +2750,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -2782,7 +2782,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -2814,7 +2814,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -2846,7 +2846,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -2878,7 +2878,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -2910,7 +2910,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -2942,7 +2942,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -2974,7 +2974,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -3006,7 +3006,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -3038,7 +3038,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -3070,7 +3070,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::bool_type_name;
@@ -3102,7 +3102,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::sint_type_name;
@@ -3134,7 +3134,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::int_type_name;
@@ -3166,7 +3166,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::dint_type_name;
@@ -3198,7 +3198,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::lint_type_name;
@@ -3230,7 +3230,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::uint_type_name;
@@ -3262,7 +3262,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::udint_type_name;
@@ -3294,7 +3294,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::ulint_type_name;
@@ -3326,7 +3326,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::real_type_name;
@@ -3358,7 +3358,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::lreal_type_name;
@@ -3390,7 +3390,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::time_type_name;
@@ -3422,7 +3422,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::date_type_name;
@@ -3454,7 +3454,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::tod_type_name;
@@ -3486,7 +3486,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::dt_type_name;
@@ -3518,7 +3518,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::string_type_name;
@@ -3550,7 +3550,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::byte_type_name;
@@ -3582,7 +3582,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::word_type_name;
@@ -3614,7 +3614,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::dword_type_name;
@@ -3646,7 +3646,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::lword_type_name;
@@ -3678,7 +3678,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::bool_type_name;
@@ -3710,7 +3710,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::sint_type_name;
@@ -3742,7 +3742,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::int_type_name;
@@ -3774,7 +3774,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::dint_type_name;
@@ -3806,7 +3806,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::lint_type_name;
@@ -3838,7 +3838,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::usint_type_name;
@@ -3870,7 +3870,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::udint_type_name;
@@ -3902,7 +3902,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::ulint_type_name;
@@ -3934,7 +3934,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::real_type_name;
@@ -3966,7 +3966,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::lreal_type_name;
@@ -3998,7 +3998,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::time_type_name;
@@ -4030,7 +4030,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::date_type_name;
@@ -4062,7 +4062,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::tod_type_name;
@@ -4094,7 +4094,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::dt_type_name;
@@ -4126,7 +4126,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::string_type_name;
@@ -4158,7 +4158,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::byte_type_name;
@@ -4190,7 +4190,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::word_type_name;
@@ -4222,7 +4222,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::dword_type_name;
@@ -4254,7 +4254,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::lword_type_name;
@@ -4286,7 +4286,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::bool_type_name;
@@ -4318,7 +4318,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::sint_type_name;
@@ -4350,7 +4350,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::int_type_name;
@@ -4382,7 +4382,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::dint_type_name;
@@ -4414,7 +4414,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::lint_type_name;
@@ -4446,7 +4446,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::usint_type_name;
@@ -4478,7 +4478,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::uint_type_name;
@@ -4510,7 +4510,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::ulint_type_name;
@@ -4542,7 +4542,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::real_type_name;
@@ -4574,7 +4574,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::lreal_type_name;
@@ -4606,7 +4606,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::time_type_name;
@@ -4638,7 +4638,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::date_type_name;
@@ -4670,7 +4670,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::tod_type_name;
@@ -4702,7 +4702,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::dt_type_name;
@@ -4734,7 +4734,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::string_type_name;
@@ -4766,7 +4766,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::byte_type_name;
@@ -4798,7 +4798,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::word_type_name;
@@ -4830,7 +4830,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::dword_type_name;
@@ -4862,7 +4862,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::lword_type_name;
@@ -4894,7 +4894,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::bool_type_name;
@@ -4926,7 +4926,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::sint_type_name;
@@ -4958,7 +4958,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::int_type_name;
@@ -4990,7 +4990,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::dint_type_name;
@@ -5022,7 +5022,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::lint_type_name;
@@ -5054,7 +5054,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::usint_type_name;
@@ -5086,7 +5086,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::uint_type_name;
@@ -5118,7 +5118,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::udint_type_name;
@@ -5150,7 +5150,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::real_type_name;
@@ -5182,7 +5182,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::lreal_type_name;
@@ -5214,7 +5214,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::time_type_name;
@@ -5246,7 +5246,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::date_type_name;
@@ -5278,7 +5278,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::tod_type_name;
@@ -5310,7 +5310,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::dt_type_name;
@@ -5342,7 +5342,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::string_type_name;
@@ -5374,7 +5374,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::byte_type_name;
@@ -5406,7 +5406,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::word_type_name;
@@ -5438,7 +5438,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::dword_type_name;
@@ -5470,7 +5470,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::lword_type_name;
@@ -5502,7 +5502,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -5534,7 +5534,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -5566,7 +5566,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -5598,7 +5598,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -5630,7 +5630,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -5662,7 +5662,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -5694,7 +5694,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -5726,7 +5726,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -5758,7 +5758,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -5790,7 +5790,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -5822,7 +5822,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -5854,7 +5854,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -5886,7 +5886,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -5918,7 +5918,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -5950,7 +5950,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -5982,7 +5982,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -6014,7 +6014,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -6046,7 +6046,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -6078,7 +6078,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -6110,7 +6110,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -6142,7 +6142,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -6174,7 +6174,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -6206,7 +6206,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -6238,7 +6238,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -6270,7 +6270,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -6302,7 +6302,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -6334,7 +6334,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -6366,7 +6366,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -6398,7 +6398,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -6430,7 +6430,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -6462,7 +6462,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -6494,7 +6494,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -6526,7 +6526,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -6558,7 +6558,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -6590,7 +6590,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -6622,7 +6622,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -6654,7 +6654,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -6686,7 +6686,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -6701,24 +6701,1944 @@
break;
/****
- *TIME_TO_BOOL
- */
- case function_time_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ *TIME_TO_SINT
+ */
+ case function_time_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_sint*/
+ break;
+
+/****
+ *TIME_TO_INT
+ */
+ case function_time_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_int*/
+ break;
+
+/****
+ *TIME_TO_DINT
+ */
+ case function_time_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_dint*/
+ break;
+
+/****
+ *TIME_TO_LINT
+ */
+ case function_time_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_lint*/
+ break;
+
+/****
+ *TIME_TO_USINT
+ */
+ case function_time_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_usint*/
+ break;
+
+/****
+ *TIME_TO_UINT
+ */
+ case function_time_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_uint*/
+ break;
+
+/****
+ *TIME_TO_UDINT
+ */
+ case function_time_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_udint*/
+ break;
+
+/****
+ *TIME_TO_ULINT
+ */
+ case function_time_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_ulint*/
+ break;
+
+/****
+ *TIME_TO_REAL
+ */
+ case function_time_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_real*/
+ break;
+
+/****
+ *TIME_TO_LREAL
+ */
+ case function_time_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_lreal*/
+ break;
+
+/****
+ *TIME_TO_STRING
+ */
+ case function_time_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_string*/
+ break;
+
+/****
+ *TIME_TO_BYTE
+ */
+ case function_time_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_byte*/
+ break;
+
+/****
+ *TIME_TO_WORD
+ */
+ case function_time_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_word*/
+ break;
+
+/****
+ *TIME_TO_DWORD
+ */
+ case function_time_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_dword*/
+ break;
+
+/****
+ *TIME_TO_LWORD
+ */
+ case function_time_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_lword*/
+ break;
+
+/****
+ *DATE_TO_SINT
+ */
+ case function_date_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_sint*/
+ break;
+
+/****
+ *DATE_TO_INT
+ */
+ case function_date_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_int*/
+ break;
+
+/****
+ *DATE_TO_DINT
+ */
+ case function_date_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_dint*/
+ break;
+
+/****
+ *DATE_TO_LINT
+ */
+ case function_date_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_lint*/
+ break;
+
+/****
+ *DATE_TO_USINT
+ */
+ case function_date_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_usint*/
+ break;
+
+/****
+ *DATE_TO_UINT
+ */
+ case function_date_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_uint*/
+ break;
+
+/****
+ *DATE_TO_UDINT
+ */
+ case function_date_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_udint*/
+ break;
+
+/****
+ *DATE_TO_ULINT
+ */
+ case function_date_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_ulint*/
+ break;
+
+/****
+ *DATE_TO_REAL
+ */
+ case function_date_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_real*/
+ break;
+
+/****
+ *DATE_TO_LREAL
+ */
+ case function_date_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_lreal*/
+ break;
+
+/****
+ *DATE_TO_STRING
+ */
+ case function_date_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_string*/
+ break;
+
+/****
+ *DATE_TO_BYTE
+ */
+ case function_date_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_byte*/
+ break;
+
+/****
+ *DATE_TO_WORD
+ */
+ case function_date_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_word*/
+ break;
+
+/****
+ *DATE_TO_DWORD
+ */
+ case function_date_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_dword*/
+ break;
+
+/****
+ *DATE_TO_LWORD
+ */
+ case function_date_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_lword*/
+ break;
+
+/****
+ *TOD_TO_SINT
+ */
+ case function_tod_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_sint*/
+ break;
+
+/****
+ *TOD_TO_INT
+ */
+ case function_tod_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_int*/
+ break;
+
+/****
+ *TOD_TO_DINT
+ */
+ case function_tod_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_dint*/
+ break;
+
+/****
+ *TOD_TO_LINT
+ */
+ case function_tod_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_lint*/
+ break;
+
+/****
+ *TOD_TO_USINT
+ */
+ case function_tod_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_usint*/
+ break;
+
+/****
+ *TOD_TO_UINT
+ */
+ case function_tod_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_uint*/
+ break;
+
+/****
+ *TOD_TO_UDINT
+ */
+ case function_tod_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_udint*/
+ break;
+
+/****
+ *TOD_TO_ULINT
+ */
+ case function_tod_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_ulint*/
+ break;
+
+/****
+ *TOD_TO_REAL
+ */
+ case function_tod_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_real*/
+ break;
+
+/****
+ *TOD_TO_LREAL
+ */
+ case function_tod_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_lreal*/
+ break;
+
+/****
+ *TOD_TO_STRING
+ */
+ case function_tod_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_string*/
+ break;
+
+/****
+ *TOD_TO_BYTE
+ */
+ case function_tod_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_byte*/
+ break;
+
+/****
+ *TOD_TO_WORD
+ */
+ case function_tod_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_word*/
+ break;
+
+/****
+ *TOD_TO_DWORD
+ */
+ case function_tod_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_dword*/
+ break;
+
+/****
+ *TOD_TO_LWORD
+ */
+ case function_tod_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_lword*/
+ break;
+
+/****
+ *DT_TO_SINT
+ */
+ case function_dt_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_sint*/
+ break;
+
+/****
+ *DT_TO_INT
+ */
+ case function_dt_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_int*/
+ break;
+
+/****
+ *DT_TO_DINT
+ */
+ case function_dt_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_dint*/
+ break;
+
+/****
+ *DT_TO_LINT
+ */
+ case function_dt_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_lint*/
+ break;
+
+/****
+ *DT_TO_USINT
+ */
+ case function_dt_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_usint*/
+ break;
+
+/****
+ *DT_TO_UINT
+ */
+ case function_dt_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_uint*/
+ break;
+
+/****
+ *DT_TO_UDINT
+ */
+ case function_dt_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_udint*/
+ break;
+
+/****
+ *DT_TO_ULINT
+ */
+ case function_dt_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_ulint*/
+ break;
+
+/****
+ *DT_TO_REAL
+ */
+ case function_dt_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_real*/
+ break;
+
+/****
+ *DT_TO_LREAL
+ */
+ case function_dt_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_lreal*/
+ break;
+
+/****
+ *DT_TO_STRING
+ */
+ case function_dt_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_string*/
+ break;
+
+/****
+ *DT_TO_BYTE
+ */
+ case function_dt_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_byte*/
+ break;
+
+/****
+ *DT_TO_WORD
+ */
+ case function_dt_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_word*/
+ break;
+
+/****
+ *DT_TO_DWORD
+ */
+ case function_dt_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_dword*/
+ break;
+
+/****
+ *DT_TO_LWORD
+ */
+ case function_dt_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_lword*/
+ break;
+
+/****
+ *STRING_TO_BOOL
+ */
+ case function_string_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -6729,28 +8649,28 @@
ERROR;
}
- }/*function_time_to_bool*/
- break;
-
-/****
- *TIME_TO_SINT
- */
- case function_time_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_bool*/
+ break;
+
+/****
+ *STRING_TO_SINT
+ */
+ case function_string_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -6761,28 +8681,28 @@
ERROR;
}
- }/*function_time_to_sint*/
- break;
-
-/****
- *TIME_TO_INT
- */
- case function_time_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_sint*/
+ break;
+
+/****
+ *STRING_TO_INT
+ */
+ case function_string_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -6793,28 +8713,28 @@
ERROR;
}
- }/*function_time_to_int*/
- break;
-
-/****
- *TIME_TO_DINT
- */
- case function_time_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_int*/
+ break;
+
+/****
+ *STRING_TO_DINT
+ */
+ case function_string_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -6825,28 +8745,28 @@
ERROR;
}
- }/*function_time_to_dint*/
- break;
-
-/****
- *TIME_TO_LINT
- */
- case function_time_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_dint*/
+ break;
+
+/****
+ *STRING_TO_LINT
+ */
+ case function_string_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -6857,28 +8777,28 @@
ERROR;
}
- }/*function_time_to_lint*/
- break;
-
-/****
- *TIME_TO_USINT
- */
- case function_time_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_lint*/
+ break;
+
+/****
+ *STRING_TO_USINT
+ */
+ case function_string_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -6889,28 +8809,28 @@
ERROR;
}
- }/*function_time_to_usint*/
- break;
-
-/****
- *TIME_TO_UINT
- */
- case function_time_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_usint*/
+ break;
+
+/****
+ *STRING_TO_UINT
+ */
+ case function_string_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -6921,28 +8841,28 @@
ERROR;
}
- }/*function_time_to_uint*/
- break;
-
-/****
- *TIME_TO_UDINT
- */
- case function_time_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_uint*/
+ break;
+
+/****
+ *STRING_TO_UDINT
+ */
+ case function_string_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -6953,28 +8873,28 @@
ERROR;
}
- }/*function_time_to_udint*/
- break;
-
-/****
- *TIME_TO_ULINT
- */
- case function_time_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_udint*/
+ break;
+
+/****
+ *STRING_TO_ULINT
+ */
+ case function_string_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -6985,28 +8905,28 @@
ERROR;
}
- }/*function_time_to_ulint*/
- break;
-
-/****
- *TIME_TO_REAL
- */
- case function_time_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_ulint*/
+ break;
+
+/****
+ *STRING_TO_REAL
+ */
+ case function_string_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -7017,28 +8937,28 @@
ERROR;
}
- }/*function_time_to_real*/
- break;
-
-/****
- *TIME_TO_LREAL
- */
- case function_time_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_real*/
+ break;
+
+/****
+ *STRING_TO_LREAL
+ */
+ case function_string_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -7049,28 +8969,764 @@
ERROR;
}
- }/*function_time_to_lreal*/
- break;
-
-/****
- *TIME_TO_STRING
- */
- case function_time_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_lreal*/
+ break;
+
+/****
+ *STRING_TO_TIME
+ */
+ case function_string_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_time*/
+ break;
+
+/****
+ *STRING_TO_DATE
+ */
+ case function_string_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_date*/
+ break;
+
+/****
+ *STRING_TO_TOD
+ */
+ case function_string_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_tod*/
+ break;
+
+/****
+ *STRING_TO_DT
+ */
+ case function_string_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_dt*/
+ break;
+
+/****
+ *STRING_TO_BYTE
+ */
+ case function_string_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_byte*/
+ break;
+
+/****
+ *STRING_TO_WORD
+ */
+ case function_string_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_word*/
+ break;
+
+/****
+ *STRING_TO_DWORD
+ */
+ case function_string_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_dword*/
+ break;
+
+/****
+ *STRING_TO_LWORD
+ */
+ case function_string_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_lword*/
+ break;
+
+/****
+ *BYTE_TO_BOOL
+ */
+ case function_byte_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_bool*/
+ break;
+
+/****
+ *BYTE_TO_SINT
+ */
+ case function_byte_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_sint*/
+ break;
+
+/****
+ *BYTE_TO_INT
+ */
+ case function_byte_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_int*/
+ break;
+
+/****
+ *BYTE_TO_DINT
+ */
+ case function_byte_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_dint*/
+ break;
+
+/****
+ *BYTE_TO_LINT
+ */
+ case function_byte_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_lint*/
+ break;
+
+/****
+ *BYTE_TO_USINT
+ */
+ case function_byte_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_usint*/
+ break;
+
+/****
+ *BYTE_TO_UINT
+ */
+ case function_byte_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_uint*/
+ break;
+
+/****
+ *BYTE_TO_UDINT
+ */
+ case function_byte_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_udint*/
+ break;
+
+/****
+ *BYTE_TO_ULINT
+ */
+ case function_byte_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_ulint*/
+ break;
+
+/****
+ *BYTE_TO_REAL
+ */
+ case function_byte_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_real*/
+ break;
+
+/****
+ *BYTE_TO_LREAL
+ */
+ case function_byte_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_lreal*/
+ break;
+
+/****
+ *BYTE_TO_TIME
+ */
+ case function_byte_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_time*/
+ break;
+
+/****
+ *BYTE_TO_DATE
+ */
+ case function_byte_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_date*/
+ break;
+
+/****
+ *BYTE_TO_TOD
+ */
+ case function_byte_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_tod*/
+ break;
+
+/****
+ *BYTE_TO_DT
+ */
+ case function_byte_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_dt*/
+ break;
+
+/****
+ *BYTE_TO_STRING
+ */
+ case function_byte_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -7081,28 +9737,636 @@
ERROR;
}
- }/*function_time_to_string*/
- break;
-
-/****
- *TIME_TO_BYTE
- */
- case function_time_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_byte_to_string*/
+ break;
+
+/****
+ *BYTE_TO_WORD
+ */
+ case function_byte_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_word*/
+ break;
+
+/****
+ *BYTE_TO_DWORD
+ */
+ case function_byte_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_dword*/
+ break;
+
+/****
+ *BYTE_TO_LWORD
+ */
+ case function_byte_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_lword*/
+ break;
+
+/****
+ *WORD_TO_BOOL
+ */
+ case function_word_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_bool*/
+ break;
+
+/****
+ *WORD_TO_SINT
+ */
+ case function_word_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_sint*/
+ break;
+
+/****
+ *WORD_TO_INT
+ */
+ case function_word_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_int*/
+ break;
+
+/****
+ *WORD_TO_DINT
+ */
+ case function_word_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_dint*/
+ break;
+
+/****
+ *WORD_TO_LINT
+ */
+ case function_word_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_lint*/
+ break;
+
+/****
+ *WORD_TO_USINT
+ */
+ case function_word_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_usint*/
+ break;
+
+/****
+ *WORD_TO_UINT
+ */
+ case function_word_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_uint*/
+ break;
+
+/****
+ *WORD_TO_UDINT
+ */
+ case function_word_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_udint*/
+ break;
+
+/****
+ *WORD_TO_ULINT
+ */
+ case function_word_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_ulint*/
+ break;
+
+/****
+ *WORD_TO_REAL
+ */
+ case function_word_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_real*/
+ break;
+
+/****
+ *WORD_TO_LREAL
+ */
+ case function_word_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_lreal*/
+ break;
+
+/****
+ *WORD_TO_TIME
+ */
+ case function_word_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_time*/
+ break;
+
+/****
+ *WORD_TO_DATE
+ */
+ case function_word_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_date*/
+ break;
+
+/****
+ *WORD_TO_TOD
+ */
+ case function_word_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_tod*/
+ break;
+
+/****
+ *WORD_TO_DT
+ */
+ case function_word_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_dt*/
+ break;
+
+/****
+ *WORD_TO_STRING
+ */
+ case function_word_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_string*/
+ break;
+
+/****
+ *WORD_TO_BYTE
+ */
+ case function_word_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -7113,28 +10377,636 @@
ERROR;
}
- }/*function_time_to_byte*/
- break;
-
-/****
- *TIME_TO_WORD
- */
- case function_time_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_word_to_byte*/
+ break;
+
+/****
+ *WORD_TO_DWORD
+ */
+ case function_word_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_dword*/
+ break;
+
+/****
+ *WORD_TO_LWORD
+ */
+ case function_word_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_lword*/
+ break;
+
+/****
+ *DWORD_TO_BOOL
+ */
+ case function_dword_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_bool*/
+ break;
+
+/****
+ *DWORD_TO_SINT
+ */
+ case function_dword_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_sint*/
+ break;
+
+/****
+ *DWORD_TO_INT
+ */
+ case function_dword_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_int*/
+ break;
+
+/****
+ *DWORD_TO_DINT
+ */
+ case function_dword_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_dint*/
+ break;
+
+/****
+ *DWORD_TO_LINT
+ */
+ case function_dword_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_lint*/
+ break;
+
+/****
+ *DWORD_TO_USINT
+ */
+ case function_dword_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_usint*/
+ break;
+
+/****
+ *DWORD_TO_UINT
+ */
+ case function_dword_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_uint*/
+ break;
+
+/****
+ *DWORD_TO_UDINT
+ */
+ case function_dword_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_udint*/
+ break;
+
+/****
+ *DWORD_TO_ULINT
+ */
+ case function_dword_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_ulint*/
+ break;
+
+/****
+ *DWORD_TO_REAL
+ */
+ case function_dword_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_real*/
+ break;
+
+/****
+ *DWORD_TO_LREAL
+ */
+ case function_dword_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_lreal*/
+ break;
+
+/****
+ *DWORD_TO_TIME
+ */
+ case function_dword_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_time*/
+ break;
+
+/****
+ *DWORD_TO_DATE
+ */
+ case function_dword_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_date*/
+ break;
+
+/****
+ *DWORD_TO_TOD
+ */
+ case function_dword_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_tod*/
+ break;
+
+/****
+ *DWORD_TO_DT
+ */
+ case function_dword_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_dt*/
+ break;
+
+/****
+ *DWORD_TO_STRING
+ */
+ case function_dword_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_string*/
+ break;
+
+/****
+ *DWORD_TO_BYTE
+ */
+ case function_dword_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_byte*/
+ break;
+
+/****
+ *DWORD_TO_WORD
+ */
+ case function_dword_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -7145,28 +11017,636 @@
ERROR;
}
- }/*function_time_to_word*/
- break;
-
-/****
- *TIME_TO_DWORD
- */
- case function_time_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_dword_to_word*/
+ break;
+
+/****
+ *DWORD_TO_LWORD
+ */
+ case function_dword_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_lword*/
+ break;
+
+/****
+ *LWORD_TO_BOOL
+ */
+ case function_lword_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_bool*/
+ break;
+
+/****
+ *LWORD_TO_SINT
+ */
+ case function_lword_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_sint*/
+ break;
+
+/****
+ *LWORD_TO_INT
+ */
+ case function_lword_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_int*/
+ break;
+
+/****
+ *LWORD_TO_DINT
+ */
+ case function_lword_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_dint*/
+ break;
+
+/****
+ *LWORD_TO_LINT
+ */
+ case function_lword_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_lint*/
+ break;
+
+/****
+ *LWORD_TO_USINT
+ */
+ case function_lword_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_usint*/
+ break;
+
+/****
+ *LWORD_TO_UINT
+ */
+ case function_lword_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_uint*/
+ break;
+
+/****
+ *LWORD_TO_UDINT
+ */
+ case function_lword_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_udint*/
+ break;
+
+/****
+ *LWORD_TO_ULINT
+ */
+ case function_lword_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_ulint*/
+ break;
+
+/****
+ *LWORD_TO_REAL
+ */
+ case function_lword_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_real*/
+ break;
+
+/****
+ *LWORD_TO_LREAL
+ */
+ case function_lword_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_lreal*/
+ break;
+
+/****
+ *LWORD_TO_TIME
+ */
+ case function_lword_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_time*/
+ break;
+
+/****
+ *LWORD_TO_DATE
+ */
+ case function_lword_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_date*/
+ break;
+
+/****
+ *LWORD_TO_TOD
+ */
+ case function_lword_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_tod*/
+ break;
+
+/****
+ *LWORD_TO_DT
+ */
+ case function_lword_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_dt*/
+ break;
+
+/****
+ *LWORD_TO_STRING
+ */
+ case function_lword_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_string*/
+ break;
+
+/****
+ *LWORD_TO_BYTE
+ */
+ case function_lword_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_byte*/
+ break;
+
+/****
+ *LWORD_TO_WORD
+ */
+ case function_lword_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_word*/
+ break;
+
+/****
+ *LWORD_TO_DWORD
+ */
+ case function_lword_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -7177,220 +11657,60 @@
ERROR;
}
- }/*function_time_to_dword*/
- break;
-
-/****
- *TIME_TO_LWORD
- */
- case function_time_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_lword*/
- break;
-
-/****
- *DATE_TO_BOOL
- */
- case function_date_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_bool*/
- break;
-
-/****
- *DATE_TO_SINT
- */
- case function_date_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_sint*/
- break;
-
-/****
- *DATE_TO_INT
- */
- case function_date_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_int*/
- break;
-
-/****
- *DATE_TO_DINT
- */
- case function_date_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_dint*/
- break;
-
-/****
- *DATE_TO_LINT
- */
- case function_date_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_lint*/
- break;
-
-/****
- *DATE_TO_USINT
- */
- case function_date_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ }/*function_lword_to_dword*/
+ break;
+
+/****
+ *TRUNC
+ */
+ case function_trunc :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_real_type(IN_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_trunc*/
+ break;
+
+/****
+ *BCD_TO_USINT
+ */
+ case function_bcd_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -7401,28 +11721,28 @@
ERROR;
}
- }/*function_date_to_usint*/
- break;
-
-/****
- *DATE_TO_UINT
- */
- case function_date_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ }/*function_bcd_to_usint*/
+ break;
+
+/****
+ *BCD_TO_UINT
+ */
+ case function_bcd_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -7433,28 +11753,28 @@
ERROR;
}
- }/*function_date_to_uint*/
- break;
-
-/****
- *DATE_TO_UDINT
- */
- case function_date_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ }/*function_bcd_to_uint*/
+ break;
+
+/****
+ *BCD_TO_UDINT
+ */
+ case function_bcd_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -7465,28 +11785,28 @@
ERROR;
}
- }/*function_date_to_udint*/
- break;
-
-/****
- *DATE_TO_ULINT
- */
- case function_date_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ }/*function_bcd_to_udint*/
+ break;
+
+/****
+ *BCD_TO_ULINT
+ */
+ case function_bcd_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -7497,1692 +11817,156 @@
ERROR;
}
- }/*function_date_to_ulint*/
- break;
-
-/****
- *DATE_TO_REAL
- */
- case function_date_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_real*/
- break;
-
-/****
- *DATE_TO_LREAL
- */
- case function_date_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_lreal*/
- break;
-
-/****
- *DATE_TO_STRING
- */
- case function_date_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_string*/
- break;
-
-/****
- *DATE_TO_BYTE
- */
- case function_date_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_byte*/
- break;
-
-/****
- *DATE_TO_WORD
- */
- case function_date_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_word*/
- break;
-
-/****
- *DATE_TO_DWORD
- */
- case function_date_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_dword*/
- break;
-
-/****
- *DATE_TO_LWORD
- */
- case function_date_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_lword*/
- break;
-
-/****
- *TOD_TO_BOOL
- */
- case function_tod_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_bool*/
- break;
-
-/****
- *TOD_TO_SINT
- */
- case function_tod_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_sint*/
- break;
-
-/****
- *TOD_TO_INT
- */
- case function_tod_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_int*/
- break;
-
-/****
- *TOD_TO_DINT
- */
- case function_tod_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_dint*/
- break;
-
-/****
- *TOD_TO_LINT
- */
- case function_tod_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_lint*/
- break;
-
-/****
- *TOD_TO_USINT
- */
- case function_tod_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_usint*/
- break;
-
-/****
- *TOD_TO_UINT
- */
- case function_tod_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_uint*/
- break;
-
-/****
- *TOD_TO_UDINT
- */
- case function_tod_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_udint*/
- break;
-
-/****
- *TOD_TO_ULINT
- */
- case function_tod_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_ulint*/
- break;
-
-/****
- *TOD_TO_REAL
- */
- case function_tod_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_real*/
- break;
-
-/****
- *TOD_TO_LREAL
- */
- case function_tod_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_lreal*/
- break;
-
-/****
- *TOD_TO_STRING
- */
- case function_tod_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_string*/
- break;
-
-/****
- *TOD_TO_BYTE
- */
- case function_tod_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_byte*/
- break;
-
-/****
- *TOD_TO_WORD
- */
- case function_tod_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_word*/
- break;
-
-/****
- *TOD_TO_DWORD
- */
- case function_tod_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_dword*/
- break;
-
-/****
- *TOD_TO_LWORD
- */
- case function_tod_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_lword*/
- break;
-
-/****
- *DT_TO_BOOL
- */
- case function_dt_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_bool*/
- break;
-
-/****
- *DT_TO_SINT
- */
- case function_dt_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_sint*/
- break;
-
-/****
- *DT_TO_INT
- */
- case function_dt_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_int*/
- break;
-
-/****
- *DT_TO_DINT
- */
- case function_dt_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_dint*/
- break;
-
-/****
- *DT_TO_LINT
- */
- case function_dt_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_lint*/
- break;
-
-/****
- *DT_TO_USINT
- */
- case function_dt_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_usint*/
- break;
-
-/****
- *DT_TO_UINT
- */
- case function_dt_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_uint*/
- break;
-
-/****
- *DT_TO_UDINT
- */
- case function_dt_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_udint*/
- break;
-
-/****
- *DT_TO_ULINT
- */
- case function_dt_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_ulint*/
- break;
-
-/****
- *DT_TO_REAL
- */
- case function_dt_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_real*/
- break;
-
-/****
- *DT_TO_LREAL
- */
- case function_dt_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_lreal*/
- break;
-
-/****
- *DT_TO_STRING
- */
- case function_dt_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_string*/
- break;
-
-/****
- *DT_TO_BYTE
- */
- case function_dt_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_byte*/
- break;
-
-/****
- *DT_TO_WORD
- */
- case function_dt_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_word*/
- break;
-
-/****
- *DT_TO_DWORD
- */
- case function_dt_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_dword*/
- break;
-
-/****
- *DT_TO_LWORD
- */
- case function_dt_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_lword*/
- break;
-
-/****
- *STRING_TO_BOOL
- */
- case function_string_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_bool*/
- break;
-
-/****
- *STRING_TO_SINT
- */
- case function_string_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_sint*/
- break;
-
-/****
- *STRING_TO_INT
- */
- case function_string_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_int*/
- break;
-
-/****
- *STRING_TO_DINT
- */
- case function_string_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_dint*/
- break;
-
-/****
- *STRING_TO_LINT
- */
- case function_string_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_lint*/
- break;
-
-/****
- *STRING_TO_USINT
- */
- case function_string_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_usint*/
- break;
-
-/****
- *STRING_TO_UINT
- */
- case function_string_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_uint*/
- break;
-
-/****
- *STRING_TO_UDINT
- */
- case function_string_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_udint*/
- break;
-
-/****
- *STRING_TO_ULINT
- */
- case function_string_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_ulint*/
- break;
-
-/****
- *STRING_TO_REAL
- */
- case function_string_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_real*/
- break;
-
-/****
- *STRING_TO_LREAL
- */
- case function_string_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_lreal*/
- break;
-
-/****
- *STRING_TO_TIME
- */
- case function_string_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_time*/
- break;
-
-/****
- *STRING_TO_DATE
- */
- case function_string_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_date*/
- break;
-
-/****
- *STRING_TO_TOD
- */
- case function_string_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ }/*function_bcd_to_ulint*/
+ break;
+
+/****
+ *USINT_TO_BCD
+ */
+ case function_usint_to_bcd :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(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;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_usint_to_bcd*/
+ break;
+
+/****
+ *UINT_TO_BCD
+ */
+ case function_uint_to_bcd :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(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;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_uint_to_bcd*/
+ break;
+
+/****
+ *UDINT_TO_BCD
+ */
+ case function_udint_to_bcd :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(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;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_udint_to_bcd*/
+ break;
+
+/****
+ *ULINT_TO_BCD
+ */
+ case function_ulint_to_bcd :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(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;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_ulint_to_bcd*/
+ break;
+
+/****
+ *DATE_AND_TIME_TO_TIME_OF_DAY
+ */
+ case function_date_and_time_to_time_of_day :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -9193,2918 +11977,6 @@
ERROR;
}
- }/*function_string_to_tod*/
- break;
-
-/****
- *STRING_TO_DT
- */
- case function_string_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_dt*/
- break;
-
-/****
- *STRING_TO_BYTE
- */
- case function_string_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_byte*/
- break;
-
-/****
- *STRING_TO_WORD
- */
- case function_string_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_word*/
- break;
-
-/****
- *STRING_TO_DWORD
- */
- case function_string_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_dword*/
- break;
-
-/****
- *STRING_TO_LWORD
- */
- case function_string_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_lword*/
- break;
-
-/****
- *BYTE_TO_BOOL
- */
- case function_byte_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_bool*/
- break;
-
-/****
- *BYTE_TO_SINT
- */
- case function_byte_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_sint*/
- break;
-
-/****
- *BYTE_TO_INT
- */
- case function_byte_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_int*/
- break;
-
-/****
- *BYTE_TO_DINT
- */
- case function_byte_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_dint*/
- break;
-
-/****
- *BYTE_TO_LINT
- */
- case function_byte_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_lint*/
- break;
-
-/****
- *BYTE_TO_USINT
- */
- case function_byte_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_usint*/
- break;
-
-/****
- *BYTE_TO_UINT
- */
- case function_byte_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_uint*/
- break;
-
-/****
- *BYTE_TO_UDINT
- */
- case function_byte_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_udint*/
- break;
-
-/****
- *BYTE_TO_ULINT
- */
- case function_byte_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_ulint*/
- break;
-
-/****
- *BYTE_TO_REAL
- */
- case function_byte_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_real*/
- break;
-
-/****
- *BYTE_TO_LREAL
- */
- case function_byte_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_lreal*/
- break;
-
-/****
- *BYTE_TO_TIME
- */
- case function_byte_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_time*/
- break;
-
-/****
- *BYTE_TO_DATE
- */
- case function_byte_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_date*/
- break;
-
-/****
- *BYTE_TO_TOD
- */
- case function_byte_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_tod*/
- break;
-
-/****
- *BYTE_TO_DT
- */
- case function_byte_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_dt*/
- break;
-
-/****
- *BYTE_TO_STRING
- */
- case function_byte_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_string*/
- break;
-
-/****
- *BYTE_TO_WORD
- */
- case function_byte_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_word*/
- break;
-
-/****
- *BYTE_TO_DWORD
- */
- case function_byte_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_dword*/
- break;
-
-/****
- *BYTE_TO_LWORD
- */
- case function_byte_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_lword*/
- break;
-
-/****
- *WORD_TO_BOOL
- */
- case function_word_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_bool*/
- break;
-
-/****
- *WORD_TO_SINT
- */
- case function_word_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_sint*/
- break;
-
-/****
- *WORD_TO_INT
- */
- case function_word_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_int*/
- break;
-
-/****
- *WORD_TO_DINT
- */
- case function_word_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_dint*/
- break;
-
-/****
- *WORD_TO_LINT
- */
- case function_word_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_lint*/
- break;
-
-/****
- *WORD_TO_USINT
- */
- case function_word_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_usint*/
- break;
-
-/****
- *WORD_TO_UINT
- */
- case function_word_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_uint*/
- break;
-
-/****
- *WORD_TO_UDINT
- */
- case function_word_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_udint*/
- break;
-
-/****
- *WORD_TO_ULINT
- */
- case function_word_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_ulint*/
- break;
-
-/****
- *WORD_TO_REAL
- */
- case function_word_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_real*/
- break;
-
-/****
- *WORD_TO_LREAL
- */
- case function_word_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_lreal*/
- break;
-
-/****
- *WORD_TO_TIME
- */
- case function_word_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_time*/
- break;
-
-/****
- *WORD_TO_DATE
- */
- case function_word_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_date*/
- break;
-
-/****
- *WORD_TO_TOD
- */
- case function_word_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_tod*/
- break;
-
-/****
- *WORD_TO_DT
- */
- case function_word_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_dt*/
- break;
-
-/****
- *WORD_TO_STRING
- */
- case function_word_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_string*/
- break;
-
-/****
- *WORD_TO_BYTE
- */
- case function_word_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_byte*/
- break;
-
-/****
- *WORD_TO_DWORD
- */
- case function_word_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_dword*/
- break;
-
-/****
- *WORD_TO_LWORD
- */
- case function_word_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_lword*/
- break;
-
-/****
- *DWORD_TO_BOOL
- */
- case function_dword_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_bool*/
- break;
-
-/****
- *DWORD_TO_SINT
- */
- case function_dword_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_sint*/
- break;
-
-/****
- *DWORD_TO_INT
- */
- case function_dword_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_int*/
- break;
-
-/****
- *DWORD_TO_DINT
- */
- case function_dword_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_dint*/
- break;
-
-/****
- *DWORD_TO_LINT
- */
- case function_dword_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_lint*/
- break;
-
-/****
- *DWORD_TO_USINT
- */
- case function_dword_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_usint*/
- break;
-
-/****
- *DWORD_TO_UINT
- */
- case function_dword_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_uint*/
- break;
-
-/****
- *DWORD_TO_UDINT
- */
- case function_dword_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_udint*/
- break;
-
-/****
- *DWORD_TO_ULINT
- */
- case function_dword_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_ulint*/
- break;
-
-/****
- *DWORD_TO_REAL
- */
- case function_dword_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_real*/
- break;
-
-/****
- *DWORD_TO_LREAL
- */
- case function_dword_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_lreal*/
- break;
-
-/****
- *DWORD_TO_TIME
- */
- case function_dword_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_time*/
- break;
-
-/****
- *DWORD_TO_DATE
- */
- case function_dword_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_date*/
- break;
-
-/****
- *DWORD_TO_TOD
- */
- case function_dword_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_tod*/
- break;
-
-/****
- *DWORD_TO_DT
- */
- case function_dword_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_dt*/
- break;
-
-/****
- *DWORD_TO_STRING
- */
- case function_dword_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_string*/
- break;
-
-/****
- *DWORD_TO_BYTE
- */
- case function_dword_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_byte*/
- break;
-
-/****
- *DWORD_TO_WORD
- */
- case function_dword_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_word*/
- break;
-
-/****
- *DWORD_TO_LWORD
- */
- case function_dword_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_lword*/
- break;
-
-/****
- *LWORD_TO_BOOL
- */
- case function_lword_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_bool*/
- break;
-
-/****
- *LWORD_TO_SINT
- */
- case function_lword_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_sint*/
- break;
-
-/****
- *LWORD_TO_INT
- */
- case function_lword_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_int*/
- break;
-
-/****
- *LWORD_TO_DINT
- */
- case function_lword_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_dint*/
- break;
-
-/****
- *LWORD_TO_LINT
- */
- case function_lword_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_lint*/
- break;
-
-/****
- *LWORD_TO_USINT
- */
- case function_lword_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_usint*/
- break;
-
-/****
- *LWORD_TO_UINT
- */
- case function_lword_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_uint*/
- break;
-
-/****
- *LWORD_TO_UDINT
- */
- case function_lword_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_udint*/
- break;
-
-/****
- *LWORD_TO_ULINT
- */
- case function_lword_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_ulint*/
- break;
-
-/****
- *LWORD_TO_REAL
- */
- case function_lword_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_real*/
- break;
-
-/****
- *LWORD_TO_LREAL
- */
- case function_lword_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_lreal*/
- break;
-
-/****
- *LWORD_TO_TIME
- */
- case function_lword_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_time*/
- break;
-
-/****
- *LWORD_TO_DATE
- */
- case function_lword_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_date*/
- break;
-
-/****
- *LWORD_TO_TOD
- */
- case function_lword_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_tod*/
- break;
-
-/****
- *LWORD_TO_DT
- */
- case function_lword_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_dt*/
- break;
-
-/****
- *LWORD_TO_STRING
- */
- case function_lword_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_string*/
- break;
-
-/****
- *LWORD_TO_BYTE
- */
- case function_lword_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_byte*/
- break;
-
-/****
- *LWORD_TO_WORD
- */
- case function_lword_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_word*/
- break;
-
-/****
- *LWORD_TO_DWORD
- */
- case function_lword_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_dword*/
- break;
-
-/****
- *TRUNC
- */
- case function_trunc :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if(search_expression_type->is_real_type(IN_type_symbol))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_trunc*/
- break;
-
-/****
- *BCD_TO_USINT
- */
- case function_bcd_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_bcd_to_usint*/
- break;
-
-/****
- *BCD_TO_UINT
- */
- case function_bcd_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_bcd_to_uint*/
- break;
-
-/****
- *BCD_TO_UDINT
- */
- case function_bcd_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_bcd_to_udint*/
- break;
-
-/****
- *BCD_TO_ULINT
- */
- case function_bcd_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_bcd_to_ulint*/
- break;
-
-/****
- *USINT_TO_BCD
- */
- case function_usint_to_bcd :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_usint_to_bcd*/
- break;
-
-/****
- *UINT_TO_BCD
- */
- case function_uint_to_bcd :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_uint_to_bcd*/
- break;
-
-/****
- *UDINT_TO_BCD
- */
- case function_udint_to_bcd :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_udint_to_bcd*/
- break;
-
-/****
- *ULINT_TO_BCD
- */
- case function_ulint_to_bcd :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_ulint_to_bcd*/
- break;
-
-/****
- *DATE_AND_TIME_TO_TIME_OF_DAY
- */
- case function_date_and_time_to_time_of_day :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
}/*function_date_and_time_to_time_of_day*/
break;
@@ -12126,7 +11998,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -12537,7 +12409,7 @@
}
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
{
@@ -12551,7 +12423,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -12564,7 +12436,7 @@
}
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
{
@@ -12578,7 +12450,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -12591,7 +12463,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -12605,7 +12477,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -12669,7 +12541,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -12747,7 +12619,7 @@
}
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
{
{
@@ -12761,7 +12633,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -12774,7 +12646,7 @@
}
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
{
@@ -12788,7 +12660,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -12796,7 +12668,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -12809,7 +12681,7 @@
}
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
{
@@ -12823,7 +12695,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -12831,7 +12703,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -12844,7 +12716,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -12858,7 +12730,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -12922,7 +12794,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -13496,7 +13368,7 @@
symbol_c *G_type_symbol = search_expression_type->get_type(G_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
{
@@ -14114,7 +13986,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -14146,7 +14018,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -14197,7 +14069,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -14248,7 +14120,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -14318,7 +14190,7 @@
symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
{
{
@@ -14332,7 +14204,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -14345,7 +14217,7 @@
}
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -14359,7 +14231,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -14396,7 +14268,7 @@
symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -14410,7 +14282,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -14466,7 +14338,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -14536,7 +14408,7 @@
symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -14550,7 +14422,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -14625,7 +14497,7 @@
symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -14639,7 +14511,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -14683,7 +14555,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -14708,7 +14580,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -14733,7 +14605,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -14758,7 +14630,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -14783,7 +14655,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -14808,7 +14680,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -14833,7 +14705,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -14858,7 +14730,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -14883,7 +14755,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -14908,7 +14780,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -14933,7 +14805,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -14958,7 +14830,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -14983,7 +14855,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -15008,7 +14880,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -15033,7 +14905,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -15058,7 +14930,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -15083,7 +14955,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -15108,7 +14980,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -15133,7 +15005,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -15158,7 +15030,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -15183,7 +15055,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -15208,7 +15080,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -15233,7 +15105,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -15258,7 +15130,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -15283,7 +15155,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -15308,7 +15180,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -15333,7 +15205,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -15358,7 +15230,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -15383,7 +15255,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -15408,7 +15280,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -15433,7 +15305,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -15458,7 +15330,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -15483,7 +15355,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -15508,7 +15380,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -15533,7 +15405,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -15558,7 +15430,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -15583,7 +15455,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -15608,7 +15480,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -15633,7 +15505,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -15658,7 +15530,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -15683,7 +15555,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -15708,7 +15580,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -15733,7 +15605,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -15758,7 +15630,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -15783,7 +15655,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -15808,7 +15680,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -15833,7 +15705,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -15858,7 +15730,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -15883,7 +15755,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -15908,7 +15780,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -15933,7 +15805,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -15958,7 +15830,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -15983,7 +15855,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -16008,7 +15880,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -16033,7 +15905,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -16058,7 +15930,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -16083,7 +15955,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -16108,7 +15980,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -16133,7 +16005,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -16158,7 +16030,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -16183,7 +16055,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -16208,7 +16080,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -16233,7 +16105,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -16258,7 +16130,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -16283,7 +16155,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -16308,7 +16180,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -16333,7 +16205,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -16358,7 +16230,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -16383,7 +16255,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -16408,7 +16280,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -16433,7 +16305,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -16458,7 +16330,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -16483,7 +16355,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -16508,7 +16380,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -16533,7 +16405,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -16558,7 +16430,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -16583,7 +16455,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -16608,7 +16480,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -16633,7 +16505,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -16658,7 +16530,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -16683,7 +16555,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -16708,7 +16580,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -16733,7 +16605,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -16758,7 +16630,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -16783,7 +16655,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -16808,7 +16680,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -16833,7 +16705,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -16858,7 +16730,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -16883,7 +16755,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -16908,7 +16780,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -16933,7 +16805,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -16958,7 +16830,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -16983,7 +16855,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -17008,7 +16880,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -17033,7 +16905,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -17058,7 +16930,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::bool_type_name;
@@ -17083,7 +16955,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::sint_type_name;
@@ -17108,7 +16980,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::int_type_name;
@@ -17133,7 +17005,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::dint_type_name;
@@ -17158,7 +17030,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::lint_type_name;
@@ -17183,7 +17055,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::uint_type_name;
@@ -17208,7 +17080,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::udint_type_name;
@@ -17233,7 +17105,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::ulint_type_name;
@@ -17258,7 +17130,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::real_type_name;
@@ -17283,7 +17155,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::lreal_type_name;
@@ -17308,7 +17180,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::time_type_name;
@@ -17333,7 +17205,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::date_type_name;
@@ -17358,7 +17230,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::tod_type_name;
@@ -17383,7 +17255,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::dt_type_name;
@@ -17408,7 +17280,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::string_type_name;
@@ -17433,7 +17305,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::byte_type_name;
@@ -17458,7 +17330,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::word_type_name;
@@ -17483,7 +17355,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::dword_type_name;
@@ -17508,7 +17380,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::lword_type_name;
@@ -17533,7 +17405,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::bool_type_name;
@@ -17558,7 +17430,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::sint_type_name;
@@ -17583,7 +17455,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::int_type_name;
@@ -17608,7 +17480,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::dint_type_name;
@@ -17633,7 +17505,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::lint_type_name;
@@ -17658,7 +17530,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::usint_type_name;
@@ -17683,7 +17555,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::udint_type_name;
@@ -17708,7 +17580,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::ulint_type_name;
@@ -17733,7 +17605,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::real_type_name;
@@ -17758,7 +17630,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::lreal_type_name;
@@ -17783,7 +17655,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::time_type_name;
@@ -17808,7 +17680,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::date_type_name;
@@ -17833,7 +17705,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::tod_type_name;
@@ -17858,7 +17730,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::dt_type_name;
@@ -17883,7 +17755,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::string_type_name;
@@ -17908,7 +17780,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::byte_type_name;
@@ -17933,7 +17805,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::word_type_name;
@@ -17958,7 +17830,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::dword_type_name;
@@ -17983,7 +17855,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::lword_type_name;
@@ -18008,7 +17880,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::bool_type_name;
@@ -18033,7 +17905,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::sint_type_name;
@@ -18058,7 +17930,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::int_type_name;
@@ -18083,7 +17955,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::dint_type_name;
@@ -18108,7 +17980,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::lint_type_name;
@@ -18133,7 +18005,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::usint_type_name;
@@ -18158,7 +18030,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::uint_type_name;
@@ -18183,7 +18055,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::ulint_type_name;
@@ -18208,7 +18080,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::real_type_name;
@@ -18233,7 +18105,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::lreal_type_name;
@@ -18258,7 +18130,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::time_type_name;
@@ -18283,7 +18155,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::date_type_name;
@@ -18308,7 +18180,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::tod_type_name;
@@ -18333,7 +18205,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::dt_type_name;
@@ -18358,7 +18230,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::string_type_name;
@@ -18383,7 +18255,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::byte_type_name;
@@ -18408,7 +18280,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::word_type_name;
@@ -18433,7 +18305,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::dword_type_name;
@@ -18458,7 +18330,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::lword_type_name;
@@ -18483,7 +18355,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::bool_type_name;
@@ -18508,7 +18380,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::sint_type_name;
@@ -18533,7 +18405,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::int_type_name;
@@ -18558,7 +18430,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::dint_type_name;
@@ -18583,7 +18455,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::lint_type_name;
@@ -18608,7 +18480,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::usint_type_name;
@@ -18633,7 +18505,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::uint_type_name;
@@ -18658,7 +18530,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::udint_type_name;
@@ -18683,7 +18555,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::real_type_name;
@@ -18708,7 +18580,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::lreal_type_name;
@@ -18733,7 +18605,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::time_type_name;
@@ -18758,7 +18630,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::date_type_name;
@@ -18783,7 +18655,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::tod_type_name;
@@ -18808,7 +18680,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::dt_type_name;
@@ -18833,7 +18705,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::string_type_name;
@@ -18858,7 +18730,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::byte_type_name;
@@ -18883,7 +18755,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::word_type_name;
@@ -18908,7 +18780,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::dword_type_name;
@@ -18933,7 +18805,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::lword_type_name;
@@ -18958,7 +18830,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -18983,7 +18855,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -19008,7 +18880,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -19033,7 +18905,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -19058,7 +18930,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -19083,7 +18955,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -19108,7 +18980,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -19133,7 +19005,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -19158,7 +19030,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -19183,7 +19055,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -19208,7 +19080,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -19233,7 +19105,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -19258,7 +19130,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -19283,7 +19155,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -19308,7 +19180,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -19333,7 +19205,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -19358,7 +19230,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -19383,7 +19255,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -19408,7 +19280,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -19433,7 +19305,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -19458,7 +19330,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -19483,7 +19355,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -19508,7 +19380,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -19533,7 +19405,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -19558,7 +19430,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -19583,7 +19455,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -19608,7 +19480,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -19633,7 +19505,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -19658,7 +19530,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -19683,7 +19555,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -19708,7 +19580,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -19733,7 +19605,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -19758,7 +19630,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -19783,7 +19655,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -19808,7 +19680,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -19833,7 +19705,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -19858,7 +19730,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -19883,7 +19755,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -19898,17 +19770,1517 @@
break;
/****
- *TIME_TO_BOOL
- */
- case function_time_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ *TIME_TO_SINT
+ */
+ case function_time_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_sint*/
+ break;
+
+/****
+ *TIME_TO_INT
+ */
+ case function_time_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_int*/
+ break;
+
+/****
+ *TIME_TO_DINT
+ */
+ case function_time_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_dint*/
+ break;
+
+/****
+ *TIME_TO_LINT
+ */
+ case function_time_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_lint*/
+ break;
+
+/****
+ *TIME_TO_USINT
+ */
+ case function_time_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_usint*/
+ break;
+
+/****
+ *TIME_TO_UINT
+ */
+ case function_time_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_uint*/
+ break;
+
+/****
+ *TIME_TO_UDINT
+ */
+ case function_time_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_udint*/
+ break;
+
+/****
+ *TIME_TO_ULINT
+ */
+ case function_time_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_ulint*/
+ break;
+
+/****
+ *TIME_TO_REAL
+ */
+ case function_time_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_real*/
+ break;
+
+/****
+ *TIME_TO_LREAL
+ */
+ case function_time_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_lreal*/
+ break;
+
+/****
+ *TIME_TO_STRING
+ */
+ case function_time_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_string*/
+ break;
+
+/****
+ *TIME_TO_BYTE
+ */
+ case function_time_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_byte*/
+ break;
+
+/****
+ *TIME_TO_WORD
+ */
+ case function_time_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_word*/
+ break;
+
+/****
+ *TIME_TO_DWORD
+ */
+ case function_time_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_dword*/
+ break;
+
+/****
+ *TIME_TO_LWORD
+ */
+ case function_time_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_lword*/
+ break;
+
+/****
+ *DATE_TO_SINT
+ */
+ case function_date_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_sint*/
+ break;
+
+/****
+ *DATE_TO_INT
+ */
+ case function_date_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_int*/
+ break;
+
+/****
+ *DATE_TO_DINT
+ */
+ case function_date_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_dint*/
+ break;
+
+/****
+ *DATE_TO_LINT
+ */
+ case function_date_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_lint*/
+ break;
+
+/****
+ *DATE_TO_USINT
+ */
+ case function_date_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_usint*/
+ break;
+
+/****
+ *DATE_TO_UINT
+ */
+ case function_date_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_uint*/
+ break;
+
+/****
+ *DATE_TO_UDINT
+ */
+ case function_date_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_udint*/
+ break;
+
+/****
+ *DATE_TO_ULINT
+ */
+ case function_date_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_ulint*/
+ break;
+
+/****
+ *DATE_TO_REAL
+ */
+ case function_date_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_real*/
+ break;
+
+/****
+ *DATE_TO_LREAL
+ */
+ case function_date_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_lreal*/
+ break;
+
+/****
+ *DATE_TO_STRING
+ */
+ case function_date_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_string*/
+ break;
+
+/****
+ *DATE_TO_BYTE
+ */
+ case function_date_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_byte*/
+ break;
+
+/****
+ *DATE_TO_WORD
+ */
+ case function_date_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_word*/
+ break;
+
+/****
+ *DATE_TO_DWORD
+ */
+ case function_date_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_dword*/
+ break;
+
+/****
+ *DATE_TO_LWORD
+ */
+ case function_date_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_lword*/
+ break;
+
+/****
+ *TOD_TO_SINT
+ */
+ case function_tod_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_sint*/
+ break;
+
+/****
+ *TOD_TO_INT
+ */
+ case function_tod_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_int*/
+ break;
+
+/****
+ *TOD_TO_DINT
+ */
+ case function_tod_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_dint*/
+ break;
+
+/****
+ *TOD_TO_LINT
+ */
+ case function_tod_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_lint*/
+ break;
+
+/****
+ *TOD_TO_USINT
+ */
+ case function_tod_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_usint*/
+ break;
+
+/****
+ *TOD_TO_UINT
+ */
+ case function_tod_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_uint*/
+ break;
+
+/****
+ *TOD_TO_UDINT
+ */
+ case function_tod_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_udint*/
+ break;
+
+/****
+ *TOD_TO_ULINT
+ */
+ case function_tod_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_ulint*/
+ break;
+
+/****
+ *TOD_TO_REAL
+ */
+ case function_tod_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_real*/
+ break;
+
+/****
+ *TOD_TO_LREAL
+ */
+ case function_tod_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_lreal*/
+ break;
+
+/****
+ *TOD_TO_STRING
+ */
+ case function_tod_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_string*/
+ break;
+
+/****
+ *TOD_TO_BYTE
+ */
+ case function_tod_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_byte*/
+ break;
+
+/****
+ *TOD_TO_WORD
+ */
+ case function_tod_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_word*/
+ break;
+
+/****
+ *TOD_TO_DWORD
+ */
+ case function_tod_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_dword*/
+ break;
+
+/****
+ *TOD_TO_LWORD
+ */
+ case function_tod_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_lword*/
+ break;
+
+/****
+ *DT_TO_SINT
+ */
+ case function_dt_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_sint*/
+ break;
+
+/****
+ *DT_TO_INT
+ */
+ case function_dt_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_int*/
+ break;
+
+/****
+ *DT_TO_DINT
+ */
+ case function_dt_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_dint*/
+ break;
+
+/****
+ *DT_TO_LINT
+ */
+ case function_dt_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_lint*/
+ break;
+
+/****
+ *DT_TO_USINT
+ */
+ case function_dt_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_usint*/
+ break;
+
+/****
+ *DT_TO_UINT
+ */
+ case function_dt_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_uint*/
+ break;
+
+/****
+ *DT_TO_UDINT
+ */
+ case function_dt_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_udint*/
+ break;
+
+/****
+ *DT_TO_ULINT
+ */
+ case function_dt_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_ulint*/
+ break;
+
+/****
+ *DT_TO_REAL
+ */
+ case function_dt_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_real*/
+ break;
+
+/****
+ *DT_TO_LREAL
+ */
+ case function_dt_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_lreal*/
+ break;
+
+/****
+ *DT_TO_STRING
+ */
+ case function_dt_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_string*/
+ break;
+
+/****
+ *DT_TO_BYTE
+ */
+ case function_dt_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_byte*/
+ break;
+
+/****
+ *DT_TO_WORD
+ */
+ case function_dt_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_word*/
+ break;
+
+/****
+ *DT_TO_DWORD
+ */
+ case function_dt_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_dword*/
+ break;
+
+/****
+ *DT_TO_LWORD
+ */
+ case function_dt_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_lword*/
+ break;
+
+/****
+ *STRING_TO_BOOL
+ */
+ case function_string_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -19919,21 +21291,21 @@
ERROR;
}
- }/*function_time_to_bool*/
- break;
-
-/****
- *TIME_TO_SINT
- */
- case function_time_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_bool*/
+ break;
+
+/****
+ *STRING_TO_SINT
+ */
+ case function_string_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -19944,21 +21316,21 @@
ERROR;
}
- }/*function_time_to_sint*/
- break;
-
-/****
- *TIME_TO_INT
- */
- case function_time_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_sint*/
+ break;
+
+/****
+ *STRING_TO_INT
+ */
+ case function_string_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -19969,21 +21341,21 @@
ERROR;
}
- }/*function_time_to_int*/
- break;
-
-/****
- *TIME_TO_DINT
- */
- case function_time_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_int*/
+ break;
+
+/****
+ *STRING_TO_DINT
+ */
+ case function_string_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -19994,21 +21366,21 @@
ERROR;
}
- }/*function_time_to_dint*/
- break;
-
-/****
- *TIME_TO_LINT
- */
- case function_time_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_dint*/
+ break;
+
+/****
+ *STRING_TO_LINT
+ */
+ case function_string_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -20019,21 +21391,21 @@
ERROR;
}
- }/*function_time_to_lint*/
- break;
-
-/****
- *TIME_TO_USINT
- */
- case function_time_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_lint*/
+ break;
+
+/****
+ *STRING_TO_USINT
+ */
+ case function_string_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -20044,21 +21416,21 @@
ERROR;
}
- }/*function_time_to_usint*/
- break;
-
-/****
- *TIME_TO_UINT
- */
- case function_time_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_usint*/
+ break;
+
+/****
+ *STRING_TO_UINT
+ */
+ case function_string_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -20069,21 +21441,21 @@
ERROR;
}
- }/*function_time_to_uint*/
- break;
-
-/****
- *TIME_TO_UDINT
- */
- case function_time_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_uint*/
+ break;
+
+/****
+ *STRING_TO_UDINT
+ */
+ case function_string_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -20094,21 +21466,21 @@
ERROR;
}
- }/*function_time_to_udint*/
- break;
-
-/****
- *TIME_TO_ULINT
- */
- case function_time_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_udint*/
+ break;
+
+/****
+ *STRING_TO_ULINT
+ */
+ case function_string_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -20119,21 +21491,21 @@
ERROR;
}
- }/*function_time_to_ulint*/
- break;
-
-/****
- *TIME_TO_REAL
- */
- case function_time_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_ulint*/
+ break;
+
+/****
+ *STRING_TO_REAL
+ */
+ case function_string_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -20144,21 +21516,21 @@
ERROR;
}
- }/*function_time_to_real*/
- break;
-
-/****
- *TIME_TO_LREAL
- */
- case function_time_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_real*/
+ break;
+
+/****
+ *STRING_TO_LREAL
+ */
+ case function_string_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -20169,21 +21541,596 @@
ERROR;
}
- }/*function_time_to_lreal*/
- break;
-
-/****
- *TIME_TO_STRING
- */
- case function_time_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_string_to_lreal*/
+ break;
+
+/****
+ *STRING_TO_TIME
+ */
+ case function_string_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_time*/
+ break;
+
+/****
+ *STRING_TO_DATE
+ */
+ case function_string_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_date*/
+ break;
+
+/****
+ *STRING_TO_TOD
+ */
+ case function_string_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_tod*/
+ break;
+
+/****
+ *STRING_TO_DT
+ */
+ case function_string_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_dt*/
+ break;
+
+/****
+ *STRING_TO_BYTE
+ */
+ case function_string_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_byte*/
+ break;
+
+/****
+ *STRING_TO_WORD
+ */
+ case function_string_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_word*/
+ break;
+
+/****
+ *STRING_TO_DWORD
+ */
+ case function_string_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_dword*/
+ break;
+
+/****
+ *STRING_TO_LWORD
+ */
+ case function_string_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_lword*/
+ break;
+
+/****
+ *BYTE_TO_BOOL
+ */
+ case function_byte_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_bool*/
+ break;
+
+/****
+ *BYTE_TO_SINT
+ */
+ case function_byte_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_sint*/
+ break;
+
+/****
+ *BYTE_TO_INT
+ */
+ case function_byte_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_int*/
+ break;
+
+/****
+ *BYTE_TO_DINT
+ */
+ case function_byte_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_dint*/
+ break;
+
+/****
+ *BYTE_TO_LINT
+ */
+ case function_byte_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_lint*/
+ break;
+
+/****
+ *BYTE_TO_USINT
+ */
+ case function_byte_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_usint*/
+ break;
+
+/****
+ *BYTE_TO_UINT
+ */
+ case function_byte_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_uint*/
+ break;
+
+/****
+ *BYTE_TO_UDINT
+ */
+ case function_byte_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_udint*/
+ break;
+
+/****
+ *BYTE_TO_ULINT
+ */
+ case function_byte_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_ulint*/
+ break;
+
+/****
+ *BYTE_TO_REAL
+ */
+ case function_byte_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_real*/
+ break;
+
+/****
+ *BYTE_TO_LREAL
+ */
+ case function_byte_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_lreal*/
+ break;
+
+/****
+ *BYTE_TO_TIME
+ */
+ case function_byte_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_time*/
+ break;
+
+/****
+ *BYTE_TO_DATE
+ */
+ case function_byte_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_date*/
+ break;
+
+/****
+ *BYTE_TO_TOD
+ */
+ case function_byte_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_tod*/
+ break;
+
+/****
+ *BYTE_TO_DT
+ */
+ case function_byte_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_dt*/
+ break;
+
+/****
+ *BYTE_TO_STRING
+ */
+ case function_byte_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -20194,21 +22141,496 @@
ERROR;
}
- }/*function_time_to_string*/
- break;
-
-/****
- *TIME_TO_BYTE
- */
- case function_time_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_byte_to_string*/
+ break;
+
+/****
+ *BYTE_TO_WORD
+ */
+ case function_byte_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_word*/
+ break;
+
+/****
+ *BYTE_TO_DWORD
+ */
+ case function_byte_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_dword*/
+ break;
+
+/****
+ *BYTE_TO_LWORD
+ */
+ case function_byte_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_lword*/
+ break;
+
+/****
+ *WORD_TO_BOOL
+ */
+ case function_word_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_bool*/
+ break;
+
+/****
+ *WORD_TO_SINT
+ */
+ case function_word_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_sint*/
+ break;
+
+/****
+ *WORD_TO_INT
+ */
+ case function_word_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_int*/
+ break;
+
+/****
+ *WORD_TO_DINT
+ */
+ case function_word_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_dint*/
+ break;
+
+/****
+ *WORD_TO_LINT
+ */
+ case function_word_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_lint*/
+ break;
+
+/****
+ *WORD_TO_USINT
+ */
+ case function_word_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_usint*/
+ break;
+
+/****
+ *WORD_TO_UINT
+ */
+ case function_word_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_uint*/
+ break;
+
+/****
+ *WORD_TO_UDINT
+ */
+ case function_word_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_udint*/
+ break;
+
+/****
+ *WORD_TO_ULINT
+ */
+ case function_word_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_ulint*/
+ break;
+
+/****
+ *WORD_TO_REAL
+ */
+ case function_word_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_real*/
+ break;
+
+/****
+ *WORD_TO_LREAL
+ */
+ case function_word_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_lreal*/
+ break;
+
+/****
+ *WORD_TO_TIME
+ */
+ case function_word_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_time*/
+ break;
+
+/****
+ *WORD_TO_DATE
+ */
+ case function_word_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_date*/
+ break;
+
+/****
+ *WORD_TO_TOD
+ */
+ case function_word_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_tod*/
+ break;
+
+/****
+ *WORD_TO_DT
+ */
+ case function_word_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_dt*/
+ break;
+
+/****
+ *WORD_TO_STRING
+ */
+ case function_word_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_string*/
+ break;
+
+/****
+ *WORD_TO_BYTE
+ */
+ case function_word_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -20219,21 +22641,496 @@
ERROR;
}
- }/*function_time_to_byte*/
- break;
-
-/****
- *TIME_TO_WORD
- */
- case function_time_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_word_to_byte*/
+ break;
+
+/****
+ *WORD_TO_DWORD
+ */
+ case function_word_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_dword*/
+ break;
+
+/****
+ *WORD_TO_LWORD
+ */
+ case function_word_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_lword*/
+ break;
+
+/****
+ *DWORD_TO_BOOL
+ */
+ case function_dword_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_bool*/
+ break;
+
+/****
+ *DWORD_TO_SINT
+ */
+ case function_dword_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_sint*/
+ break;
+
+/****
+ *DWORD_TO_INT
+ */
+ case function_dword_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_int*/
+ break;
+
+/****
+ *DWORD_TO_DINT
+ */
+ case function_dword_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_dint*/
+ break;
+
+/****
+ *DWORD_TO_LINT
+ */
+ case function_dword_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_lint*/
+ break;
+
+/****
+ *DWORD_TO_USINT
+ */
+ case function_dword_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_usint*/
+ break;
+
+/****
+ *DWORD_TO_UINT
+ */
+ case function_dword_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_uint*/
+ break;
+
+/****
+ *DWORD_TO_UDINT
+ */
+ case function_dword_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_udint*/
+ break;
+
+/****
+ *DWORD_TO_ULINT
+ */
+ case function_dword_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_ulint*/
+ break;
+
+/****
+ *DWORD_TO_REAL
+ */
+ case function_dword_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_real*/
+ break;
+
+/****
+ *DWORD_TO_LREAL
+ */
+ case function_dword_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_lreal*/
+ break;
+
+/****
+ *DWORD_TO_TIME
+ */
+ case function_dword_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_time*/
+ break;
+
+/****
+ *DWORD_TO_DATE
+ */
+ case function_dword_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_date*/
+ break;
+
+/****
+ *DWORD_TO_TOD
+ */
+ case function_dword_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_tod*/
+ break;
+
+/****
+ *DWORD_TO_DT
+ */
+ case function_dword_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_dt*/
+ break;
+
+/****
+ *DWORD_TO_STRING
+ */
+ case function_dword_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_string*/
+ break;
+
+/****
+ *DWORD_TO_BYTE
+ */
+ case function_dword_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_byte*/
+ break;
+
+/****
+ *DWORD_TO_WORD
+ */
+ case function_dword_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -20244,21 +23141,496 @@
ERROR;
}
- }/*function_time_to_word*/
- break;
-
-/****
- *TIME_TO_DWORD
- */
- case function_time_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ }/*function_dword_to_word*/
+ break;
+
+/****
+ *DWORD_TO_LWORD
+ */
+ case function_dword_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_lword*/
+ break;
+
+/****
+ *LWORD_TO_BOOL
+ */
+ case function_lword_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_bool*/
+ break;
+
+/****
+ *LWORD_TO_SINT
+ */
+ case function_lword_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_sint*/
+ break;
+
+/****
+ *LWORD_TO_INT
+ */
+ case function_lword_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_int*/
+ break;
+
+/****
+ *LWORD_TO_DINT
+ */
+ case function_lword_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_dint*/
+ break;
+
+/****
+ *LWORD_TO_LINT
+ */
+ case function_lword_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_lint*/
+ break;
+
+/****
+ *LWORD_TO_USINT
+ */
+ case function_lword_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_usint*/
+ break;
+
+/****
+ *LWORD_TO_UINT
+ */
+ case function_lword_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_uint*/
+ break;
+
+/****
+ *LWORD_TO_UDINT
+ */
+ case function_lword_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_udint*/
+ break;
+
+/****
+ *LWORD_TO_ULINT
+ */
+ case function_lword_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_ulint*/
+ break;
+
+/****
+ *LWORD_TO_REAL
+ */
+ case function_lword_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_real*/
+ break;
+
+/****
+ *LWORD_TO_LREAL
+ */
+ case function_lword_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_lreal*/
+ break;
+
+/****
+ *LWORD_TO_TIME
+ */
+ case function_lword_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_time*/
+ break;
+
+/****
+ *LWORD_TO_DATE
+ */
+ case function_lword_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_date*/
+ break;
+
+/****
+ *LWORD_TO_TOD
+ */
+ case function_lword_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_tod*/
+ break;
+
+/****
+ *LWORD_TO_DT
+ */
+ case function_lword_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_dt*/
+ break;
+
+/****
+ *LWORD_TO_STRING
+ */
+ case function_lword_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_string*/
+ break;
+
+/****
+ *LWORD_TO_BYTE
+ */
+ case function_lword_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_byte*/
+ break;
+
+/****
+ *LWORD_TO_WORD
+ */
+ case function_lword_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_word*/
+ break;
+
+/****
+ *LWORD_TO_DWORD
+ */
+ case function_lword_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -20269,171 +23641,46 @@
ERROR;
}
- }/*function_time_to_dword*/
- break;
-
-/****
- *TIME_TO_LWORD
- */
- case function_time_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_lword*/
- break;
-
-/****
- *DATE_TO_BOOL
- */
- case function_date_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_bool*/
- break;
-
-/****
- *DATE_TO_SINT
- */
- case function_date_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_sint*/
- break;
-
-/****
- *DATE_TO_INT
- */
- case function_date_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_int*/
- break;
-
-/****
- *DATE_TO_DINT
- */
- case function_date_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_dint*/
- break;
-
-/****
- *DATE_TO_LINT
- */
- case function_date_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_lint*/
- break;
-
-/****
- *DATE_TO_USINT
- */
- case function_date_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ }/*function_lword_to_dword*/
+ break;
+
+/****
+ *TRUNC
+ */
+ case function_trunc :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_real_type(IN_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_trunc*/
+ break;
+
+/****
+ *BCD_TO_USINT
+ */
+ case function_bcd_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -20444,21 +23691,21 @@
ERROR;
}
- }/*function_date_to_usint*/
- break;
-
-/****
- *DATE_TO_UINT
- */
- case function_date_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ }/*function_bcd_to_usint*/
+ break;
+
+/****
+ *BCD_TO_UINT
+ */
+ case function_bcd_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -20469,21 +23716,21 @@
ERROR;
}
- }/*function_date_to_uint*/
- break;
-
-/****
- *DATE_TO_UDINT
- */
- case function_date_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ }/*function_bcd_to_uint*/
+ break;
+
+/****
+ *BCD_TO_UDINT
+ */
+ case function_bcd_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -20494,21 +23741,21 @@
ERROR;
}
- }/*function_date_to_udint*/
- break;
-
-/****
- *DATE_TO_ULINT
- */
- case function_date_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ }/*function_bcd_to_udint*/
+ break;
+
+/****
+ *BCD_TO_ULINT
+ */
+ case function_bcd_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -20519,1321 +23766,121 @@
ERROR;
}
- }/*function_date_to_ulint*/
- break;
-
-/****
- *DATE_TO_REAL
- */
- case function_date_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_real*/
- break;
-
-/****
- *DATE_TO_LREAL
- */
- case function_date_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_lreal*/
- break;
-
-/****
- *DATE_TO_STRING
- */
- case function_date_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_string*/
- break;
-
-/****
- *DATE_TO_BYTE
- */
- case function_date_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_byte*/
- break;
-
-/****
- *DATE_TO_WORD
- */
- case function_date_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_word*/
- break;
-
-/****
- *DATE_TO_DWORD
- */
- case function_date_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_dword*/
- break;
-
-/****
- *DATE_TO_LWORD
- */
- case function_date_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_lword*/
- break;
-
-/****
- *TOD_TO_BOOL
- */
- case function_tod_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_bool*/
- break;
-
-/****
- *TOD_TO_SINT
- */
- case function_tod_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_sint*/
- break;
-
-/****
- *TOD_TO_INT
- */
- case function_tod_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_int*/
- break;
-
-/****
- *TOD_TO_DINT
- */
- case function_tod_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_dint*/
- break;
-
-/****
- *TOD_TO_LINT
- */
- case function_tod_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_lint*/
- break;
-
-/****
- *TOD_TO_USINT
- */
- case function_tod_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_usint*/
- break;
-
-/****
- *TOD_TO_UINT
- */
- case function_tod_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_uint*/
- break;
-
-/****
- *TOD_TO_UDINT
- */
- case function_tod_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_udint*/
- break;
-
-/****
- *TOD_TO_ULINT
- */
- case function_tod_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_ulint*/
- break;
-
-/****
- *TOD_TO_REAL
- */
- case function_tod_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_real*/
- break;
-
-/****
- *TOD_TO_LREAL
- */
- case function_tod_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_lreal*/
- break;
-
-/****
- *TOD_TO_STRING
- */
- case function_tod_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_string*/
- break;
-
-/****
- *TOD_TO_BYTE
- */
- case function_tod_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_byte*/
- break;
-
-/****
- *TOD_TO_WORD
- */
- case function_tod_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_word*/
- break;
-
-/****
- *TOD_TO_DWORD
- */
- case function_tod_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_dword*/
- break;
-
-/****
- *TOD_TO_LWORD
- */
- case function_tod_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_lword*/
- break;
-
-/****
- *DT_TO_BOOL
- */
- case function_dt_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_bool*/
- break;
-
-/****
- *DT_TO_SINT
- */
- case function_dt_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_sint*/
- break;
-
-/****
- *DT_TO_INT
- */
- case function_dt_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_int*/
- break;
-
-/****
- *DT_TO_DINT
- */
- case function_dt_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_dint*/
- break;
-
-/****
- *DT_TO_LINT
- */
- case function_dt_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_lint*/
- break;
-
-/****
- *DT_TO_USINT
- */
- case function_dt_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_usint*/
- break;
-
-/****
- *DT_TO_UINT
- */
- case function_dt_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_uint*/
- break;
-
-/****
- *DT_TO_UDINT
- */
- case function_dt_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_udint*/
- break;
-
-/****
- *DT_TO_ULINT
- */
- case function_dt_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_ulint*/
- break;
-
-/****
- *DT_TO_REAL
- */
- case function_dt_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_real*/
- break;
-
-/****
- *DT_TO_LREAL
- */
- case function_dt_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_lreal*/
- break;
-
-/****
- *DT_TO_STRING
- */
- case function_dt_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_string*/
- break;
-
-/****
- *DT_TO_BYTE
- */
- case function_dt_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_byte*/
- break;
-
-/****
- *DT_TO_WORD
- */
- case function_dt_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_word*/
- break;
-
-/****
- *DT_TO_DWORD
- */
- case function_dt_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_dword*/
- break;
-
-/****
- *DT_TO_LWORD
- */
- case function_dt_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_lword*/
- break;
-
-/****
- *STRING_TO_BOOL
- */
- case function_string_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_bool*/
- break;
-
-/****
- *STRING_TO_SINT
- */
- case function_string_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_sint*/
- break;
-
-/****
- *STRING_TO_INT
- */
- case function_string_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_int*/
- break;
-
-/****
- *STRING_TO_DINT
- */
- case function_string_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_dint*/
- break;
-
-/****
- *STRING_TO_LINT
- */
- case function_string_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_lint*/
- break;
-
-/****
- *STRING_TO_USINT
- */
- case function_string_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_usint*/
- break;
-
-/****
- *STRING_TO_UINT
- */
- case function_string_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_uint*/
- break;
-
-/****
- *STRING_TO_UDINT
- */
- case function_string_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_udint*/
- break;
-
-/****
- *STRING_TO_ULINT
- */
- case function_string_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_ulint*/
- break;
-
-/****
- *STRING_TO_REAL
- */
- case function_string_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_real*/
- break;
-
-/****
- *STRING_TO_LREAL
- */
- case function_string_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_lreal*/
- break;
-
-/****
- *STRING_TO_TIME
- */
- case function_string_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_time*/
- break;
-
-/****
- *STRING_TO_DATE
- */
- case function_string_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_date*/
- break;
-
-/****
- *STRING_TO_TOD
- */
- case function_string_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ }/*function_bcd_to_ulint*/
+ break;
+
+/****
+ *USINT_TO_BCD
+ */
+ case function_usint_to_bcd :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(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;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_usint_to_bcd*/
+ break;
+
+/****
+ *UINT_TO_BCD
+ */
+ case function_uint_to_bcd :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(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;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_uint_to_bcd*/
+ break;
+
+/****
+ *UDINT_TO_BCD
+ */
+ case function_udint_to_bcd :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(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;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_udint_to_bcd*/
+ break;
+
+/****
+ *ULINT_TO_BCD
+ */
+ case function_ulint_to_bcd :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(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;
+ return return_type_symbol;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_ulint_to_bcd*/
+ break;
+
+/****
+ *DATE_AND_TIME_TO_TIME_OF_DAY
+ */
+ case function_date_and_time_to_time_of_day :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ symbol_c *IN_type_symbol = param_data_type;
+ last_type_symbol = param_data_type;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -21844,2281 +23891,6 @@
ERROR;
}
- }/*function_string_to_tod*/
- break;
-
-/****
- *STRING_TO_DT
- */
- case function_string_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_dt*/
- break;
-
-/****
- *STRING_TO_BYTE
- */
- case function_string_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_byte*/
- break;
-
-/****
- *STRING_TO_WORD
- */
- case function_string_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_word*/
- break;
-
-/****
- *STRING_TO_DWORD
- */
- case function_string_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_dword*/
- break;
-
-/****
- *STRING_TO_LWORD
- */
- case function_string_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_lword*/
- break;
-
-/****
- *BYTE_TO_BOOL
- */
- case function_byte_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_bool*/
- break;
-
-/****
- *BYTE_TO_SINT
- */
- case function_byte_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_sint*/
- break;
-
-/****
- *BYTE_TO_INT
- */
- case function_byte_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_int*/
- break;
-
-/****
- *BYTE_TO_DINT
- */
- case function_byte_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_dint*/
- break;
-
-/****
- *BYTE_TO_LINT
- */
- case function_byte_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_lint*/
- break;
-
-/****
- *BYTE_TO_USINT
- */
- case function_byte_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_usint*/
- break;
-
-/****
- *BYTE_TO_UINT
- */
- case function_byte_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_uint*/
- break;
-
-/****
- *BYTE_TO_UDINT
- */
- case function_byte_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_udint*/
- break;
-
-/****
- *BYTE_TO_ULINT
- */
- case function_byte_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_ulint*/
- break;
-
-/****
- *BYTE_TO_REAL
- */
- case function_byte_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_real*/
- break;
-
-/****
- *BYTE_TO_LREAL
- */
- case function_byte_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_lreal*/
- break;
-
-/****
- *BYTE_TO_TIME
- */
- case function_byte_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_time*/
- break;
-
-/****
- *BYTE_TO_DATE
- */
- case function_byte_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_date*/
- break;
-
-/****
- *BYTE_TO_TOD
- */
- case function_byte_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_tod*/
- break;
-
-/****
- *BYTE_TO_DT
- */
- case function_byte_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_dt*/
- break;
-
-/****
- *BYTE_TO_STRING
- */
- case function_byte_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_string*/
- break;
-
-/****
- *BYTE_TO_WORD
- */
- case function_byte_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_word*/
- break;
-
-/****
- *BYTE_TO_DWORD
- */
- case function_byte_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_dword*/
- break;
-
-/****
- *BYTE_TO_LWORD
- */
- case function_byte_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_lword*/
- break;
-
-/****
- *WORD_TO_BOOL
- */
- case function_word_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_bool*/
- break;
-
-/****
- *WORD_TO_SINT
- */
- case function_word_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_sint*/
- break;
-
-/****
- *WORD_TO_INT
- */
- case function_word_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_int*/
- break;
-
-/****
- *WORD_TO_DINT
- */
- case function_word_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_dint*/
- break;
-
-/****
- *WORD_TO_LINT
- */
- case function_word_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_lint*/
- break;
-
-/****
- *WORD_TO_USINT
- */
- case function_word_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_usint*/
- break;
-
-/****
- *WORD_TO_UINT
- */
- case function_word_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_uint*/
- break;
-
-/****
- *WORD_TO_UDINT
- */
- case function_word_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_udint*/
- break;
-
-/****
- *WORD_TO_ULINT
- */
- case function_word_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_ulint*/
- break;
-
-/****
- *WORD_TO_REAL
- */
- case function_word_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_real*/
- break;
-
-/****
- *WORD_TO_LREAL
- */
- case function_word_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_lreal*/
- break;
-
-/****
- *WORD_TO_TIME
- */
- case function_word_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_time*/
- break;
-
-/****
- *WORD_TO_DATE
- */
- case function_word_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_date*/
- break;
-
-/****
- *WORD_TO_TOD
- */
- case function_word_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_tod*/
- break;
-
-/****
- *WORD_TO_DT
- */
- case function_word_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_dt*/
- break;
-
-/****
- *WORD_TO_STRING
- */
- case function_word_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_string*/
- break;
-
-/****
- *WORD_TO_BYTE
- */
- case function_word_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_byte*/
- break;
-
-/****
- *WORD_TO_DWORD
- */
- case function_word_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_dword*/
- break;
-
-/****
- *WORD_TO_LWORD
- */
- case function_word_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_lword*/
- break;
-
-/****
- *DWORD_TO_BOOL
- */
- case function_dword_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_bool*/
- break;
-
-/****
- *DWORD_TO_SINT
- */
- case function_dword_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_sint*/
- break;
-
-/****
- *DWORD_TO_INT
- */
- case function_dword_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_int*/
- break;
-
-/****
- *DWORD_TO_DINT
- */
- case function_dword_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_dint*/
- break;
-
-/****
- *DWORD_TO_LINT
- */
- case function_dword_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_lint*/
- break;
-
-/****
- *DWORD_TO_USINT
- */
- case function_dword_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_usint*/
- break;
-
-/****
- *DWORD_TO_UINT
- */
- case function_dword_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_uint*/
- break;
-
-/****
- *DWORD_TO_UDINT
- */
- case function_dword_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_udint*/
- break;
-
-/****
- *DWORD_TO_ULINT
- */
- case function_dword_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_ulint*/
- break;
-
-/****
- *DWORD_TO_REAL
- */
- case function_dword_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_real*/
- break;
-
-/****
- *DWORD_TO_LREAL
- */
- case function_dword_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_lreal*/
- break;
-
-/****
- *DWORD_TO_TIME
- */
- case function_dword_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_time*/
- break;
-
-/****
- *DWORD_TO_DATE
- */
- case function_dword_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_date*/
- break;
-
-/****
- *DWORD_TO_TOD
- */
- case function_dword_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_tod*/
- break;
-
-/****
- *DWORD_TO_DT
- */
- case function_dword_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_dt*/
- break;
-
-/****
- *DWORD_TO_STRING
- */
- case function_dword_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_string*/
- break;
-
-/****
- *DWORD_TO_BYTE
- */
- case function_dword_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_byte*/
- break;
-
-/****
- *DWORD_TO_WORD
- */
- case function_dword_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_word*/
- break;
-
-/****
- *DWORD_TO_LWORD
- */
- case function_dword_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_lword*/
- break;
-
-/****
- *LWORD_TO_BOOL
- */
- case function_lword_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_bool*/
- break;
-
-/****
- *LWORD_TO_SINT
- */
- case function_lword_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_sint*/
- break;
-
-/****
- *LWORD_TO_INT
- */
- case function_lword_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_int*/
- break;
-
-/****
- *LWORD_TO_DINT
- */
- case function_lword_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_dint*/
- break;
-
-/****
- *LWORD_TO_LINT
- */
- case function_lword_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_lint*/
- break;
-
-/****
- *LWORD_TO_USINT
- */
- case function_lword_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_usint*/
- break;
-
-/****
- *LWORD_TO_UINT
- */
- case function_lword_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_uint*/
- break;
-
-/****
- *LWORD_TO_UDINT
- */
- case function_lword_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_udint*/
- break;
-
-/****
- *LWORD_TO_ULINT
- */
- case function_lword_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_ulint*/
- break;
-
-/****
- *LWORD_TO_REAL
- */
- case function_lword_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_real*/
- break;
-
-/****
- *LWORD_TO_LREAL
- */
- case function_lword_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_lreal*/
- break;
-
-/****
- *LWORD_TO_TIME
- */
- case function_lword_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_time*/
- break;
-
-/****
- *LWORD_TO_DATE
- */
- case function_lword_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_date*/
- break;
-
-/****
- *LWORD_TO_TOD
- */
- case function_lword_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_tod*/
- break;
-
-/****
- *LWORD_TO_DT
- */
- case function_lword_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_dt*/
- break;
-
-/****
- *LWORD_TO_STRING
- */
- case function_lword_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_string*/
- break;
-
-/****
- *LWORD_TO_BYTE
- */
- case function_lword_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_byte*/
- break;
-
-/****
- *LWORD_TO_WORD
- */
- case function_lword_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_word*/
- break;
-
-/****
- *LWORD_TO_DWORD
- */
- case function_lword_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_dword*/
- break;
-
-/****
- *TRUNC
- */
- case function_trunc :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if(search_expression_type->is_real_type(IN_type_symbol))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_trunc*/
- break;
-
-/****
- *BCD_TO_USINT
- */
- case function_bcd_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_bcd_to_usint*/
- break;
-
-/****
- *BCD_TO_UINT
- */
- case function_bcd_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_bcd_to_uint*/
- break;
-
-/****
- *BCD_TO_UDINT
- */
- case function_bcd_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_bcd_to_udint*/
- break;
-
-/****
- *BCD_TO_ULINT
- */
- case function_bcd_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_bcd_to_ulint*/
- break;
-
-/****
- *USINT_TO_BCD
- */
- case function_usint_to_bcd :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_usint_to_bcd*/
- break;
-
-/****
- *UINT_TO_BCD
- */
- case function_uint_to_bcd :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_uint_to_bcd*/
- break;
-
-/****
- *UDINT_TO_BCD
- */
- case function_udint_to_bcd :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_udint_to_bcd*/
- break;
-
-/****
- *ULINT_TO_BCD
- */
- case function_ulint_to_bcd :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
- }/*function_ulint_to_bcd*/
- break;
-
-/****
- *DATE_AND_TIME_TO_TIME_OF_DAY
- */
- case function_date_and_time_to_time_of_day :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- symbol_c *IN_type_symbol = param_data_type;
- last_type_symbol = param_data_type;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- return return_type_symbol;
-
- }
-
- ERROR;
- }
-
}/*function_date_and_time_to_time_of_day*/
break;
@@ -24133,7 +23905,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -24460,7 +24232,7 @@
}
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
{
@@ -24474,7 +24246,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -24487,7 +24259,7 @@
}
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
{
@@ -24501,7 +24273,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -24514,7 +24286,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -24528,7 +24300,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -24585,7 +24357,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -24656,7 +24428,7 @@
}
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
{
{
@@ -24670,7 +24442,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -24683,7 +24455,7 @@
}
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
{
@@ -24697,7 +24469,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -24705,7 +24477,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -24718,7 +24490,7 @@
}
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
{
@@ -24732,7 +24504,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -24740,7 +24512,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -24753,7 +24525,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -24767,7 +24539,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -24824,7 +24596,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -25314,7 +25086,7 @@
symbol_c *G_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
{
@@ -25855,7 +25627,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -25880,7 +25652,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -25924,7 +25696,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -25968,7 +25740,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -26031,7 +25803,7 @@
symbol_c *IN1_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
{
{
@@ -26045,7 +25817,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -26058,7 +25830,7 @@
}
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -26072,7 +25844,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -26102,7 +25874,7 @@
symbol_c *IN1_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -26116,7 +25888,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -26165,7 +25937,7 @@
symbol_c *IN_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -26228,7 +26000,7 @@
symbol_c *IN1_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -26242,7 +26014,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -26310,7 +26082,7 @@
symbol_c *IN1_type_symbol = param_data_type;
last_type_symbol = param_data_type;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -26324,7 +26096,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
--- a/stage4/generate_cc/st_code_gen.c Fri Jul 13 19:20:26 2007 +0200
+++ b/stage4/generate_cc/st_code_gen.c Tue Jul 17 12:19:59 2007 +0200
@@ -23,7 +23,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -59,7 +59,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -95,7 +95,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -131,7 +131,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -167,7 +167,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -203,7 +203,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -239,7 +239,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -275,7 +275,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -311,7 +311,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -347,7 +347,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -383,7 +383,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -420,7 +420,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -457,7 +457,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -494,7 +494,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -531,7 +531,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -568,7 +568,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -604,7 +604,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -640,7 +640,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -676,7 +676,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -712,7 +712,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -748,7 +748,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -784,7 +784,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -820,7 +820,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -856,7 +856,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -892,7 +892,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -928,7 +928,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -964,7 +964,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -1000,7 +1000,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -1036,7 +1036,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -1072,7 +1072,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -1109,7 +1109,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -1146,7 +1146,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -1183,7 +1183,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -1220,7 +1220,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -1257,7 +1257,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -1293,7 +1293,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -1329,7 +1329,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -1365,7 +1365,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -1401,7 +1401,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -1437,7 +1437,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -1473,7 +1473,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -1509,7 +1509,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -1545,7 +1545,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -1581,7 +1581,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -1617,7 +1617,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -1653,7 +1653,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -1689,7 +1689,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -1725,7 +1725,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -1761,7 +1761,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -1798,7 +1798,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -1835,7 +1835,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -1872,7 +1872,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -1909,7 +1909,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -1946,7 +1946,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -1982,7 +1982,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -2018,7 +2018,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -2054,7 +2054,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -2090,7 +2090,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -2126,7 +2126,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -2162,7 +2162,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -2198,7 +2198,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -2234,7 +2234,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -2270,7 +2270,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -2306,7 +2306,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -2342,7 +2342,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -2378,7 +2378,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -2414,7 +2414,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -2450,7 +2450,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -2487,7 +2487,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -2524,7 +2524,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -2561,7 +2561,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -2598,7 +2598,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -2635,7 +2635,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -2671,7 +2671,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -2707,7 +2707,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -2743,7 +2743,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -2779,7 +2779,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -2815,7 +2815,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -2851,7 +2851,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -2887,7 +2887,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -2923,7 +2923,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -2959,7 +2959,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -2995,7 +2995,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -3031,7 +3031,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -3067,7 +3067,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -3103,7 +3103,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -3139,7 +3139,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -3176,7 +3176,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -3213,7 +3213,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -3250,7 +3250,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -3287,7 +3287,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -3324,7 +3324,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -3360,7 +3360,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -3396,7 +3396,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -3432,7 +3432,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -3468,7 +3468,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::bool_type_name;
@@ -3504,7 +3504,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::sint_type_name;
@@ -3540,7 +3540,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::int_type_name;
@@ -3576,7 +3576,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::dint_type_name;
@@ -3612,7 +3612,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::lint_type_name;
@@ -3648,7 +3648,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::uint_type_name;
@@ -3684,7 +3684,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::udint_type_name;
@@ -3720,7 +3720,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::ulint_type_name;
@@ -3756,7 +3756,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::real_type_name;
@@ -3792,7 +3792,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::lreal_type_name;
@@ -3828,7 +3828,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::time_type_name;
@@ -3865,7 +3865,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::date_type_name;
@@ -3902,7 +3902,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::tod_type_name;
@@ -3939,7 +3939,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::dt_type_name;
@@ -3976,7 +3976,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::string_type_name;
@@ -4013,7 +4013,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::byte_type_name;
@@ -4049,7 +4049,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::word_type_name;
@@ -4085,7 +4085,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::dword_type_name;
@@ -4121,7 +4121,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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::lword_type_name;
@@ -4157,7 +4157,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::bool_type_name;
@@ -4193,7 +4193,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::sint_type_name;
@@ -4229,7 +4229,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::int_type_name;
@@ -4265,7 +4265,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::dint_type_name;
@@ -4301,7 +4301,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::lint_type_name;
@@ -4337,7 +4337,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::usint_type_name;
@@ -4373,7 +4373,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::udint_type_name;
@@ -4409,7 +4409,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::ulint_type_name;
@@ -4445,7 +4445,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::real_type_name;
@@ -4481,7 +4481,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::lreal_type_name;
@@ -4517,7 +4517,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::time_type_name;
@@ -4554,7 +4554,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::date_type_name;
@@ -4591,7 +4591,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::tod_type_name;
@@ -4628,7 +4628,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::dt_type_name;
@@ -4665,7 +4665,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::string_type_name;
@@ -4702,7 +4702,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::byte_type_name;
@@ -4738,7 +4738,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::word_type_name;
@@ -4774,7 +4774,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::dword_type_name;
@@ -4810,7 +4810,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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::lword_type_name;
@@ -4846,7 +4846,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::bool_type_name;
@@ -4882,7 +4882,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::sint_type_name;
@@ -4918,7 +4918,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::int_type_name;
@@ -4954,7 +4954,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::dint_type_name;
@@ -4990,7 +4990,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::lint_type_name;
@@ -5026,7 +5026,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::usint_type_name;
@@ -5062,7 +5062,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::uint_type_name;
@@ -5098,7 +5098,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::ulint_type_name;
@@ -5134,7 +5134,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::real_type_name;
@@ -5170,7 +5170,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::lreal_type_name;
@@ -5206,7 +5206,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::time_type_name;
@@ -5243,7 +5243,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::date_type_name;
@@ -5280,7 +5280,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::tod_type_name;
@@ -5317,7 +5317,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::dt_type_name;
@@ -5354,7 +5354,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::string_type_name;
@@ -5391,7 +5391,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::byte_type_name;
@@ -5427,7 +5427,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::word_type_name;
@@ -5463,7 +5463,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::dword_type_name;
@@ -5499,7 +5499,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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::lword_type_name;
@@ -5535,7 +5535,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::bool_type_name;
@@ -5571,7 +5571,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::sint_type_name;
@@ -5607,7 +5607,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::int_type_name;
@@ -5643,7 +5643,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::dint_type_name;
@@ -5679,7 +5679,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::lint_type_name;
@@ -5715,7 +5715,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::usint_type_name;
@@ -5751,7 +5751,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::uint_type_name;
@@ -5787,7 +5787,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::udint_type_name;
@@ -5823,7 +5823,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::real_type_name;
@@ -5859,7 +5859,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::lreal_type_name;
@@ -5895,7 +5895,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::time_type_name;
@@ -5932,7 +5932,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::date_type_name;
@@ -5969,7 +5969,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::tod_type_name;
@@ -6006,7 +6006,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::dt_type_name;
@@ -6043,7 +6043,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::string_type_name;
@@ -6080,7 +6080,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::byte_type_name;
@@ -6116,7 +6116,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::word_type_name;
@@ -6152,7 +6152,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::dword_type_name;
@@ -6188,7 +6188,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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::lword_type_name;
@@ -6224,7 +6224,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -6260,7 +6260,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -6296,7 +6296,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -6332,7 +6332,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -6368,7 +6368,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -6404,7 +6404,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -6440,7 +6440,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -6476,7 +6476,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -6512,7 +6512,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -6548,7 +6548,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
@@ -6584,7 +6584,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -6621,7 +6621,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -6658,7 +6658,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -6695,7 +6695,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -6732,7 +6732,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -6769,7 +6769,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -6805,7 +6805,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -6841,7 +6841,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -6877,7 +6877,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -6913,7 +6913,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
@@ -6949,7 +6949,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
@@ -6985,7 +6985,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -7021,7 +7021,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
@@ -7057,7 +7057,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
@@ -7093,7 +7093,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -7129,7 +7129,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -7165,7 +7165,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -7201,7 +7201,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -7237,7 +7237,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
@@ -7273,7 +7273,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -7310,7 +7310,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -7347,7 +7347,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -7384,7 +7384,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -7421,7 +7421,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
@@ -7458,7 +7458,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
@@ -7494,7 +7494,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
@@ -7530,7 +7530,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -7566,7 +7566,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
@@ -7585,5784 +7585,5636 @@
break;
/****
- *TIME_TO_BOOL
- */
- case function_time_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ *TIME_TO_SINT
+ */
+ case function_time_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_sint*/
+ break;
+
+/****
+ *TIME_TO_INT
+ */
+ case function_time_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_int*/
+ break;
+
+/****
+ *TIME_TO_DINT
+ */
+ case function_time_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_dint*/
+ break;
+
+/****
+ *TIME_TO_LINT
+ */
+ case function_time_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_lint*/
+ break;
+
+/****
+ *TIME_TO_USINT
+ */
+ case function_time_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_usint*/
+ break;
+
+/****
+ *TIME_TO_UINT
+ */
+ case function_time_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_uint*/
+ break;
+
+/****
+ *TIME_TO_UDINT
+ */
+ case function_time_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_udint*/
+ break;
+
+/****
+ *TIME_TO_ULINT
+ */
+ case function_time_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_ulint*/
+ break;
+
+/****
+ *TIME_TO_REAL
+ */
+ case function_time_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_real*/
+ break;
+
+/****
+ *TIME_TO_LREAL
+ */
+ case function_time_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_lreal*/
+ break;
+
+/****
+ *TIME_TO_STRING
+ */
+ case function_time_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_string*/
+ break;
+
+/****
+ *TIME_TO_BYTE
+ */
+ case function_time_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_byte*/
+ break;
+
+/****
+ *TIME_TO_WORD
+ */
+ case function_time_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_word*/
+ break;
+
+/****
+ *TIME_TO_DWORD
+ */
+ case function_time_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_dword*/
+ break;
+
+/****
+ *TIME_TO_LWORD
+ */
+ case function_time_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_time_to_lword*/
+ break;
+
+/****
+ *DATE_TO_SINT
+ */
+ case function_date_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_sint*/
+ break;
+
+/****
+ *DATE_TO_INT
+ */
+ case function_date_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_int*/
+ break;
+
+/****
+ *DATE_TO_DINT
+ */
+ case function_date_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_dint*/
+ break;
+
+/****
+ *DATE_TO_LINT
+ */
+ case function_date_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_lint*/
+ break;
+
+/****
+ *DATE_TO_USINT
+ */
+ case function_date_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_usint*/
+ break;
+
+/****
+ *DATE_TO_UINT
+ */
+ case function_date_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_uint*/
+ break;
+
+/****
+ *DATE_TO_UDINT
+ */
+ case function_date_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_udint*/
+ break;
+
+/****
+ *DATE_TO_ULINT
+ */
+ case function_date_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_ulint*/
+ break;
+
+/****
+ *DATE_TO_REAL
+ */
+ case function_date_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_real*/
+ break;
+
+/****
+ *DATE_TO_LREAL
+ */
+ case function_date_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_lreal*/
+ break;
+
+/****
+ *DATE_TO_STRING
+ */
+ case function_date_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__date_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_string*/
+ break;
+
+/****
+ *DATE_TO_BYTE
+ */
+ case function_date_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_byte*/
+ break;
+
+/****
+ *DATE_TO_WORD
+ */
+ case function_date_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_word*/
+ break;
+
+/****
+ *DATE_TO_DWORD
+ */
+ case function_date_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_dword*/
+ break;
+
+/****
+ *DATE_TO_LWORD
+ */
+ case function_date_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_date_to_lword*/
+ break;
+
+/****
+ *TOD_TO_SINT
+ */
+ case function_tod_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_sint*/
+ break;
+
+/****
+ *TOD_TO_INT
+ */
+ case function_tod_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_int*/
+ break;
+
+/****
+ *TOD_TO_DINT
+ */
+ case function_tod_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_dint*/
+ break;
+
+/****
+ *TOD_TO_LINT
+ */
+ case function_tod_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_lint*/
+ break;
+
+/****
+ *TOD_TO_USINT
+ */
+ case function_tod_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_usint*/
+ break;
+
+/****
+ *TOD_TO_UINT
+ */
+ case function_tod_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_uint*/
+ break;
+
+/****
+ *TOD_TO_UDINT
+ */
+ case function_tod_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_udint*/
+ break;
+
+/****
+ *TOD_TO_ULINT
+ */
+ case function_tod_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_ulint*/
+ break;
+
+/****
+ *TOD_TO_REAL
+ */
+ case function_tod_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_real*/
+ break;
+
+/****
+ *TOD_TO_LREAL
+ */
+ case function_tod_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_lreal*/
+ break;
+
+/****
+ *TOD_TO_STRING
+ */
+ case function_tod_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__tod_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_string*/
+ break;
+
+/****
+ *TOD_TO_BYTE
+ */
+ case function_tod_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_byte*/
+ break;
+
+/****
+ *TOD_TO_WORD
+ */
+ case function_tod_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_word*/
+ break;
+
+/****
+ *TOD_TO_DWORD
+ */
+ case function_tod_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_dword*/
+ break;
+
+/****
+ *TOD_TO_LWORD
+ */
+ case function_tod_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_tod_to_lword*/
+ break;
+
+/****
+ *DT_TO_SINT
+ */
+ case function_dt_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_sint*/
+ break;
+
+/****
+ *DT_TO_INT
+ */
+ case function_dt_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_int*/
+ break;
+
+/****
+ *DT_TO_DINT
+ */
+ case function_dt_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_dint*/
+ break;
+
+/****
+ *DT_TO_LINT
+ */
+ case function_dt_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_lint*/
+ break;
+
+/****
+ *DT_TO_USINT
+ */
+ case function_dt_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_usint*/
+ break;
+
+/****
+ *DT_TO_UINT
+ */
+ case function_dt_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_uint*/
+ break;
+
+/****
+ *DT_TO_UDINT
+ */
+ case function_dt_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_udint*/
+ break;
+
+/****
+ *DT_TO_ULINT
+ */
+ case function_dt_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_ulint*/
+ break;
+
+/****
+ *DT_TO_REAL
+ */
+ case function_dt_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_real*/
+ break;
+
+/****
+ *DT_TO_LREAL
+ */
+ case function_dt_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_lreal*/
+ break;
+
+/****
+ *DT_TO_STRING
+ */
+ case function_dt_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__dt_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_string*/
+ break;
+
+/****
+ *DT_TO_BYTE
+ */
+ case function_dt_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_byte*/
+ break;
+
+/****
+ *DT_TO_WORD
+ */
+ case function_dt_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_word*/
+ break;
+
+/****
+ *DT_TO_DWORD
+ */
+ case function_dt_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_dword*/
+ break;
+
+/****
+ *DT_TO_LWORD
+ */
+ case function_dt_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__time_to_int(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dt_to_lword*/
+ break;
+
+/****
+ *STRING_TO_BOOL
+ */
+ case function_string_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_bool*/
- break;
-
-/****
- *TIME_TO_SINT
- */
- case function_time_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_bool(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_bool*/
+ break;
+
+/****
+ *STRING_TO_SINT
+ */
+ case function_string_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_sint*/
- break;
-
-/****
- *TIME_TO_INT
- */
- case function_time_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_sint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_sint*/
+ break;
+
+/****
+ *STRING_TO_INT
+ */
+ case function_string_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_int*/
- break;
-
-/****
- *TIME_TO_DINT
- */
- case function_time_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_sint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_int*/
+ break;
+
+/****
+ *STRING_TO_DINT
+ */
+ case function_string_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_dint*/
- break;
-
-/****
- *TIME_TO_LINT
- */
- case function_time_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_sint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_dint*/
+ break;
+
+/****
+ *STRING_TO_LINT
+ */
+ case function_string_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_lint*/
- break;
-
-/****
- *TIME_TO_USINT
- */
- case function_time_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_sint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_lint*/
+ break;
+
+/****
+ *STRING_TO_USINT
+ */
+ case function_string_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_usint*/
- break;
-
-/****
- *TIME_TO_UINT
- */
- case function_time_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_uint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_usint*/
+ break;
+
+/****
+ *STRING_TO_UINT
+ */
+ case function_string_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_uint*/
- break;
-
-/****
- *TIME_TO_UDINT
- */
- case function_time_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_uint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_uint*/
+ break;
+
+/****
+ *STRING_TO_UDINT
+ */
+ case function_string_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_udint*/
- break;
-
-/****
- *TIME_TO_ULINT
- */
- case function_time_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_uint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_udint*/
+ break;
+
+/****
+ *STRING_TO_ULINT
+ */
+ case function_string_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_ulint*/
- break;
-
-/****
- *TIME_TO_REAL
- */
- case function_time_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_uint(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_ulint*/
+ break;
+
+/****
+ *STRING_TO_REAL
+ */
+ case function_string_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_real*/
- break;
-
-/****
- *TIME_TO_LREAL
- */
- case function_time_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_real*/
+ break;
+
+/****
+ *STRING_TO_LREAL
+ */
+ case function_string_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_lreal*/
- break;
-
-/****
- *TIME_TO_STRING
- */
- case function_time_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__string_to_real(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_lreal*/
+ break;
+
+/****
+ *STRING_TO_TIME
+ */
+ case function_string_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_time*/
+ break;
+
+/****
+ *STRING_TO_DATE
+ */
+ case function_string_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_date*/
+ break;
+
+/****
+ *STRING_TO_TOD
+ */
+ case function_string_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_tod*/
+ break;
+
+/****
+ *STRING_TO_DT
+ */
+ case function_string_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_dt*/
+ break;
+
+/****
+ *STRING_TO_BYTE
+ */
+ case function_string_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_bit(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_byte*/
+ break;
+
+/****
+ *STRING_TO_WORD
+ */
+ case function_string_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_bit(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_word*/
+ break;
+
+/****
+ *STRING_TO_DWORD
+ */
+ case function_string_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_bit(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_dword*/
+ break;
+
+/****
+ *STRING_TO_LWORD
+ */
+ case function_string_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__string_to_bit(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_string_to_lword*/
+ break;
+
+/****
+ *BYTE_TO_BOOL
+ */
+ case function_byte_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_bool*/
+ break;
+
+/****
+ *BYTE_TO_SINT
+ */
+ case function_byte_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_sint*/
+ break;
+
+/****
+ *BYTE_TO_INT
+ */
+ case function_byte_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_int*/
+ break;
+
+/****
+ *BYTE_TO_DINT
+ */
+ case function_byte_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_dint*/
+ break;
+
+/****
+ *BYTE_TO_LINT
+ */
+ case function_byte_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_lint*/
+ break;
+
+/****
+ *BYTE_TO_USINT
+ */
+ case function_byte_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_usint*/
+ break;
+
+/****
+ *BYTE_TO_UINT
+ */
+ case function_byte_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_uint*/
+ break;
+
+/****
+ *BYTE_TO_UDINT
+ */
+ case function_byte_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_udint*/
+ break;
+
+/****
+ *BYTE_TO_ULINT
+ */
+ case function_byte_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_ulint*/
+ break;
+
+/****
+ *BYTE_TO_REAL
+ */
+ case function_byte_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_real*/
+ break;
+
+/****
+ *BYTE_TO_LREAL
+ */
+ case function_byte_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_lreal*/
+ break;
+
+/****
+ *BYTE_TO_TIME
+ */
+ case function_byte_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_time*/
+ break;
+
+/****
+ *BYTE_TO_DATE
+ */
+ case function_byte_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_date*/
+ break;
+
+/****
+ *BYTE_TO_TOD
+ */
+ case function_byte_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_tod*/
+ break;
+
+/****
+ *BYTE_TO_DT
+ */
+ case function_byte_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_dt*/
+ break;
+
+/****
+ *BYTE_TO_STRING
+ */
+ case function_byte_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_string*/
- break;
-
-/****
- *TIME_TO_BYTE
- */
- case function_time_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")__bit_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_string*/
+ break;
+
+/****
+ *BYTE_TO_WORD
+ */
+ case function_byte_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_word*/
+ break;
+
+/****
+ *BYTE_TO_DWORD
+ */
+ case function_byte_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_dword*/
+ break;
+
+/****
+ *BYTE_TO_LWORD
+ */
+ case function_byte_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_byte_to_lword*/
+ break;
+
+/****
+ *WORD_TO_BOOL
+ */
+ case function_word_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_bool*/
+ break;
+
+/****
+ *WORD_TO_SINT
+ */
+ case function_word_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_sint*/
+ break;
+
+/****
+ *WORD_TO_INT
+ */
+ case function_word_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_int*/
+ break;
+
+/****
+ *WORD_TO_DINT
+ */
+ case function_word_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_dint*/
+ break;
+
+/****
+ *WORD_TO_LINT
+ */
+ case function_word_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_lint*/
+ break;
+
+/****
+ *WORD_TO_USINT
+ */
+ case function_word_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_usint*/
+ break;
+
+/****
+ *WORD_TO_UINT
+ */
+ case function_word_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_uint*/
+ break;
+
+/****
+ *WORD_TO_UDINT
+ */
+ case function_word_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_udint*/
+ break;
+
+/****
+ *WORD_TO_ULINT
+ */
+ case function_word_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_ulint*/
+ break;
+
+/****
+ *WORD_TO_REAL
+ */
+ case function_word_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_real*/
+ break;
+
+/****
+ *WORD_TO_LREAL
+ */
+ case function_word_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_lreal*/
+ break;
+
+/****
+ *WORD_TO_TIME
+ */
+ case function_word_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_time*/
+ break;
+
+/****
+ *WORD_TO_DATE
+ */
+ case function_word_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_date*/
+ break;
+
+/****
+ *WORD_TO_TOD
+ */
+ case function_word_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_tod*/
+ break;
+
+/****
+ *WORD_TO_DT
+ */
+ case function_word_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_dt*/
+ break;
+
+/****
+ *WORD_TO_STRING
+ */
+ case function_word_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__bit_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_string*/
+ break;
+
+/****
+ *WORD_TO_BYTE
+ */
+ case function_word_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_byte*/
- break;
-
-/****
- *TIME_TO_WORD
- */
- case function_time_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_byte*/
+ break;
+
+/****
+ *WORD_TO_DWORD
+ */
+ case function_word_to_dword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_dword*/
+ break;
+
+/****
+ *WORD_TO_LWORD
+ */
+ case function_word_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_word_to_lword*/
+ break;
+
+/****
+ *DWORD_TO_BOOL
+ */
+ case function_dword_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_bool*/
+ break;
+
+/****
+ *DWORD_TO_SINT
+ */
+ case function_dword_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_sint*/
+ break;
+
+/****
+ *DWORD_TO_INT
+ */
+ case function_dword_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_int*/
+ break;
+
+/****
+ *DWORD_TO_DINT
+ */
+ case function_dword_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_dint*/
+ break;
+
+/****
+ *DWORD_TO_LINT
+ */
+ case function_dword_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_lint*/
+ break;
+
+/****
+ *DWORD_TO_USINT
+ */
+ case function_dword_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_usint*/
+ break;
+
+/****
+ *DWORD_TO_UINT
+ */
+ case function_dword_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_uint*/
+ break;
+
+/****
+ *DWORD_TO_UDINT
+ */
+ case function_dword_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_udint*/
+ break;
+
+/****
+ *DWORD_TO_ULINT
+ */
+ case function_dword_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_ulint*/
+ break;
+
+/****
+ *DWORD_TO_REAL
+ */
+ case function_dword_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_real*/
+ break;
+
+/****
+ *DWORD_TO_LREAL
+ */
+ case function_dword_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_lreal*/
+ break;
+
+/****
+ *DWORD_TO_TIME
+ */
+ case function_dword_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_time*/
+ break;
+
+/****
+ *DWORD_TO_DATE
+ */
+ case function_dword_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_date*/
+ break;
+
+/****
+ *DWORD_TO_TOD
+ */
+ case function_dword_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_tod*/
+ break;
+
+/****
+ *DWORD_TO_DT
+ */
+ case function_dword_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_dt*/
+ break;
+
+/****
+ *DWORD_TO_STRING
+ */
+ case function_dword_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__bit_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_string*/
+ break;
+
+/****
+ *DWORD_TO_BYTE
+ */
+ case function_dword_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_byte*/
+ break;
+
+/****
+ *DWORD_TO_WORD
+ */
+ case function_dword_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_word*/
- break;
-
-/****
- *TIME_TO_DWORD
- */
- case function_time_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_dword*/
- break;
-
-/****
- *TIME_TO_LWORD
- */
- case function_time_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_word*/
+ break;
+
+/****
+ *DWORD_TO_LWORD
+ */
+ case function_dword_to_lword :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_time_to_lword*/
- break;
-
-/****
- *DATE_TO_BOOL
- */
- case function_date_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_dword_to_lword*/
+ break;
+
+/****
+ *LWORD_TO_BOOL
+ */
+ case function_lword_to_bool :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_bool*/
- break;
-
-/****
- *DATE_TO_SINT
- */
- case function_date_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_bool*/
+ break;
+
+/****
+ *LWORD_TO_SINT
+ */
+ case function_lword_to_sint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_sint*/
- break;
-
-/****
- *DATE_TO_INT
- */
- case function_date_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_sint*/
+ break;
+
+/****
+ *LWORD_TO_INT
+ */
+ case function_lword_to_int :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_int*/
- break;
-
-/****
- *DATE_TO_DINT
- */
- case function_date_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_int*/
+ break;
+
+/****
+ *LWORD_TO_DINT
+ */
+ case function_lword_to_dint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_dint*/
- break;
-
-/****
- *DATE_TO_LINT
- */
- case function_date_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_dint*/
+ break;
+
+/****
+ *LWORD_TO_LINT
+ */
+ case function_lword_to_lint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_lint*/
- break;
-
-/****
- *DATE_TO_USINT
- */
- case function_date_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_lint*/
+ break;
+
+/****
+ *LWORD_TO_USINT
+ */
+ case function_lword_to_usint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_usint*/
- break;
-
-/****
- *DATE_TO_UINT
- */
- case function_date_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_usint*/
+ break;
+
+/****
+ *LWORD_TO_UINT
+ */
+ case function_lword_to_uint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_uint*/
- break;
-
-/****
- *DATE_TO_UDINT
- */
- case function_date_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_uint*/
+ break;
+
+/****
+ *LWORD_TO_UDINT
+ */
+ case function_lword_to_udint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_udint*/
- break;
-
-/****
- *DATE_TO_ULINT
- */
- case function_date_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_udint*/
+ break;
+
+/****
+ *LWORD_TO_ULINT
+ */
+ case function_lword_to_ulint :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_ulint*/
- break;
-
-/****
- *DATE_TO_REAL
- */
- case function_date_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_ulint*/
+ break;
+
+/****
+ *LWORD_TO_REAL
+ */
+ case function_lword_to_real :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_real*/
- break;
-
-/****
- *DATE_TO_LREAL
- */
- case function_date_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_real*/
+ break;
+
+/****
+ *LWORD_TO_LREAL
+ */
+ case function_lword_to_lreal :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_lreal*/
- break;
-
-/****
- *DATE_TO_STRING
- */
- case function_date_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_lreal*/
+ break;
+
+/****
+ *LWORD_TO_TIME
+ */
+ case function_lword_to_time :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_time*/
+ break;
+
+/****
+ *LWORD_TO_DATE
+ */
+ case function_lword_to_date :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_date*/
+ break;
+
+/****
+ *LWORD_TO_TOD
+ */
+ case function_lword_to_tod :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_tod*/
+ break;
+
+/****
+ *LWORD_TO_DT
+ */
+ case function_lword_to_dt :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
+ {
+
+ symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+ s4o.print("(");
+ return_type_symbol->accept(*this);
+ s4o.print(")__int_to_time(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_dt*/
+ break;
+
+/****
+ *LWORD_TO_STRING
+ */
+ case function_lword_to_string :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__date_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_string*/
- break;
-
-/****
- *DATE_TO_BYTE
- */
- case function_date_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")__bit_to_string(");
+ IN_param_value->accept(*this);
+ s4o.print(")");
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_string*/
+ break;
+
+/****
+ *LWORD_TO_BYTE
+ */
+ case function_lword_to_byte :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_byte*/
- break;
-
-/****
- *DATE_TO_WORD
- */
- case function_date_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ s4o.print(")");
+ IN_param_value->accept(*this);
+ return NULL;
+
+ }
+
+ ERROR;
+ }
+
+ }/*function_lword_to_byte*/
+ break;
+
+/****
+ *LWORD_TO_WORD
+ */
+ case function_lword_to_word :
+ {
+ symbol_c *last_type_symbol = NULL;
+
+ {
+ identifier_c param_name("IN");
+ /* Get the value from a foo(<param_name> = <param_value>) style call */
+ symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
+
+ /* Get the value from a foo(<param_value>) style call */
+ if (IN_param_value == NULL)
+ IN_param_value = function_call_param_iterator.next();
+ symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+ last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
s4o.print("(");
return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_word*/
- break;
-
-/****
- *DATE_TO_DWORD
- */
- case function_date_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_dword*/
- break;
-
-/****
- *DATE_TO_LWORD
- */
- case function_date_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_date_to_lword*/
- break;
-
-/****
- *TOD_TO_BOOL
- */
- case function_tod_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_bool*/
- break;
-
-/****
- *TOD_TO_SINT
- */
- case function_tod_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_sint*/
- break;
-
-/****
- *TOD_TO_INT
- */
- case function_tod_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_int*/
- break;
-
-/****
- *TOD_TO_DINT
- */
- case function_tod_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_dint*/
- break;
-
-/****
- *TOD_TO_LINT
- */
- case function_tod_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_lint*/
- break;
-
-/****
- *TOD_TO_USINT
- */
- case function_tod_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_usint*/
- break;
-
-/****
- *TOD_TO_UINT
- */
- case function_tod_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_uint*/
- break;
-
-/****
- *TOD_TO_UDINT
- */
- case function_tod_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_udint*/
- break;
-
-/****
- *TOD_TO_ULINT
- */
- case function_tod_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_ulint*/
- break;
-
-/****
- *TOD_TO_REAL
- */
- case function_tod_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_real*/
- break;
-
-/****
- *TOD_TO_LREAL
- */
- case function_tod_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_lreal*/
- break;
-
-/****
- *TOD_TO_STRING
- */
- case function_tod_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__tod_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_string*/
- break;
-
-/****
- *TOD_TO_BYTE
- */
- case function_tod_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_byte*/
- break;
-
-/****
- *TOD_TO_WORD
- */
- case function_tod_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_word*/
- break;
-
-/****
- *TOD_TO_DWORD
- */
- case function_tod_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_dword*/
- break;
-
-/****
- *TOD_TO_LWORD
- */
- case function_tod_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_tod_to_lword*/
- break;
-
-/****
- *DT_TO_BOOL
- */
- case function_dt_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_bool*/
- break;
-
-/****
- *DT_TO_SINT
- */
- case function_dt_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_sint*/
- break;
-
-/****
- *DT_TO_INT
- */
- case function_dt_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_int*/
- break;
-
-/****
- *DT_TO_DINT
- */
- case function_dt_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_dint*/
- break;
-
-/****
- *DT_TO_LINT
- */
- case function_dt_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_lint*/
- break;
-
-/****
- *DT_TO_USINT
- */
- case function_dt_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_usint*/
- break;
-
-/****
- *DT_TO_UINT
- */
- case function_dt_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_uint*/
- break;
-
-/****
- *DT_TO_UDINT
- */
- case function_dt_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_udint*/
- break;
-
-/****
- *DT_TO_ULINT
- */
- case function_dt_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_ulint*/
- break;
-
-/****
- *DT_TO_REAL
- */
- case function_dt_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_real*/
- break;
-
-/****
- *DT_TO_LREAL
- */
- case function_dt_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_lreal*/
- break;
-
-/****
- *DT_TO_STRING
- */
- case function_dt_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__dt_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_string*/
- break;
-
-/****
- *DT_TO_BYTE
- */
- case function_dt_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_byte*/
- break;
-
-/****
- *DT_TO_WORD
- */
- case function_dt_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_word*/
- break;
-
-/****
- *DT_TO_DWORD
- */
- case function_dt_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_dword*/
- break;
-
-/****
- *DT_TO_LWORD
- */
- case function_dt_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__time_to_int(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dt_to_lword*/
- break;
-
-/****
- *STRING_TO_BOOL
- */
- case function_string_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_bool(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_bool*/
- break;
-
-/****
- *STRING_TO_SINT
- */
- case function_string_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_sint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_sint*/
- break;
-
-/****
- *STRING_TO_INT
- */
- case function_string_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_sint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_int*/
- break;
-
-/****
- *STRING_TO_DINT
- */
- case function_string_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_sint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_dint*/
- break;
-
-/****
- *STRING_TO_LINT
- */
- case function_string_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_sint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_lint*/
- break;
-
-/****
- *STRING_TO_USINT
- */
- case function_string_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_uint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_usint*/
- break;
-
-/****
- *STRING_TO_UINT
- */
- case function_string_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_uint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_uint*/
- break;
-
-/****
- *STRING_TO_UDINT
- */
- case function_string_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_uint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_udint*/
- break;
-
-/****
- *STRING_TO_ULINT
- */
- case function_string_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_uint(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_ulint*/
- break;
-
-/****
- *STRING_TO_REAL
- */
- case function_string_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_real*/
- break;
-
-/****
- *STRING_TO_LREAL
- */
- case function_string_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_real(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_lreal*/
- break;
-
-/****
- *STRING_TO_TIME
- */
- case function_string_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_time*/
- break;
-
-/****
- *STRING_TO_DATE
- */
- case function_string_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_date*/
- break;
-
-/****
- *STRING_TO_TOD
- */
- case function_string_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_tod*/
- break;
-
-/****
- *STRING_TO_DT
- */
- case function_string_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_dt*/
- break;
-
-/****
- *STRING_TO_BYTE
- */
- case function_string_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_bit(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_byte*/
- break;
-
-/****
- *STRING_TO_WORD
- */
- case function_string_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_bit(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_word*/
- break;
-
-/****
- *STRING_TO_DWORD
- */
- case function_string_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_bit(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_dword*/
- break;
-
-/****
- *STRING_TO_LWORD
- */
- case function_string_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__string_to_bit(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_string_to_lword*/
- break;
-
-/****
- *BYTE_TO_BOOL
- */
- case function_byte_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_bool*/
- break;
-
-/****
- *BYTE_TO_SINT
- */
- case function_byte_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_sint*/
- break;
-
-/****
- *BYTE_TO_INT
- */
- case function_byte_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_int*/
- break;
-
-/****
- *BYTE_TO_DINT
- */
- case function_byte_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_dint*/
- break;
-
-/****
- *BYTE_TO_LINT
- */
- case function_byte_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_lint*/
- break;
-
-/****
- *BYTE_TO_USINT
- */
- case function_byte_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_usint*/
- break;
-
-/****
- *BYTE_TO_UINT
- */
- case function_byte_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_uint*/
- break;
-
-/****
- *BYTE_TO_UDINT
- */
- case function_byte_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_udint*/
- break;
-
-/****
- *BYTE_TO_ULINT
- */
- case function_byte_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_ulint*/
- break;
-
-/****
- *BYTE_TO_REAL
- */
- case function_byte_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_real*/
- break;
-
-/****
- *BYTE_TO_LREAL
- */
- case function_byte_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_lreal*/
- break;
-
-/****
- *BYTE_TO_TIME
- */
- case function_byte_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_time*/
- break;
-
-/****
- *BYTE_TO_DATE
- */
- case function_byte_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_date*/
- break;
-
-/****
- *BYTE_TO_TOD
- */
- case function_byte_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_tod*/
- break;
-
-/****
- *BYTE_TO_DT
- */
- case function_byte_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_dt*/
- break;
-
-/****
- *BYTE_TO_STRING
- */
- case function_byte_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__bit_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_string*/
- break;
-
-/****
- *BYTE_TO_WORD
- */
- case function_byte_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_word*/
- break;
-
-/****
- *BYTE_TO_DWORD
- */
- case function_byte_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_dword*/
- break;
-
-/****
- *BYTE_TO_LWORD
- */
- case function_byte_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_byte_to_lword*/
- break;
-
-/****
- *WORD_TO_BOOL
- */
- case function_word_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_bool*/
- break;
-
-/****
- *WORD_TO_SINT
- */
- case function_word_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_sint*/
- break;
-
-/****
- *WORD_TO_INT
- */
- case function_word_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_int*/
- break;
-
-/****
- *WORD_TO_DINT
- */
- case function_word_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_dint*/
- break;
-
-/****
- *WORD_TO_LINT
- */
- case function_word_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_lint*/
- break;
-
-/****
- *WORD_TO_USINT
- */
- case function_word_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_usint*/
- break;
-
-/****
- *WORD_TO_UINT
- */
- case function_word_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_uint*/
- break;
-
-/****
- *WORD_TO_UDINT
- */
- case function_word_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_udint*/
- break;
-
-/****
- *WORD_TO_ULINT
- */
- case function_word_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_ulint*/
- break;
-
-/****
- *WORD_TO_REAL
- */
- case function_word_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_real*/
- break;
-
-/****
- *WORD_TO_LREAL
- */
- case function_word_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_lreal*/
- break;
-
-/****
- *WORD_TO_TIME
- */
- case function_word_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_time*/
- break;
-
-/****
- *WORD_TO_DATE
- */
- case function_word_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_date*/
- break;
-
-/****
- *WORD_TO_TOD
- */
- case function_word_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_tod*/
- break;
-
-/****
- *WORD_TO_DT
- */
- case function_word_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_dt*/
- break;
-
-/****
- *WORD_TO_STRING
- */
- case function_word_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__bit_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_string*/
- break;
-
-/****
- *WORD_TO_BYTE
- */
- case function_word_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_byte*/
- break;
-
-/****
- *WORD_TO_DWORD
- */
- case function_word_to_dword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_dword*/
- break;
-
-/****
- *WORD_TO_LWORD
- */
- case function_word_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_word_to_lword*/
- break;
-
-/****
- *DWORD_TO_BOOL
- */
- case function_dword_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_bool*/
- break;
-
-/****
- *DWORD_TO_SINT
- */
- case function_dword_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_sint*/
- break;
-
-/****
- *DWORD_TO_INT
- */
- case function_dword_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_int*/
- break;
-
-/****
- *DWORD_TO_DINT
- */
- case function_dword_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_dint*/
- break;
-
-/****
- *DWORD_TO_LINT
- */
- case function_dword_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_lint*/
- break;
-
-/****
- *DWORD_TO_USINT
- */
- case function_dword_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_usint*/
- break;
-
-/****
- *DWORD_TO_UINT
- */
- case function_dword_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_uint*/
- break;
-
-/****
- *DWORD_TO_UDINT
- */
- case function_dword_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_udint*/
- break;
-
-/****
- *DWORD_TO_ULINT
- */
- case function_dword_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_ulint*/
- break;
-
-/****
- *DWORD_TO_REAL
- */
- case function_dword_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_real*/
- break;
-
-/****
- *DWORD_TO_LREAL
- */
- case function_dword_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_lreal*/
- break;
-
-/****
- *DWORD_TO_TIME
- */
- case function_dword_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_time*/
- break;
-
-/****
- *DWORD_TO_DATE
- */
- case function_dword_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_date*/
- break;
-
-/****
- *DWORD_TO_TOD
- */
- case function_dword_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_tod*/
- break;
-
-/****
- *DWORD_TO_DT
- */
- case function_dword_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_dt*/
- break;
-
-/****
- *DWORD_TO_STRING
- */
- case function_dword_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__bit_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_string*/
- break;
-
-/****
- *DWORD_TO_BYTE
- */
- case function_dword_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_byte*/
- break;
-
-/****
- *DWORD_TO_WORD
- */
- case function_dword_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_word*/
- break;
-
-/****
- *DWORD_TO_LWORD
- */
- case function_dword_to_lword :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_dword_to_lword*/
- break;
-
-/****
- *LWORD_TO_BOOL
- */
- case function_lword_to_bool :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_bool*/
- break;
-
-/****
- *LWORD_TO_SINT
- */
- case function_lword_to_sint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_sint*/
- break;
-
-/****
- *LWORD_TO_INT
- */
- case function_lword_to_int :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_int*/
- break;
-
-/****
- *LWORD_TO_DINT
- */
- case function_lword_to_dint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_dint*/
- break;
-
-/****
- *LWORD_TO_LINT
- */
- case function_lword_to_lint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_lint*/
- break;
-
-/****
- *LWORD_TO_USINT
- */
- case function_lword_to_usint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_usint*/
- break;
-
-/****
- *LWORD_TO_UINT
- */
- case function_lword_to_uint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_uint*/
- break;
-
-/****
- *LWORD_TO_UDINT
- */
- case function_lword_to_udint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_udint*/
- break;
-
-/****
- *LWORD_TO_ULINT
- */
- case function_lword_to_ulint :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_ulint*/
- break;
-
-/****
- *LWORD_TO_REAL
- */
- case function_lword_to_real :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_real*/
- break;
-
-/****
- *LWORD_TO_LREAL
- */
- case function_lword_to_lreal :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_lreal*/
- break;
-
-/****
- *LWORD_TO_TIME
- */
- case function_lword_to_time :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_time*/
- break;
-
-/****
- *LWORD_TO_DATE
- */
- case function_lword_to_date :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_date*/
- break;
-
-/****
- *LWORD_TO_TOD
- */
- case function_lword_to_tod :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_tod*/
- break;
-
-/****
- *LWORD_TO_DT
- */
- case function_lword_to_dt :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__int_to_time(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_dt*/
- break;
-
-/****
- *LWORD_TO_STRING
- */
- case function_lword_to_string :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")__bit_to_string(");
- IN_param_value->accept(*this);
- s4o.print(")");
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_string*/
- break;
-
-/****
- *LWORD_TO_BYTE
- */
- case function_lword_to_byte :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
- s4o.print(")");
- IN_param_value->accept(*this);
- return NULL;
-
- }
-
- ERROR;
- }
-
- }/*function_lword_to_byte*/
- break;
-
-/****
- *LWORD_TO_WORD
- */
- case function_lword_to_word :
- {
- symbol_c *last_type_symbol = NULL;
-
- {
- identifier_c param_name("IN");
- /* Get the value from a foo(<param_name> = <param_value>) style call */
- symbol_c *IN_param_value = function_call_param_iterator.search(¶m_name);
-
- /* Get the value from a foo(<param_value>) style call */
- if (IN_param_value == NULL)
- IN_param_value = function_call_param_iterator.next();
- symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
- last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
- {
-
- symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
- s4o.print("(");
- return_type_symbol->accept(*this);
s4o.print(")");
IN_param_value->accept(*this);
return NULL;
@@ -13393,7 +13245,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
@@ -13463,7 +13315,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
@@ -13500,7 +13352,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
@@ -13537,7 +13389,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
@@ -13574,7 +13426,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
@@ -13611,7 +13463,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+ if(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;
@@ -13648,7 +13500,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+ if(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;
@@ -13685,7 +13537,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+ if(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;
@@ -13722,7 +13574,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+ if(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;
@@ -13759,7 +13611,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -13794,7 +13646,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
@@ -14234,9 +14086,10 @@
{
symbol_c * return_type_symbol = last_type_symbol;
- s4o.print("(");
+ s4o.indent_right();
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("+");
+ s4o.print("+\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -14257,13 +14110,14 @@
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 */
- s4o.print("+");
+ s4o.print("+\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -14274,7 +14128,7 @@
}
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
{
@@ -14288,7 +14142,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -14306,7 +14160,7 @@
}
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
{
@@ -14320,7 +14174,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -14338,7 +14192,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -14352,7 +14206,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -14412,9 +14266,10 @@
{
symbol_c * return_type_symbol = last_type_symbol;
- s4o.print("(");
+ s4o.indent_right();
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("*");
+ s4o.print("*\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -14435,13 +14290,14 @@
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 */
- s4o.print("*");
+ s4o.print("*\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -14452,7 +14308,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -14526,11 +14382,13 @@
{
symbol_c * return_type_symbol = last_type_symbol;
- s4o.print("(");
+ s4o.indent_right();
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("-");
+ s4o.print("-\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
s4o.print(")");
+ s4o.indent_left();
return NULL;
}
@@ -14540,7 +14398,7 @@
}
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
{
{
@@ -14554,7 +14412,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -14572,7 +14430,7 @@
}
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
{
@@ -14586,7 +14444,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -14599,7 +14457,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -14617,7 +14475,7 @@
}
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
{
@@ -14631,7 +14489,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -14644,7 +14502,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
@@ -14662,7 +14520,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -14676,7 +14534,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
@@ -14736,11 +14594,13 @@
{
symbol_c * return_type_symbol = last_type_symbol;
- s4o.print("(");
+ s4o.indent_right();
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("/");
+ s4o.print("/\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
s4o.print(")");
+ s4o.indent_left();
return NULL;
}
@@ -14750,7 +14610,7 @@
}
- if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
{
{
@@ -14824,11 +14684,13 @@
{
symbol_c * return_type_symbol = last_type_symbol;
- s4o.print("(");
+ s4o.indent_right();
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("%");
+ s4o.print("%\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
s4o.print(")");
+ s4o.indent_left();
return NULL;
}
@@ -15193,11 +15055,12 @@
{
symbol_c * return_type_symbol = last_type_symbol;
+ s4o.indent_right();
s4o.print("(");
if (search_expression_type->is_bool_type(last_type_symbol))
- s4o.print("(");
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("&");
+ s4o.print("&\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -15218,7 +15081,7 @@
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 */
- s4o.print("&");
+ s4o.print("&\n" + s4o.indent_spaces);
param_value->accept(*this);
}
@@ -15230,6 +15093,7 @@
s4o.print(")");
}
s4o.print("");
+ s4o.indent_left();
return NULL;
@@ -15282,11 +15146,12 @@
{
symbol_c * return_type_symbol = last_type_symbol;
+ s4o.indent_right();
s4o.print("(");
if (search_expression_type->is_bool_type(last_type_symbol))
- s4o.print("(");
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("|");
+ s4o.print("|\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -15307,7 +15172,7 @@
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 */
- s4o.print("|");
+ s4o.print("|\n" + s4o.indent_spaces);
param_value->accept(*this);
}
@@ -15319,6 +15184,7 @@
s4o.print(")");
}
s4o.print("");
+ s4o.indent_left();
return NULL;
@@ -15371,11 +15237,12 @@
{
symbol_c * return_type_symbol = last_type_symbol;
+ s4o.indent_right();
s4o.print("(");
if (search_expression_type->is_bool_type(last_type_symbol))
- s4o.print("(");
+ s4o.print("(\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print("^");
+ s4o.print("^\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -15396,7 +15263,7 @@
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 */
- s4o.print("^");
+ s4o.print("^\n" + s4o.indent_spaces);
param_value->accept(*this);
}
@@ -15408,6 +15275,7 @@
s4o.print(")");
}
s4o.print("");
+ s4o.indent_left();
return NULL;
@@ -15476,7 +15344,7 @@
symbol_c *G_type_symbol = search_expression_type->get_type(G_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
{
{
@@ -15569,13 +15437,14 @@
{
symbol_c * return_type_symbol = last_type_symbol;
+ s4o.indent_right();
s4o.print("__max_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -15596,13 +15465,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -15655,13 +15525,14 @@
{
symbol_c * return_type_symbol = last_type_symbol;
+ s4o.indent_right();
s4o.print("__min_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -15682,13 +15553,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -15834,15 +15706,16 @@
{
symbol_c * return_type_symbol = last_type_symbol;
+ s4o.indent_right();
s4o.print("__mux_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
K_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN0_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
int base_num = 2;
@@ -15863,13 +15736,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -15927,13 +15801,14 @@
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.indent_right();
s4o.print("__gt_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -15954,13 +15829,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -16013,13 +15889,14 @@
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.indent_right();
s4o.print("__ge_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -16040,13 +15917,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -16099,13 +15977,14 @@
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.indent_right();
s4o.print("__eq_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -16126,13 +16005,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -16185,13 +16065,14 @@
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.indent_right();
s4o.print("__lt_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -16212,13 +16093,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -16271,13 +16153,14 @@
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.indent_right();
s4o.print("__le_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -16298,13 +16181,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -16357,13 +16241,14 @@
{
symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+ s4o.indent_right();
s4o.print("__ne_");
return_type_symbol->accept(*this);
s4o.print("(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -16384,13 +16269,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -16425,7 +16311,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
@@ -16460,7 +16346,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -16516,7 +16402,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -16572,7 +16458,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -16649,7 +16535,7 @@
symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
{
{
@@ -16663,7 +16549,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
@@ -16681,7 +16567,7 @@
}
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -16695,15 +16581,16 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+ s4o.indent_right();
s4o.print("__concat(");
s4o.print_integer(nb_param);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN1_param_value->accept(*this);
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
IN2_param_value->accept(*this);
int base_num = 3;
@@ -16724,13 +16611,14 @@
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 */
- s4o.print(",");
+ s4o.print(",\n" + s4o.indent_spaces);
param_value->accept(*this);
}
}while(param_value != NULL);
s4o.print(")");
+ s4o.indent_left();
return NULL;
@@ -16765,7 +16653,7 @@
symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -16779,7 +16667,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -16842,7 +16730,7 @@
symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -16919,7 +16807,7 @@
symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -16933,7 +16821,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -17017,7 +16905,7 @@
symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
{
@@ -17031,7 +16919,7 @@
symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
last_type_symbol = last_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 ;
- if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+ if(search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
{
symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
--- a/tests/STD_TEST.xml Fri Jul 13 19:20:26 2007 +0200
+++ b/tests/STD_TEST.xml Tue Jul 17 12:19:59 2007 +0200
@@ -66,23 +66,23 @@
<body>
<FBD>
<inVariable localId="6" width="59" height="27">
- <position y="243" x="272"/>
+ <position y="274" x="20"/>
<connectionPointOut>
<relPosition y="13" x="59"/>
</connectionPointOut>
<expression>TESTNR</expression>
</inVariable>
- <block localId="7" height="88" width="135" instanceName="" typeName="STRING_TO_INT">
- <position y="510" x="629"/>
+ <block localId="7" height="88" width="135" typeName="STRING_TO_INT">
+ <position y="541" x="377"/>
<inputVariables>
<variable formalParameter="IN">
<connectionPointIn>
<relPosition y="54" x="0"/>
<connection refLocalId="25" formalParameter="IN">
- <position y="564" x="629"/>
- <position y="564" x="611"/>
- <position y="563" x="611"/>
- <position y="563" x="594"/>
+ <position y="595" x="377"/>
+ <position y="595" x="359"/>
+ <position y="594" x="359"/>
+ <position y="594" x="342"/>
</connection>
</connectionPointIn>
</variable>
@@ -97,27 +97,27 @@
</outputVariables>
</block>
<outVariable localId="8" width="92" height="47">
- <position y="325" x="1064"/>
+ <position y="356" x="812"/>
<connectionPointIn>
<relPosition y="23" x="0"/>
<connection refLocalId="16">
- <position y="348" x="1064"/>
- <position y="348" x="1047"/>
- <position y="355" x="1047"/>
- <position y="355" x="1030"/>
+ <position y="379" x="812"/>
+ <position y="379" x="795"/>
+ <position y="386" x="795"/>
+ <position y="386" x="778"/>
</connection>
</connectionPointIn>
<expression>INTRES</expression>
</outVariable>
- <block localId="9" height="99" width="120" instanceName="" typeName="STRING_TO_REAL">
- <position y="399" x="403"/>
+ <block localId="9" height="99" width="120" typeName="STRING_TO_REAL">
+ <position y="430" x="151"/>
<inputVariables>
<variable formalParameter="IN">
<connectionPointIn>
<relPosition y="59" x="0"/>
<connection refLocalId="23" formalParameter="IN">
- <position y="458" x="403"/>
- <position y="458" x="377"/>
+ <position y="489" x="151"/>
+ <position y="489" x="125"/>
</connection>
</connectionPointIn>
</variable>
@@ -131,17 +131,17 @@
</variable>
</outputVariables>
</block>
- <block localId="11" height="114" width="115" instanceName="" typeName="LEN">
- <position y="316" x="563"/>
+ <block localId="11" height="114" width="115" typeName="LEN">
+ <position y="347" x="311"/>
<inputVariables>
<variable formalParameter="IN">
<connectionPointIn>
<relPosition y="67" x="0"/>
<connection refLocalId="24" formalParameter="IN">
- <position y="383" x="563"/>
- <position y="383" x="542"/>
- <position y="371" x="542"/>
- <position y="371" x="521"/>
+ <position y="414" x="311"/>
+ <position y="414" x="290"/>
+ <position y="402" x="290"/>
+ <position y="402" x="269"/>
</connection>
</connectionPointIn>
</variable>
@@ -155,17 +155,17 @@
</variable>
</outputVariables>
</block>
- <block localId="16" height="240" width="107" instanceName="" typeName="MUX">
- <position y="313" x="923"/>
+ <block localId="16" height="240" width="107" typeName="MUX">
+ <position y="344" x="671"/>
<inputVariables>
<variable formalParameter="K">
<connectionPointIn>
<relPosition y="42" x="0"/>
<connection refLocalId="60" formalParameter="K">
- <position y="355" x="923"/>
- <position y="355" x="880"/>
- <position y="293" x="880"/>
- <position y="293" x="852"/>
+ <position y="386" x="671"/>
+ <position y="386" x="628"/>
+ <position y="324" x="628"/>
+ <position y="324" x="600"/>
</connection>
</connectionPointIn>
</variable>
@@ -173,10 +173,10 @@
<connectionPointIn>
<relPosition y="86" x="0"/>
<connection refLocalId="11" formalParameter="IN0">
- <position y="399" x="923"/>
- <position y="399" x="800"/>
- <position y="383" x="800"/>
- <position y="383" x="678"/>
+ <position y="430" x="671"/>
+ <position y="430" x="548"/>
+ <position y="414" x="548"/>
+ <position y="414" x="426"/>
</connection>
</connectionPointIn>
</variable>
@@ -184,10 +184,10 @@
<connectionPointIn>
<relPosition y="130" x="0"/>
<connection refLocalId="19" formalParameter="IN1">
- <position y="443" x="923"/>
- <position y="443" x="856"/>
- <position y="460" x="856"/>
- <position y="460" x="789"/>
+ <position y="474" x="671"/>
+ <position y="474" x="604"/>
+ <position y="491" x="604"/>
+ <position y="491" x="537"/>
</connection>
</connectionPointIn>
</variable>
@@ -195,10 +195,10 @@
<connectionPointIn>
<relPosition y="174" x="0"/>
<connection refLocalId="7" formalParameter="IN2">
- <position y="487" x="923"/>
- <position y="487" x="843"/>
- <position y="564" x="843"/>
- <position y="564" x="764"/>
+ <position y="518" x="671"/>
+ <position y="518" x="591"/>
+ <position y="595" x="591"/>
+ <position y="595" x="512"/>
</connection>
</connectionPointIn>
</variable>
@@ -206,10 +206,10 @@
<connectionPointIn>
<relPosition y="218" x="0"/>
<connection refLocalId="57" formalParameter="IN3">
- <position y="531" x="923"/>
- <position y="531" x="870"/>
- <position y="643" x="870"/>
- <position y="643" x="710"/>
+ <position y="562" x="671"/>
+ <position y="562" x="618"/>
+ <position y="674" x="618"/>
+ <position y="674" x="458"/>
</connection>
</connectionPointIn>
</variable>
@@ -223,28 +223,28 @@
</variable>
</outputVariables>
</block>
- <block localId="17" height="60" width="100" instanceName="" typeName="MUL">
- <position y="438" x="558"/>
+ <block localId="17" height="60" width="100" typeName="MUL">
+ <position y="469" x="306"/>
<inputVariables>
<variable formalParameter="IN1">
<connectionPointIn>
<relPosition y="30" x="0"/>
<connection refLocalId="9" formalParameter="IN1">
- <position y="468" x="558"/>
- <position y="468" x="535"/>
- <position y="458" x="535"/>
- <position y="458" x="523"/>
+ <position y="499" x="306"/>
+ <position y="499" x="283"/>
+ <position y="489" x="283"/>
+ <position y="489" x="271"/>
</connection>
</connectionPointIn>
</variable>
<variable formalParameter="IN2">
<connectionPointIn>
<relPosition y="50" x="0"/>
- <connection refLocalId="64">
- <position y="488" x="558"/>
- <position y="488" x="536"/>
- <position y="520" x="536"/>
- <position y="520" x="491"/>
+ <connection refLocalId="64" formalParameter="IN2">
+ <position y="519" x="306"/>
+ <position y="519" x="280"/>
+ <position y="551" x="280"/>
+ <position y="551" x="255"/>
</connection>
</connectionPointIn>
</variable>
@@ -258,17 +258,17 @@
</variable>
</outputVariables>
</block>
- <block localId="19" height="43" width="97" instanceName="" typeName="REAL_TO_INT">
- <position y="429" x="692"/>
+ <block localId="19" height="43" width="97" typeName="REAL_TO_INT">
+ <position y="460" x="440"/>
<inputVariables>
<variable formalParameter="IN">
<connectionPointIn>
<relPosition y="31" x="0"/>
<connection refLocalId="17" formalParameter="IN">
- <position y="460" x="692"/>
- <position y="460" x="675"/>
- <position y="468" x="675"/>
- <position y="468" x="658"/>
+ <position y="491" x="440"/>
+ <position y="491" x="423"/>
+ <position y="499" x="423"/>
+ <position y="499" x="406"/>
</connection>
</connectionPointIn>
</variable>
@@ -283,37 +283,37 @@
</outputVariables>
</block>
<inVariable localId="23" width="89" height="30">
- <position y="443" x="288"/>
+ <position y="474" x="36"/>
<connectionPointOut>
<relPosition y="15" x="89"/>
</connectionPointOut>
<expression>IN1</expression>
</inVariable>
<inVariable localId="24" width="75" height="33">
- <position y="355" x="446"/>
+ <position y="386" x="194"/>
<connectionPointOut>
<relPosition y="16" x="75"/>
</connectionPointOut>
<expression>IN1</expression>
</inVariable>
<inVariable localId="25" width="71" height="29">
- <position y="549" x="523"/>
+ <position y="580" x="271"/>
<connectionPointOut>
<relPosition y="14" x="71"/>
</connectionPointOut>
<expression>IN2</expression>
</inVariable>
- <block localId="57" height="60" width="63" instanceName="" typeName="FIND">
- <position y="613" x="647"/>
+ <block localId="57" height="60" width="63" typeName="FIND">
+ <position y="644" x="395"/>
<inputVariables>
<variable formalParameter="IN1">
<connectionPointIn>
<relPosition y="30" x="0"/>
<connection refLocalId="58" formalParameter="IN1">
- <position y="643" x="647"/>
- <position y="643" x="633"/>
- <position y="631" x="633"/>
- <position y="631" x="609"/>
+ <position y="674" x="395"/>
+ <position y="674" x="381"/>
+ <position y="662" x="381"/>
+ <position y="662" x="357"/>
</connection>
</connectionPointIn>
</variable>
@@ -321,10 +321,10 @@
<connectionPointIn>
<relPosition y="50" x="0"/>
<connection refLocalId="59" formalParameter="IN2">
- <position y="663" x="647"/>
- <position y="663" x="633"/>
- <position y="666" x="633"/>
- <position y="666" x="610"/>
+ <position y="694" x="395"/>
+ <position y="694" x="381"/>
+ <position y="697" x="381"/>
+ <position y="697" x="358"/>
</connection>
</connectionPointIn>
</variable>
@@ -339,30 +339,30 @@
</outputVariables>
</block>
<inVariable localId="58" width="31" height="27">
- <position y="618" x="578"/>
+ <position y="649" x="326"/>
<connectionPointOut>
<relPosition y="13" x="31"/>
</connectionPointOut>
<expression>IN1</expression>
</inVariable>
<inVariable localId="59" width="31" height="27">
- <position y="653" x="579"/>
+ <position y="684" x="327"/>
<connectionPointOut>
<relPosition y="13" x="31"/>
</connectionPointOut>
<expression>IN2</expression>
</inVariable>
- <block localId="60" height="80" width="63" instanceName="" typeName="LIMIT">
- <position y="263" x="789"/>
+ <block localId="60" height="80" width="63" typeName="LIMIT">
+ <position y="294" x="537"/>
<inputVariables>
<variable formalParameter="MN">
<connectionPointIn>
<relPosition y="30" x="0"/>
<connection refLocalId="65" formalParameter="MN">
- <position y="293" x="789"/>
- <position y="293" x="761"/>
- <position y="276" x="761"/>
- <position y="276" x="734"/>
+ <position y="324" x="537"/>
+ <position y="324" x="509"/>
+ <position y="307" x="509"/>
+ <position y="307" x="482"/>
</connection>
</connectionPointIn>
</variable>
@@ -370,10 +370,10 @@
<connectionPointIn>
<relPosition y="50" x="0"/>
<connection refLocalId="6" formalParameter="IN">
- <position y="313" x="789"/>
- <position y="313" x="700"/>
- <position y="256" x="700"/>
- <position y="256" x="331"/>
+ <position y="344" x="537"/>
+ <position y="344" x="448"/>
+ <position y="287" x="448"/>
+ <position y="287" x="79"/>
</connection>
</connectionPointIn>
</variable>
@@ -381,10 +381,10 @@
<connectionPointIn>
<relPosition y="70" x="0"/>
<connection refLocalId="62" formalParameter="MX">
- <position y="333" x="789"/>
- <position y="333" x="770"/>
- <position y="345" x="770"/>
- <position y="345" x="751"/>
+ <position y="364" x="537"/>
+ <position y="364" x="518"/>
+ <position y="376" x="518"/>
+ <position y="376" x="499"/>
</connection>
</connectionPointIn>
</variable>
@@ -399,7 +399,7 @@
</outputVariables>
</block>
<inVariable localId="62" width="38" height="27">
- <position y="332" x="713"/>
+ <position y="363" x="461"/>
<connectionPointOut>
<relPosition y="13" x="38"/>
</connectionPointOut>
@@ -410,157 +410,115 @@
<content>The FROM STRING test machine</content>
</comment>
<inVariable localId="64" width="54" height="27">
- <position y="507" x="453"/>
+ <position y="538" x="201"/>
<connectionPointOut>
<relPosition y="13" x="54"/>
</connectionPointOut>
<expression>1000.0</expression>
</inVariable>
<inVariable localId="65" width="18" height="27">
- <position y="263" x="716"/>
+ <position y="294" x="464"/>
<connectionPointOut>
<relPosition y="13" x="18"/>
</connectionPointOut>
<expression>0</expression>
</inVariable>
<outVariable localId="66" width="83" height="27">
- <position y="147" x="549"/>
+ <position y="178" x="297"/>
<connectionPointIn>
<relPosition y="13" x="0"/>
- <connection refLocalId="67" formalParameter="OUT">
- <position y="160" x="549"/>
- <position y="160" x="530"/>
- <position y="161" x="530"/>
- <position y="161" x="499"/>
+ <connection refLocalId="6">
+ <position y="191" x="297"/>
+ <position y="191" x="188"/>
+ <position y="287" x="188"/>
+ <position y="287" x="79"/>
</connection>
</connectionPointIn>
<expression>NEXT_TEST</expression>
</outVariable>
- <block localId="67" height="60" width="63" typeName="ADD">
- <position y="131" x="436"/>
- <inputVariables>
+ <inVariable localId="69" width="41" height="27">
+ <position y="426" x="817"/>
+ <connectionPointOut>
+ <relPosition y="13" x="41"/>
+ </connectionPointOut>
+ <expression>'LEN'</expression>
+ </inVariable>
+ <inVariable localId="70" width="169" height="27">
+ <position y="475" x="796"/>
+ <connectionPointOut>
+ <relPosition y="13" x="169"/>
+ </connectionPointOut>
+ <expression>'STRING_TO_REAL *1000'</expression>
+ </inVariable>
+ <inVariable localId="71" width="114" height="27">
+ <position y="523" x="805"/>
+ <connectionPointOut>
+ <relPosition y="13" x="114"/>
+ </connectionPointOut>
+ <expression>'STRING_TO_INT'</expression>
+ </inVariable>
+ <inVariable localId="72" width="46" height="27">
+ <position y="571" x="809"/>
+ <connectionPointOut>
+ <relPosition y="13" x="46"/>
+ </connectionPointOut>
+ <expression>'FIND'</expression>
+ </inVariable>
+ <block localId="73" height="274" width="69" typeName="MUX">
+ <position y="410" x="1051"/>
+ <inputVariables>
+ <variable formalParameter="K">
+ <connectionPointIn>
+ <relPosition y="45" x="0"/>
+ <connection refLocalId="60" formalParameter="OUT">
+ <position y="455" x="1051"/>
+ <position y="455" x="1025"/>
+ <position y="324" x="1025"/>
+ <position y="324" x="600"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN0">
+ <connectionPointIn>
+ <relPosition y="95" x="0"/>
+ <connection refLocalId="69" formalParameter="IN0">
+ <position y="505" x="1051"/>
+ <position y="505" x="989"/>
+ <position y="439" x="989"/>
+ <position y="439" x="858"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
<variable formalParameter="IN1">
<connectionPointIn>
- <relPosition y="30" x="0"/>
- <connection refLocalId="68">
- <position y="161" x="436"/>
- <position y="161" x="398"/>
- <position y="150" x="398"/>
- <position y="150" x="348"/>
+ <relPosition y="145" x="0"/>
+ <connection refLocalId="70">
+ <position y="555" x="1051"/>
+ <position y="555" x="981"/>
+ <position y="488" x="981"/>
+ <position y="488" x="965"/>
</connection>
</connectionPointIn>
</variable>
<variable formalParameter="IN2">
<connectionPointIn>
- <relPosition y="50" x="0"/>
- <connection refLocalId="6">
- <position y="181" x="436"/>
- <position y="181" x="389"/>
- <position y="256" x="389"/>
- <position y="256" x="331"/>
- </connection>
- </connectionPointIn>
- </variable>
- </inputVariables>
- <inOutVariables/>
- <outputVariables>
- <variable formalParameter="OUT">
- <connectionPointOut>
- <relPosition y="30" x="63"/>
- </connectionPointOut>
- </variable>
- </outputVariables>
- </block>
- <inVariable localId="68" width="18" height="27">
- <position y="137" x="330"/>
- <connectionPointOut>
- <relPosition y="13" x="18"/>
- </connectionPointOut>
- <expression>1</expression>
- </inVariable>
- <inVariable localId="69" width="41" height="27">
- <position y="463" x="1123"/>
- <connectionPointOut>
- <relPosition y="13" x="41"/>
- </connectionPointOut>
- <expression>'LEN'</expression>
- </inVariable>
- <inVariable localId="70" width="169" height="27">
- <position y="510" x="1121"/>
- <connectionPointOut>
- <relPosition y="13" x="169"/>
- </connectionPointOut>
- <expression>'STRING_TO_REAL *1000'</expression>
- </inVariable>
- <inVariable localId="71" width="114" height="27">
- <position y="554" x="1125"/>
- <connectionPointOut>
- <relPosition y="13" x="114"/>
- </connectionPointOut>
- <expression>'STRING_TO_INT'</expression>
- </inVariable>
- <inVariable localId="72" width="46" height="27">
- <position y="608" x="1130"/>
- <connectionPointOut>
- <relPosition y="13" x="46"/>
- </connectionPointOut>
- <expression>'FIND'</expression>
- </inVariable>
- <block localId="73" height="274" width="69" instanceName="" typeName="MUX">
- <position y="379" x="1303"/>
- <inputVariables>
- <variable formalParameter="K">
- <connectionPointIn>
- <relPosition y="45" x="0"/>
- <connection refLocalId="6">
- <position y="424" x="1303"/>
- <position y="424" x="1220"/>
- <position y="256" x="1220"/>
- <position y="256" x="331"/>
- </connection>
- </connectionPointIn>
- </variable>
- <variable formalParameter="IN0">
- <connectionPointIn>
- <relPosition y="95" x="0"/>
- <connection refLocalId="69">
- <position y="474" x="1303"/>
- <position y="474" x="1232"/>
- <position y="476" x="1232"/>
- <position y="476" x="1164"/>
- </connection>
- </connectionPointIn>
- </variable>
- <variable formalParameter="IN1">
- <connectionPointIn>
- <relPosition y="145" x="0"/>
- <connection refLocalId="70" formalParameter="IN1">
- <position y="524" x="1303"/>
- <position y="524" x="1274"/>
- <position y="523" x="1274"/>
- <position y="523" x="1247"/>
- </connection>
- </connectionPointIn>
- </variable>
- <variable formalParameter="IN2">
- <connectionPointIn>
<relPosition y="195" x="0"/>
- <connection refLocalId="71">
- <position y="574" x="1303"/>
- <position y="574" x="1270"/>
- <position y="567" x="1270"/>
- <position y="567" x="1239"/>
+ <connection refLocalId="71" formalParameter="IN2">
+ <position y="605" x="1051"/>
+ <position y="605" x="959"/>
+ <position y="536" x="959"/>
+ <position y="536" x="919"/>
</connection>
</connectionPointIn>
</variable>
<variable formalParameter="IN3">
<connectionPointIn>
<relPosition y="245" x="0"/>
- <connection refLocalId="72">
- <position y="624" x="1303"/>
- <position y="624" x="1238"/>
- <position y="621" x="1238"/>
- <position y="621" x="1176"/>
+ <connection refLocalId="72" formalParameter="IN3">
+ <position y="655" x="1051"/>
+ <position y="655" x="928"/>
+ <position y="584" x="928"/>
+ <position y="584" x="855"/>
</connection>
</connectionPointIn>
</variable>
@@ -575,12 +533,14 @@
</outputVariables>
</block>
<outVariable localId="74" width="86" height="27">
- <position y="411" x="1395"/>
+ <position y="430" x="1188"/>
<connectionPointIn>
<relPosition y="13" x="0"/>
- <connection refLocalId="73" formalParameter="OUT">
- <position y="424" x="1395"/>
- <position y="424" x="1372"/>
+ <connection refLocalId="73">
+ <position y="443" x="1188"/>
+ <position y="443" x="1143"/>
+ <position y="455" x="1143"/>
+ <position y="455" x="1120"/>
</connection>
</connectionPointIn>
<expression>TEST_NAME</expression>
@@ -588,7 +548,7 @@
</FBD>
</body>
</pou>
- <pou name="TEST_TO_STRINGS" pouType="functionBlock">
+ <pou name="TEST_STRINGS_OPS" pouType="functionBlock">
<interface>
<inputVars>
<variable name="IN1">
@@ -647,17 +607,17 @@
</interface>
<body>
<FBD>
- <block localId="1" height="242" width="93" instanceName="" typeName="MUX">
+ <block localId="1" height="242" width="93" typeName="MUX">
<position y="240" x="696"/>
<inputVariables>
<variable formalParameter="K">
<connectionPointIn>
<relPosition y="30" x="0"/>
- <connection refLocalId="6" formalParameter="K">
+ <connection refLocalId="81" formalParameter="OUT">
<position y="270" x="696"/>
- <position y="270" x="455"/>
- <position y="216" x="455"/>
- <position y="216" x="287"/>
+ <position y="270" x="661"/>
+ <position y="206" x="661"/>
+ <position y="206" x="626"/>
</connection>
</connectionPointIn>
</variable>
@@ -1278,60 +1238,18 @@
<content>The TO STRING test machine</content>
</comment>
<outVariable localId="66" width="83" height="27">
- <position y="147" x="549"/>
+ <position y="77" x="541"/>
<connectionPointIn>
<relPosition y="13" x="0"/>
- <connection refLocalId="67" formalParameter="OUT">
- <position y="160" x="549"/>
- <position y="160" x="530"/>
- <position y="161" x="530"/>
- <position y="161" x="499"/>
+ <connection refLocalId="6">
+ <position y="90" x="541"/>
+ <position y="90" x="414"/>
+ <position y="216" x="414"/>
+ <position y="216" x="287"/>
</connection>
</connectionPointIn>
<expression>NEXT_TEST</expression>
</outVariable>
- <block localId="67" height="60" width="63" instanceName="" typeName="ADD">
- <position y="131" x="436"/>
- <inputVariables>
- <variable formalParameter="IN1">
- <connectionPointIn>
- <relPosition y="30" x="0"/>
- <connection refLocalId="68" formalParameter="IN1">
- <position y="161" x="436"/>
- <position y="161" x="398"/>
- <position y="150" x="398"/>
- <position y="150" x="348"/>
- </connection>
- </connectionPointIn>
- </variable>
- <variable formalParameter="IN2">
- <connectionPointIn>
- <relPosition y="50" x="0"/>
- <connection refLocalId="6" formalParameter="IN2">
- <position y="181" x="436"/>
- <position y="181" x="389"/>
- <position y="216" x="389"/>
- <position y="216" x="287"/>
- </connection>
- </connectionPointIn>
- </variable>
- </inputVariables>
- <inOutVariables/>
- <outputVariables>
- <variable formalParameter="OUT">
- <connectionPointOut>
- <relPosition y="30" x="63"/>
- </connectionPointOut>
- </variable>
- </outputVariables>
- </block>
- <inVariable localId="68" width="18" height="27">
- <position y="137" x="330"/>
- <connectionPointOut>
- <relPosition y="13" x="18"/>
- </connectionPointOut>
- <expression>1</expression>
- </inVariable>
<inVariable localId="69" width="37" height="27">
<position y="320" x="831"/>
<connectionPointOut>
@@ -1402,24 +1320,24 @@
</connectionPointOut>
<expression>'REPLACE'</expression>
</inVariable>
- <block localId="79" height="240" width="63" instanceName="" typeName="MUX">
+ <block localId="79" height="240" width="63" typeName="MUX">
<position y="241" x="1130"/>
<inputVariables>
<variable formalParameter="K">
<connectionPointIn>
<relPosition y="30" x="0"/>
- <connection refLocalId="6">
+ <connection refLocalId="81" formalParameter="K">
<position y="271" x="1130"/>
- <position y="271" x="988"/>
- <position y="216" x="988"/>
- <position y="216" x="287"/>
+ <position y="271" x="991"/>
+ <position y="206" x="991"/>
+ <position y="206" x="626"/>
</connection>
</connectionPointIn>
</variable>
<variable formalParameter="IN0">
<connectionPointIn>
<relPosition y="50" x="0"/>
- <connection refLocalId="69">
+ <connection refLocalId="69" formalParameter="IN0">
<position y="291" x="1130"/>
<position y="291" x="890"/>
<position y="333" x="890"/>
@@ -1430,7 +1348,7 @@
<variable formalParameter="IN1">
<connectionPointIn>
<relPosition y="70" x="0"/>
- <connection refLocalId="70">
+ <connection refLocalId="70" formalParameter="IN1">
<position y="311" x="1130"/>
<position y="311" x="911"/>
<position y="362" x="911"/>
@@ -1441,7 +1359,7 @@
<variable formalParameter="IN2">
<connectionPointIn>
<relPosition y="90" x="0"/>
- <connection refLocalId="71">
+ <connection refLocalId="71" formalParameter="IN2">
<position y="331" x="1130"/>
<position y="331" x="929"/>
<position y="396" x="929"/>
@@ -1452,7 +1370,7 @@
<variable formalParameter="IN3">
<connectionPointIn>
<relPosition y="110" x="0"/>
- <connection refLocalId="72">
+ <connection refLocalId="72" formalParameter="IN3">
<position y="351" x="1130"/>
<position y="351" x="955"/>
<position y="458" x="955"/>
@@ -1463,7 +1381,7 @@
<variable formalParameter="IN4">
<connectionPointIn>
<relPosition y="130" x="0"/>
- <connection refLocalId="73">
+ <connection refLocalId="73" formalParameter="IN4">
<position y="371" x="1130"/>
<position y="371" x="977"/>
<position y="519" x="977"/>
@@ -1474,7 +1392,7 @@
<variable formalParameter="IN5">
<connectionPointIn>
<relPosition y="150" x="0"/>
- <connection refLocalId="74">
+ <connection refLocalId="74" formalParameter="IN5">
<position y="391" x="1130"/>
<position y="391" x="999"/>
<position y="588" x="999"/>
@@ -1485,7 +1403,7 @@
<variable formalParameter="IN6">
<connectionPointIn>
<relPosition y="170" x="0"/>
- <connection refLocalId="75">
+ <connection refLocalId="75" formalParameter="IN6">
<position y="411" x="1130"/>
<position y="411" x="1020"/>
<position y="680" x="1020"/>
@@ -1496,7 +1414,7 @@
<variable formalParameter="IN7">
<connectionPointIn>
<relPosition y="190" x="0"/>
- <connection refLocalId="76">
+ <connection refLocalId="76" formalParameter="IN7">
<position y="431" x="1130"/>
<position y="431" x="1041"/>
<position y="768" x="1041"/>
@@ -1507,7 +1425,7 @@
<variable formalParameter="IN8">
<connectionPointIn>
<relPosition y="210" x="0"/>
- <connection refLocalId="77">
+ <connection refLocalId="77" formalParameter="IN8">
<position y="451" x="1130"/>
<position y="451" x="1058"/>
<position y="890" x="1058"/>
@@ -1518,7 +1436,7 @@
<variable formalParameter="IN9">
<connectionPointIn>
<relPosition y="230" x="0"/>
- <connection refLocalId="78">
+ <connection refLocalId="78" formalParameter="IN9">
<position y="471" x="1130"/>
<position y="471" x="1081"/>
<position y="1021" x="1081"/>
@@ -1549,6 +1467,1390 @@
</connectionPointIn>
<expression>TEST_NAME</expression>
</outVariable>
+ <block localId="81" height="80" width="63" typeName="LIMIT">
+ <position y="176" x="563"/>
+ <inputVariables>
+ <variable formalParameter="MN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="82">
+ <position y="206" x="563"/>
+ <position y="206" x="533"/>
+ <position y="203" x="533"/>
+ <position y="203" x="503"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="50" x="0"/>
+ <connection refLocalId="6">
+ <position y="226" x="563"/>
+ <position y="226" x="417"/>
+ <position y="216" x="417"/>
+ <position y="216" x="287"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="MX">
+ <connectionPointIn>
+ <relPosition y="70" x="0"/>
+ <connection refLocalId="83">
+ <position y="246" x="563"/>
+ <position y="246" x="533"/>
+ <position y="248" x="533"/>
+ <position y="248" x="503"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="63"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <inVariable localId="82" width="18" height="27">
+ <position y="190" x="485"/>
+ <connectionPointOut>
+ <relPosition y="13" x="18"/>
+ </connectionPointOut>
+ <expression>0</expression>
+ </inVariable>
+ <inVariable localId="83" width="18" height="27">
+ <position y="235" x="485"/>
+ <connectionPointOut>
+ <relPosition y="13" x="18"/>
+ </connectionPointOut>
+ <expression>9</expression>
+ </inVariable>
+ </FBD>
+ </body>
+ </pou>
+ <pou name="TEST_TO_STRINGS" pouType="functionBlock">
+ <interface>
+ <inputVars>
+ <variable name="TESTNR">
+ <type>
+ <INT/>
+ </type>
+ </variable>
+ </inputVars>
+ <outputVars>
+ <variable name="RES_STR">
+ <type>
+ <STRING/>
+ </type>
+ </variable>
+ <variable name="NEXT_TEST">
+ <type>
+ <INT/>
+ </type>
+ </variable>
+ <variable name="TEST_NAME">
+ <type>
+ <STRING/>
+ </type>
+ </variable>
+ </outputVars>
+ </interface>
+ <body>
+ <FBD>
+ <block localId="1" height="40" width="124" typeName="BOOL_TO_STRING">
+ <position y="1072" x="314"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="19">
+ <position y="1102" x="314"/>
+ <position y="1102" x="293"/>
+ <position y="1100" x="293"/>
+ <position y="1100" x="272"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="124"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="2" height="40" width="117" typeName="SINT_TO_STRING">
+ <position y="210" x="322"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="20">
+ <position y="240" x="322"/>
+ <position y="240" x="281"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="117"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="3" height="40" width="108" typeName="INT_TO_STRING">
+ <position y="260" x="322"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="21">
+ <position y="290" x="322"/>
+ <position y="290" x="309"/>
+ <position y="295" x="309"/>
+ <position y="295" x="296"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="108"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="4" height="40" width="118" typeName="DINT_TO_STRING">
+ <position y="314" x="321"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="22">
+ <position y="344" x="321"/>
+ <position y="344" x="291"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="118"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="5" height="40" width="115" typeName="LINT_TO_STRING">
+ <position y="370" x="320"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="23">
+ <position y="400" x="320"/>
+ <position y="400" x="288"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="115"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="6" height="40" width="127" typeName="USINT_TO_STRING">
+ <position y="417" x="317"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="24">
+ <position y="447" x="317"/>
+ <position y="447" x="296"/>
+ <position y="449" x="296"/>
+ <position y="449" x="275"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="127"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="7" height="40" width="118" typeName="UINT_TO_STRING">
+ <position y="461" x="317"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="25">
+ <position y="491" x="317"/>
+ <position y="491" x="297"/>
+ <position y="493" x="297"/>
+ <position y="493" x="277"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="118"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="8" height="40" width="128" typeName="UDINT_TO_STRING">
+ <position y="509" x="315"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="26">
+ <position y="539" x="315"/>
+ <position y="539" x="299"/>
+ <position y="540" x="299"/>
+ <position y="540" x="284"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="128"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="9" height="40" width="125" typeName="ULINT_TO_STRING">
+ <position y="557" x="314"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="27">
+ <position y="587" x="314"/>
+ <position y="587" x="284"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="125"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="10" height="40" width="120" typeName="REAL_TO_STRING">
+ <position y="603" x="313"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="28">
+ <position y="633" x="313"/>
+ <position y="633" x="290"/>
+ <position y="632" x="290"/>
+ <position y="632" x="280"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="120"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="11" height="40" width="127" typeName="LREAL_TO_STRING">
+ <position y="649" x="311"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="29">
+ <position y="679" x="311"/>
+ <position y="679" x="283"/>
+ <position y="679" x="283"/>
+ <position y="679" x="295"/>
+ <position y="680" x="295"/>
+ <position y="680" x="278"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="127"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="12" height="40" width="117" typeName="TIME_TO_STRING">
+ <position y="699" x="316"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="30">
+ <position y="729" x="316"/>
+ <position y="729" x="306"/>
+ <position y="719" x="306"/>
+ <position y="719" x="277"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="117"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="13" height="40" width="121" typeName="DATE_TO_STRING">
+ <position y="746" x="313"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="31">
+ <position y="776" x="313"/>
+ <position y="776" x="295"/>
+ <position y="772" x="295"/>
+ <position y="772" x="278"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="121"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="14" height="40" width="115" typeName="TOD_TO_STRING">
+ <position y="790" x="320"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="32">
+ <position y="820" x="320"/>
+ <position y="820" x="304"/>
+ <position y="817" x="304"/>
+ <position y="817" x="289"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="115"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="15" height="40" width="119" typeName="BYTE_TO_STRING">
+ <position y="883" x="320"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="34">
+ <position y="913" x="320"/>
+ <position y="913" x="301"/>
+ <position y="909" x="301"/>
+ <position y="909" x="283"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="119"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="16" height="40" width="127" typeName="WORD_TO_STRING">
+ <position y="929" x="312"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="36">
+ <position y="959" x="312"/>
+ <position y="959" x="299"/>
+ <position y="954" x="299"/>
+ <position y="954" x="287"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="127"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="17" height="40" width="137" typeName="DWORD_TO_STRING">
+ <position y="977" x="302"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="37">
+ <position y="1007" x="302"/>
+ <position y="1007" x="285"/>
+ <position y="1002" x="285"/>
+ <position y="1002" x="268"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="137"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <block localId="18" height="40" width="133" typeName="LWORD_TO_STRING">
+ <position y="1022" x="311"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="38">
+ <position y="1052" x="311"/>
+ <position y="1052" x="291"/>
+ <position y="1049" x="291"/>
+ <position y="1049" x="271"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="133"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <inVariable localId="19" width="49" height="27">
+ <position y="1087" x="223"/>
+ <connectionPointOut>
+ <relPosition y="13" x="49"/>
+ </connectionPointOut>
+ <expression>FALSE</expression>
+ </inVariable>
+ <inVariable localId="20" width="31" height="27">
+ <position y="227" x="250"/>
+ <connectionPointOut>
+ <relPosition y="13" x="31"/>
+ </connectionPointOut>
+ <expression>-23</expression>
+ </inVariable>
+ <inVariable localId="21" width="47" height="27">
+ <position y="282" x="249"/>
+ <connectionPointOut>
+ <relPosition y="13" x="47"/>
+ </connectionPointOut>
+ <expression>-1678</expression>
+ </inVariable>
+ <inVariable localId="22" width="95" height="27">
+ <position y="331" x="196"/>
+ <connectionPointOut>
+ <relPosition y="13" x="95"/>
+ </connectionPointOut>
+ <expression>-1000000000</expression>
+ </inVariable>
+ <inVariable localId="23" width="111" height="27">
+ <position y="387" x="177"/>
+ <connectionPointOut>
+ <relPosition y="13" x="111"/>
+ </connectionPointOut>
+ <expression>-100000000000</expression>
+ </inVariable>
+ <inVariable localId="24" width="26" height="27">
+ <position y="436" x="249"/>
+ <connectionPointOut>
+ <relPosition y="13" x="26"/>
+ </connectionPointOut>
+ <expression>23</expression>
+ </inVariable>
+ <inVariable localId="25" width="42" height="27">
+ <position y="480" x="235"/>
+ <connectionPointOut>
+ <relPosition y="13" x="42"/>
+ </connectionPointOut>
+ <expression>1678</expression>
+ </inVariable>
+ <inVariable localId="26" width="90" height="27">
+ <position y="527" x="194"/>
+ <connectionPointOut>
+ <relPosition y="13" x="90"/>
+ </connectionPointOut>
+ <expression>1000000000</expression>
+ </inVariable>
+ <inVariable localId="27" width="106" height="27">
+ <position y="574" x="178"/>
+ <connectionPointOut>
+ <relPosition y="13" x="106"/>
+ </connectionPointOut>
+ <expression>100000000000</expression>
+ </inVariable>
+ <inVariable localId="28" width="78" height="27">
+ <position y="619" x="202"/>
+ <connectionPointOut>
+ <relPosition y="13" x="78"/>
+ </connectionPointOut>
+ <expression>1.2345678</expression>
+ </inVariable>
+ <inVariable localId="29" width="86" height="27">
+ <position y="667" x="192"/>
+ <connectionPointOut>
+ <relPosition y="13" x="86"/>
+ </connectionPointOut>
+ <expression>1.23456789</expression>
+ </inVariable>
+ <inVariable localId="30" width="158" height="27">
+ <position y="706" x="119"/>
+ <connectionPointOut>
+ <relPosition y="13" x="158"/>
+ </connectionPointOut>
+ <expression>t#5d14h12m18s3.5ms</expression>
+ </inVariable>
+ <inVariable localId="31" width="105" height="27">
+ <position y="759" x="173"/>
+ <connectionPointOut>
+ <relPosition y="13" x="105"/>
+ </connectionPointOut>
+ <expression>D#1984-06-25</expression>
+ </inVariable>
+ <inVariable localId="32" width="124" height="27">
+ <position y="804" x="165"/>
+ <connectionPointOut>
+ <relPosition y="13" x="124"/>
+ </connectionPointOut>
+ <expression>TOD#15:36:55.36</expression>
+ </inVariable>
+ <inVariable localId="33" width="193" height="27">
+ <position y="845" x="92"/>
+ <connectionPointOut>
+ <relPosition y="13" x="193"/>
+ </connectionPointOut>
+ <expression>DT#1984-06-25-15:36:55.36</expression>
+ </inVariable>
+ <inVariable localId="34" width="69" height="27">
+ <position y="896" x="214"/>
+ <connectionPointOut>
+ <relPosition y="13" x="69"/>
+ </connectionPointOut>
+ <expression>16#12</expression>
+ </inVariable>
+ <block localId="35" height="40" width="105" typeName="DT_TO_STRING">
+ <position y="838" x="326"/>
+ <inputVariables>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="33">
+ <position y="868" x="326"/>
+ <position y="868" x="305"/>
+ <position y="858" x="305"/>
+ <position y="858" x="285"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="105"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <inVariable localId="36" width="108" height="27">
+ <position y="941" x="179"/>
+ <connectionPointOut>
+ <relPosition y="13" x="108"/>
+ </connectionPointOut>
+ <expression>16#1234</expression>
+ </inVariable>
+ <inVariable localId="37" width="181" height="27">
+ <position y="989" x="87"/>
+ <connectionPointOut>
+ <relPosition y="13" x="181"/>
+ </connectionPointOut>
+ <expression>16#1234_5678</expression>
+ </inVariable>
+ <inVariable localId="38" width="181" height="27">
+ <position y="1036" x="90"/>
+ <connectionPointOut>
+ <relPosition y="13" x="181"/>
+ </connectionPointOut>
+ <expression>16#1234_5678_9abc_def0</expression>
+ </inVariable>
+ <block localId="39" height="420" width="71" instanceName="" typeName="MUX">
+ <position y="486" x="516"/>
+ <inputVariables>
+ <variable formalParameter="K">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="41" formalParameter="K">
+ <position y="516" x="516"/>
+ <position y="516" x="497"/>
+ <position y="118" x="497"/>
+ <position y="118" x="476"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN0">
+ <connectionPointIn>
+ <relPosition y="50" x="0"/>
+ <connection refLocalId="2" formalParameter="IN0">
+ <position y="536" x="516"/>
+ <position y="536" x="478"/>
+ <position y="240" x="478"/>
+ <position y="240" x="439"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN1">
+ <connectionPointIn>
+ <relPosition y="70" x="0"/>
+ <connection refLocalId="3" formalParameter="IN1">
+ <position y="556" x="516"/>
+ <position y="556" x="478"/>
+ <position y="290" x="478"/>
+ <position y="290" x="430"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN2">
+ <connectionPointIn>
+ <relPosition y="90" x="0"/>
+ <connection refLocalId="4" formalParameter="IN2">
+ <position y="576" x="516"/>
+ <position y="576" x="478"/>
+ <position y="344" x="478"/>
+ <position y="344" x="439"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN3">
+ <connectionPointIn>
+ <relPosition y="110" x="0"/>
+ <connection refLocalId="5" formalParameter="IN3">
+ <position y="596" x="516"/>
+ <position y="596" x="478"/>
+ <position y="400" x="478"/>
+ <position y="400" x="435"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN4">
+ <connectionPointIn>
+ <relPosition y="130" x="0"/>
+ <connection refLocalId="6" formalParameter="IN4">
+ <position y="616" x="516"/>
+ <position y="616" x="478"/>
+ <position y="447" x="478"/>
+ <position y="447" x="444"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN5">
+ <connectionPointIn>
+ <relPosition y="150" x="0"/>
+ <connection refLocalId="7" formalParameter="IN5">
+ <position y="636" x="516"/>
+ <position y="636" x="478"/>
+ <position y="491" x="478"/>
+ <position y="491" x="435"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN6">
+ <connectionPointIn>
+ <relPosition y="170" x="0"/>
+ <connection refLocalId="8" formalParameter="IN6">
+ <position y="656" x="516"/>
+ <position y="656" x="478"/>
+ <position y="539" x="478"/>
+ <position y="539" x="443"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN7">
+ <connectionPointIn>
+ <relPosition y="190" x="0"/>
+ <connection refLocalId="9" formalParameter="IN7">
+ <position y="676" x="516"/>
+ <position y="676" x="478"/>
+ <position y="587" x="478"/>
+ <position y="587" x="439"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN8">
+ <connectionPointIn>
+ <relPosition y="210" x="0"/>
+ <connection refLocalId="10" formalParameter="IN8">
+ <position y="696" x="516"/>
+ <position y="696" x="478"/>
+ <position y="633" x="478"/>
+ <position y="633" x="433"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN9">
+ <connectionPointIn>
+ <relPosition y="230" x="0"/>
+ <connection refLocalId="11" formalParameter="IN9">
+ <position y="716" x="516"/>
+ <position y="716" x="478"/>
+ <position y="679" x="478"/>
+ <position y="679" x="438"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN10">
+ <connectionPointIn>
+ <relPosition y="250" x="0"/>
+ <connection refLocalId="12" formalParameter="IN10">
+ <position y="736" x="516"/>
+ <position y="736" x="478"/>
+ <position y="729" x="478"/>
+ <position y="729" x="433"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN11">
+ <connectionPointIn>
+ <relPosition y="270" x="0"/>
+ <connection refLocalId="13" formalParameter="IN11">
+ <position y="756" x="516"/>
+ <position y="756" x="478"/>
+ <position y="776" x="478"/>
+ <position y="776" x="434"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN12">
+ <connectionPointIn>
+ <relPosition y="290" x="0"/>
+ <connection refLocalId="14" formalParameter="IN12">
+ <position y="776" x="516"/>
+ <position y="776" x="478"/>
+ <position y="820" x="478"/>
+ <position y="820" x="435"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN13">
+ <connectionPointIn>
+ <relPosition y="310" x="0"/>
+ <connection refLocalId="35" formalParameter="IN13">
+ <position y="796" x="516"/>
+ <position y="796" x="478"/>
+ <position y="868" x="478"/>
+ <position y="868" x="431"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN14">
+ <connectionPointIn>
+ <relPosition y="330" x="0"/>
+ <connection refLocalId="15" formalParameter="IN14">
+ <position y="816" x="516"/>
+ <position y="816" x="478"/>
+ <position y="913" x="478"/>
+ <position y="913" x="439"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN15">
+ <connectionPointIn>
+ <relPosition y="350" x="0"/>
+ <connection refLocalId="16" formalParameter="IN15">
+ <position y="836" x="516"/>
+ <position y="836" x="478"/>
+ <position y="959" x="478"/>
+ <position y="959" x="439"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN16">
+ <connectionPointIn>
+ <relPosition y="370" x="0"/>
+ <connection refLocalId="17" formalParameter="IN16">
+ <position y="856" x="516"/>
+ <position y="856" x="478"/>
+ <position y="1007" x="478"/>
+ <position y="1007" x="439"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN17">
+ <connectionPointIn>
+ <relPosition y="390" x="0"/>
+ <connection refLocalId="18" formalParameter="IN17">
+ <position y="876" x="516"/>
+ <position y="876" x="478"/>
+ <position y="1052" x="478"/>
+ <position y="1052" x="444"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN18">
+ <connectionPointIn>
+ <relPosition y="410" x="0"/>
+ <connection refLocalId="1" formalParameter="IN18">
+ <position y="896" x="516"/>
+ <position y="896" x="478"/>
+ <position y="1102" x="478"/>
+ <position y="1102" x="438"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="71"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <inVariable localId="40" width="59" height="27">
+ <position y="22" x="259"/>
+ <connectionPointOut>
+ <relPosition y="13" x="59"/>
+ </connectionPointOut>
+ <expression>TESTNR</expression>
+ </inVariable>
+ <block localId="41" height="80" width="63" instanceName="" typeName="LIMIT">
+ <position y="88" x="413"/>
+ <inputVariables>
+ <variable formalParameter="MN">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="42" formalParameter="MN">
+ <position y="118" x="413"/>
+ <position y="118" x="399"/>
+ <position y="95" x="399"/>
+ <position y="95" x="389"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN">
+ <connectionPointIn>
+ <relPosition y="50" x="0"/>
+ <connection refLocalId="40" formalParameter="IN">
+ <position y="138" x="413"/>
+ <position y="138" x="363"/>
+ <position y="35" x="363"/>
+ <position y="35" x="318"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="MX">
+ <connectionPointIn>
+ <relPosition y="70" x="0"/>
+ <connection refLocalId="43" formalParameter="MX">
+ <position y="158" x="413"/>
+ <position y="158" x="385"/>
+ <position y="167" x="385"/>
+ <position y="167" x="348"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="63"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <inVariable localId="42" width="18" height="27">
+ <position y="82" x="371"/>
+ <connectionPointOut>
+ <relPosition y="13" x="18"/>
+ </connectionPointOut>
+ <expression>0</expression>
+ </inVariable>
+ <inVariable localId="43" width="26" height="27">
+ <position y="154" x="322"/>
+ <connectionPointOut>
+ <relPosition y="13" x="26"/>
+ </connectionPointOut>
+ <expression>18</expression>
+ </inVariable>
+ <outVariable localId="44" width="66" height="27">
+ <position y="513" x="675"/>
+ <connectionPointIn>
+ <relPosition y="13" x="0"/>
+ <connection refLocalId="39" formalParameter="OUT">
+ <position y="526" x="675"/>
+ <position y="526" x="631"/>
+ <position y="516" x="631"/>
+ <position y="516" x="587"/>
+ </connection>
+ </connectionPointIn>
+ <expression>RES_STR</expression>
+ </outVariable>
+ <outVariable localId="45" width="83" height="27">
+ <position y="20" x="399"/>
+ <connectionPointIn>
+ <relPosition y="13" x="0"/>
+ <connection refLocalId="40">
+ <position y="33" x="399"/>
+ <position y="33" x="385"/>
+ <position y="35" x="385"/>
+ <position y="35" x="318"/>
+ </connection>
+ </connectionPointIn>
+ <expression>NEXT_TEST</expression>
+ </outVariable>
+ <inVariable localId="46" width="130" height="27">
+ <position y="1061" x="804"/>
+ <connectionPointOut>
+ <relPosition y="13" x="130"/>
+ </connectionPointOut>
+ <expression>'BOOL_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="47" width="123" height="27">
+ <position y="219" x="818"/>
+ <connectionPointOut>
+ <relPosition y="13" x="123"/>
+ </connectionPointOut>
+ <expression>'SINT_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="48" width="114" height="27">
+ <position y="263" x="815"/>
+ <connectionPointOut>
+ <relPosition y="13" x="114"/>
+ </connectionPointOut>
+ <expression>'INT_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="49" width="124" height="27">
+ <position y="314" x="815"/>
+ <connectionPointOut>
+ <relPosition y="13" x="124"/>
+ </connectionPointOut>
+ <expression>'DINT_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="50" width="121" height="27">
+ <position y="365" x="815"/>
+ <connectionPointOut>
+ <relPosition y="13" x="121"/>
+ </connectionPointOut>
+ <expression>'LINT_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="51" width="133" height="27">
+ <position y="414" x="814"/>
+ <connectionPointOut>
+ <relPosition y="13" x="133"/>
+ </connectionPointOut>
+ <expression>'USINT_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="52" width="124" height="27">
+ <position y="467" x="814"/>
+ <connectionPointOut>
+ <relPosition y="13" x="124"/>
+ </connectionPointOut>
+ <expression>'UINT_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="53" width="134" height="27">
+ <position y="517" x="810"/>
+ <connectionPointOut>
+ <relPosition y="13" x="134"/>
+ </connectionPointOut>
+ <expression>'UDINT_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="54" width="131" height="27">
+ <position y="569" x="812"/>
+ <connectionPointOut>
+ <relPosition y="13" x="131"/>
+ </connectionPointOut>
+ <expression>'ULINT_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="55" width="126" height="27">
+ <position y="617" x="811"/>
+ <connectionPointOut>
+ <relPosition y="13" x="126"/>
+ </connectionPointOut>
+ <expression>'REAL_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="56" width="133" height="27">
+ <position y="662" x="811"/>
+ <connectionPointOut>
+ <relPosition y="13" x="133"/>
+ </connectionPointOut>
+ <expression>'LREAL_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="57" width="123" height="27">
+ <position y="707" x="813"/>
+ <connectionPointOut>
+ <relPosition y="13" x="123"/>
+ </connectionPointOut>
+ <expression>'TIME_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="58" width="127" height="27">
+ <position y="750" x="813"/>
+ <connectionPointOut>
+ <relPosition y="13" x="127"/>
+ </connectionPointOut>
+ <expression>'DATE_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="59" width="121" height="27">
+ <position y="793" x="813"/>
+ <connectionPointOut>
+ <relPosition y="13" x="121"/>
+ </connectionPointOut>
+ <expression>'TOD_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="60" width="111" height="27">
+ <position y="834" x="810"/>
+ <connectionPointOut>
+ <relPosition y="13" x="111"/>
+ </connectionPointOut>
+ <expression>'DT_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="61" width="125" height="27">
+ <position y="885" x="807"/>
+ <connectionPointOut>
+ <relPosition y="13" x="125"/>
+ </connectionPointOut>
+ <expression>'BYTE_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="62" width="133" height="27">
+ <position y="929" x="808"/>
+ <connectionPointOut>
+ <relPosition y="13" x="133"/>
+ </connectionPointOut>
+ <expression>'WORD_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="63" width="143" height="27">
+ <position y="974" x="807"/>
+ <connectionPointOut>
+ <relPosition y="13" x="143"/>
+ </connectionPointOut>
+ <expression>'DWORD_TO_STRING'</expression>
+ </inVariable>
+ <inVariable localId="64" width="139" height="27">
+ <position y="1013" x="805"/>
+ <connectionPointOut>
+ <relPosition y="13" x="139"/>
+ </connectionPointOut>
+ <expression>'LWORD_TO_STRING'</expression>
+ </inVariable>
+ <block localId="65" height="420" width="71" instanceName="" typeName="MUX">
+ <position y="518" x="1061"/>
+ <inputVariables>
+ <variable formalParameter="K">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="41" formalParameter="K">
+ <position y="548" x="1061"/>
+ <position y="548" x="1023"/>
+ <position y="118" x="1023"/>
+ <position y="118" x="476"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN0">
+ <connectionPointIn>
+ <relPosition y="50" x="0"/>
+ <connection refLocalId="47" formalParameter="IN0">
+ <position y="568" x="1061"/>
+ <position y="568" x="1001"/>
+ <position y="232" x="1001"/>
+ <position y="232" x="941"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN1">
+ <connectionPointIn>
+ <relPosition y="70" x="0"/>
+ <connection refLocalId="48" formalParameter="IN1">
+ <position y="588" x="1061"/>
+ <position y="588" x="995"/>
+ <position y="276" x="995"/>
+ <position y="276" x="929"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN2">
+ <connectionPointIn>
+ <relPosition y="90" x="0"/>
+ <connection refLocalId="49" formalParameter="IN2">
+ <position y="608" x="1061"/>
+ <position y="608" x="1000"/>
+ <position y="327" x="1000"/>
+ <position y="327" x="939"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN3">
+ <connectionPointIn>
+ <relPosition y="110" x="0"/>
+ <connection refLocalId="50" formalParameter="IN3">
+ <position y="628" x="1061"/>
+ <position y="628" x="998"/>
+ <position y="378" x="998"/>
+ <position y="378" x="936"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN4">
+ <connectionPointIn>
+ <relPosition y="130" x="0"/>
+ <connection refLocalId="51" formalParameter="IN4">
+ <position y="648" x="1061"/>
+ <position y="648" x="1004"/>
+ <position y="427" x="1004"/>
+ <position y="427" x="947"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN5">
+ <connectionPointIn>
+ <relPosition y="150" x="0"/>
+ <connection refLocalId="52" formalParameter="IN5">
+ <position y="668" x="1061"/>
+ <position y="668" x="999"/>
+ <position y="480" x="999"/>
+ <position y="480" x="938"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN6">
+ <connectionPointIn>
+ <relPosition y="170" x="0"/>
+ <connection refLocalId="53" formalParameter="IN6">
+ <position y="688" x="1061"/>
+ <position y="688" x="1002"/>
+ <position y="530" x="1002"/>
+ <position y="530" x="944"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN7">
+ <connectionPointIn>
+ <relPosition y="190" x="0"/>
+ <connection refLocalId="54" formalParameter="IN7">
+ <position y="708" x="1061"/>
+ <position y="708" x="1002"/>
+ <position y="582" x="1002"/>
+ <position y="582" x="943"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN8">
+ <connectionPointIn>
+ <relPosition y="210" x="0"/>
+ <connection refLocalId="55" formalParameter="IN8">
+ <position y="728" x="1061"/>
+ <position y="728" x="999"/>
+ <position y="630" x="999"/>
+ <position y="630" x="937"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN9">
+ <connectionPointIn>
+ <relPosition y="230" x="0"/>
+ <connection refLocalId="56" formalParameter="IN9">
+ <position y="748" x="1061"/>
+ <position y="748" x="1002"/>
+ <position y="675" x="1002"/>
+ <position y="675" x="944"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN10">
+ <connectionPointIn>
+ <relPosition y="250" x="0"/>
+ <connection refLocalId="57" formalParameter="IN10">
+ <position y="768" x="1061"/>
+ <position y="768" x="998"/>
+ <position y="720" x="998"/>
+ <position y="720" x="936"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN11">
+ <connectionPointIn>
+ <relPosition y="270" x="0"/>
+ <connection refLocalId="58" formalParameter="IN11">
+ <position y="788" x="1061"/>
+ <position y="788" x="1000"/>
+ <position y="763" x="1000"/>
+ <position y="763" x="940"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN12">
+ <connectionPointIn>
+ <relPosition y="290" x="0"/>
+ <connection refLocalId="59" formalParameter="IN12">
+ <position y="808" x="1061"/>
+ <position y="808" x="997"/>
+ <position y="806" x="997"/>
+ <position y="806" x="934"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN13">
+ <connectionPointIn>
+ <relPosition y="310" x="0"/>
+ <connection refLocalId="60" formalParameter="IN13">
+ <position y="828" x="1061"/>
+ <position y="828" x="991"/>
+ <position y="847" x="991"/>
+ <position y="847" x="921"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN14">
+ <connectionPointIn>
+ <relPosition y="330" x="0"/>
+ <connection refLocalId="61" formalParameter="IN14">
+ <position y="848" x="1061"/>
+ <position y="848" x="996"/>
+ <position y="898" x="996"/>
+ <position y="898" x="932"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN15">
+ <connectionPointIn>
+ <relPosition y="350" x="0"/>
+ <connection refLocalId="62" formalParameter="IN15">
+ <position y="868" x="1061"/>
+ <position y="868" x="1001"/>
+ <position y="942" x="1001"/>
+ <position y="942" x="941"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN16">
+ <connectionPointIn>
+ <relPosition y="370" x="0"/>
+ <connection refLocalId="63" formalParameter="IN16">
+ <position y="888" x="1061"/>
+ <position y="888" x="1005"/>
+ <position y="987" x="1005"/>
+ <position y="987" x="950"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN17">
+ <connectionPointIn>
+ <relPosition y="390" x="0"/>
+ <connection refLocalId="64" formalParameter="IN17">
+ <position y="908" x="1061"/>
+ <position y="908" x="1002"/>
+ <position y="1026" x="1002"/>
+ <position y="1026" x="944"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN18">
+ <connectionPointIn>
+ <relPosition y="410" x="0"/>
+ <connection refLocalId="46" formalParameter="IN18">
+ <position y="928" x="1061"/>
+ <position y="928" x="997"/>
+ <position y="1074" x="997"/>
+ <position y="1074" x="934"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="71"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <outVariable localId="66" width="86" height="27">
+ <position y="541" x="1209"/>
+ <connectionPointIn>
+ <relPosition y="13" x="0"/>
+ <connection refLocalId="65" formalParameter="OUT">
+ <position y="554" x="1209"/>
+ <position y="554" x="1170"/>
+ <position y="548" x="1170"/>
+ <position y="548" x="1132"/>
+ </connection>
+ </connectionPointIn>
+ <expression>TEST_NAME</expression>
+ </outVariable>
+ <comment localId="67" height="100" width="229">
+ <position y="21" x="13"/>
+ <content>This tests test litterals for all types, and convertion from ANY to STRING</content>
+ </comment>
</FBD>
</body>
</pou>
@@ -1573,12 +2875,12 @@
</variable>
</localVars>
<localVars>
- <variable name="RES_STR" address="%QB0">
+ <variable name="RES_TO_STR" address="%QB0">
<type>
<STRING/>
</type>
</variable>
- <variable name="RES_INT" address="%QW1">
+ <variable name="RES_FROM_STR" address="%QW1">
<type>
<INT/>
</type>
@@ -1604,6 +2906,18 @@
</type>
</variable>
</externalVars>
+ <localVars>
+ <variable name="RES_STR_OPS" address="%QB3">
+ <type>
+ <STRING/>
+ </type>
+ </variable>
+ <variable name="STR_OPS_TEST_NAME" address="%QB4">
+ <type>
+ <STRING/>
+ </type>
+ </variable>
+ </localVars>
</interface>
<body>
<FBD>
@@ -1649,31 +2963,18 @@
</connectionPointOut>
<expression>3</expression>
</inVariable>
- <outVariable localId="13" width="66" height="27">
- <position y="188" x="567"/>
- <connectionPointIn>
- <relPosition y="13" x="0"/>
- <connection refLocalId="19" formalParameter="STRRES">
- <position y="201" x="567"/>
- <position y="201" x="526"/>
- <position y="208" x="526"/>
- <position y="208" x="485"/>
- </connection>
- </connectionPointIn>
- <expression>RES_STR</expression>
- </outVariable>
- <outVariable localId="14" width="62" height="27">
- <position y="540" x="538"/>
+ <outVariable localId="14" width="109" height="27">
+ <position y="392" x="846"/>
<connectionPointIn>
<relPosition y="13" x="0"/>
<connection refLocalId="21">
- <position y="553" x="538"/>
- <position y="553" x="522"/>
- <position y="556" x="522"/>
- <position y="556" x="491"/>
+ <position y="405" x="846"/>
+ <position y="405" x="828"/>
+ <position y="442" x="828"/>
+ <position y="442" x="797"/>
</connection>
</connectionPointIn>
- <expression>RES_INT</expression>
+ <expression>RES_FROM_STR</expression>
</outVariable>
<inVariable localId="17" width="67" height="27">
<position y="286" x="51"/>
@@ -1688,14 +2989,14 @@
<relPosition y="13" x="0"/>
<connection refLocalId="19" formalParameter="NEXT_TEST">
<position y="243" x="568"/>
- <position y="243" x="523"/>
- <position y="240" x="523"/>
+ <position y="243" x="526"/>
+ <position y="240" x="526"/>
<position y="240" x="485"/>
</connection>
</connectionPointIn>
<expression>TEST_NB</expression>
</outVariable>
- <block localId="19" height="248" width="140" instanceName="my_to_str_test" typeName="TEST_TO_STRINGS">
+ <block localId="19" height="248" width="140" instanceName="my_string_ops" typeName="TEST_STRINGS_OPS">
<position y="172" x="345"/>
<inputVariables>
<variable formalParameter="IN1">
@@ -1703,8 +3004,8 @@
<relPosition y="36" x="0"/>
<connection refLocalId="2">
<position y="208" x="345"/>
- <position y="208" x="243"/>
- <position y="184" x="243"/>
+ <position y="208" x="221"/>
+ <position y="184" x="221"/>
<position y="184" x="97"/>
</connection>
</connectionPointIn>
@@ -1714,8 +3015,8 @@
<relPosition y="68" x="0"/>
<connection refLocalId="3">
<position y="240" x="345"/>
- <position y="240" x="243"/>
- <position y="215" x="243"/>
+ <position y="240" x="230"/>
+ <position y="215" x="230"/>
<position y="215" x="115"/>
</connection>
</connectionPointIn>
@@ -1725,8 +3026,8 @@
<relPosition y="100" x="0"/>
<connection refLocalId="4">
<position y="272" x="345"/>
- <position y="272" x="335"/>
- <position y="269" x="335"/>
+ <position y="272" x="322"/>
+ <position y="269" x="322"/>
<position y="269" x="300"/>
</connection>
</connectionPointIn>
@@ -1747,8 +3048,8 @@
<relPosition y="164" x="0"/>
<connection refLocalId="5">
<position y="336" x="345"/>
- <position y="336" x="309"/>
- <position y="341" x="309"/>
+ <position y="336" x="322"/>
+ <position y="341" x="322"/>
<position y="341" x="299"/>
</connection>
</connectionPointIn>
@@ -1758,8 +3059,8 @@
<relPosition y="196" x="0"/>
<connection refLocalId="6">
<position y="368" x="345"/>
- <position y="368" x="305"/>
- <position y="373" x="305"/>
+ <position y="368" x="320"/>
+ <position y="373" x="320"/>
<position y="373" x="295"/>
</connection>
</connectionPointIn>
@@ -1769,8 +3070,8 @@
<relPosition y="228" x="0"/>
<connection refLocalId="7">
<position y="400" x="345"/>
- <position y="400" x="305"/>
- <position y="406" x="305"/>
+ <position y="400" x="320"/>
+ <position y="406" x="320"/>
<position y="406" x="295"/>
</connection>
</connectionPointIn>
@@ -1796,14 +3097,14 @@
</outputVariables>
</block>
<block localId="21" height="154" width="147" instanceName="my_from_str_test" typeName="TEST_FROM_STRINGS">
- <position y="514" x="344"/>
+ <position y="400" x="650"/>
<inputVariables>
<variable formalParameter="IN1">
<connectionPointIn>
<relPosition y="42" x="0"/>
- <connection refLocalId="2">
- <position y="556" x="344"/>
- <position y="556" x="180"/>
+ <connection refLocalId="2" formalParameter="IN1">
+ <position y="442" x="650"/>
+ <position y="442" x="180"/>
<position y="184" x="180"/>
<position y="184" x="97"/>
</connection>
@@ -1812,22 +3113,22 @@
<variable formalParameter="IN2">
<connectionPointIn>
<relPosition y="86" x="0"/>
- <connection refLocalId="3">
- <position y="600" x="344"/>
- <position y="600" x="156"/>
- <position y="215" x="156"/>
- <position y="215" x="97"/>
+ <connection refLocalId="3" formalParameter="IN2">
+ <position y="486" x="650"/>
+ <position y="486" x="159"/>
+ <position y="215" x="159"/>
+ <position y="215" x="115"/>
</connection>
</connectionPointIn>
</variable>
<variable formalParameter="TESTNR">
<connectionPointIn>
<relPosition y="130" x="0"/>
- <connection refLocalId="17">
- <position y="644" x="344"/>
- <position y="644" x="137"/>
- <position y="299" x="137"/>
- <position y="299" x="118"/>
+ <connection refLocalId="19" formalParameter="NEXT_TEST">
+ <position y="530" x="650"/>
+ <position y="530" x="511"/>
+ <position y="240" x="511"/>
+ <position y="240" x="485"/>
</connection>
</connectionPointIn>
</variable>
@@ -1852,33 +3153,159 @@
</outputVariables>
</block>
<outVariable localId="22" width="141" height="27">
- <position y="279" x="601"/>
+ <position y="519" x="1117"/>
<connectionPointIn>
<relPosition y="13" x="0"/>
- <connection refLocalId="19" formalParameter="TEST_NAME">
- <position y="292" x="601"/>
- <position y="292" x="543"/>
- <position y="272" x="543"/>
- <position y="272" x="485"/>
+ <connection refLocalId="31" formalParameter="TEST_NAME">
+ <position y="532" x="1117"/>
+ <position y="532" x="1106"/>
+ <position y="501" x="1106"/>
+ <position y="501" x="1073"/>
</connection>
</connectionPointIn>
<expression>TO_STR_TEST_NAME</expression>
</outVariable>
<outVariable localId="24" width="160" height="27">
- <position y="631" x="534"/>
+ <position y="517" x="840"/>
<connectionPointIn>
<relPosition y="13" x="0"/>
- <connection refLocalId="21" formalParameter="TEST_NAME">
- <position y="644" x="534"/>
- <position y="644" x="491"/>
+ <connection refLocalId="21">
+ <position y="530" x="840"/>
+ <position y="530" x="797"/>
</connection>
</connectionPointIn>
<expression>FROM_STR_TEST_NAME</expression>
</outVariable>
- <comment localId="25" height="37" width="111">
- <position y="580" x="529"/>
- <content>Unused</content>
+ <comment localId="26" height="96" width="396">
+ <position y="17" x="30"/>
+ <content>Main program for testing standard lib funcs</content>
</comment>
+ <block localId="28" height="60" width="63" typeName="ADD">
+ <position y="437" x="1194"/>
+ <inputVariables>
+ <variable formalParameter="IN1">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="31" formalParameter="NEXT_TEST">
+ <position y="467" x="1194"/>
+ <position y="467" x="1104"/>
+ <position y="481" x="1104"/>
+ <position y="481" x="1073"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ <variable formalParameter="IN2">
+ <connectionPointIn>
+ <relPosition y="50" x="0"/>
+ <connection refLocalId="30">
+ <position y="487" x="1194"/>
+ <position y="487" x="1170"/>
+ <position y="495" x="1170"/>
+ <position y="495" x="1146"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="OUT">
+ <connectionPointOut>
+ <relPosition y="30" x="63"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <outVariable localId="29" width="67" height="27">
+ <position y="454" x="1301"/>
+ <connectionPointIn>
+ <relPosition y="13" x="0"/>
+ <connection refLocalId="28" formalParameter="OUT">
+ <position y="467" x="1301"/>
+ <position y="467" x="1257"/>
+ </connection>
+ </connectionPointIn>
+ <expression>TEST_NB</expression>
+ </outVariable>
+ <inVariable localId="30" width="18" height="27">
+ <position y="482" x="1128"/>
+ <connectionPointOut>
+ <relPosition y="13" x="18"/>
+ </connectionPointOut>
+ <expression>1</expression>
+ </inVariable>
+ <block localId="31" height="80" width="140" instanceName="my_to_str" typeName="TEST_TO_STRINGS">
+ <position y="431" x="933"/>
+ <inputVariables>
+ <variable formalParameter="TESTNR">
+ <connectionPointIn>
+ <relPosition y="30" x="0"/>
+ <connection refLocalId="21" formalParameter="NEXT_TEST">
+ <position y="461" x="933"/>
+ <position y="461" x="864"/>
+ <position y="486" x="864"/>
+ <position y="486" x="797"/>
+ </connection>
+ </connectionPointIn>
+ </variable>
+ </inputVariables>
+ <inOutVariables/>
+ <outputVariables>
+ <variable formalParameter="RES_STR">
+ <connectionPointOut>
+ <relPosition y="30" x="140"/>
+ </connectionPointOut>
+ </variable>
+ <variable formalParameter="NEXT_TEST">
+ <connectionPointOut>
+ <relPosition y="50" x="140"/>
+ </connectionPointOut>
+ </variable>
+ <variable formalParameter="TEST_NAME">
+ <connectionPointOut>
+ <relPosition y="70" x="140"/>
+ </connectionPointOut>
+ </variable>
+ </outputVariables>
+ </block>
+ <outVariable localId="32" width="90" height="27">
+ <position y="401" x="1135"/>
+ <connectionPointIn>
+ <relPosition y="13" x="0"/>
+ <connection refLocalId="31" formalParameter="RES_STR">
+ <position y="414" x="1135"/>
+ <position y="414" x="1104"/>
+ <position y="461" x="1104"/>
+ <position y="461" x="1073"/>
+ </connection>
+ </connectionPointIn>
+ <expression>RES_TO_STR</expression>
+ </outVariable>
+ <outVariable localId="33" width="151" height="27">
+ <position y="273" x="556"/>
+ <connectionPointIn>
+ <relPosition y="13" x="0"/>
+ <connection refLocalId="19" formalParameter="TEST_NAME">
+ <position y="286" x="556"/>
+ <position y="286" x="520"/>
+ <position y="272" x="520"/>
+ <position y="272" x="485"/>
+ </connection>
+ </connectionPointIn>
+ <expression>STR_OPS_TEST_NAME</expression>
+ </outVariable>
+ <outVariable localId="34" width="100" height="27">
+ <position y="198" x="572"/>
+ <connectionPointIn>
+ <relPosition y="13" x="0"/>
+ <connection refLocalId="19">
+ <position y="211" x="572"/>
+ <position y="211" x="528"/>
+ <position y="208" x="528"/>
+ <position y="208" x="485"/>
+ </connection>
+ </connectionPointIn>
+ <expression>RES_STR_OPS</expression>
+ </outVariable>
</FBD>
</body>
</pou>
@@ -1899,7 +3326,7 @@
<pouInstance type="MAIN_TEST" name="MAIN_INSTANCE"/>
</resource>
<globalVars>
- <variable name="TO_STR_TEST_NAME" address="%QB4">
+ <variable name="TO_STR_TEST_NAME" address="%QB2">
<type>
<STRING/>
</type>