lbessard@70: /*
lbessard@70:  * (c) 2003 Mario de Sousa
lbessard@70:  *
lbessard@70:  * Offered to the public under the terms of the GNU General Public License
lbessard@70:  * as published by the Free Software Foundation; either version 2 of the
lbessard@70:  * License, or (at your option) any later version.
lbessard@70:  *
lbessard@70:  * This program is distributed in the hope that it will be useful, but
lbessard@70:  * WITHOUT ANY WARRANTY; without even the implied warranty of
lbessard@70:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
lbessard@70:  * Public License for more details.
lbessard@70:  *
lbessard@70:  * This code is made available on the understanding that it will not be
lbessard@70:  * used in safety-critical situations without a full and competent review.
lbessard@70:  */
lbessard@70: 
lbessard@70: /*
lbessard@70:  * An IEC 61131-3 IL and ST compiler.
lbessard@70:  *
lbessard@70:  * Based on the
lbessard@70:  * FINAL DRAFT - IEC 61131-3, 2nd Ed. (2001-12-10)
lbessard@70:  *
lbessard@70:  */
lbessard@70:  
lbessard@70:  
lbessard@70: /****
lbessard@70:  * IEC 61131-3 standard function lib
lbessard@70:  * generated code, do not edit by hand
lbessard@70:  */
lbessard@70: function_type_t get_function_type(identifier_c *function_name) {
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_SINT"))
lbessard@70:     return function_bool_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_INT"))
lbessard@70:     return function_bool_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_DINT"))
lbessard@70:     return function_bool_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_LINT"))
lbessard@70:     return function_bool_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_USINT"))
lbessard@70:     return function_bool_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_UINT"))
lbessard@70:     return function_bool_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_UDINT"))
lbessard@70:     return function_bool_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_ULINT"))
lbessard@70:     return function_bool_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_REAL"))
lbessard@70:     return function_bool_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_LREAL"))
lbessard@70:     return function_bool_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_TIME"))
lbessard@70:     return function_bool_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_DATE"))
lbessard@70:     return function_bool_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_TOD"))
lbessard@70:     return function_bool_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_DT"))
lbessard@70:     return function_bool_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_STRING"))
lbessard@70:     return function_bool_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_BYTE"))
lbessard@70:     return function_bool_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_WORD"))
lbessard@70:     return function_bool_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_DWORD"))
lbessard@70:     return function_bool_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BOOL_TO_LWORD"))
lbessard@70:     return function_bool_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_BOOL"))
lbessard@70:     return function_sint_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_INT"))
lbessard@70:     return function_sint_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_DINT"))
lbessard@70:     return function_sint_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_LINT"))
lbessard@70:     return function_sint_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_USINT"))
lbessard@70:     return function_sint_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_UINT"))
lbessard@70:     return function_sint_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_UDINT"))
lbessard@70:     return function_sint_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_ULINT"))
lbessard@70:     return function_sint_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_REAL"))
lbessard@70:     return function_sint_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_LREAL"))
lbessard@70:     return function_sint_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_TIME"))
lbessard@70:     return function_sint_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_DATE"))
lbessard@70:     return function_sint_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_TOD"))
lbessard@70:     return function_sint_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_DT"))
lbessard@70:     return function_sint_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_STRING"))
lbessard@70:     return function_sint_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_BYTE"))
lbessard@70:     return function_sint_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_WORD"))
lbessard@70:     return function_sint_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_DWORD"))
lbessard@70:     return function_sint_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SINT_TO_LWORD"))
lbessard@70:     return function_sint_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_BOOL"))
lbessard@70:     return function_int_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_SINT"))
lbessard@70:     return function_int_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_DINT"))
lbessard@70:     return function_int_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_LINT"))
lbessard@70:     return function_int_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_USINT"))
lbessard@70:     return function_int_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_UINT"))
lbessard@70:     return function_int_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_UDINT"))
lbessard@70:     return function_int_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_ULINT"))
lbessard@70:     return function_int_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_REAL"))
lbessard@70:     return function_int_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_LREAL"))
lbessard@70:     return function_int_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_TIME"))
lbessard@70:     return function_int_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_DATE"))
lbessard@70:     return function_int_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_TOD"))
lbessard@70:     return function_int_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_DT"))
lbessard@70:     return function_int_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_STRING"))
lbessard@70:     return function_int_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_BYTE"))
lbessard@70:     return function_int_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_WORD"))
lbessard@70:     return function_int_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_DWORD"))
lbessard@70:     return function_int_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INT_TO_LWORD"))
lbessard@70:     return function_int_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_BOOL"))
lbessard@70:     return function_dint_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_SINT"))
lbessard@70:     return function_dint_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_INT"))
lbessard@70:     return function_dint_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_LINT"))
lbessard@70:     return function_dint_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_USINT"))
lbessard@70:     return function_dint_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_UINT"))
lbessard@70:     return function_dint_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_UDINT"))
lbessard@70:     return function_dint_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_ULINT"))
lbessard@70:     return function_dint_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_REAL"))
lbessard@70:     return function_dint_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_LREAL"))
lbessard@70:     return function_dint_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_TIME"))
lbessard@70:     return function_dint_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_DATE"))
lbessard@70:     return function_dint_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_TOD"))
lbessard@70:     return function_dint_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_DT"))
lbessard@70:     return function_dint_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_STRING"))
lbessard@70:     return function_dint_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_BYTE"))
lbessard@70:     return function_dint_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_WORD"))
lbessard@70:     return function_dint_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_DWORD"))
lbessard@70:     return function_dint_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DINT_TO_LWORD"))
lbessard@70:     return function_dint_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_BOOL"))
lbessard@70:     return function_lint_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_SINT"))
lbessard@70:     return function_lint_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_INT"))
lbessard@70:     return function_lint_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_DINT"))
lbessard@70:     return function_lint_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_USINT"))
lbessard@70:     return function_lint_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_UINT"))
lbessard@70:     return function_lint_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_UDINT"))
lbessard@70:     return function_lint_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_ULINT"))
lbessard@70:     return function_lint_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_REAL"))
lbessard@70:     return function_lint_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_LREAL"))
lbessard@70:     return function_lint_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_TIME"))
lbessard@70:     return function_lint_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_DATE"))
lbessard@70:     return function_lint_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_TOD"))
lbessard@70:     return function_lint_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_DT"))
lbessard@70:     return function_lint_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_STRING"))
lbessard@70:     return function_lint_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_BYTE"))
lbessard@70:     return function_lint_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_WORD"))
lbessard@70:     return function_lint_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_DWORD"))
lbessard@70:     return function_lint_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LINT_TO_LWORD"))
lbessard@70:     return function_lint_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_BOOL"))
lbessard@70:     return function_usint_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_SINT"))
lbessard@70:     return function_usint_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_INT"))
lbessard@70:     return function_usint_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_DINT"))
lbessard@70:     return function_usint_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_LINT"))
lbessard@70:     return function_usint_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_UINT"))
lbessard@70:     return function_usint_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_UDINT"))
lbessard@70:     return function_usint_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_ULINT"))
lbessard@70:     return function_usint_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_REAL"))
lbessard@70:     return function_usint_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_LREAL"))
lbessard@70:     return function_usint_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_TIME"))
lbessard@70:     return function_usint_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_DATE"))
lbessard@70:     return function_usint_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_TOD"))
lbessard@70:     return function_usint_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_DT"))
lbessard@70:     return function_usint_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_STRING"))
lbessard@70:     return function_usint_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_BYTE"))
lbessard@70:     return function_usint_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_WORD"))
lbessard@70:     return function_usint_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_DWORD"))
lbessard@70:     return function_usint_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_LWORD"))
lbessard@70:     return function_usint_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_BOOL"))
lbessard@70:     return function_uint_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_SINT"))
lbessard@70:     return function_uint_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_INT"))
lbessard@70:     return function_uint_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_DINT"))
lbessard@70:     return function_uint_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_LINT"))
lbessard@70:     return function_uint_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_USINT"))
lbessard@70:     return function_uint_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_UDINT"))
lbessard@70:     return function_uint_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_ULINT"))
lbessard@70:     return function_uint_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_REAL"))
lbessard@70:     return function_uint_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_LREAL"))
lbessard@70:     return function_uint_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_TIME"))
lbessard@70:     return function_uint_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_DATE"))
lbessard@70:     return function_uint_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_TOD"))
lbessard@70:     return function_uint_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_DT"))
lbessard@70:     return function_uint_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_STRING"))
lbessard@70:     return function_uint_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_BYTE"))
lbessard@70:     return function_uint_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_WORD"))
lbessard@70:     return function_uint_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_DWORD"))
lbessard@70:     return function_uint_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_LWORD"))
lbessard@70:     return function_uint_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_BOOL"))
lbessard@70:     return function_udint_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_SINT"))
lbessard@70:     return function_udint_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_INT"))
lbessard@70:     return function_udint_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_DINT"))
lbessard@70:     return function_udint_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_LINT"))
lbessard@70:     return function_udint_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_USINT"))
lbessard@70:     return function_udint_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_UINT"))
lbessard@70:     return function_udint_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_ULINT"))
lbessard@70:     return function_udint_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_REAL"))
lbessard@70:     return function_udint_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_LREAL"))
lbessard@70:     return function_udint_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_TIME"))
lbessard@70:     return function_udint_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_DATE"))
lbessard@70:     return function_udint_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_TOD"))
lbessard@70:     return function_udint_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_DT"))
lbessard@70:     return function_udint_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_STRING"))
lbessard@70:     return function_udint_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_BYTE"))
lbessard@70:     return function_udint_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_WORD"))
lbessard@70:     return function_udint_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_DWORD"))
lbessard@70:     return function_udint_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_LWORD"))
lbessard@70:     return function_udint_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_BOOL"))
lbessard@70:     return function_ulint_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_SINT"))
lbessard@70:     return function_ulint_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_INT"))
lbessard@70:     return function_ulint_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_DINT"))
lbessard@70:     return function_ulint_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_LINT"))
lbessard@70:     return function_ulint_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_USINT"))
lbessard@70:     return function_ulint_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_UINT"))
lbessard@70:     return function_ulint_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_UDINT"))
lbessard@70:     return function_ulint_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_REAL"))
lbessard@70:     return function_ulint_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_LREAL"))
lbessard@70:     return function_ulint_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_TIME"))
lbessard@70:     return function_ulint_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_DATE"))
lbessard@70:     return function_ulint_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_TOD"))
lbessard@70:     return function_ulint_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_DT"))
lbessard@70:     return function_ulint_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_STRING"))
lbessard@70:     return function_ulint_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_BYTE"))
lbessard@70:     return function_ulint_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_WORD"))
lbessard@70:     return function_ulint_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_DWORD"))
lbessard@70:     return function_ulint_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_LWORD"))
lbessard@70:     return function_ulint_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_BOOL"))
lbessard@70:     return function_real_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_SINT"))
lbessard@70:     return function_real_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_INT"))
lbessard@70:     return function_real_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_DINT"))
lbessard@70:     return function_real_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_LINT"))
lbessard@70:     return function_real_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_USINT"))
lbessard@70:     return function_real_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_UINT"))
lbessard@70:     return function_real_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_UDINT"))
lbessard@70:     return function_real_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_ULINT"))
lbessard@70:     return function_real_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_LREAL"))
lbessard@70:     return function_real_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_TIME"))
lbessard@70:     return function_real_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_DATE"))
lbessard@70:     return function_real_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_TOD"))
lbessard@70:     return function_real_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_DT"))
lbessard@70:     return function_real_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_STRING"))
lbessard@70:     return function_real_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_BYTE"))
lbessard@70:     return function_real_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_WORD"))
lbessard@70:     return function_real_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_DWORD"))
lbessard@70:     return function_real_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REAL_TO_LWORD"))
lbessard@70:     return function_real_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_BOOL"))
lbessard@70:     return function_lreal_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_SINT"))
lbessard@70:     return function_lreal_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_INT"))
lbessard@70:     return function_lreal_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_DINT"))
lbessard@70:     return function_lreal_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_LINT"))
lbessard@70:     return function_lreal_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_USINT"))
lbessard@70:     return function_lreal_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_UINT"))
lbessard@70:     return function_lreal_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_UDINT"))
lbessard@70:     return function_lreal_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_ULINT"))
lbessard@70:     return function_lreal_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_REAL"))
lbessard@70:     return function_lreal_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_TIME"))
lbessard@70:     return function_lreal_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_DATE"))
lbessard@70:     return function_lreal_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_TOD"))
lbessard@70:     return function_lreal_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_DT"))
lbessard@70:     return function_lreal_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_STRING"))
lbessard@70:     return function_lreal_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_BYTE"))
lbessard@70:     return function_lreal_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_WORD"))
lbessard@70:     return function_lreal_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_DWORD"))
lbessard@70:     return function_lreal_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LREAL_TO_LWORD"))
lbessard@70:     return function_lreal_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_SINT"))
lbessard@70:     return function_time_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_INT"))
lbessard@70:     return function_time_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_DINT"))
lbessard@70:     return function_time_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_LINT"))
lbessard@70:     return function_time_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_USINT"))
lbessard@70:     return function_time_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_UINT"))
lbessard@70:     return function_time_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_UDINT"))
lbessard@70:     return function_time_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_ULINT"))
lbessard@70:     return function_time_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_REAL"))
lbessard@70:     return function_time_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_LREAL"))
lbessard@70:     return function_time_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_STRING"))
lbessard@70:     return function_time_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_BYTE"))
lbessard@70:     return function_time_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_WORD"))
lbessard@70:     return function_time_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_DWORD"))
lbessard@70:     return function_time_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TIME_TO_LWORD"))
lbessard@70:     return function_time_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_SINT"))
lbessard@70:     return function_date_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_INT"))
lbessard@70:     return function_date_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_DINT"))
lbessard@70:     return function_date_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_LINT"))
lbessard@70:     return function_date_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_USINT"))
lbessard@70:     return function_date_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_UINT"))
lbessard@70:     return function_date_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_UDINT"))
lbessard@70:     return function_date_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_ULINT"))
lbessard@70:     return function_date_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_REAL"))
lbessard@70:     return function_date_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_LREAL"))
lbessard@70:     return function_date_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_STRING"))
lbessard@70:     return function_date_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_BYTE"))
lbessard@70:     return function_date_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_WORD"))
lbessard@70:     return function_date_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_DWORD"))
lbessard@70:     return function_date_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_TO_LWORD"))
lbessard@70:     return function_date_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_SINT"))
lbessard@70:     return function_tod_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_INT"))
lbessard@70:     return function_tod_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_DINT"))
lbessard@70:     return function_tod_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_LINT"))
lbessard@70:     return function_tod_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_USINT"))
lbessard@70:     return function_tod_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_UINT"))
lbessard@70:     return function_tod_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_UDINT"))
lbessard@70:     return function_tod_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_ULINT"))
lbessard@70:     return function_tod_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_REAL"))
lbessard@70:     return function_tod_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_LREAL"))
lbessard@70:     return function_tod_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_STRING"))
lbessard@70:     return function_tod_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_BYTE"))
lbessard@70:     return function_tod_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_WORD"))
lbessard@70:     return function_tod_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_DWORD"))
lbessard@70:     return function_tod_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TOD_TO_LWORD"))
lbessard@70:     return function_tod_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_SINT"))
lbessard@70:     return function_dt_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_INT"))
lbessard@70:     return function_dt_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_DINT"))
lbessard@70:     return function_dt_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_LINT"))
lbessard@70:     return function_dt_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_USINT"))
lbessard@70:     return function_dt_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_UINT"))
lbessard@70:     return function_dt_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_UDINT"))
lbessard@70:     return function_dt_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_ULINT"))
lbessard@70:     return function_dt_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_REAL"))
lbessard@70:     return function_dt_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_LREAL"))
lbessard@70:     return function_dt_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_STRING"))
lbessard@70:     return function_dt_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_BYTE"))
lbessard@70:     return function_dt_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_WORD"))
lbessard@70:     return function_dt_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_DWORD"))
lbessard@70:     return function_dt_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DT_TO_LWORD"))
lbessard@70:     return function_dt_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_BOOL"))
lbessard@70:     return function_string_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_SINT"))
lbessard@70:     return function_string_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_INT"))
lbessard@70:     return function_string_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_DINT"))
lbessard@70:     return function_string_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_LINT"))
lbessard@70:     return function_string_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_USINT"))
lbessard@70:     return function_string_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_UINT"))
lbessard@70:     return function_string_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_UDINT"))
lbessard@70:     return function_string_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_ULINT"))
lbessard@70:     return function_string_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_REAL"))
lbessard@70:     return function_string_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_LREAL"))
lbessard@70:     return function_string_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_TIME"))
lbessard@70:     return function_string_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_DATE"))
lbessard@70:     return function_string_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_TOD"))
lbessard@70:     return function_string_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_DT"))
lbessard@70:     return function_string_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_BYTE"))
lbessard@70:     return function_string_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_WORD"))
lbessard@70:     return function_string_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_DWORD"))
lbessard@70:     return function_string_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "STRING_TO_LWORD"))
lbessard@70:     return function_string_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_BOOL"))
lbessard@70:     return function_byte_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_SINT"))
lbessard@70:     return function_byte_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_INT"))
lbessard@70:     return function_byte_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_DINT"))
lbessard@70:     return function_byte_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_LINT"))
lbessard@70:     return function_byte_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_USINT"))
lbessard@70:     return function_byte_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_UINT"))
lbessard@70:     return function_byte_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_UDINT"))
lbessard@70:     return function_byte_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_ULINT"))
lbessard@70:     return function_byte_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_REAL"))
lbessard@70:     return function_byte_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_LREAL"))
lbessard@70:     return function_byte_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_TIME"))
lbessard@70:     return function_byte_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_DATE"))
lbessard@70:     return function_byte_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_TOD"))
lbessard@70:     return function_byte_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_DT"))
lbessard@70:     return function_byte_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_STRING"))
lbessard@70:     return function_byte_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_WORD"))
lbessard@70:     return function_byte_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_DWORD"))
lbessard@70:     return function_byte_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BYTE_TO_LWORD"))
lbessard@70:     return function_byte_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_BOOL"))
lbessard@70:     return function_word_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_SINT"))
lbessard@70:     return function_word_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_INT"))
lbessard@70:     return function_word_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_DINT"))
lbessard@70:     return function_word_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_LINT"))
lbessard@70:     return function_word_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_USINT"))
lbessard@70:     return function_word_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_UINT"))
lbessard@70:     return function_word_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_UDINT"))
lbessard@70:     return function_word_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_ULINT"))
lbessard@70:     return function_word_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_REAL"))
lbessard@70:     return function_word_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_LREAL"))
lbessard@70:     return function_word_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_TIME"))
lbessard@70:     return function_word_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_DATE"))
lbessard@70:     return function_word_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_TOD"))
lbessard@70:     return function_word_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_DT"))
lbessard@70:     return function_word_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_STRING"))
lbessard@70:     return function_word_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_BYTE"))
lbessard@70:     return function_word_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_DWORD"))
lbessard@70:     return function_word_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "WORD_TO_LWORD"))
lbessard@70:     return function_word_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_BOOL"))
lbessard@70:     return function_dword_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_SINT"))
lbessard@70:     return function_dword_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_INT"))
lbessard@70:     return function_dword_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_DINT"))
lbessard@70:     return function_dword_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_LINT"))
lbessard@70:     return function_dword_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_USINT"))
lbessard@70:     return function_dword_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_UINT"))
lbessard@70:     return function_dword_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_UDINT"))
lbessard@70:     return function_dword_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_ULINT"))
lbessard@70:     return function_dword_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_REAL"))
lbessard@70:     return function_dword_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_LREAL"))
lbessard@70:     return function_dword_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_TIME"))
lbessard@70:     return function_dword_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_DATE"))
lbessard@70:     return function_dword_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_TOD"))
lbessard@70:     return function_dword_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_DT"))
lbessard@70:     return function_dword_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_STRING"))
lbessard@70:     return function_dword_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_BYTE"))
lbessard@70:     return function_dword_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_WORD"))
lbessard@70:     return function_dword_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DWORD_TO_LWORD"))
lbessard@70:     return function_dword_to_lword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_BOOL"))
lbessard@70:     return function_lword_to_bool;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_SINT"))
lbessard@70:     return function_lword_to_sint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_INT"))
lbessard@70:     return function_lword_to_int;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_DINT"))
lbessard@70:     return function_lword_to_dint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_LINT"))
lbessard@70:     return function_lword_to_lint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_USINT"))
lbessard@70:     return function_lword_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_UINT"))
lbessard@70:     return function_lword_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_UDINT"))
lbessard@70:     return function_lword_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_ULINT"))
lbessard@70:     return function_lword_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_REAL"))
lbessard@70:     return function_lword_to_real;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_LREAL"))
lbessard@70:     return function_lword_to_lreal;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_TIME"))
lbessard@70:     return function_lword_to_time;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_DATE"))
lbessard@70:     return function_lword_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_TOD"))
lbessard@70:     return function_lword_to_tod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_DT"))
lbessard@70:     return function_lword_to_dt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_STRING"))
lbessard@70:     return function_lword_to_string;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_BYTE"))
lbessard@70:     return function_lword_to_byte;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_WORD"))
lbessard@70:     return function_lword_to_word;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LWORD_TO_DWORD"))
lbessard@70:     return function_lword_to_dword;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TRUNC"))
lbessard@70:     return function_trunc;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BCD_TO_USINT"))
lbessard@70:     return function_bcd_to_usint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BCD_TO_UINT"))
lbessard@70:     return function_bcd_to_uint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BCD_TO_UDINT"))
lbessard@70:     return function_bcd_to_udint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "BCD_TO_ULINT"))
lbessard@70:     return function_bcd_to_ulint;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "USINT_TO_BCD"))
lbessard@70:     return function_usint_to_bcd;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UINT_TO_BCD"))
lbessard@70:     return function_uint_to_bcd;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "UDINT_TO_BCD"))
lbessard@70:     return function_udint_to_bcd;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ULINT_TO_BCD"))
lbessard@70:     return function_ulint_to_bcd;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_AND_TIME_TO_TIME_OF_DAY"))
lbessard@70:     return function_date_and_time_to_time_of_day;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DATE_AND_TIME_TO_DATE"))
lbessard@70:     return function_date_and_time_to_date;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ABS"))
lbessard@70:     return function_abs;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SQRT"))
lbessard@70:     return function_sqrt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LN"))
lbessard@70:     return function_ln;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LOG"))
lbessard@70:     return function_log;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "EXP"))
lbessard@70:     return function_exp;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SIN"))
lbessard@70:     return function_sin;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "COS"))
lbessard@70:     return function_cos;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "TAN"))
lbessard@70:     return function_tan;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ASIN"))
lbessard@70:     return function_asin;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ACOS"))
lbessard@70:     return function_acos;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ATAN"))
lbessard@70:     return function_atan;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ADD"))
lbessard@70:     return function_add;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "MUL"))
lbessard@70:     return function_mul;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SUB"))
lbessard@70:     return function_sub;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DIV"))
lbessard@70:     return function_div;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "MOD"))
lbessard@70:     return function_mod;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "EXPT"))
lbessard@70:     return function_expt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "MOVE"))
lbessard@70:     return function_move;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SHL"))
lbessard@70:     return function_shl;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SHR"))
lbessard@70:     return function_shr;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ROR"))
lbessard@70:     return function_ror;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "ROL"))
lbessard@70:     return function_rol;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "AND"))
lbessard@70:     return function_and;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "OR"))
lbessard@70:     return function_or;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "XOR"))
lbessard@70:     return function_xor;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "NOT"))
lbessard@70:     return function_not;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "SEL"))
lbessard@70:     return function_sel;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "MAX"))
lbessard@70:     return function_max;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "MIN"))
lbessard@70:     return function_min;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LIMIT"))
lbessard@70:     return function_limit;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "MUX"))
lbessard@70:     return function_mux;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "GT"))
lbessard@70:     return function_gt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "GE"))
lbessard@70:     return function_ge;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "EQ"))
lbessard@70:     return function_eq;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LT"))
lbessard@70:     return function_lt;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LE"))
lbessard@70:     return function_le;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "NE"))
lbessard@70:     return function_ne;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LEN"))
lbessard@70:     return function_len;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "LEFT"))
lbessard@70:     return function_left;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "RIGHT"))
lbessard@70:     return function_right;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "MID"))
lbessard@70:     return function_mid;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "CONCAT"))
lbessard@70:     return function_concat;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "INSERT"))
lbessard@70:     return function_insert;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "DELETE"))
lbessard@70:     return function_delete;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "REPLACE"))
lbessard@70:     return function_replace;
lbessard@70: 
lbessard@70: if (!strcasecmp(function_name->value, "FIND"))
lbessard@70:     return function_find;
lbessard@70: 
lbessard@70:     else return function_none;
lbessard@70: }
lbessard@70: