1 

     2 # Naive code generator for type convesion function XX_TO_YY testing

     3 

     4 

     5 types = [

     6     ("BOOL", "TRUE"),

     7     ("SINT", "42"),

     8     ("USINT", "42"),

     9     ("BYTE", "42"),

    10     ("STRING", "'42'"),

    11     ("INT", "42"),

    12     ("UINT", "42"),

    13     ("WORD", "42"),

    14     ("DINT", "42"),

    15     ("UDINT", "42"),

    16     ("DWORD", "42"),

    17     ("LINT", "42"),

    18     ("ULINT", "42"),

    19     ("LWORD", "42"),

    20     ("REAL", "42.0"),

    21     ("LREAL", "42.0"),

    22     #("TIME", "42"),

    23     #("TOD", "42"),

    24     #("DATE", "42"),

    25     #("DT", "42"),

    26 ]

    27 

    28 for tsrc, src_literal in types:

    29     for tdest, dest_literal in types:

    30         if tsrc == tdest: continue

    31         s = f"""

    32 RESULT := '{tsrc}_TO_{tdest}'; 

    33 IF {tsrc}_TO_{tdest}({tsrc}#{src_literal}) <> {tdest}#{dest_literal} THEN RETURN; END_IF;

    34 """

    35         print(s)

    36 

    37