1 /*

     2  * (c) 2008 Edouard TISSERANT

     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  * IEC 61131-3 standard function library

    27  * generated code, do not edit by hand

    28  */

    29  

    30  

    31 function_type_t get_function_type(identifier_c *function_name) {

    32 

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

    34     return function_real_to_sint;

    35 

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

    37     return function_real_to_lint;

    38 

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

    40     return function_real_to_dint;

    41 

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

    43     return function_real_to_date;

    44 

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

    46     return function_real_to_dword;

    47 

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

    49     return function_real_to_dt;

    50 

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

    52     return function_real_to_tod;

    53 

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

    55     return function_real_to_udint;

    56 

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

    58     return function_real_to_word;

    59 

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

    61     return function_real_to_string;

    62 

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

    64     return function_real_to_lword;

    65 

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

    67     return function_real_to_uint;

    68 

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

    70     return function_real_to_lreal;

    71 

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

    73     return function_real_to_byte;

    74 

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

    76     return function_real_to_usint;

    77 

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

    79     return function_real_to_ulint;

    80 

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

    82     return function_real_to_bool;

    83 

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

    85     return function_real_to_time;

    86 

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

    88     return function_real_to_int;

    89 

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

    91     return function_sint_to_real;

    92 

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

    94     return function_sint_to_lint;

    95 

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

    97     return function_sint_to_dint;

    98 

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

   100     return function_sint_to_date;

   101 

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

   103     return function_sint_to_dword;

   104 

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

   106     return function_sint_to_dt;

   107 

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

   109     return function_sint_to_tod;

   110 

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

   112     return function_sint_to_udint;

   113 

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

   115     return function_sint_to_word;

   116 

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

   118     return function_sint_to_string;

   119 

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

   121     return function_sint_to_lword;

   122 

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

   124     return function_sint_to_uint;

   125 

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

   127     return function_sint_to_lreal;

   128 

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

   130     return function_sint_to_byte;

   131 

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

   133     return function_sint_to_usint;

   134 

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

   136     return function_sint_to_ulint;

   137 

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

   139     return function_sint_to_bool;

   140 

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

   142     return function_sint_to_time;

   143 

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

   145     return function_sint_to_int;

   146 

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

   148     return function_lint_to_real;

   149 

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

   151     return function_lint_to_sint;

   152 

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

   154     return function_lint_to_dint;

   155 

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

   157     return function_lint_to_date;

   158 

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

   160     return function_lint_to_dword;

   161 

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

   163     return function_lint_to_dt;

   164 

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

   166     return function_lint_to_tod;

   167 

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

   169     return function_lint_to_udint;

   170 

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

   172     return function_lint_to_word;

   173 

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

   175     return function_lint_to_string;

   176 

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

   178     return function_lint_to_lword;

   179 

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

   181     return function_lint_to_uint;

   182 

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

   184     return function_lint_to_lreal;

   185 

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

   187     return function_lint_to_byte;

   188 

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

   190     return function_lint_to_usint;

   191 

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

   193     return function_lint_to_ulint;

   194 

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

   196     return function_lint_to_bool;

   197 

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

   199     return function_lint_to_time;

   200 

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

   202     return function_lint_to_int;

   203 

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

   205     return function_dint_to_real;

   206 

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

   208     return function_dint_to_sint;

   209 

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

   211     return function_dint_to_lint;

   212 

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

   214     return function_dint_to_date;

   215 

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

   217     return function_dint_to_dword;

   218 

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

   220     return function_dint_to_dt;

   221 

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

   223     return function_dint_to_tod;

   224 

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

   226     return function_dint_to_udint;

   227 

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

   229     return function_dint_to_word;

   230 

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

   232     return function_dint_to_string;

   233 

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

   235     return function_dint_to_lword;

   236 

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

   238     return function_dint_to_uint;

   239 

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

   241     return function_dint_to_lreal;

   242 

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

   244     return function_dint_to_byte;

   245 

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

   247     return function_dint_to_usint;

   248 

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

   250     return function_dint_to_ulint;

   251 

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

   253     return function_dint_to_bool;

   254 

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

   256     return function_dint_to_time;

   257 

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

   259     return function_dint_to_int;

   260 

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

   262     return function_date_to_real;

   263 

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

   265     return function_date_to_sint;

   266 

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

   268     return function_date_to_lint;

   269 

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

   271     return function_date_to_dint;

   272 

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

   274     return function_date_to_dword;

   275 

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

   277     return function_date_to_udint;

   278 

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

   280     return function_date_to_word;

   281 

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

   283     return function_date_to_string;

   284 

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

   286     return function_date_to_lword;

   287 

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

   289     return function_date_to_uint;

   290 

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

   292     return function_date_to_lreal;

   293 

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

   295     return function_date_to_byte;

   296 

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

   298     return function_date_to_usint;

   299 

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

   301     return function_date_to_ulint;

   302 

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

   304     return function_date_to_int;

   305 

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

   307     return function_dword_to_real;

   308 

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

   310     return function_dword_to_sint;

   311 

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

   313     return function_dword_to_lint;

   314 

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

   316     return function_dword_to_dint;

   317 

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

   319     return function_dword_to_date;

   320 

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

   322     return function_dword_to_dt;

   323 

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

   325     return function_dword_to_tod;

   326 

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

   328     return function_dword_to_udint;

   329 

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

   331     return function_dword_to_word;

   332 

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

   334     return function_dword_to_string;

   335 

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

   337     return function_dword_to_lword;

   338 

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

   340     return function_dword_to_uint;

   341 

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

   343     return function_dword_to_lreal;

   344 

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

   346     return function_dword_to_byte;

   347 

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

   349     return function_dword_to_usint;

   350 

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

   352     return function_dword_to_ulint;

   353 

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

   355     return function_dword_to_bool;

   356 

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

   358     return function_dword_to_time;

   359 

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

   361     return function_dword_to_int;

   362 

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

   364     return function_dt_to_real;

   365 

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

   367     return function_dt_to_sint;

   368 

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

   370     return function_dt_to_lint;

   371 

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

   373     return function_dt_to_dint;

   374 

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

   376     return function_dt_to_dword;

   377 

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

   379     return function_dt_to_udint;

   380 

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

   382     return function_dt_to_word;

   383 

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

   385     return function_dt_to_string;

   386 

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

   388     return function_dt_to_lword;

   389 

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

   391     return function_dt_to_uint;

   392 

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

   394     return function_dt_to_lreal;

   395 

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

   397     return function_dt_to_byte;

   398 

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

   400     return function_dt_to_usint;

   401 

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

   403     return function_dt_to_ulint;

   404 

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

   406     return function_dt_to_int;

   407 

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

   409     return function_tod_to_real;

   410 

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

   412     return function_tod_to_sint;

   413 

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

   415     return function_tod_to_lint;

   416 

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

   418     return function_tod_to_dint;

   419 

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

   421     return function_tod_to_dword;

   422 

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

   424     return function_tod_to_udint;

   425 

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

   427     return function_tod_to_word;

   428 

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

   430     return function_tod_to_string;

   431 

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

   433     return function_tod_to_lword;

   434 

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

   436     return function_tod_to_uint;

   437 

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

   439     return function_tod_to_lreal;

   440 

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

   442     return function_tod_to_byte;

   443 

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

   445     return function_tod_to_usint;

   446 

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

   448     return function_tod_to_ulint;

   449 

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

   451     return function_tod_to_int;

   452 

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

   454     return function_udint_to_real;

   455 

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

   457     return function_udint_to_sint;

   458 

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

   460     return function_udint_to_lint;

   461 

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

   463     return function_udint_to_dint;

   464 

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

   466     return function_udint_to_date;

   467 

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

   469     return function_udint_to_dword;

   470 

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

   472     return function_udint_to_dt;

   473 

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

   475     return function_udint_to_tod;

   476 

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

   478     return function_udint_to_word;

   479 

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

   481     return function_udint_to_string;

   482 

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

   484     return function_udint_to_lword;

   485 

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

   487     return function_udint_to_uint;

   488 

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

   490     return function_udint_to_lreal;

   491 

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

   493     return function_udint_to_byte;

   494 

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

   496     return function_udint_to_usint;

   497 

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

   499     return function_udint_to_ulint;

   500 

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

   502     return function_udint_to_bool;

   503 

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

   505     return function_udint_to_time;

   506 

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

   508     return function_udint_to_int;

   509 

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

   511     return function_word_to_real;

   512 

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

   514     return function_word_to_sint;

   515 

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

   517     return function_word_to_lint;

   518 

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

   520     return function_word_to_dint;

   521 

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

   523     return function_word_to_date;

   524 

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

   526     return function_word_to_dword;

   527 

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

   529     return function_word_to_dt;

   530 

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

   532     return function_word_to_tod;

   533 

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

   535     return function_word_to_udint;

   536 

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

   538     return function_word_to_string;

   539 

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

   541     return function_word_to_lword;

   542 

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

   544     return function_word_to_uint;

   545 

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

   547     return function_word_to_lreal;

   548 

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

   550     return function_word_to_byte;

   551 

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

   553     return function_word_to_usint;

   554 

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

   556     return function_word_to_ulint;

   557 

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

   559     return function_word_to_bool;

   560 

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

   562     return function_word_to_time;

   563 

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

   565     return function_word_to_int;

   566 

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

   568     return function_string_to_real;

   569 

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

   571     return function_string_to_sint;

   572 

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

   574     return function_string_to_lint;

   575 

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

   577     return function_string_to_dint;

   578 

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

   580     return function_string_to_date;

   581 

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

   583     return function_string_to_dword;

   584 

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

   586     return function_string_to_dt;

   587 

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

   589     return function_string_to_tod;

   590 

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

   592     return function_string_to_udint;

   593 

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

   595     return function_string_to_word;

   596 

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

   598     return function_string_to_lword;

   599 

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

   601     return function_string_to_uint;

   602 

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

   604     return function_string_to_lreal;

   605 

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

   607     return function_string_to_byte;

   608 

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

   610     return function_string_to_usint;

   611 

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

   613     return function_string_to_ulint;

   614 

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

   616     return function_string_to_bool;

   617 

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

   619     return function_string_to_time;

   620 

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

   622     return function_string_to_int;

   623 

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

   625     return function_lword_to_real;

   626 

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

   628     return function_lword_to_sint;

   629 

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

   631     return function_lword_to_lint;

   632 

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

   634     return function_lword_to_dint;

   635 

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

   637     return function_lword_to_date;

   638 

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

   640     return function_lword_to_dword;

   641 

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

   643     return function_lword_to_dt;

   644 

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

   646     return function_lword_to_tod;

   647 

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

   649     return function_lword_to_udint;

   650 

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

   652     return function_lword_to_word;

   653 

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

   655     return function_lword_to_string;

   656 

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

   658     return function_lword_to_uint;

   659 

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

   661     return function_lword_to_lreal;

   662 

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

   664     return function_lword_to_byte;

   665 

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

   667     return function_lword_to_usint;

   668 

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

   670     return function_lword_to_ulint;

   671 

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

   673     return function_lword_to_bool;

   674 

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

   676     return function_lword_to_time;

   677 

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

   679     return function_lword_to_int;

   680 

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

   682     return function_uint_to_real;

   683 

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

   685     return function_uint_to_sint;

   686 

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

   688     return function_uint_to_lint;

   689 

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

   691     return function_uint_to_dint;

   692 

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

   694     return function_uint_to_date;

   695 

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

   697     return function_uint_to_dword;

   698 

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

   700     return function_uint_to_dt;

   701 

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

   703     return function_uint_to_tod;

   704 

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

   706     return function_uint_to_udint;

   707 

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

   709     return function_uint_to_word;

   710 

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

   712     return function_uint_to_string;

   713 

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

   715     return function_uint_to_lword;

   716 

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

   718     return function_uint_to_lreal;

   719 

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

   721     return function_uint_to_byte;

   722 

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

   724     return function_uint_to_usint;

   725 

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

   727     return function_uint_to_ulint;

   728 

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

   730     return function_uint_to_bool;

   731 

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

   733     return function_uint_to_time;

   734 

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

   736     return function_uint_to_int;

   737 

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

   739     return function_lreal_to_real;

   740 

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

   742     return function_lreal_to_sint;

   743 

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

   745     return function_lreal_to_lint;

   746 

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

   748     return function_lreal_to_dint;

   749 

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

   751     return function_lreal_to_date;

   752 

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

   754     return function_lreal_to_dword;

   755 

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

   757     return function_lreal_to_dt;

   758 

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

   760     return function_lreal_to_tod;

   761 

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

   763     return function_lreal_to_udint;

   764 

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

   766     return function_lreal_to_word;

   767 

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

   769     return function_lreal_to_string;

   770 

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

   772     return function_lreal_to_lword;

   773 

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

   775     return function_lreal_to_uint;

   776 

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

   778     return function_lreal_to_byte;

   779 

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

   781     return function_lreal_to_usint;

   782 

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

   784     return function_lreal_to_ulint;

   785 

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

   787     return function_lreal_to_bool;

   788 

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

   790     return function_lreal_to_time;

   791 

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

   793     return function_lreal_to_int;

   794 

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

   796     return function_byte_to_real;

   797 

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

   799     return function_byte_to_sint;

   800 

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

   802     return function_byte_to_lint;

   803 

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

   805     return function_byte_to_dint;

   806 

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

   808     return function_byte_to_date;

   809 

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

   811     return function_byte_to_dword;

   812 

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

   814     return function_byte_to_dt;

   815 

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

   817     return function_byte_to_tod;

   818 

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

   820     return function_byte_to_udint;

   821 

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

   823     return function_byte_to_word;

   824 

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

   826     return function_byte_to_string;

   827 

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

   829     return function_byte_to_lword;

   830 

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

   832     return function_byte_to_uint;

   833 

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

   835     return function_byte_to_lreal;

   836 

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

   838     return function_byte_to_usint;

   839 

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

   841     return function_byte_to_ulint;

   842 

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

   844     return function_byte_to_bool;

   845 

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

   847     return function_byte_to_time;

   848 

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

   850     return function_byte_to_int;

   851 

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

   853     return function_usint_to_real;

   854 

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

   856     return function_usint_to_sint;

   857 

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

   859     return function_usint_to_lint;

   860 

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

   862     return function_usint_to_dint;

   863 

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

   865     return function_usint_to_date;

   866 

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

   868     return function_usint_to_dword;

   869 

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

   871     return function_usint_to_dt;

   872 

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

   874     return function_usint_to_tod;

   875 

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

   877     return function_usint_to_udint;

   878 

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

   880     return function_usint_to_word;

   881 

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

   883     return function_usint_to_string;

   884 

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

   886     return function_usint_to_lword;

   887 

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

   889     return function_usint_to_uint;

   890 

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

   892     return function_usint_to_lreal;

   893 

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

   895     return function_usint_to_byte;

   896 

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

   898     return function_usint_to_ulint;

   899 

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

   901     return function_usint_to_bool;

   902 

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

   904     return function_usint_to_time;

   905 

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

   907     return function_usint_to_int;

   908 

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

   910     return function_ulint_to_real;

   911 

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

   913     return function_ulint_to_sint;

   914 

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

   916     return function_ulint_to_lint;

   917 

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

   919     return function_ulint_to_dint;

   920 

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

   922     return function_ulint_to_date;

   923 

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

   925     return function_ulint_to_dword;

   926 

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

   928     return function_ulint_to_dt;

   929 

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

   931     return function_ulint_to_tod;

   932 

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

   934     return function_ulint_to_udint;

   935 

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

   937     return function_ulint_to_word;

   938 

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

   940     return function_ulint_to_string;

   941 

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

   943     return function_ulint_to_lword;

   944 

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

   946     return function_ulint_to_uint;

   947 

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

   949     return function_ulint_to_lreal;

   950 

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

   952     return function_ulint_to_byte;

   953 

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

   955     return function_ulint_to_usint;

   956 

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

   958     return function_ulint_to_bool;

   959 

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

   961     return function_ulint_to_time;

   962 

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

   964     return function_ulint_to_int;

   965 

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

   967     return function_bool_to_real;

   968 

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

   970     return function_bool_to_sint;

   971 

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

   973     return function_bool_to_lint;

   974 

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

   976     return function_bool_to_dint;

   977 

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

   979     return function_bool_to_date;

   980 

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

   982     return function_bool_to_dword;

   983 

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

   985     return function_bool_to_dt;

   986 

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

   988     return function_bool_to_tod;

   989 

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

   991     return function_bool_to_udint;

   992 

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

   994     return function_bool_to_word;

   995 

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

   997     return function_bool_to_string;

   998 

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

  1000     return function_bool_to_lword;

  1001 

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

  1003     return function_bool_to_uint;

  1004 

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

  1006     return function_bool_to_lreal;

  1007 

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

  1009     return function_bool_to_byte;

  1010 

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

  1012     return function_bool_to_usint;

  1013 

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

  1015     return function_bool_to_ulint;

  1016 

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

  1018     return function_bool_to_time;

  1019 

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

  1021     return function_bool_to_int;

  1022 

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

  1024     return function_time_to_real;

  1025 

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

  1027     return function_time_to_sint;

  1028 

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

  1030     return function_time_to_lint;

  1031 

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

  1033     return function_time_to_dint;

  1034 

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

  1036     return function_time_to_dword;

  1037 

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

  1039     return function_time_to_udint;

  1040 

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

  1042     return function_time_to_word;

  1043 

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

  1045     return function_time_to_string;

  1046 

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

  1048     return function_time_to_lword;

  1049 

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

  1051     return function_time_to_uint;

  1052 

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

  1054     return function_time_to_lreal;

  1055 

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

  1057     return function_time_to_byte;

  1058 

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

  1060     return function_time_to_usint;

  1061 

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

  1063     return function_time_to_ulint;

  1064 

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

  1066     return function_time_to_int;

  1067 

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

  1069     return function_int_to_real;

  1070 

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

  1072     return function_int_to_sint;

  1073 

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

  1075     return function_int_to_lint;

  1076 

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

  1078     return function_int_to_dint;

  1079 

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

  1081     return function_int_to_date;

  1082 

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

  1084     return function_int_to_dword;

  1085 

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

  1087     return function_int_to_dt;

  1088 

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

  1090     return function_int_to_tod;

  1091 

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

  1093     return function_int_to_udint;

  1094 

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

  1096     return function_int_to_word;

  1097 

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

  1099     return function_int_to_string;

  1100 

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

  1102     return function_int_to_lword;

  1103 

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

  1105     return function_int_to_uint;

  1106 

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

  1108     return function_int_to_lreal;

  1109 

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

  1111     return function_int_to_byte;

  1112 

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

  1114     return function_int_to_usint;

  1115 

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

  1117     return function_int_to_ulint;

  1118 

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

  1120     return function_int_to_bool;

  1121 

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

  1123     return function_int_to_time;

  1124 

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

  1126     return function_trunc;

  1127 

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

  1129     return function_bcd_to_udint;

  1130 

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

  1132     return function_bcd_to_uint;

  1133 

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

  1135     return function_bcd_to_ulint;

  1136