1 /*

     2  * (c) 2003 Mario de Sousa

     3  *

     4  * Offered to the public under the terms of the GNU General Public License

     5  * as published by the Free Software Foundation; either version 2 of the

     6  * License, or (at your option) any later version.

     7  *

     8  * This program is distributed in the hope that it will be useful, but

     9  * WITHOUT ANY WARRANTY; without even the implied warranty of

    10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General

    11  * Public License for more details.

    12  *

    13  * This code is made available on the understanding that it will not be

    14  * used in safety-critical situations without a full and competent review.

    15  */

    16 

    17 /*

    18  * An IEC 61131-3 IL and ST compiler.

    19  *

    20  * Based on the

    21  * FINAL DRAFT - IEC 61131-3, 2nd Ed. (2001-12-10)

    22  *

    23  */

    24  

    25  

    26 /****

    27  * IEC 61131-3 standard function lib

    28  * generated code, do not edit by hand

    29  */

    30 function_type_t get_function_type(identifier_c *function_name) {

    31 

    32 if (!strcasecmp(function_name->value, "BOOL_TO_SINT"))

    33     return function_bool_to_sint;

    34 

    35 if (!strcasecmp(function_name->value, "BOOL_TO_INT"))

    36     return function_bool_to_int;

    37 

    38 if (!strcasecmp(function_name->value, "BOOL_TO_DINT"))

    39     return function_bool_to_dint;

    40 

    41 if (!strcasecmp(function_name->value, "BOOL_TO_LINT"))

    42     return function_bool_to_lint;

    43 

    44 if (!strcasecmp(function_name->value, "BOOL_TO_USINT"))

    45     return function_bool_to_usint;

    46 

    47 if (!strcasecmp(function_name->value, "BOOL_TO_UINT"))

    48     return function_bool_to_uint;

    49 

    50 if (!strcasecmp(function_name->value, "BOOL_TO_UDINT"))

    51     return function_bool_to_udint;

    52 

    53 if (!strcasecmp(function_name->value, "BOOL_TO_ULINT"))

    54     return function_bool_to_ulint;

    55 

    56 if (!strcasecmp(function_name->value, "BOOL_TO_REAL"))

    57     return function_bool_to_real;

    58 

    59 if (!strcasecmp(function_name->value, "BOOL_TO_LREAL"))

    60     return function_bool_to_lreal;

    61 

    62 if (!strcasecmp(function_name->value, "BOOL_TO_TIME"))

    63     return function_bool_to_time;

    64 

    65 if (!strcasecmp(function_name->value, "BOOL_TO_DATE"))

    66     return function_bool_to_date;

    67 

    68 if (!strcasecmp(function_name->value, "BOOL_TO_TOD"))

    69     return function_bool_to_tod;

    70 

    71 if (!strcasecmp(function_name->value, "BOOL_TO_DT"))

    72     return function_bool_to_dt;

    73 

    74 if (!strcasecmp(function_name->value, "BOOL_TO_STRING"))

    75     return function_bool_to_string;

    76 

    77 if (!strcasecmp(function_name->value, "BOOL_TO_BYTE"))

    78     return function_bool_to_byte;

    79 

    80 if (!strcasecmp(function_name->value, "BOOL_TO_WORD"))

    81     return function_bool_to_word;

    82 

    83 if (!strcasecmp(function_name->value, "BOOL_TO_DWORD"))

    84     return function_bool_to_dword;

    85 

    86 if (!strcasecmp(function_name->value, "BOOL_TO_LWORD"))

    87     return function_bool_to_lword;

    88 

    89 if (!strcasecmp(function_name->value, "SINT_TO_BOOL"))

    90     return function_sint_to_bool;

    91 

    92 if (!strcasecmp(function_name->value, "SINT_TO_INT"))

    93     return function_sint_to_int;

    94 

    95 if (!strcasecmp(function_name->value, "SINT_TO_DINT"))

    96     return function_sint_to_dint;

    97 

    98 if (!strcasecmp(function_name->value, "SINT_TO_LINT"))

    99     return function_sint_to_lint;

   100 

   101 if (!strcasecmp(function_name->value, "SINT_TO_USINT"))

   102     return function_sint_to_usint;

   103 

   104 if (!strcasecmp(function_name->value, "SINT_TO_UINT"))

   105     return function_sint_to_uint;

   106 

   107 if (!strcasecmp(function_name->value, "SINT_TO_UDINT"))

   108     return function_sint_to_udint;

   109 

   110 if (!strcasecmp(function_name->value, "SINT_TO_ULINT"))

   111     return function_sint_to_ulint;

   112 

   113 if (!strcasecmp(function_name->value, "SINT_TO_REAL"))

   114     return function_sint_to_real;

   115 

   116 if (!strcasecmp(function_name->value, "SINT_TO_LREAL"))

   117     return function_sint_to_lreal;

   118 

   119 if (!strcasecmp(function_name->value, "SINT_TO_TIME"))

   120     return function_sint_to_time;

   121 

   122 if (!strcasecmp(function_name->value, "SINT_TO_DATE"))

   123     return function_sint_to_date;

   124 

   125 if (!strcasecmp(function_name->value, "SINT_TO_TOD"))

   126     return function_sint_to_tod;

   127 

   128 if (!strcasecmp(function_name->value, "SINT_TO_DT"))

   129     return function_sint_to_dt;

   130 

   131 if (!strcasecmp(function_name->value, "SINT_TO_STRING"))

   132     return function_sint_to_string;

   133 

   134 if (!strcasecmp(function_name->value, "SINT_TO_BYTE"))

   135     return function_sint_to_byte;

   136 

   137 if (!strcasecmp(function_name->value, "SINT_TO_WORD"))

   138     return function_sint_to_word;

   139 

   140 if (!strcasecmp(function_name->value, "SINT_TO_DWORD"))

   141     return function_sint_to_dword;

   142 

   143 if (!strcasecmp(function_name->value, "SINT_TO_LWORD"))

   144     return function_sint_to_lword;

   145 

   146 if (!strcasecmp(function_name->value, "INT_TO_BOOL"))

   147     return function_int_to_bool;

   148 

   149 if (!strcasecmp(function_name->value, "INT_TO_SINT"))

   150     return function_int_to_sint;

   151 

   152 if (!strcasecmp(function_name->value, "INT_TO_DINT"))

   153     return function_int_to_dint;

   154 

   155 if (!strcasecmp(function_name->value, "INT_TO_LINT"))

   156     return function_int_to_lint;

   157 

   158 if (!strcasecmp(function_name->value, "INT_TO_USINT"))

   159     return function_int_to_usint;

   160 

   161 if (!strcasecmp(function_name->value, "INT_TO_UINT"))

   162     return function_int_to_uint;

   163 

   164 if (!strcasecmp(function_name->value, "INT_TO_UDINT"))

   165     return function_int_to_udint;

   166 

   167 if (!strcasecmp(function_name->value, "INT_TO_ULINT"))

   168     return function_int_to_ulint;

   169 

   170 if (!strcasecmp(function_name->value, "INT_TO_REAL"))

   171     return function_int_to_real;

   172 

   173 if (!strcasecmp(function_name->value, "INT_TO_LREAL"))

   174     return function_int_to_lreal;

   175 

   176 if (!strcasecmp(function_name->value, "INT_TO_TIME"))

   177     return function_int_to_time;

   178 

   179 if (!strcasecmp(function_name->value, "INT_TO_DATE"))

   180     return function_int_to_date;

   181 

   182 if (!strcasecmp(function_name->value, "INT_TO_TOD"))

   183     return function_int_to_tod;

   184 

   185 if (!strcasecmp(function_name->value, "INT_TO_DT"))

   186     return function_int_to_dt;

   187 

   188 if (!strcasecmp(function_name->value, "INT_TO_STRING"))

   189     return function_int_to_string;

   190 

   191 if (!strcasecmp(function_name->value, "INT_TO_BYTE"))

   192     return function_int_to_byte;

   193 

   194 if (!strcasecmp(function_name->value, "INT_TO_WORD"))

   195     return function_int_to_word;

   196 

   197 if (!strcasecmp(function_name->value, "INT_TO_DWORD"))

   198     return function_int_to_dword;

   199 

   200 if (!strcasecmp(function_name->value, "INT_TO_LWORD"))

   201     return function_int_to_lword;

   202 

   203 if (!strcasecmp(function_name->value, "DINT_TO_BOOL"))

   204     return function_dint_to_bool;

   205 

   206 if (!strcasecmp(function_name->value, "DINT_TO_SINT"))

   207     return function_dint_to_sint;

   208 

   209 if (!strcasecmp(function_name->value, "DINT_TO_INT"))

   210     return function_dint_to_int;

   211 

   212 if (!strcasecmp(function_name->value, "DINT_TO_LINT"))

   213     return function_dint_to_lint;

   214 

   215 if (!strcasecmp(function_name->value, "DINT_TO_USINT"))

   216     return function_dint_to_usint;

   217 

   218 if (!strcasecmp(function_name->value, "DINT_TO_UINT"))

   219     return function_dint_to_uint;

   220 

   221 if (!strcasecmp(function_name->value, "DINT_TO_UDINT"))

   222     return function_dint_to_udint;

   223 

   224 if (!strcasecmp(function_name->value, "DINT_TO_ULINT"))

   225     return function_dint_to_ulint;

   226 

   227 if (!strcasecmp(function_name->value, "DINT_TO_REAL"))

   228     return function_dint_to_real;

   229 

   230 if (!strcasecmp(function_name->value, "DINT_TO_LREAL"))

   231     return function_dint_to_lreal;

   232 

   233 if (!strcasecmp(function_name->value, "DINT_TO_TIME"))

   234     return function_dint_to_time;

   235 

   236 if (!strcasecmp(function_name->value, "DINT_TO_DATE"))

   237     return function_dint_to_date;

   238 

   239 if (!strcasecmp(function_name->value, "DINT_TO_TOD"))

   240     return function_dint_to_tod;

   241 

   242 if (!strcasecmp(function_name->value, "DINT_TO_DT"))

   243     return function_dint_to_dt;

   244 

   245 if (!strcasecmp(function_name->value, "DINT_TO_STRING"))

   246     return function_dint_to_string;

   247 

   248 if (!strcasecmp(function_name->value, "DINT_TO_BYTE"))

   249     return function_dint_to_byte;

   250 

   251 if (!strcasecmp(function_name->value, "DINT_TO_WORD"))

   252     return function_dint_to_word;

   253 

   254 if (!strcasecmp(function_name->value, "DINT_TO_DWORD"))

   255     return function_dint_to_dword;

   256 

   257 if (!strcasecmp(function_name->value, "DINT_TO_LWORD"))

   258     return function_dint_to_lword;

   259 

   260 if (!strcasecmp(function_name->value, "LINT_TO_BOOL"))

   261     return function_lint_to_bool;

   262 

   263 if (!strcasecmp(function_name->value, "LINT_TO_SINT"))

   264     return function_lint_to_sint;

   265 

   266 if (!strcasecmp(function_name->value, "LINT_TO_INT"))

   267     return function_lint_to_int;

   268 

   269 if (!strcasecmp(function_name->value, "LINT_TO_DINT"))

   270     return function_lint_to_dint;

   271 

   272 if (!strcasecmp(function_name->value, "LINT_TO_USINT"))

   273     return function_lint_to_usint;

   274 

   275 if (!strcasecmp(function_name->value, "LINT_TO_UINT"))

   276     return function_lint_to_uint;

   277 

   278 if (!strcasecmp(function_name->value, "LINT_TO_UDINT"))

   279     return function_lint_to_udint;

   280 

   281 if (!strcasecmp(function_name->value, "LINT_TO_ULINT"))

   282     return function_lint_to_ulint;

   283 

   284 if (!strcasecmp(function_name->value, "LINT_TO_REAL"))

   285     return function_lint_to_real;

   286 

   287 if (!strcasecmp(function_name->value, "LINT_TO_LREAL"))

   288     return function_lint_to_lreal;

   289 

   290 if (!strcasecmp(function_name->value, "LINT_TO_TIME"))

   291     return function_lint_to_time;

   292 

   293 if (!strcasecmp(function_name->value, "LINT_TO_DATE"))

   294     return function_lint_to_date;

   295 

   296 if (!strcasecmp(function_name->value, "LINT_TO_TOD"))

   297     return function_lint_to_tod;

   298 

   299 if (!strcasecmp(function_name->value, "LINT_TO_DT"))

   300     return function_lint_to_dt;

   301 

   302 if (!strcasecmp(function_name->value, "LINT_TO_STRING"))

   303     return function_lint_to_string;

   304 

   305 if (!strcasecmp(function_name->value, "LINT_TO_BYTE"))

   306     return function_lint_to_byte;

   307 

   308 if (!strcasecmp(function_name->value, "LINT_TO_WORD"))

   309     return function_lint_to_word;

   310 

   311 if (!strcasecmp(function_name->value, "LINT_TO_DWORD"))

   312     return function_lint_to_dword;

   313 

   314 if (!strcasecmp(function_name->value, "LINT_TO_LWORD"))

   315     return function_lint_to_lword;

   316 

   317 if (!strcasecmp(function_name->value, "USINT_TO_BOOL"))

   318     return function_usint_to_bool;

   319 

   320 if (!strcasecmp(function_name->value, "USINT_TO_SINT"))

   321     return function_usint_to_sint;

   322 

   323 if (!strcasecmp(function_name->value, "USINT_TO_INT"))

   324     return function_usint_to_int;

   325 

   326 if (!strcasecmp(function_name->value, "USINT_TO_DINT"))

   327     return function_usint_to_dint;

   328 

   329 if (!strcasecmp(function_name->value, "USINT_TO_LINT"))

   330     return function_usint_to_lint;

   331 

   332 if (!strcasecmp(function_name->value, "USINT_TO_UINT"))

   333     return function_usint_to_uint;

   334 

   335 if (!strcasecmp(function_name->value, "USINT_TO_UDINT"))

   336     return function_usint_to_udint;

   337 

   338 if (!strcasecmp(function_name->value, "USINT_TO_ULINT"))

   339     return function_usint_to_ulint;

   340 

   341 if (!strcasecmp(function_name->value, "USINT_TO_REAL"))

   342     return function_usint_to_real;

   343 

   344 if (!strcasecmp(function_name->value, "USINT_TO_LREAL"))

   345     return function_usint_to_lreal;

   346 

   347 if (!strcasecmp(function_name->value, "USINT_TO_TIME"))

   348     return function_usint_to_time;

   349 

   350 if (!strcasecmp(function_name->value, "USINT_TO_DATE"))

   351     return function_usint_to_date;

   352 

   353 if (!strcasecmp(function_name->value, "USINT_TO_TOD"))

   354     return function_usint_to_tod;

   355 

   356 if (!strcasecmp(function_name->value, "USINT_TO_DT"))

   357     return function_usint_to_dt;

   358 

   359 if (!strcasecmp(function_name->value, "USINT_TO_STRING"))

   360     return function_usint_to_string;

   361 

   362 if (!strcasecmp(function_name->value, "USINT_TO_BYTE"))

   363     return function_usint_to_byte;

   364 

   365 if (!strcasecmp(function_name->value, "USINT_TO_WORD"))

   366     return function_usint_to_word;

   367 

   368 if (!strcasecmp(function_name->value, "USINT_TO_DWORD"))

   369     return function_usint_to_dword;

   370 

   371 if (!strcasecmp(function_name->value, "USINT_TO_LWORD"))

   372     return function_usint_to_lword;

   373 

   374 if (!strcasecmp(function_name->value, "UINT_TO_BOOL"))

   375     return function_uint_to_bool;

   376 

   377 if (!strcasecmp(function_name->value, "UINT_TO_SINT"))

   378     return function_uint_to_sint;

   379 

   380 if (!strcasecmp(function_name->value, "UINT_TO_INT"))

   381     return function_uint_to_int;

   382 

   383 if (!strcasecmp(function_name->value, "UINT_TO_DINT"))

   384     return function_uint_to_dint;

   385 

   386 if (!strcasecmp(function_name->value, "UINT_TO_LINT"))

   387     return function_uint_to_lint;

   388 

   389 if (!strcasecmp(function_name->value, "UINT_TO_USINT"))

   390     return function_uint_to_usint;

   391 

   392 if (!strcasecmp(function_name->value, "UINT_TO_UDINT"))

   393     return function_uint_to_udint;

   394 

   395 if (!strcasecmp(function_name->value, "UINT_TO_ULINT"))

   396     return function_uint_to_ulint;

   397 

   398 if (!strcasecmp(function_name->value, "UINT_TO_REAL"))

   399     return function_uint_to_real;

   400 

   401 if (!strcasecmp(function_name->value, "UINT_TO_LREAL"))

   402     return function_uint_to_lreal;

   403 

   404 if (!strcasecmp(function_name->value, "UINT_TO_TIME"))

   405     return function_uint_to_time;

   406 

   407 if (!strcasecmp(function_name->value, "UINT_TO_DATE"))

   408     return function_uint_to_date;

   409 

   410 if (!strcasecmp(function_name->value, "UINT_TO_TOD"))

   411     return function_uint_to_tod;

   412 

   413 if (!strcasecmp(function_name->value, "UINT_TO_DT"))

   414     return function_uint_to_dt;

   415 

   416 if (!strcasecmp(function_name->value, "UINT_TO_STRING"))

   417     return function_uint_to_string;

   418 

   419 if (!strcasecmp(function_name->value, "UINT_TO_BYTE"))

   420     return function_uint_to_byte;

   421 

   422 if (!strcasecmp(function_name->value, "UINT_TO_WORD"))

   423     return function_uint_to_word;

   424 

   425 if (!strcasecmp(function_name->value, "UINT_TO_DWORD"))

   426     return function_uint_to_dword;

   427 

   428 if (!strcasecmp(function_name->value, "UINT_TO_LWORD"))

   429     return function_uint_to_lword;

   430 

   431 if (!strcasecmp(function_name->value, "UDINT_TO_BOOL"))

   432     return function_udint_to_bool;

   433 

   434 if (!strcasecmp(function_name->value, "UDINT_TO_SINT"))

   435     return function_udint_to_sint;

   436 

   437 if (!strcasecmp(function_name->value, "UDINT_TO_INT"))

   438     return function_udint_to_int;

   439 

   440 if (!strcasecmp(function_name->value, "UDINT_TO_DINT"))

   441     return function_udint_to_dint;

   442 

   443 if (!strcasecmp(function_name->value, "UDINT_TO_LINT"))

   444     return function_udint_to_lint;

   445 

   446 if (!strcasecmp(function_name->value, "UDINT_TO_USINT"))

   447     return function_udint_to_usint;

   448 

   449 if (!strcasecmp(function_name->value, "UDINT_TO_UINT"))

   450     return function_udint_to_uint;

   451 

   452 if (!strcasecmp(function_name->value, "UDINT_TO_ULINT"))

   453     return function_udint_to_ulint;

   454 

   455 if (!strcasecmp(function_name->value, "UDINT_TO_REAL"))

   456     return function_udint_to_real;

   457 

   458 if (!strcasecmp(function_name->value, "UDINT_TO_LREAL"))

   459     return function_udint_to_lreal;

   460 

   461 if (!strcasecmp(function_name->value, "UDINT_TO_TIME"))

   462     return function_udint_to_time;

   463 

   464 if (!strcasecmp(function_name->value, "UDINT_TO_DATE"))

   465     return function_udint_to_date;

   466 

   467 if (!strcasecmp(function_name->value, "UDINT_TO_TOD"))

   468     return function_udint_to_tod;

   469 

   470 if (!strcasecmp(function_name->value, "UDINT_TO_DT"))

   471     return function_udint_to_dt;

   472 

   473 if (!strcasecmp(function_name->value, "UDINT_TO_STRING"))

   474     return function_udint_to_string;

   475 

   476 if (!strcasecmp(function_name->value, "UDINT_TO_BYTE"))

   477     return function_udint_to_byte;

   478 

   479 if (!strcasecmp(function_name->value, "UDINT_TO_WORD"))

   480     return function_udint_to_word;

   481 

   482 if (!strcasecmp(function_name->value, "UDINT_TO_DWORD"))

   483     return function_udint_to_dword;

   484 

   485 if (!strcasecmp(function_name->value, "UDINT_TO_LWORD"))

   486     return function_udint_to_lword;

   487 

   488 if (!strcasecmp(function_name->value, "ULINT_TO_BOOL"))

   489     return function_ulint_to_bool;

   490 

   491 if (!strcasecmp(function_name->value, "ULINT_TO_SINT"))

   492     return function_ulint_to_sint;

   493 

   494 if (!strcasecmp(function_name->value, "ULINT_TO_INT"))

   495     return function_ulint_to_int;

   496 

   497 if (!strcasecmp(function_name->value, "ULINT_TO_DINT"))

   498     return function_ulint_to_dint;

   499 

   500 if (!strcasecmp(function_name->value, "ULINT_TO_LINT"))

   501     return function_ulint_to_lint;

   502 

   503 if (!strcasecmp(function_name->value, "ULINT_TO_USINT"))

   504     return function_ulint_to_usint;

   505 

   506 if (!strcasecmp(function_name->value, "ULINT_TO_UINT"))

   507     return function_ulint_to_uint;

   508 

   509 if (!strcasecmp(function_name->value, "ULINT_TO_UDINT"))

   510     return function_ulint_to_udint;

   511 

   512 if (!strcasecmp(function_name->value, "ULINT_TO_REAL"))

   513     return function_ulint_to_real;

   514 

   515 if (!strcasecmp(function_name->value, "ULINT_TO_LREAL"))

   516     return function_ulint_to_lreal;

   517 

   518 if (!strcasecmp(function_name->value, "ULINT_TO_TIME"))

   519     return function_ulint_to_time;

   520 

   521 if (!strcasecmp(function_name->value, "ULINT_TO_DATE"))

   522     return function_ulint_to_date;

   523 

   524 if (!strcasecmp(function_name->value, "ULINT_TO_TOD"))

   525     return function_ulint_to_tod;

   526 

   527 if (!strcasecmp(function_name->value, "ULINT_TO_DT"))

   528     return function_ulint_to_dt;

   529 

   530 if (!strcasecmp(function_name->value, "ULINT_TO_STRING"))

   531     return function_ulint_to_string;

   532 

   533 if (!strcasecmp(function_name->value, "ULINT_TO_BYTE"))

   534     return function_ulint_to_byte;

   535 

   536 if (!strcasecmp(function_name->value, "ULINT_TO_WORD"))

   537     return function_ulint_to_word;

   538 

   539 if (!strcasecmp(function_name->value, "ULINT_TO_DWORD"))

   540     return function_ulint_to_dword;

   541 

   542 if (!strcasecmp(function_name->value, "ULINT_TO_LWORD"))

   543     return function_ulint_to_lword;

   544 

   545 if (!strcasecmp(function_name->value, "REAL_TO_BOOL"))

   546     return function_real_to_bool;

   547 

   548 if (!strcasecmp(function_name->value, "REAL_TO_SINT"))

   549     return function_real_to_sint;

   550 

   551 if (!strcasecmp(function_name->value, "REAL_TO_INT"))

   552     return function_real_to_int;

   553 

   554 if (!strcasecmp(function_name->value, "REAL_TO_DINT"))

   555     return function_real_to_dint;

   556 

   557 if (!strcasecmp(function_name->value, "REAL_TO_LINT"))

   558     return function_real_to_lint;

   559 

   560 if (!strcasecmp(function_name->value, "REAL_TO_USINT"))

   561     return function_real_to_usint;

   562 

   563 if (!strcasecmp(function_name->value, "REAL_TO_UINT"))

   564     return function_real_to_uint;

   565 

   566 if (!strcasecmp(function_name->value, "REAL_TO_UDINT"))

   567     return function_real_to_udint;

   568 

   569 if (!strcasecmp(function_name->value, "REAL_TO_ULINT"))

   570     return function_real_to_ulint;

   571 

   572 if (!strcasecmp(function_name->value, "REAL_TO_LREAL"))

   573     return function_real_to_lreal;

   574 

   575 if (!strcasecmp(function_name->value, "REAL_TO_TIME"))

   576     return function_real_to_time;

   577 

   578 if (!strcasecmp(function_name->value, "REAL_TO_DATE"))

   579     return function_real_to_date;

   580 

   581 if (!strcasecmp(function_name->value, "REAL_TO_TOD"))

   582     return function_real_to_tod;

   583 

   584 if (!strcasecmp(function_name->value, "REAL_TO_DT"))

   585     return function_real_to_dt;

   586 

   587 if (!strcasecmp(function_name->value, "REAL_TO_STRING"))

   588     return function_real_to_string;

   589 

   590 if (!strcasecmp(function_name->value, "REAL_TO_BYTE"))

   591     return function_real_to_byte;

   592 

   593 if (!strcasecmp(function_name->value, "REAL_TO_WORD"))

   594     return function_real_to_word;

   595 

   596 if (!strcasecmp(function_name->value, "REAL_TO_DWORD"))

   597     return function_real_to_dword;

   598 

   599 if (!strcasecmp(function_name->value, "REAL_TO_LWORD"))

   600     return function_real_to_lword;

   601 

   602 if (!strcasecmp(function_name->value, "LREAL_TO_BOOL"))

   603     return function_lreal_to_bool;

   604 

   605 if (!strcasecmp(function_name->value, "LREAL_TO_SINT"))

   606     return function_lreal_to_sint;

   607 

   608 if (!strcasecmp(function_name->value, "LREAL_TO_INT"))

   609     return function_lreal_to_int;

   610 

   611 if (!strcasecmp(function_name->value, "LREAL_TO_DINT"))

   612     return function_lreal_to_dint;

   613 

   614 if (!strcasecmp(function_name->value, "LREAL_TO_LINT"))

   615     return function_lreal_to_lint;

   616 

   617 if (!strcasecmp(function_name->value, "LREAL_TO_USINT"))

   618     return function_lreal_to_usint;

   619 

   620 if (!strcasecmp(function_name->value, "LREAL_TO_UINT"))

   621     return function_lreal_to_uint;

   622 

   623 if (!strcasecmp(function_name->value, "LREAL_TO_UDINT"))

   624     return function_lreal_to_udint;

   625 

   626 if (!strcasecmp(function_name->value, "LREAL_TO_ULINT"))

   627     return function_lreal_to_ulint;

   628 

   629 if (!strcasecmp(function_name->value, "LREAL_TO_REAL"))

   630     return function_lreal_to_real;

   631 

   632 if (!strcasecmp(function_name->value, "LREAL_TO_TIME"))

   633     return function_lreal_to_time;

   634 

   635 if (!strcasecmp(function_name->value, "LREAL_TO_DATE"))

   636     return function_lreal_to_date;

   637 

   638 if (!strcasecmp(function_name->value, "LREAL_TO_TOD"))

   639     return function_lreal_to_tod;

   640 

   641 if (!strcasecmp(function_name->value, "LREAL_TO_DT"))

   642     return function_lreal_to_dt;

   643 

   644 if (!strcasecmp(function_name->value, "LREAL_TO_STRING"))

   645     return function_lreal_to_string;

   646 

   647 if (!strcasecmp(function_name->value, "LREAL_TO_BYTE"))

   648     return function_lreal_to_byte;

   649 

   650 if (!strcasecmp(function_name->value, "LREAL_TO_WORD"))

   651     return function_lreal_to_word;

   652 

   653 if (!strcasecmp(function_name->value, "LREAL_TO_DWORD"))

   654     return function_lreal_to_dword;

   655 

   656 if (!strcasecmp(function_name->value, "LREAL_TO_LWORD"))

   657     return function_lreal_to_lword;

   658 

   659 if (!strcasecmp(function_name->value, "TIME_TO_SINT"))

   660     return function_time_to_sint;

   661 

   662 if (!strcasecmp(function_name->value, "TIME_TO_INT"))

   663     return function_time_to_int;

   664 

   665 if (!strcasecmp(function_name->value, "TIME_TO_DINT"))

   666     return function_time_to_dint;

   667 

   668 if (!strcasecmp(function_name->value, "TIME_TO_LINT"))

   669     return function_time_to_lint;

   670 

   671 if (!strcasecmp(function_name->value, "TIME_TO_USINT"))

   672     return function_time_to_usint;

   673 

   674 if (!strcasecmp(function_name->value, "TIME_TO_UINT"))

   675     return function_time_to_uint;

   676 

   677 if (!strcasecmp(function_name->value, "TIME_TO_UDINT"))

   678     return function_time_to_udint;

   679 

   680 if (!strcasecmp(function_name->value, "TIME_TO_ULINT"))

   681     return function_time_to_ulint;

   682 

   683 if (!strcasecmp(function_name->value, "TIME_TO_REAL"))

   684     return function_time_to_real;

   685 

   686 if (!strcasecmp(function_name->value, "TIME_TO_LREAL"))

   687     return function_time_to_lreal;

   688 

   689 if (!strcasecmp(function_name->value, "TIME_TO_STRING"))

   690     return function_time_to_string;

   691 

   692 if (!strcasecmp(function_name->value, "TIME_TO_BYTE"))

   693     return function_time_to_byte;

   694 

   695 if (!strcasecmp(function_name->value, "TIME_TO_WORD"))

   696     return function_time_to_word;

   697 

   698 if (!strcasecmp(function_name->value, "TIME_TO_DWORD"))

   699     return function_time_to_dword;

   700 

   701 if (!strcasecmp(function_name->value, "TIME_TO_LWORD"))

   702     return function_time_to_lword;

   703 

   704 if (!strcasecmp(function_name->value, "DATE_TO_SINT"))

   705     return function_date_to_sint;

   706 

   707 if (!strcasecmp(function_name->value, "DATE_TO_INT"))

   708     return function_date_to_int;

   709 

   710 if (!strcasecmp(function_name->value, "DATE_TO_DINT"))

   711     return function_date_to_dint;

   712 

   713 if (!strcasecmp(function_name->value, "DATE_TO_LINT"))

   714     return function_date_to_lint;

   715 

   716 if (!strcasecmp(function_name->value, "DATE_TO_USINT"))

   717     return function_date_to_usint;

   718 

   719 if (!strcasecmp(function_name->value, "DATE_TO_UINT"))

   720     return function_date_to_uint;

   721 

   722 if (!strcasecmp(function_name->value, "DATE_TO_UDINT"))

   723     return function_date_to_udint;

   724 

   725 if (!strcasecmp(function_name->value, "DATE_TO_ULINT"))

   726     return function_date_to_ulint;

   727 

   728 if (!strcasecmp(function_name->value, "DATE_TO_REAL"))

   729     return function_date_to_real;

   730 

   731 if (!strcasecmp(function_name->value, "DATE_TO_LREAL"))

   732     return function_date_to_lreal;

   733 

   734 if (!strcasecmp(function_name->value, "DATE_TO_STRING"))

   735     return function_date_to_string;

   736 

   737 if (!strcasecmp(function_name->value, "DATE_TO_BYTE"))

   738     return function_date_to_byte;

   739 

   740 if (!strcasecmp(function_name->value, "DATE_TO_WORD"))

   741     return function_date_to_word;

   742 

   743 if (!strcasecmp(function_name->value, "DATE_TO_DWORD"))

   744     return function_date_to_dword;

   745 

   746 if (!strcasecmp(function_name->value, "DATE_TO_LWORD"))

   747     return function_date_to_lword;

   748 

   749 if (!strcasecmp(function_name->value, "TOD_TO_SINT"))

   750     return function_tod_to_sint;

   751 

   752 if (!strcasecmp(function_name->value, "TOD_TO_INT"))

   753     return function_tod_to_int;

   754 

   755 if (!strcasecmp(function_name->value, "TOD_TO_DINT"))

   756     return function_tod_to_dint;

   757 

   758 if (!strcasecmp(function_name->value, "TOD_TO_LINT"))

   759     return function_tod_to_lint;

   760 

   761 if (!strcasecmp(function_name->value, "TOD_TO_USINT"))

   762     return function_tod_to_usint;

   763 

   764 if (!strcasecmp(function_name->value, "TOD_TO_UINT"))

   765     return function_tod_to_uint;

   766 

   767 if (!strcasecmp(function_name->value, "TOD_TO_UDINT"))

   768     return function_tod_to_udint;

   769 

   770 if (!strcasecmp(function_name->value, "TOD_TO_ULINT"))

   771     return function_tod_to_ulint;

   772 

   773 if (!strcasecmp(function_name->value, "TOD_TO_REAL"))

   774     return function_tod_to_real;

   775 

   776 if (!strcasecmp(function_name->value, "TOD_TO_LREAL"))

   777     return function_tod_to_lreal;

   778 

   779 if (!strcasecmp(function_name->value, "TOD_TO_STRING"))

   780     return function_tod_to_string;

   781 

   782 if (!strcasecmp(function_name->value, "TOD_TO_BYTE"))

   783     return function_tod_to_byte;

   784 

   785 if (!strcasecmp(function_name->value, "TOD_TO_WORD"))

   786     return function_tod_to_word;

   787 

   788 if (!strcasecmp(function_name->value, "TOD_TO_DWORD"))

   789     return function_tod_to_dword;

   790 

   791 if (!strcasecmp(function_name->value, "TOD_TO_LWORD"))

   792     return function_tod_to_lword;

   793 

   794 if (!strcasecmp(function_name->value, "DT_TO_SINT"))

   795     return function_dt_to_sint;

   796 

   797 if (!strcasecmp(function_name->value, "DT_TO_INT"))

   798     return function_dt_to_int;

   799 

   800 if (!strcasecmp(function_name->value, "DT_TO_DINT"))

   801     return function_dt_to_dint;

   802 

   803 if (!strcasecmp(function_name->value, "DT_TO_LINT"))

   804     return function_dt_to_lint;

   805 

   806 if (!strcasecmp(function_name->value, "DT_TO_USINT"))

   807     return function_dt_to_usint;

   808 

   809 if (!strcasecmp(function_name->value, "DT_TO_UINT"))

   810     return function_dt_to_uint;

   811 

   812 if (!strcasecmp(function_name->value, "DT_TO_UDINT"))

   813     return function_dt_to_udint;

   814 

   815 if (!strcasecmp(function_name->value, "DT_TO_ULINT"))

   816     return function_dt_to_ulint;

   817 

   818 if (!strcasecmp(function_name->value, "DT_TO_REAL"))

   819     return function_dt_to_real;

   820 

   821 if (!strcasecmp(function_name->value, "DT_TO_LREAL"))

   822     return function_dt_to_lreal;

   823 

   824 if (!strcasecmp(function_name->value, "DT_TO_STRING"))

   825     return function_dt_to_string;

   826 

   827 if (!strcasecmp(function_name->value, "DT_TO_BYTE"))

   828     return function_dt_to_byte;

   829 

   830 if (!strcasecmp(function_name->value, "DT_TO_WORD"))

   831     return function_dt_to_word;

   832 

   833 if (!strcasecmp(function_name->value, "DT_TO_DWORD"))

   834     return function_dt_to_dword;

   835 

   836 if (!strcasecmp(function_name->value, "DT_TO_LWORD"))

   837     return function_dt_to_lword;

   838 

   839 if (!strcasecmp(function_name->value, "STRING_TO_BOOL"))

   840     return function_string_to_bool;

   841 

   842 if (!strcasecmp(function_name->value, "STRING_TO_SINT"))

   843     return function_string_to_sint;

   844 

   845 if (!strcasecmp(function_name->value, "STRING_TO_INT"))

   846     return function_string_to_int;

   847 

   848 if (!strcasecmp(function_name->value, "STRING_TO_DINT"))

   849     return function_string_to_dint;

   850 

   851 if (!strcasecmp(function_name->value, "STRING_TO_LINT"))

   852     return function_string_to_lint;

   853 

   854 if (!strcasecmp(function_name->value, "STRING_TO_USINT"))

   855     return function_string_to_usint;

   856 

   857 if (!strcasecmp(function_name->value, "STRING_TO_UINT"))

   858     return function_string_to_uint;

   859 

   860 if (!strcasecmp(function_name->value, "STRING_TO_UDINT"))

   861     return function_string_to_udint;

   862 

   863 if (!strcasecmp(function_name->value, "STRING_TO_ULINT"))

   864     return function_string_to_ulint;

   865 

   866 if (!strcasecmp(function_name->value, "STRING_TO_REAL"))

   867     return function_string_to_real;

   868 

   869 if (!strcasecmp(function_name->value, "STRING_TO_LREAL"))

   870     return function_string_to_lreal;

   871 

   872 if (!strcasecmp(function_name->value, "STRING_TO_TIME"))

   873     return function_string_to_time;

   874 

   875 if (!strcasecmp(function_name->value, "STRING_TO_DATE"))

   876     return function_string_to_date;

   877 

   878 if (!strcasecmp(function_name->value, "STRING_TO_TOD"))

   879     return function_string_to_tod;

   880 

   881 if (!strcasecmp(function_name->value, "STRING_TO_DT"))

   882     return function_string_to_dt;

   883 

   884 if (!strcasecmp(function_name->value, "STRING_TO_BYTE"))

   885     return function_string_to_byte;

   886 

   887 if (!strcasecmp(function_name->value, "STRING_TO_WORD"))

   888     return function_string_to_word;

   889 

   890 if (!strcasecmp(function_name->value, "STRING_TO_DWORD"))

   891     return function_string_to_dword;

   892 

   893 if (!strcasecmp(function_name->value, "STRING_TO_LWORD"))

   894     return function_string_to_lword;

   895 

   896 if (!strcasecmp(function_name->value, "BYTE_TO_BOOL"))

   897     return function_byte_to_bool;

   898 

   899 if (!strcasecmp(function_name->value, "BYTE_TO_SINT"))

   900     return function_byte_to_sint;

   901 

   902 if (!strcasecmp(function_name->value, "BYTE_TO_INT"))

   903     return function_byte_to_int;

   904 

   905 if (!strcasecmp(function_name->value, "BYTE_TO_DINT"))

   906     return function_byte_to_dint;

   907 

   908 if (!strcasecmp(function_name->value, "BYTE_TO_LINT"))

   909     return function_byte_to_lint;

   910 

   911 if (!strcasecmp(function_name->value, "BYTE_TO_USINT"))

   912     return function_byte_to_usint;

   913 

   914 if (!strcasecmp(function_name->value, "BYTE_TO_UINT"))

   915     return function_byte_to_uint;

   916 

   917 if (!strcasecmp(function_name->value, "BYTE_TO_UDINT"))

   918     return function_byte_to_udint;

   919 

   920 if (!strcasecmp(function_name->value, "BYTE_TO_ULINT"))

   921     return function_byte_to_ulint;

   922 

   923 if (!strcasecmp(function_name->value, "BYTE_TO_REAL"))

   924     return function_byte_to_real;

   925 

   926 if (!strcasecmp(function_name->value, "BYTE_TO_LREAL"))

   927     return function_byte_to_lreal;

   928 

   929 if (!strcasecmp(function_name->value, "BYTE_TO_TIME"))

   930     return function_byte_to_time;

   931 

   932 if (!strcasecmp(function_name->value, "BYTE_TO_DATE"))

   933     return function_byte_to_date;

   934 

   935 if (!strcasecmp(function_name->value, "BYTE_TO_TOD"))

   936     return function_byte_to_tod;

   937 

   938 if (!strcasecmp(function_name->value, "BYTE_TO_DT"))

   939     return function_byte_to_dt;

   940 

   941 if (!strcasecmp(function_name->value, "BYTE_TO_STRING"))

   942     return function_byte_to_string;

   943 

   944 if (!strcasecmp(function_name->value, "BYTE_TO_WORD"))

   945     return function_byte_to_word;

   946 

   947 if (!strcasecmp(function_name->value, "BYTE_TO_DWORD"))

   948     return function_byte_to_dword;

   949 

   950 if (!strcasecmp(function_name->value, "BYTE_TO_LWORD"))

   951     return function_byte_to_lword;

   952 

   953 if (!strcasecmp(function_name->value, "WORD_TO_BOOL"))

   954     return function_word_to_bool;

   955 

   956 if (!strcasecmp(function_name->value, "WORD_TO_SINT"))

   957     return function_word_to_sint;

   958 

   959 if (!strcasecmp(function_name->value, "WORD_TO_INT"))

   960     return function_word_to_int;

   961 

   962 if (!strcasecmp(function_name->value, "WORD_TO_DINT"))

   963     return function_word_to_dint;

   964 

   965 if (!strcasecmp(function_name->value, "WORD_TO_LINT"))

   966     return function_word_to_lint;

   967 

   968 if (!strcasecmp(function_name->value, "WORD_TO_USINT"))

   969     return function_word_to_usint;

   970 

   971 if (!strcasecmp(function_name->value, "WORD_TO_UINT"))

   972     return function_word_to_uint;

   973 

   974 if (!strcasecmp(function_name->value, "WORD_TO_UDINT"))

   975     return function_word_to_udint;

   976 

   977 if (!strcasecmp(function_name->value, "WORD_TO_ULINT"))

   978     return function_word_to_ulint;

   979 

   980 if (!strcasecmp(function_name->value, "WORD_TO_REAL"))

   981     return function_word_to_real;

   982 

   983 if (!strcasecmp(function_name->value, "WORD_TO_LREAL"))

   984     return function_word_to_lreal;

   985 

   986 if (!strcasecmp(function_name->value, "WORD_TO_TIME"))

   987     return function_word_to_time;

   988 

   989 if (!strcasecmp(function_name->value, "WORD_TO_DATE"))

   990     return function_word_to_date;

   991 

   992 if (!strcasecmp(function_name->value, "WORD_TO_TOD"))

   993     return function_word_to_tod;

   994 

   995 if (!strcasecmp(function_name->value, "WORD_TO_DT"))

   996     return function_word_to_dt;

   997 

   998 if (!strcasecmp(function_name->value, "WORD_TO_STRING"))

   999     return function_word_to_string;

  1000 

  1001 if (!strcasecmp(function_name->value, "WORD_TO_BYTE"))

  1002     return function_word_to_byte;

  1003 

  1004 if (!strcasecmp(function_name->value, "WORD_TO_DWORD"))

  1005     return function_word_to_dword;

  1006 

  1007 if (!strcasecmp(function_name->value, "WORD_TO_LWORD"))

  1008     return function_word_to_lword;

  1009 

  1010 if (!strcasecmp(function_name->value, "DWORD_TO_BOOL"))

  1011     return function_dword_to_bool;

  1012 

  1013 if (!strcasecmp(function_name->value, "DWORD_TO_SINT"))

  1014     return function_dword_to_sint;

  1015 

  1016 if (!strcasecmp(function_name->value, "DWORD_TO_INT"))

  1017     return function_dword_to_int;

  1018 

  1019 if (!strcasecmp(function_name->value, "DWORD_TO_DINT"))

  1020     return function_dword_to_dint;

  1021 

  1022 if (!strcasecmp(function_name->value, "DWORD_TO_LINT"))

  1023     return function_dword_to_lint;

  1024 

  1025 if (!strcasecmp(function_name->value, "DWORD_TO_USINT"))

  1026     return function_dword_to_usint;

  1027 

  1028 if (!strcasecmp(function_name->value, "DWORD_TO_UINT"))

  1029     return function_dword_to_uint;

  1030 

  1031 if (!strcasecmp(function_name->value, "DWORD_TO_UDINT"))

  1032     return function_dword_to_udint;

  1033 

  1034 if (!strcasecmp(function_name->value, "DWORD_TO_ULINT"))

  1035     return function_dword_to_ulint;

  1036 

  1037 if (!strcasecmp(function_name->value, "DWORD_TO_REAL"))

  1038     return function_dword_to_real;

  1039 

  1040 if (!strcasecmp(function_name->value, "DWORD_TO_LREAL"))

  1041     return function_dword_to_lreal;

  1042 

  1043 if (!strcasecmp(function_name->value, "DWORD_TO_TIME"))

  1044     return function_dword_to_time;

  1045 

  1046 if (!strcasecmp(function_name->value, "DWORD_TO_DATE"))

  1047     return function_dword_to_date;

  1048 

  1049 if (!strcasecmp(function_name->value, "DWORD_TO_TOD"))

  1050     return function_dword_to_tod;

  1051 

  1052 if (!strcasecmp(function_name->value, "DWORD_TO_DT"))

  1053     return function_dword_to_dt;

  1054 

  1055 if (!strcasecmp(function_name->value, "DWORD_TO_STRING"))

  1056     return function_dword_to_string;

  1057 

  1058 if (!strcasecmp(function_name->value, "DWORD_TO_BYTE"))

  1059     return function_dword_to_byte;

  1060 

  1061 if (!strcasecmp(function_name->value, "DWORD_TO_WORD"))

  1062     return function_dword_to_word;

  1063 

  1064 if (!strcasecmp(function_name->value, "DWORD_TO_LWORD"))

  1065     return function_dword_to_lword;

  1066 

  1067 if (!strcasecmp(function_name->value, "LWORD_TO_BOOL"))

  1068     return function_lword_to_bool;

  1069 

  1070 if (!strcasecmp(function_name->value, "LWORD_TO_SINT"))

  1071     return function_lword_to_sint;

  1072 

  1073 if (!strcasecmp(function_name->value, "LWORD_TO_INT"))

  1074     return function_lword_to_int;

  1075 

  1076 if (!strcasecmp(function_name->value, "LWORD_TO_DINT"))

  1077     return function_lword_to_dint;

  1078 

  1079 if (!strcasecmp(function_name->value, "LWORD_TO_LINT"))

  1080     return function_lword_to_lint;

  1081 

  1082 if (!strcasecmp(function_name->value, "LWORD_TO_USINT"))

  1083     return function_lword_to_usint;

  1084 

  1085 if (!strcasecmp(function_name->value, "LWORD_TO_UINT"))

  1086     return function_lword_to_uint;

  1087 

  1088 if (!strcasecmp(function_name->value, "LWORD_TO_UDINT"))

  1089     return function_lword_to_udint;

  1090 

  1091 if (!strcasecmp(function_name->value, "LWORD_TO_ULINT"))

  1092     return function_lword_to_ulint;

  1093 

  1094 if (!strcasecmp(function_name->value, "LWORD_TO_REAL"))

  1095     return function_lword_to_real;

  1096 

  1097 if (!strcasecmp(function_name->value, "LWORD_TO_LREAL"))

  1098     return function_lword_to_lreal;

  1099 

  1100 if (!strcasecmp(function_name->value, "LWORD_TO_TIME"))

  1101     return function_lword_to_time;

  1102 

  1103 if (!strcasecmp(function_name->value, "LWORD_TO_DATE"))

  1104     return function_lword_to_date;

  1105 

  1106 if (!strcasecmp(function_name->value, "LWORD_TO_TOD"))

  1107     return function_lword_to_tod;

  1108 

  1109 if (!strcasecmp(function_name->value, "LWORD_TO_DT"))

  1110     return function_lword_to_dt;

  1111 

  1112 if (!strcasecmp(function_name->value, "LWORD_TO_STRING"))

  1113     return function_lword_to_string;

  1114 

  1115 if (!strcasecmp(function_name->value, "LWORD_TO_BYTE"))

  1116     return function_lword_to_byte;

  1117 

  1118 if (!strcasecmp(function_name->value, "LWORD_TO_WORD"))

  1119     return function_lword_to_word;

  1120 

  1121 if (!strcasecmp(function_name->value, "LWORD_TO_DWORD"))

  1122     return function_lword_to_dword;

  1123 

  1124 if (!strcasecmp(function_name->value, "TRUNC"))

  1125     return function_trunc;

  1126 

  1127 if (!strcasecmp(function_name->value, "BCD_TO_USINT"))

  1128     return function_bcd_to_usint;

  1129 

  1130 if (!strcasecmp(function_name->value, "BCD_TO_UINT"))

  1131     return function_bcd_to_uint;

  1132 

  1133 if (!strcasecmp(function_name->value, "BCD_TO_UDINT"))

  1134     return function_bcd_to_udint;

  1135 

  1136 if (!strcasecmp(function_name->value, "BCD_TO_ULINT"))