Changeset 2295


Ignore:
Timestamp:
Jan 29, 2007, 6:25:26 PM (14 years ago)
Author:
orlov
Message:
  • Fresh-generated compiler sources in Java.
Location:
to-imperative/trunk/java/org/refal/plus/compiler
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/java/org/refal/plus/compiler/rfp__check.java

    r2187 r2295  
    438438                if (!Satisfies_m_Format_q_ (Expr.empty, _ge_OutFormat__1, _ve_ResultExpression))
    439439                {
    440                   throw new RefalException ("rfp_check", "Satisfies_m_Format_q_", "Unexpected fail");
     440                  return false;
    441441                }
    442442                _ge_Sentence__1 = _ve_Snt;
     
    457457              }
    458458              Print_m_Error (_c_5, _c_12, _vt_Pragma);
    459               throw new RefalException ("rfp_check", "Satisfies_m_Format_q_", "Unexpected fail");
     459              return false;
    460460            }
    461461            break _block3;
     
    644644              }
    645645              Print_m_Error (_c_5, _c_12, _vt_Statement);
    646               throw new RefalException ("rfp_check", "Satisfies_m_Format_q_", "Unexpected fail");
     646              return false;
    647647            }
    648648            break _block3;
     
    724724            if (!Satisfies_m_Format_q_ (Expr.empty, _ve_HardFormat.getExpr (), _ve_Snt1))
    725725            {
    726               throw new RefalException ("rfp_check", "Satisfies_m_Format_q_", "Unexpected fail");
     726              return false;
    727727            }
    728728            Expr[] _va_6 = { _c_13 , _vt_Pragma , _ve_HardExp };
     
    774774            if (!Satisfies_m_Format_q_ (Expr.empty, _ge_OutFormat__1, _ve_Snt1))
    775775            {
    776               throw new RefalException ("rfp_check", "Satisfies_m_Format_q_", "Unexpected fail");
     776              return false;
    777777            }
    778778            if (!Satisfies_m_Format_q_ (_c_8, _ge_OutFormat__1, _vt_CatchBlock))
    779779            {
    780               throw new RefalException ("rfp_check", "Satisfies_m_Format_q_", "Unexpected fail");
     780              return false;
    781781            }
    782782            _ge_Sentence__1 = _ve_Snt;
     
    848848                  }
    849849                  Print_m_Error (_c_5, _c_21, _vt_Pragma);
    850                   throw new RefalException ("rfp_check", "Satisfies_m_Format_q_", "Unexpected fail");
     850                  return false;
    851851                }
    852852                break _block11;
     
    987987            if (!Satisfies_m_Format_q_ (_ve_InFormat, _ge_OutFormat__1, _ve_Snt1))
    988988            {
    989               throw new RefalException ("rfp_check", "Satisfies_m_Format_q_", "Unexpected fail");
     989              return false;
    990990            }
    991991            _ge_Sentence__1 = Expr.empty;
  • to-imperative/trunk/java/org/refal/plus/compiler/rfp__lex.java

    r2187 r2295  
    3333  static private final Expr _c_6 = new Expr (new Word ("STOP"));
    3434  static private final Expr _c_7 = new Expr (new Expr (new Word ("EOF")));
    35   static private final Expr _c_102 = new Expr (new Word ("USE"));
    36   static private final Expr _c_8 = new Expr (_c_102);
    37   static private final Expr _c_45 = new Expr (new Word ("SEMICOLON"));
    38   static private final Expr _c_9 = new Expr (_c_45);
     35  static private final Expr _c_104 = new Expr (new Word ("USE"));
     36  static private final Expr _c_8 = new Expr (_c_104);
     37  static private final Expr _c_47 = new Expr (new Word ("SEMICOLON"));
     38  static private final Expr _c_9 = new Expr (_c_47);
    3939  static private final Expr _c_10 = new Expr (new Word ("WORD"));
    4040  static private final Expr _c_11 = new Expr (new Word ("QWORD"));
     
    5353  static private final Expr _c_24 = new Expr (new Word ("Unexpected end of file"));
    5454  static private final Expr _c_25 = new Expr (new Word ("Unexpected token "));
    55   static private final Expr _c_26 = Expr.fromSequence ("(");
    56   static private final Expr _c_27 = new Expr (new Word ("LPAREN"));
    57   static private final Expr _c_28 = Expr.fromSequence (")");
    58   static private final Expr _c_29 = new Expr (new Word ("RPAREN"));
    59   static private final Expr _c_30 = Expr.fromSequence ("<");
    60   static private final Expr _c_31 = new Expr (new Word ("LBRACKET"));
    61   static private final Expr _c_32 = Expr.fromSequence (">");
    62   static private final Expr _c_33 = new Expr (new Word ("RBRACKET"));
    63   static private final Expr _c_34 = Expr.fromSequence ("{");
    64   static private final Expr _c_35 = new Expr (new Word ("LBRACE"));
    65   static private final Expr _c_36 = Expr.fromSequence ("}");
    66   static private final Expr _c_37 = new Expr (new Word ("RBRACE"));
    67   static private final Expr _c_38 = Expr.fromSequence ("#");
    68   static private final Expr _c_39 = new Expr (new Word ("NOT"));
    69   static private final Expr _c_40 = Expr.fromSequence ("&");
    70   static private final Expr _c_41 = new Expr (new Word ("REF"));
    71   static private final Expr _c_42 = Expr.fromSequence (",");
    72   static private final Expr _c_43 = new Expr (new Word ("COMMA"));
    73   static private final Expr _c_44 = Expr.fromSequence (";");
    74   static private final Expr _c_46 = Expr.fromSequence ("=");
    75   static private final Expr _c_47 = new Expr (new Word ("EQUAL"));
    76   static private final Expr _c_48 = new Expr (_c_15, 5, 1);
    77   static private final Expr _c_49 = new Expr (new Expr (new Word ("DCOLON")));
    78   static private final Expr _c_50 = new Expr (new Expr (new Word ("COLON")));
    79   static private final Expr _c_51 = Expr.fromSequence ("\\");
    80   static private final Expr _c_77 = Expr.fromSequence ("$func?");
    81   static private final Expr _c_52 = new Expr (_c_77, 5, 1);
    82   static private final Expr _c_53 = new Expr (new Word ("STAKE"));
    83   static private final Expr _c_118 = Expr.fromSequence ("!!tmp-");
    84   static private final Expr _c_54 = new Expr (_c_118, 0, 1);
    85   static private final Expr _c_55 = new Expr (new Word ("CUT"));
    86   static private final Expr _c_56 = new Expr (new Word ("TLBRACE"));
    87   static private final Expr _c_57 = new Expr (new Word ("'"));
    88   static private final Expr _c_58 = new Expr (new Word ("Invalid character '"));
    89   static private final Expr _c_59 = new Expr (new Word ("Unexpected end of line"));
    90   static private final Expr _c_135 = Expr.fromSequence ("*/");
    91   static private final Expr _c_60 = new Expr (_c_135, 1, 1);
    92   static private final Expr _c_61 = new Expr (_c_135, 0, 1);
    93   static private final Expr _c_62 = Expr.fromSequence (" \n\t");
    94   static private final Expr _c_63 = new Expr (_c_14, 8, 1);
    95   static private final Expr _c_64 = new Expr (new Word ("CASE-INSENSITIVE"));
    96   static private final Expr _c_65 = Expr.fromSequence ("$box");
    97   static private final Expr _c_66 = new Expr (new Word ("BOX"));
    98   static private final Expr _c_67 = Expr.fromSequence ("$channel");
    99   static private final Expr _c_68 = new Expr (new Word ("CHANNEL"));
    100   static private final Expr _c_69 = Expr.fromSequence ("$const");
    101   static private final Expr _c_70 = new Expr (new Word ("CONST"));
    102   static private final Expr _c_71 = Expr.fromSequence ("$error");
    103   static private final Expr _c_72 = new Expr (new Word ("ERROR"));
    104   static private final Expr _c_73 = Expr.fromSequence ("$fail");
    105   static private final Expr _c_74 = new Expr (new Word ("FAIL"));
    106   static private final Expr _c_75 = new Expr (_c_77, 0, 5);
    107   static private final Expr _c_76 = new Expr (new Word ("FUNC"));
    108   static private final Expr _c_78 = new Expr (new Word ("FUNC?"));
    109   static private final Expr _c_79 = Expr.fromSequence ("$tfunc");
    110   static private final Expr _c_80 = new Expr (new Word ("TPP"));
    111   static private final Expr _c_81 = new Expr (new Word ("TFUNC"));
    112   static private final Expr _c_82 = new Expr (new Word ("Incorrect using of t-function \n"));
    113   static private final Expr _c_83 = Expr.fromSequence ("$extern");
    114   static private final Expr _c_84 = new Expr (new Word ("EXTERN"));
    115   static private final Expr _c_85 = Expr.fromSequence ("$iter");
    116   static private final Expr _c_86 = new Expr (new Word ("ITER"));
    117   static private final Expr _c_87 = Expr.fromSequence ("$l");
    118   static private final Expr _c_88 = new Expr (new Word ("L"));
    119   static private final Expr _c_89 = Expr.fromSequence ("$r");
    120   static private final Expr _c_90 = new Expr (new Word ("R"));
    121   static private final Expr _c_91 = Expr.fromSequence ("$string");
    122   static private final Expr _c_92 = new Expr (new Word ("STRING"));
    123   static private final Expr _c_93 = Expr.fromSequence ("$table");
    124   static private final Expr _c_94 = new Expr (new Word ("TABLE"));
    125   static private final Expr _c_97 = Expr.fromSequence ("$traceall");
    126   static private final Expr _c_95 = new Expr (_c_97, 0, 6);
    127   static private final Expr _c_96 = new Expr (new Word ("TRACE"));
    128   static private final Expr _c_98 = new Expr (new Word ("TRACEALL"));
    129   static private final Expr _c_99 = Expr.fromSequence ("$trap");
    130   static private final Expr _c_100 = new Expr (new Word ("TRAP"));
    131   static private final Expr _c_101 = new Expr (_c_12, 37, 4);
    132   static private final Expr _c_103 = Expr.fromSequence ("$vector");
    133   static private final Expr _c_104 = new Expr (new Word ("VECTOR"));
    134   static private final Expr _c_105 = Expr.fromSequence ("$with");
    135   static private final Expr _c_106 = new Expr (new Word ("WITH"));
    136   static private final Expr _c_107 = new Expr (_c_101, 2, 1);
    137   static private final Expr _c_108 = new Expr (new Word ("SVAR"));
    138   static private final Expr _c_109 = new Expr (_c_101, 3, 1);
    139   static private final Expr _c_110 = new Expr (new Word ("EVAR"));
    140   static private final Expr _c_111 = new Expr (_c_103, 1, 1);
    141   static private final Expr _c_112 = new Expr (new Word ("VVAR"));
    142   static private final Expr _c_113 = new Expr (_c_85, 2, 1);
    143   static private final Expr _c_114 = new Expr (new Word ("TVAR"));
    144   static private final Expr _c_115 = new Expr (_c_3, 0, 1);
    145   static private final Expr _c_116 = new Expr (new Word ("Var"));
    146   static private final Expr _c_117 = new Expr (_c_118, 5, 1);
    147   static private final Expr _c_119 = Expr.fromSequence ("+");
    148   static private final Expr _c_120 = new Expr (new Word ("NUMBER"));
    149   static private final Expr _c_121 = new Expr (new Word ("Fun"));
    150   static private final Expr _c_123 = Expr.fromSequence ("?!-.");
    151   static private final Expr _c_122 = new Expr (_c_123, 0, 3);
    152   static private final Expr _c_124 = Expr.fromSequence ("\"");
    153   static private final Expr _c_125 = Expr.fromSequence ("'");
    154   static private final Expr _c_126 = new Expr (new Word ("SYMBOLS"));
    155   static private final Expr _c_127 = new Expr (_c_62, 2, 1);
    156   static private final Expr _c_128 = new Expr (_c_69, 3, 1);
    157   static private final Expr _c_129 = new Expr (_c_62, 1, 1);
    158   static private final Expr _c_130 = new Expr (_c_89, 1, 1);
    159   static private final Expr _c_131 = Expr.fromSequence ("\r");
    160   static private final Expr _c_132 = new Expr (new Word ("Unknown control sequence '\\"));
    161   static private final Expr _c_133 = new Expr (new Expr (new Word ("Error")), new Expr (new Word ("Unterminated string detected")));
    162   static private final Expr _c_134 = new Expr (_c_133, 1, 1);
    163   static private final Expr _c_136 = new Expr (new Func () {
     55  static private final Expr _c_106 = new Expr (new Word ("IMPORT"));
     56  static private final Expr _c_26 = new Expr (_c_106);
     57  static private final Expr _c_27 = Expr.fromSequence ("org.refal.plus.wrappers.");
     58  static private final Expr _c_28 = Expr.fromSequence ("(");
     59  static private final Expr _c_29 = new Expr (new Word ("LPAREN"));
     60  static private final Expr _c_30 = Expr.fromSequence (")");
     61  static private final Expr _c_31 = new Expr (new Word ("RPAREN"));
     62  static private final Expr _c_32 = Expr.fromSequence ("<");
     63  static private final Expr _c_33 = new Expr (new Word ("LBRACKET"));
     64  static private final Expr _c_34 = Expr.fromSequence (">");
     65  static private final Expr _c_35 = new Expr (new Word ("RBRACKET"));
     66  static private final Expr _c_36 = Expr.fromSequence ("{");
     67  static private final Expr _c_37 = new Expr (new Word ("LBRACE"));
     68  static private final Expr _c_38 = Expr.fromSequence ("}");
     69  static private final Expr _c_39 = new Expr (new Word ("RBRACE"));
     70  static private final Expr _c_40 = Expr.fromSequence ("#");
     71  static private final Expr _c_41 = new Expr (new Word ("NOT"));
     72  static private final Expr _c_42 = Expr.fromSequence ("&");
     73  static private final Expr _c_43 = new Expr (new Word ("REF"));
     74  static private final Expr _c_44 = Expr.fromSequence (",");
     75  static private final Expr _c_45 = new Expr (new Word ("COMMA"));
     76  static private final Expr _c_46 = Expr.fromSequence (";");
     77  static private final Expr _c_48 = Expr.fromSequence ("=");
     78  static private final Expr _c_49 = new Expr (new Word ("EQUAL"));
     79  static private final Expr _c_50 = new Expr (_c_15, 5, 1);
     80  static private final Expr _c_51 = new Expr (new Expr (new Word ("DCOLON")));
     81  static private final Expr _c_52 = new Expr (new Expr (new Word ("COLON")));
     82  static private final Expr _c_53 = Expr.fromSequence ("\\");
     83  static private final Expr _c_79 = Expr.fromSequence ("$func?");
     84  static private final Expr _c_54 = new Expr (_c_79, 5, 1);
     85  static private final Expr _c_55 = new Expr (new Word ("STAKE"));
     86  static private final Expr _c_122 = Expr.fromSequence ("!!tmp-");
     87  static private final Expr _c_56 = new Expr (_c_122, 0, 1);
     88  static private final Expr _c_57 = new Expr (new Word ("CUT"));
     89  static private final Expr _c_58 = new Expr (new Word ("TLBRACE"));
     90  static private final Expr _c_59 = new Expr (new Word ("'"));
     91  static private final Expr _c_60 = new Expr (new Word ("Invalid character '"));
     92  static private final Expr _c_61 = new Expr (new Word ("Unexpected end of line"));
     93  static private final Expr _c_139 = Expr.fromSequence ("*/");
     94  static private final Expr _c_62 = new Expr (_c_139, 1, 1);
     95  static private final Expr _c_63 = new Expr (_c_139, 0, 1);
     96  static private final Expr _c_64 = Expr.fromSequence (" \n\t");
     97  static private final Expr _c_65 = new Expr (_c_14, 8, 1);
     98  static private final Expr _c_66 = new Expr (new Word ("CASE-INSENSITIVE"));
     99  static private final Expr _c_67 = Expr.fromSequence ("$box");
     100  static private final Expr _c_68 = new Expr (new Word ("BOX"));
     101  static private final Expr _c_69 = Expr.fromSequence ("$channel");
     102  static private final Expr _c_70 = new Expr (new Word ("CHANNEL"));
     103  static private final Expr _c_71 = Expr.fromSequence ("$const");
     104  static private final Expr _c_72 = new Expr (new Word ("CONST"));
     105  static private final Expr _c_73 = Expr.fromSequence ("$error");
     106  static private final Expr _c_74 = new Expr (new Word ("ERROR"));
     107  static private final Expr _c_75 = Expr.fromSequence ("$fail");
     108  static private final Expr _c_76 = new Expr (new Word ("FAIL"));
     109  static private final Expr _c_77 = new Expr (_c_79, 0, 5);
     110  static private final Expr _c_78 = new Expr (new Word ("FUNC"));
     111  static private final Expr _c_80 = new Expr (new Word ("FUNC?"));
     112  static private final Expr _c_81 = Expr.fromSequence ("$tfunc");
     113  static private final Expr _c_82 = new Expr (new Word ("TPP"));
     114  static private final Expr _c_83 = new Expr (new Word ("TFUNC"));
     115  static private final Expr _c_84 = new Expr (new Word ("Incorrect using of t-function \n"));
     116  static private final Expr _c_85 = Expr.fromSequence ("$extern");
     117  static private final Expr _c_86 = new Expr (new Word ("EXTERN"));
     118  static private final Expr _c_87 = Expr.fromSequence ("$iter");
     119  static private final Expr _c_88 = new Expr (new Word ("ITER"));
     120  static private final Expr _c_89 = Expr.fromSequence ("$l");
     121  static private final Expr _c_90 = new Expr (new Word ("L"));
     122  static private final Expr _c_91 = Expr.fromSequence ("$r");
     123  static private final Expr _c_92 = new Expr (new Word ("R"));
     124  static private final Expr _c_93 = Expr.fromSequence ("$string");
     125  static private final Expr _c_94 = new Expr (new Word ("STRING"));
     126  static private final Expr _c_95 = Expr.fromSequence ("$table");
     127  static private final Expr _c_96 = new Expr (new Word ("TABLE"));
     128  static private final Expr _c_99 = Expr.fromSequence ("$traceall");
     129  static private final Expr _c_97 = new Expr (_c_99, 0, 6);
     130  static private final Expr _c_98 = new Expr (new Word ("TRACE"));
     131  static private final Expr _c_100 = new Expr (new Word ("TRACEALL"));
     132  static private final Expr _c_101 = Expr.fromSequence ("$trap");
     133  static private final Expr _c_102 = new Expr (new Word ("TRAP"));
     134  static private final Expr _c_103 = new Expr (_c_14, 8, 4);
     135  static private final Expr _c_105 = Expr.fromSequence ("$import");
     136  static private final Expr _c_107 = Expr.fromSequence ("$vector");
     137  static private final Expr _c_108 = new Expr (new Word ("VECTOR"));
     138  static private final Expr _c_109 = Expr.fromSequence ("$with");
     139  static private final Expr _c_110 = new Expr (new Word ("WITH"));
     140  static private final Expr _c_111 = new Expr (_c_103, 2, 1);
     141  static private final Expr _c_112 = new Expr (new Word ("SVAR"));
     142  static private final Expr _c_113 = new Expr (_c_103, 3, 1);
     143  static private final Expr _c_114 = new Expr (new Word ("EVAR"));
     144  static private final Expr _c_115 = new Expr (_c_107, 1, 1);
     145  static private final Expr _c_116 = new Expr (new Word ("VVAR"));
     146  static private final Expr _c_117 = new Expr (_c_87, 2, 1);
     147  static private final Expr _c_118 = new Expr (new Word ("TVAR"));
     148  static private final Expr _c_119 = new Expr (_c_3, 0, 1);
     149  static private final Expr _c_120 = new Expr (new Word ("Var"));
     150  static private final Expr _c_121 = new Expr (_c_122, 5, 1);
     151  static private final Expr _c_123 = Expr.fromSequence ("+");
     152  static private final Expr _c_124 = new Expr (new Word ("NUMBER"));
     153  static private final Expr _c_125 = new Expr (new Word ("Fun"));
     154  static private final Expr _c_127 = Expr.fromSequence ("?!-.");
     155  static private final Expr _c_126 = new Expr (_c_127, 0, 3);
     156  static private final Expr _c_128 = Expr.fromSequence ("\"");
     157  static private final Expr _c_129 = Expr.fromSequence ("'");
     158  static private final Expr _c_130 = new Expr (new Word ("SYMBOLS"));
     159  static private final Expr _c_131 = new Expr (_c_64, 2, 1);
     160  static private final Expr _c_132 = new Expr (_c_77, 3, 1);
     161  static private final Expr _c_133 = new Expr (_c_64, 1, 1);
     162  static private final Expr _c_134 = new Expr (_c_91, 1, 1);
     163  static private final Expr _c_135 = Expr.fromSequence ("\r");
     164  static private final Expr _c_136 = new Expr (new Word ("Unknown control sequence '\\"));
     165  static private final Expr _c_137 = new Expr (new Expr (new Word ("Error")), new Expr (new Word ("Unterminated string detected")));
     166  static private final Expr _c_138 = new Expr (_c_137, 1, 1);
     167  static private final Expr _c_140 = new Expr (new Func () {
    164168    public boolean eval (Expr arg, Result res) throws RefalException {
    165169      return Next_m_Column__0 (arg, res);
    166170    }
    167171  });
    168   static private final Expr _c_137 = new Expr (new Func () {
     172  static private final Expr _c_141 = new Expr (new Func () {
    169173    public boolean eval (Expr arg, Result res) throws RefalException {
    170174      return Apply__0 (arg, res);
    171175    }
    172176  });
    173   static private final Expr _c_138 = new Expr (Expr.empty);
    174   static private final Expr _c_139 = new Expr (new Word ("Trying to open '"));
    175   static private final Expr _c_140 = new Expr (new Word ("' successfully opened"));
    176   static private final Expr _c_141 = new Expr (new Word ("FILE"));
    177   static private final Expr _c_142 = new Expr (_c_3, 0, 3);
     177  static private final Expr _c_142 = new Expr (Expr.empty);
     178  static private final Expr _c_143 = new Expr (new Word ("Trying to open '"));
     179  static private final Expr _c_144 = new Expr (new Word ("' successfully opened"));
     180  static private final Expr _c_145 = new Expr (new Word ("FILE"));
     181  static private final Expr _c_146 = new Expr (_c_3, 0, 3);
    178182  static private final Expr[] _va_1 = { new Expr (new Word ("Apply")), new Expr (new Word ("Apply")), new Expr (new Word ("Unexpected fail")) };
    179   static private final Expr _c_143 = Expr.concat (_va_1);
     183  static private final Expr _c_147 = Expr.concat (_va_1);
    180184
    181185  static public void RFP_m_Lexer (Expr _ve_filename, Result _v_res1) throws RefalException
     
    11601164        break _block1;
    11611165      }
    1162       int _v_len17 = _ve_t.getExpr ().getLen ();
    1163       int _v_len18 = 0;
    1164       if ((_v_len17 < _v_len18))
     1166      _block1__branch3: {
     1167        if ((_ve_t.getExpr ().getLen () != 1))
     1168        {
     1169          break _block1__branch3;
     1170        }
     1171        if (_ve_t.getExpr ().symbolAt (0))
     1172        {
     1173          break _block1__branch3;
     1174        }
     1175        Expr _v_deref__t3 = (Expr) _ve_t.getExpr ().at (0);
     1176        if ((_v_deref__t3.getLen () != 2))
     1177        {
     1178          break _block1__branch3;
     1179        }
     1180        if (_v_deref__t3.symbolAt (0))
     1181        {
     1182          break _block1__branch3;
     1183        }
     1184        Expr _v_deref__deref__t3 = (Expr) _v_deref__t3.at (0);
     1185        int _v_len17 = _v_deref__deref__t3.getLen ();
     1186        int _v_len18 = 0;
     1187        if ((_v_len17 < _v_len18))
     1188        {
     1189          break _block1__branch3;
     1190        }
     1191        int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_204_m_8 = (_v_len17 - _v_len18);
     1192        if (!_c_26.eq (_v_deref__t3, (0 + 1)))
     1193        {
     1194          break _block1__branch3;
     1195        }
     1196        Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_204_m_8 = new Expr (_v_deref__deref__t3, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_204_m_8);
     1197        Expr _ve_nts = Expr.empty;
     1198        Expr _ge_line__0__2 = _ge_line__0.getExpr ();
     1199        Expr _vs_1 = _c_17;
     1200        _exit__iter2: for ( ; ; )
     1201        {
     1202          _iter2: {
     1203            if ((1 != 1))
     1204            {
     1205              break _iter2;
     1206            }
     1207            if (!_vs_1.eq (_c_18, 0))
     1208            {
     1209              break _iter2;
     1210            }
     1211            Result _v_Scan_m_Tokens3 = new Result ();
     1212            Scan_m_Tokens (_ge_line__0__2, _v_Scan_m_Tokens3);
     1213            _v_res1.assign (new Expr (_ve_nts, _v_Scan_m_Tokens3.getExpr ()));
     1214            break _exit__iter2;
     1215          }
     1216          Result _ge_t__3 = new Result ();
     1217          Result _ge_line__0__2__3 = new Result ();
     1218          Scan_m_Token (_ge_line__0__2, _ge_t__3, _ge_line__0__2__3);
     1219          _block12: {
     1220            _block12__branch1: {
     1221              if ((_ge_t__3.getExpr ().getLen () != 1))
     1222              {
     1223                break _block12__branch1;
     1224              }
     1225              if (_ge_t__3.getExpr ().symbolAt (0))
     1226              {
     1227                break _block12__branch1;
     1228              }
     1229              Expr _v_deref__t__35 = (Expr) _ge_t__3.getExpr ().at (0);
     1230              if ((_v_deref__t__35.getLen () != 2))
     1231              {
     1232                break _block12__branch1;
     1233              }
     1234              if (_v_deref__t__35.symbolAt (0))
     1235              {
     1236                break _block12__branch1;
     1237              }
     1238              Expr _v_deref__deref__t__35 = (Expr) _v_deref__t__35.at (0);
     1239              int _v_len19 = _v_deref__deref__t__35.getLen ();
     1240              int _v_len20 = 0;
     1241              if ((_v_len19 < _v_len20))
     1242              {
     1243                break _block12__branch1;
     1244              }
     1245              int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_208_m_14 = (_v_len19 - _v_len20);
     1246              if (!_c_9.eq (_v_deref__t__35, (0 + 1)))
     1247              {
     1248                break _block12__branch1;
     1249              }
     1250              Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_208_m_14 = new Expr (_v_deref__deref__t__35, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_208_m_14);
     1251              _ge_line__0__2 = _ge_line__0__2__3.getExpr ();
     1252              _vs_1 = _c_18;
     1253              break _block12;
     1254            }
     1255            _block12__branch2: {
     1256              if ((_ge_t__3.getExpr ().getLen () != 1))
     1257              {
     1258                break _block12__branch2;
     1259              }
     1260              if (_ge_t__3.getExpr ().symbolAt (0))
     1261              {
     1262                break _block12__branch2;
     1263              }
     1264              Expr _v_deref__t__36 = (Expr) _ge_t__3.getExpr ().at (0);
     1265              if ((_v_deref__t__36.getLen () != 2))
     1266              {
     1267                break _block12__branch2;
     1268              }
     1269              if (_v_deref__t__36.symbolAt (0))
     1270              {
     1271                break _block12__branch2;
     1272              }
     1273              if (_v_deref__t__36.symbolAt ((0 + 1)))
     1274              {
     1275                break _block12__branch2;
     1276              }
     1277              Expr _v_deref__deref__t__36 = (Expr) _v_deref__t__36.at (0);
     1278              Expr _v_deref__deref__t__362 = (Expr) _v_deref__t__36.at ((0 + 1));
     1279              int _v_len21 = _v_deref__deref__t__362.getLen ();
     1280              int _v_len22 = 1;
     1281              if ((_v_len21 < _v_len22))
     1282              {
     1283                break _block12__branch2;
     1284              }
     1285              int _v_len__s2 = (_v_len21 - _v_len22);
     1286              int _v_len23 = _v_deref__deref__t__36.getLen ();
     1287              int _v_len24 = 0;
     1288              if ((_v_len23 < _v_len24))
     1289              {
     1290                break _block12__branch2;
     1291              }
     1292              int _v_len__p4 = (_v_len23 - _v_len24);
     1293              if (!_v_deref__deref__t__362.symbolAt (0))
     1294              {
     1295                break _block12__branch2;
     1296              }
     1297              Expr _ve_p = new Expr (_v_deref__deref__t__36, 0, _v_len__p4);
     1298              Expr _vs_WORD_m_or_m_QWORD = new Expr (_v_deref__deref__t__362, 0, 1);
     1299              Expr _ve_s = new Expr (_v_deref__deref__t__362, (0 + 1), _v_len__s2);
     1300              Expr _vs_ci_q_ = Expr.empty;
     1301              _block13: {
     1302                _block13__branch1: {
     1303                  if ((1 != 1))
     1304                  {
     1305                    break _block13__branch1;
     1306                  }
     1307                  if (!_vs_WORD_m_or_m_QWORD.eq (_c_10, 0))
     1308                  {
     1309                    break _block13__branch1;
     1310                  }
     1311                  _vs_ci_q_ = _c_19;
     1312                  break _block13;
     1313                }
     1314                if ((1 != 1))
     1315                {
     1316                  break _block12__branch2;
     1317                }
     1318                if (!_vs_WORD_m_or_m_QWORD.eq (_c_11, 0))
     1319                {
     1320                  break _block12__branch2;
     1321                }
     1322                _vs_ci_q_ = _c_20;
     1323              }
     1324              _ve_s = new Expr (_c_27, _ve_s);
     1325              _block14: {
     1326                _block14__branch1: {
     1327                  if (!rfp__helper.RFP_m_Debug_q_ ())
     1328                  {
     1329                    break _block14__branch1;
     1330                  }
     1331                  StdIO.PrintLN (new Expr (_c_21, _ve_s));
     1332                  break _block14;
     1333                }
     1334              }
     1335              Expr _ge_nts__4 = Expr.empty;
     1336              _block15: {
     1337                _block15__branch1: {
     1338                  Result _ve_include = new Result ();
     1339                  if (!Find_m_Include_q_ (_ve_s, _vs_ci_q_, _ve_include))
     1340                  {
     1341                    break _block15__branch1;
     1342                  }
     1343                  Push_m_Source (_ve_include.getExpr (), _c_4, _c_0, _c_2);
     1344                  Result _v_Scan_m_Tokens4 = new Result ();
     1345                  Scan_m_Tokens (Expr.empty, _v_Scan_m_Tokens4);
     1346                  _ge_nts__4 = new Expr (_ve_nts, _v_Scan_m_Tokens4.getExpr ());
     1347                  break _block15;
     1348                }
     1349                Expr[] _va_11 = { _c_23 , _ve_s , _c_22 };
     1350                rfp__err.RFP_m_Error (_ve_p, Expr.concat (_va_11));
     1351                _ge_nts__4 = _ve_nts;
     1352              }
     1353              _ve_nts = _ge_nts__4;
     1354              _ge_line__0__2 = _ge_line__0__2__3.getExpr ();
     1355              _vs_1 = _c_17;
     1356              break _block12;
     1357            }
     1358            _block12__branch3: {
     1359              if ((_ge_t__3.getExpr ().getLen () != 1))
     1360              {
     1361                break _block12__branch3;
     1362              }
     1363              if (_ge_t__3.getExpr ().symbolAt (0))
     1364              {
     1365                break _block12__branch3;
     1366              }
     1367              Expr _v_deref__t__37 = (Expr) _ge_t__3.getExpr ().at (0);
     1368              if ((_v_deref__t__37.getLen () != 2))
     1369              {
     1370                break _block12__branch3;
     1371              }
     1372              if (_v_deref__t__37.symbolAt (0))
     1373              {
     1374                break _block12__branch3;
     1375              }
     1376              Expr _v_deref__deref__t__37 = (Expr) _v_deref__t__37.at (0);
     1377              int _v_len25 = _v_deref__deref__t__37.getLen ();
     1378              int _v_len26 = 0;
     1379              if ((_v_len25 < _v_len26))
     1380              {
     1381                break _block12__branch3;
     1382              }
     1383              int _v_len__p5 = (_v_len25 - _v_len26);
     1384              if (!_c_7.eq (_v_deref__t__37, (0 + 1)))
     1385              {
     1386                break _block12__branch3;
     1387              }
     1388              Expr _ve_p = new Expr (_v_deref__deref__t__37, 0, _v_len__p5);
     1389              rfp__err.RFP_m_Error (_ve_p, _c_24);
     1390              _ge_line__0__2 = _ge_line__0__2__3.getExpr ();
     1391              _vs_1 = _c_18;
     1392              break _block12;
     1393            }
     1394            if ((_ge_t__3.getExpr ().getLen () != 1))
     1395            {
     1396              throw new RefalException ("rfp_lex", "Scan_m_Tokens", "Unexpected fail");
     1397            }
     1398            if (_ge_t__3.getExpr ().symbolAt (0))
     1399            {
     1400              throw new RefalException ("rfp_lex", "Scan_m_Tokens", "Unexpected fail");
     1401            }
     1402            Expr _v_deref__t__38 = (Expr) _ge_t__3.getExpr ().at (0);
     1403            if ((_v_deref__t__38.getLen () != 2))
     1404            {
     1405              throw new RefalException ("rfp_lex", "Scan_m_Tokens", "Unexpected fail");
     1406            }
     1407            if (_v_deref__t__38.symbolAt (0))
     1408            {
     1409              throw new RefalException ("rfp_lex", "Scan_m_Tokens", "Unexpected fail");
     1410            }
     1411            if (_v_deref__t__38.symbolAt ((0 + 1)))
     1412            {
     1413              throw new RefalException ("rfp_lex", "Scan_m_Tokens", "Unexpected fail");
     1414            }
     1415            Expr _v_deref__deref__t__38 = (Expr) _v_deref__t__38.at (0);
     1416            Expr _v_deref__deref__t__382 = (Expr) _v_deref__t__38.at ((0 + 1));
     1417            int _v_len27 = _v_deref__deref__t__382.getLen ();
     1418            int _v_len28 = 0;
     1419            if ((_v_len27 < _v_len28))
     1420            {
     1421              throw new RefalException ("rfp_lex", "Scan_m_Tokens", "Unexpected fail");
     1422            }
     1423            int _v_len__tag2 = (_v_len27 - _v_len28);
     1424            int _v_len29 = _v_deref__deref__t__38.getLen ();
     1425            int _v_len30 = 0;
     1426            if ((_v_len29 < _v_len30))
     1427            {
     1428              throw new RefalException ("rfp_lex", "Scan_m_Tokens", "Unexpected fail");
     1429            }
     1430            int _v_len__p6 = (_v_len29 - _v_len30);
     1431            Expr _ve_p = new Expr (_v_deref__deref__t__38, 0, _v_len__p6);
     1432            Expr _ve_tag = new Expr (_v_deref__deref__t__382, 0, _v_len__tag2);
     1433            rfp__err.RFP_m_Error (_ve_p, new Expr (_c_25, _ve_tag));
     1434            _ge_line__0__2 = _ge_line__0__2__3.getExpr ();
     1435            _vs_1 = _c_17;
     1436          }
     1437        }
     1438        break _block1;
     1439      }
     1440      int _v_len31 = _ve_t.getExpr ().getLen ();
     1441      int _v_len32 = 0;
     1442      if ((_v_len31 < _v_len32))
    11651443      {
    11661444        throw new RefalException ("rfp_lex", "Scan_m_Tokens", "Unexpected fail");
    11671445      }
    1168       int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_204_m_6 = (_v_len17 - _v_len18);
    1169       Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_204_m_6 = new Expr (_ve_t.getExpr (), 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_204_m_6);
    1170       Result _v_Scan_m_Tokens3 = new Result ();
    1171       Scan_m_Tokens (_ge_line__0.getExpr (), _v_Scan_m_Tokens3);
    1172       _v_res1.assign (new Expr (_ve_t.getExpr (), _v_Scan_m_Tokens3.getExpr ()));
     1446      int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_237_m_6 = (_v_len31 - _v_len32);
     1447      Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_237_m_6 = new Expr (_ve_t.getExpr (), 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_237_m_6);
     1448      Result _v_Scan_m_Tokens5 = new Result ();
     1449      Scan_m_Tokens (_ge_line__0.getExpr (), _v_Scan_m_Tokens5);
     1450      _v_res1.assign (new Expr (_ve_t.getExpr (), _v_Scan_m_Tokens5.getExpr ()));
    11731451    }
    11741452  }
     
    12321510                break _block4__branch1;
    12331511              }
    1234               if (!_vs_char.eq (_c_26, 0))
     1512              if (!_vs_char.eq (_c_28, 0))
    12351513              {
    12361514                break _block4__branch1;
    12371515              }
    1238               _vs_tk = _c_27;
     1516              _vs_tk = _c_29;
    12391517              break _block4;
    12401518            }
     
    12441522                break _block4__branch2;
    12451523              }
    1246               if (!_vs_char.eq (_c_28, 0))
     1524              if (!_vs_char.eq (_c_30, 0))
    12471525              {
    12481526                break _block4__branch2;
    12491527              }
    1250               _vs_tk = _c_29;
     1528              _vs_tk = _c_31;
    12511529              break _block4;
    12521530            }
     
    12561534                break _block4__branch3;
    12571535              }
    1258               if (!_vs_char.eq (_c_30, 0))
     1536              if (!_vs_char.eq (_c_32, 0))
    12591537              {
    12601538                break _block4__branch3;
    12611539              }
    1262               _vs_tk = _c_31;
     1540              _vs_tk = _c_33;
    12631541              break _block4;
    12641542            }
     
    12681546                break _block4__branch4;
    12691547              }
    1270               if (!_vs_char.eq (_c_32, 0))
     1548              if (!_vs_char.eq (_c_34, 0))
    12711549              {
    12721550                break _block4__branch4;
    12731551              }
    1274               _vs_tk = _c_33;
     1552              _vs_tk = _c_35;
    12751553              break _block4;
    12761554            }
     
    12801558                break _block4__branch5;
    12811559              }
    1282               if (!_vs_char.eq (_c_34, 0))
     1560              if (!_vs_char.eq (_c_36, 0))
    12831561              {
    12841562                break _block4__branch5;
    12851563              }
    1286               _vs_tk = _c_35;
     1564              _vs_tk = _c_37;
    12871565              break _block4;
    12881566            }
     
    12921570                break _block4__branch6;
    12931571              }
    1294               if (!_vs_char.eq (_c_36, 0))
     1572              if (!_vs_char.eq (_c_38, 0))
    12951573              {
    12961574                break _block4__branch6;
    12971575              }
    1298               _vs_tk = _c_37;
     1576              _vs_tk = _c_39;
    12991577              break _block4;
    13001578            }
     
    13041582                break _block4__branch7;
    13051583              }
    1306               if (!_vs_char.eq (_c_38, 0))
     1584              if (!_vs_char.eq (_c_40, 0))
    13071585              {
    13081586                break _block4__branch7;
    13091587              }
    1310               _vs_tk = _c_39;
     1588              _vs_tk = _c_41;
    13111589              break _block4;
    13121590            }
     
    13161594                break _block4__branch8;
    13171595              }
    1318               if (!_vs_char.eq (_c_40, 0))
     1596              if (!_vs_char.eq (_c_42, 0))
    13191597              {
    13201598                break _block4__branch8;
    13211599              }
    1322               _vs_tk = _c_41;
     1600              _vs_tk = _c_43;
    13231601              break _block4;
    13241602            }
     
    13281606                break _block4__branch9;
    13291607              }
    1330               if (!_vs_char.eq (_c_42, 0))
     1608              if (!_vs_char.eq (_c_44, 0))
    13311609              {
    13321610                break _block4__branch9;
    13331611              }
    1334               _vs_tk = _c_43;
     1612              _vs_tk = _c_45;
    13351613              break _block4;
    13361614            }
     
    13401618                break _block4__branch10;
    13411619              }
    1342               if (!_vs_char.eq (_c_44, 0))
     1620              if (!_vs_char.eq (_c_46, 0))
    13431621              {
    13441622                break _block4__branch10;
    13451623              }
    1346               _vs_tk = _c_45;
     1624              _vs_tk = _c_47;
    13471625              break _block4;
    13481626            }
     
    13511629              break _block3__branch2;
    13521630            }
    1353             if (!_vs_char.eq (_c_46, 0))
     1631            if (!_vs_char.eq (_c_48, 0))
    13541632            {
    13551633              break _block3__branch2;
    13561634            }
    1357             _vs_tk = _c_47;
     1635            _vs_tk = _c_49;
    13581636          }
    13591637          Next_m_Column ();
     
    13691647                break _block5__branch1;
    13701648              }
    1371               if (!_vs_char.eq (_c_48, 0))
     1649              if (!_vs_char.eq (_c_50, 0))
    13721650              {
    13731651                break _block5__branch1;
     
    13831661                  }
    13841662                  int _v_len__rest2 = (_v_len3 - _v_len4);
    1385                   if (!_c_48.eq (_ve_rest, 0))
     1663                  if (!_c_50.eq (_ve_rest, 0))
    13861664                  {
    13871665                    break _block6__branch1;
     
    13891667                  Expr _ve_rest2 = new Expr (_ve_rest, (0 + 1), _v_len__rest2);
    13901668                  Next_m_Column ();
    1391                   _v_res1.assign (new Expr(new Expr (new Expr(_ve_saved_m_position.getExpr ()), _c_49)));
     1669                  _v_res1.assign (new Expr(new Expr (new Expr(_ve_saved_m_position.getExpr ()), _c_51)));
    13921670                  _v_res2.assign (_ve_rest2);
    13931671                  break _block6;
    13941672                }
    1395                 _v_res1.assign (new Expr(new Expr (new Expr(_ve_saved_m_position.getExpr ()), _c_50)));
     1673                _v_res1.assign (new Expr(new Expr (new Expr(_ve_saved_m_position.getExpr ()), _c_52)));
    13961674                _v_res2.assign (_ve_rest);
    13971675              }
     
    14031681                break _block5__branch2;
    14041682              }
    1405               if (!_vs_char.eq (_c_51, 0))
     1683              if (!_vs_char.eq (_c_53, 0))
    14061684              {
    14071685                break _block5__branch2;
     
    14321710                            break _block9__branch1;
    14331711                          }
    1434                           if (!_vs_char2.eq (_c_52, 0))
     1712                          if (!_vs_char2.eq (_c_54, 0))
    14351713                          {
    14361714                            break _block9__branch1;
    14371715                          }
    1438                           _vs_tk = _c_53;
     1716                          _vs_tk = _c_55;
    14391717                          break _block9;
    14401718                        }
     
    14441722                            break _block9__branch2;
    14451723                          }
    1446                           if (!_vs_char2.eq (_c_54, 0))
     1724                          if (!_vs_char2.eq (_c_56, 0))
    14471725                          {
    14481726                            break _block9__branch2;
    14491727                          }
    1450                           _vs_tk = _c_55;
     1728                          _vs_tk = _c_57;
    14511729                          break _block9;
    14521730                        }
     
    14551733                          break _block8__branch1;
    14561734                        }
    1457                         if (!_vs_char2.eq (_c_34, 0))
     1735                        if (!_vs_char2.eq (_c_36, 0))
    14581736                        {
    14591737                          break _block8__branch1;
    14601738                        }
    1461                         _vs_tk = _c_56;
     1739                        _vs_tk = _c_58;
    14621740                      }
    14631741                      Next_m_Column ();
     
    14681746                    Result _ge_auxcall2 = new Result ();
    14691747                    Token_m_Position (_ge_auxcall2);
    1470                     Expr[] _va_11 = { _c_58 , _vs_char2 , _c_57 };
    1471                     rfp__err.RFP_m_Error (_ge_auxcall2.getExpr (), Expr.concat (_va_11));
     1748                    Expr[] _va_12 = { _c_60 , _vs_char2 , _c_59 };
     1749                    rfp__err.RFP_m_Error (_ge_auxcall2.getExpr (), Expr.concat (_va_12));
    14721750                    Next_m_Column ();
    14731751                    Scan_m_Token (_ve_rest2, _v_res1, _v_res2);
     
    14771755                Result _ge_auxcall3 = new Result ();
    14781756                Token_m_Position (_ge_auxcall3);
    1479                 rfp__err.RFP_m_Error (_ge_auxcall3.getExpr (), _c_59);
     1757                rfp__err.RFP_m_Error (_ge_auxcall3.getExpr (), _c_61);
    14801758                Scan_m_Token (Expr.empty, _v_res1, _v_res2);
    14811759              }
     
    14871765                break _block5__branch3;
    14881766              }
    1489               if (!_vs_char.eq (_c_60, 0))
     1767              if (!_vs_char.eq (_c_62, 0))
    14901768              {
    14911769                break _block5__branch3;
     
    15011779                  }
    15021780                  int _v_len__rest23 = (_v_len7 - _v_len8);
    1503                   if (!_c_60.eq (_ve_rest, 0))
     1781                  if (!_c_62.eq (_ve_rest, 0))
    15041782                  {
    15051783                    break _block10__branch1;
     
    15171795                  }
    15181796                  int _v_len__rest24 = (_v_len9 - _v_len10);
    1519                   if (!_c_61.eq (_ve_rest, 0))
     1797                  if (!_c_63.eq (_ve_rest, 0))
    15201798                  {
    15211799                    break _block10__branch2;
     
    15471825                  Result _ge_auxcall5 = new Result ();
    15481826                  Token_m_Position (_ge_auxcall5);
    1549                   Expr[] _va_12 = { _c_58 , _vs_err , _c_57 };
    1550                   rfp__err.RFP_m_Error (_ge_auxcall5.getExpr (), Expr.concat (_va_12));
     1827                  Expr[] _va_13 = { _c_60 , _vs_err , _c_59 };
     1828                  rfp__err.RFP_m_Error (_ge_auxcall5.getExpr (), Expr.concat (_va_13));
    15511829                  Next_m_Column ();
    15521830                  Scan_m_Token (_ve_rest2, _v_res1, _v_res2);
     
    15591837                Result _ge_auxcall6 = new Result ();
    15601838                Token_m_Position (_ge_auxcall6);
    1561                 rfp__err.RFP_m_Error (_ge_auxcall6.getExpr (), _c_59);
     1839                rfp__err.RFP_m_Error (_ge_auxcall6.getExpr (), _c_61);
    15621840                Scan_m_Token (Expr.empty, _v_res1, _v_res2);
    15631841              }
     
    15681846              break _block3__branch3;
    15691847            }
    1570             if (!_vs_char.eq (_c_61, 0))
     1848            if (!_vs_char.eq (_c_63, 0))
    15711849            {
    15721850              break _block3__branch3;
     
    15811859          _block11: {
    15821860            _block11__branch1: {
    1583               Result _va_13 = new Result ();
    15841861              Result _va_14 = new Result ();
    1585               if (!Scan_m_Keyword_q_ (_ve_line, _va_13, _va_14))
     1862              Result _va_15 = new Result ();
     1863              if (!Scan_m_Keyword_q_ (_ve_line, _va_14, _va_15))
    15861864              {
    15871865                break _block11__branch1;
    15881866              }
    1589               _ve_tk = _va_13.getExpr ();
    1590               _ve_new_m_line = _va_14.getExpr ();
     1867              _ve_tk = _va_14.getExpr ();
     1868              _ve_new_m_line = _va_15.getExpr ();
    15911869              break _block11;
    15921870            }
    15931871            _block11__branch2: {
    1594               Result _va_15 = new Result ();
    15951872              Result _va_16 = new Result ();
    1596               if (!Scan_m_Identifier_q_ (_ve_line, _va_15, _va_16))
     1873              Result _va_17 = new Result ();
     1874              if (!Scan_m_Identifier_q_ (_ve_line, _va_16, _va_17))
    15971875              {
    15981876                break _block11__branch2;
    15991877              }
    1600               _ve_tk = _va_15.getExpr ();
    1601               _ve_new_m_line = _va_16.getExpr ();
     1878              _ve_tk = _va_16.getExpr ();
     1879              _ve_new_m_line = _va_17.getExpr ();
    16021880              break _block11;
    16031881            }
    16041882            _block11__branch3: {
    1605               Result _va_17 = new Result ();
    16061883              Result _va_18 = new Result ();
    1607               if (!Scan_m_Variable_q_ (_ve_line, _va_17, _va_18))
     1884              Result _va_19 = new Result ();
     1885              if (!Scan_m_Variable_q_ (_ve_line, _va_18, _va_19))
    16081886              {
    16091887                break _block11__branch3;
    16101888              }
    1611               _ve_tk = _va_17.getExpr ();
    1612               _ve_new_m_line = _va_18.getExpr ();
     1889              _ve_tk = _va_18.getExpr ();
     1890              _ve_new_m_line = _va_19.getExpr ();
    16131891              break _block11;
    16141892            }
    16151893            _block11__branch4: {
    1616               Result _va_19 = new Result ();
    16171894              Result _va_20 = new Result ();
    1618               if (!Scan_m_Word_q_ (_ve_line, _va_19, _va_20))
     1895              Result _va_21 = new Result ();
     1896              if (!Scan_m_Word_q_ (_ve_line, _va_20, _va_21))
    16191897              {
    16201898                break _block11__branch4;
    16211899              }
    1622               _ve_tk = _va_19.getExpr ();
    1623               _ve_new_m_line = _va_20.getExpr ();
     1900              _ve_tk = _va_20.getExpr ();
     1901              _ve_new_m_line = _va_21.getExpr ();
    16241902              break _block11;
    16251903            }
    16261904            _block11__branch5: {
    1627               Result _va_21 = new Result ();
    16281905              Result _va_22 = new Result ();
    1629               if (!Scan_m_String_q_ (_ve_line, _va_21, _va_22))
     1906              Result _va_23 = new Result ();
     1907              if (!Scan_m_String_q_ (_ve_line, _va_22, _va_23))
    16301908              {
    16311909                break _block11__branch5;
    16321910              }
    1633               _ve_tk = _va_21.getExpr ();
    1634               _ve_new_m_line = _va_22.getExpr ();
     1911              _ve_tk = _va_22.getExpr ();
     1912              _ve_new_m_line = _va_23.getExpr ();
    16351913              break _block11;
    16361914            }
    1637             Result _va_23 = new Result ();
    16381915            Result _va_24 = new Result ();
    1639             if (!Scan_m_Number_q_ (_ve_line, _va_23, _va_24))
     1916            Result _va_25 = new Result ();
     1917            if (!Scan_m_Number_q_ (_ve_line, _va_24, _va_25))
    16401918            {
    16411919              break _block3__branch4;
    16421920            }
    1643             _ve_tk = _va_23.getExpr ();
    1644             _ve_new_m_line = _va_24.getExpr ();
     1921            _ve_tk = _va_24.getExpr ();
     1922            _ve_new_m_line = _va_25.getExpr ();
    16451923          }
    16461924          _v_res1.assign (new Expr(new Expr (new Expr(_ve_saved_m_position.getExpr ()), new Expr(_ve_tk))));
     
    16501928        Result _ge_auxcall7 = new Result ();
    16511929        Token_m_Position (_ge_auxcall7);
    1652         Expr[] _va_25 = { _c_58 , _vs_char , _c_57 };
    1653         rfp__err.RFP_m_Error (_ge_auxcall7.getExpr (), Expr.concat (_va_25));
     1930        Expr[] _va_26 = { _c_60 , _vs_char , _c_59 };
     1931        rfp__err.RFP_m_Error (_ge_auxcall7.getExpr (), Expr.concat (_va_26));
    16541932        Next_m_Column ();
    16551933        Scan_m_Token (_ve_rest, _v_res1, _v_res2);
     
    16781956      return false;
    16791957    }
    1680     Expr.SplitIterator _va_26 = _c_62.leftSplit(0);
    1681     _exit1: _continue1: for ( ; ; _va_26.next ())
    1682     {
    1683       Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_295_m_14 = _va_26.getLeft();
    1684       Expr _v_lsplit__62 = _va_26.getRight();
    1685       if (!_va_26.isValid ())
     1958    Expr.SplitIterator _va_27 = _c_64.leftSplit(0);
     1959    _exit1: _continue1: for ( ; ; _va_27.next ())
     1960    {
     1961      Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_328_m_14 = _va_27.getLeft();
     1962      Expr _v_lsplit__64 = _va_27.getRight();
     1963      if (!_va_27.isValid ())
    16861964      {
    16871965        return false;
    16881966      }
    1689       int _v_len1 = _v_lsplit__62.getLen ();
     1967      int _v_len1 = _v_lsplit__64.getLen ();
    16901968      int _v_len2 = 1;
    16911969      if ((_v_len1 < _v_len2))
     
    16931971        return false;
    16941972      }
    1695       int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_295_m_23 = (_v_len1 - _v_len2);
    1696       if (!_vs_char.eq (_v_lsplit__62, 0))
     1973      int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_328_m_23 = (_v_len1 - _v_len2);
     1974      if (!_vs_char.eq (_v_lsplit__64, 0))
    16971975      {
    16981976        continue _continue1;
    16991977      }
    1700       Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_295_m_23 = new Expr (_v_lsplit__62, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_295_m_23);
     1978      Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_328_m_23 = new Expr (_v_lsplit__64, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_328_m_23);
    17011979      break _exit1;
    17021980    }
     
    17622040    }
    17632041    int _v_len__rest = (_v_len1 - _v_len2);
    1764     if (!_c_63.eq (_ge_arg1, 0))
     2042    if (!_c_65.eq (_ge_arg1, 0))
    17652043    {
    17662044      return false;
     
    17702048    Result _ve_ident = new Result ();
    17712049    Result _ve_line = new Result ();
    1772     Scan_m_Keyword_m_Rest (_c_63, _ve_rest, _ve_ident, _ve_line);
     2050    Scan_m_Keyword_m_Rest (_c_65, _ve_rest, _ve_ident, _ve_line);
    17732051    Expr _ge_auxalt1 = Expr.empty;
    17742052    _block1: {
    17752053      _block1__branch1: {
    1776         if (!Table.In_m_Table_q_ (rfp__helper.RFP_m_Options, _c_64))
     2054        if (!Table.In_m_Table_q_ (rfp__helper.RFP_m_Options, _c_66))
    17772055        {
    17782056          break _block1__branch1;
    17792057        }
    1780         Result _va_27 = new Result ();
    1781         Convert.To_m_Lower (_ve_ident.getExpr (), _va_27);
    1782         _ge_auxalt1 = _va_27.getExpr ();
     2058        Result _va_28 = new Result ();
     2059        Convert.To_m_Lower (_ve_ident.getExpr (), _va_28);
     2060        _ge_auxalt1 = _va_28.getExpr ();
    17832061        break _block1;
    17842062      }
     
    17922070          break _block2__branch1;
    17932071        }
    1794         if (!_c_65.eq (_ge_auxalt1, 0))
     2072        if (!_c_67.eq (_ge_auxalt1, 0))
    17952073        {
    17962074          break _block2__branch1;
    17972075        }
    1798         _vs_key = _c_66;
     2076        _vs_key = _c_68;
    17992077        break _block2;
    18002078      }
     
    18042082          break _block2__branch2;
    18052083        }
    1806         if (!_c_67.eq (_ge_auxalt1, 0))
     2084        if (!_c_69.eq (_ge_auxalt1, 0))
    18072085        {
    18082086          break _block2__branch2;
    18092087        }
    1810         _vs_key = _c_68;
     2088        _vs_key = _c_70;
    18112089        break _block2;
    18122090      }
     
    18162094          break _block2__branch3;
    18172095        }
    1818         if (!_c_69.eq (_ge_auxalt1, 0))
     2096        if (!_c_71.eq (_ge_auxalt1, 0))
    18192097        {
    18202098          break _block2__branch3;
    18212099        }
    1822         _vs_key = _c_70;
     2100        _vs_key = _c_72;
    18232101        break _block2;
    18242102      }
     
    18282106          break _block2__branch4;
    18292107        }
    1830         if (!_c_71.eq (_ge_auxalt1, 0))
     2108        if (!_c_73.eq (_ge_auxalt1, 0))
    18312109        {
    18322110          break _block2__branch4;
    18332111        }
    1834         _vs_key = _c_72;
     2112        _vs_key = _c_74;
    18352113        break _block2;
    18362114      }
     
    18402118          break _block2__branch5;
    18412119        }
    1842         if (!_c_73.eq (_ge_auxalt1, 0))
     2120        if (!_c_75.eq (_ge_auxalt1, 0))
    18432121        {
    18442122          break _block2__branch5;
    18452123        }
    1846         _vs_key = _c_74;
     2124        _vs_key = _c_76;
    18472125        break _block2;
    18482126      }
     
    18522130          break _block2__branch6;
    18532131        }
    1854         if (!_c_75.eq (_ge_auxalt1, 0))
     2132        if (!_c_77.eq (_ge_auxalt1, 0))
    18552133        {
    18562134          break _block2__branch6;
    18572135        }
    1858         _vs_key = _c_76;
     2136        _vs_key = _c_78;
    18592137        break _block2;
    18602138      }
     
    18642142          break _block2__branch7;
    18652143        }
    1866         if (!_c_77.eq (_ge_auxalt1, 0))
     2144        if (!_c_79.eq (_ge_auxalt1, 0))
    18672145        {
    18682146          break _block2__branch7;
    18692147        }
    1870         _vs_key = _c_78;
     2148        _vs_key = _c_80;
    18712149        break _block2;
    18722150      }
     
    18762154          break _block2__branch8;
    18772155        }
    1878         if (!_c_79.eq (_ge_auxalt1, 0))
     2156        if (!_c_81.eq (_ge_auxalt1, 0))
    18792157        {
    18802158          break _block2__branch8;
     
    18822160        _block3: {
    18832161          _block3__branch1: {
    1884             if (!Table.In_m_Table_q_ (rfp__helper.RFP_m_Options, _c_80))
     2162            if (!Table.In_m_Table_q_ (rfp__helper.RFP_m_Options, _c_82))
    18852163            {
    18862164              break _block3__branch1;
    18872165            }
    1888             _vs_key = _c_81;
     2166            _vs_key = _c_83;
    18892167            break _block3;
    18902168          }
    18912169          Result _ge_auxcall2 = new Result ();
    18922170          Token_m_Position (_ge_auxcall2);
    1893           rfp__err.RFP_m_Error (_ge_auxcall2.getExpr (), _c_82);
    1894           _vs_key = _c_81;
     2171          rfp__err.RFP_m_Error (_ge_auxcall2.getExpr (), _c_84);
     2172          _vs_key = _c_83;
    18952173        }
    18962174        break _block2;
     
    19012179          break _block2__branch9;
    19022180        }
    1903         if (!_c_83.eq (_ge_auxalt1, 0))
     2181        if (!_c_85.eq (_ge_auxalt1, 0))
    19042182        {
    19052183          break _block2__branch9;
    19062184        }
    1907         _vs_key = _c_84;
     2185        _vs_key = _c_86;
    19082186        break _block2;
    19092187      }
     
    19132191          break _block2__branch10;
    19142192        }
    1915         if (!_c_85.eq (_ge_auxalt1, 0))
     2193        if (!_c_87.eq (_ge_auxalt1, 0))
    19162194        {
    19172195          break _block2__branch10;
    19182196        }
    1919         _vs_key = _c_86;
     2197        _vs_key = _c_88;
    19202198        break _block2;
    19212199      }
     
    19252203          break _block2__branch11;
    19262204        }
    1927         if (!_c_87.eq (_ge_auxalt1, 0))
     2205        if (!_c_89.eq (_ge_auxalt1, 0))
    19282206        {
    19292207          break _block2__branch11;
    19302208        }
    1931         _vs_key = _c_88;
     2209        _vs_key = _c_90;
    19322210        break _block2;
    19332211      }
     
    19372215          break _block2__branch12;
    19382216        }
    1939         if (!_c_89.eq (_ge_auxalt1, 0))
     2217        if (!_c_91.eq (_ge_auxalt1, 0))
    19402218        {
    19412219          break _block2__branch12;
    19422220        }
    1943         _vs_key = _c_90;
     2221        _vs_key = _c_92;
    19442222        break _block2;
    19452223      }
     
    19492227          break _block2__branch13;
    19502228        }
    1951         if (!_c_91.eq (_ge_auxalt1, 0))
     2229        if (!_c_93.eq (_ge_auxalt1, 0))
    19522230        {
    19532231          break _block2__branch13;
    19542232        }
    1955         _vs_key = _c_92;
     2233        _vs_key = _c_94;
    19562234        break _block2;
    19572235      }
     
    19612239          break _block2__branch14;
    19622240        }
    1963         if (!_c_93.eq (_ge_auxalt1, 0))
     2241        if (!_c_95.eq (_ge_auxalt1, 0))
    19642242        {
    19652243          break _block2__branch14;
    19662244        }
    1967         _vs_key = _c_94;
     2245        _vs_key = _c_96;
    19682246        break _block2;
    19692247      }
     
    19732251          break _block2__branch15;
    19742252        }
    1975         if (!_c_95.eq (_ge_auxalt1, 0))
     2253        if (!_c_97.eq (_ge_auxalt1, 0))
    19762254        {
    19772255          break _block2__branch15;
    19782256        }
    1979         _vs_key = _c_96;
     2257        _vs_key = _c_98;
    19802258        break _block2;
    19812259      }
     
    19852263          break _block2__branch16;
    19862264        }
    1987         if (!_c_97.eq (_ge_auxalt1, 0))
     2265        if (!_c_99.eq (_ge_auxalt1, 0))
    19882266        {
    19892267          break _block2__branch16;
    19902268        }
    1991         _vs_key = _c_98;
     2269        _vs_key = _c_100;
    19922270        break _block2;
    19932271      }
     
    19972275          break _block2__branch17;
    19982276        }
    1999         if (!_c_99.eq (_ge_auxalt1, 0))
     2277        if (!_c_101.eq (_ge_auxalt1, 0))
    20002278        {
    20012279          break _block2__branch17;
    20022280        }
    2003         _vs_key = _c_100;
     2281        _vs_key = _c_102;
    20042282        break _block2;
    20052283      }
     
    20092287          break _block2__branch18;
    20102288        }
    2011         if (!_c_101.eq (_ge_auxalt1, 0))
     2289        if (!_c_103.eq (_ge_auxalt1, 0))
    20122290        {
    20132291          break _block2__branch18;
    20142292        }
    2015         _vs_key = _c_102;
     2293        _vs_key = _c_104;
    20162294        break _block2;
    20172295      }
     
    20212299          break _block2__branch19;
    20222300        }
    2023         if (!_c_103.eq (_ge_auxalt1, 0))
     2301        if (!_c_105.eq (_ge_auxalt1, 0))
    20242302        {
    20252303          break _block2__branch19;
    20262304        }
    2027         _vs_key = _c_104;
     2305        _vs_key = _c_106;
     2306        break _block2;
     2307      }
     2308      _block2__branch20: {
     2309        if ((_ge_auxalt1.getLen () != 7))
     2310        {
     2311          break _block2__branch20;
     2312        }
     2313        if (!_c_107.eq (_ge_auxalt1, 0))
     2314        {
     2315          break _block2__branch20;
     2316        }
     2317        _vs_key = _c_108;
    20282318        break _block2;
    20292319      }
     
    20322322        return false;
    20332323      }
    2034       if (!_c_105.eq (_ge_auxalt1, 0))
     2324      if (!_c_109.eq (_ge_auxalt1, 0))
    20352325      {
    20362326        return false;
    20372327      }
    2038       _vs_key = _c_106;
     2328      _vs_key = _c_110;
    20392329    }
    20402330    _v_res1.assign (_vs_key);
     
    20922382                  break _block3__branch1;
    20932383                }
    2094                 if (!_vs_first.eq (_c_52, 0))
     2384                if (!_vs_first.eq (_c_54, 0))
    20952385                {
    20962386                  break _block3__branch1;
     
    21022392                break _block1__branch1;
    21032393              }
    2104               if (!_vs_first.eq (_c_54, 0))
     2394              if (!_vs_first.eq (_c_56, 0))
    21052395              {
    21062396                break _block1__branch1;
     
    21412431          break _block1__branch1;
    21422432        }
    2143         if (!_vs_first.eq (_c_107, 0))
     2433        if (!_vs_first.eq (_c_111, 0))
    21442434        {
    21452435          break _block1__branch1;
    21462436        }
    2147         _vs_type = _c_108;
     2437        _vs_type = _c_112;
    21482438        break _block1;
    21492439      }
     
    21532443          break _block1__branch2;
    21542444        }
    2155         if (!_vs_first.eq (_c_109, 0))
     2445        if (!_vs_first.eq (_c_113, 0))
    21562446        {
    21572447          break _block1__branch2;
    21582448        }
    2159         _vs_type = _c_110;
     2449        _vs_type = _c_114;
    21602450        break _block1;
    21612451      }
     
    21652455          break _block1__branch3;
    21662456        }
    2167         if (!_vs_first.eq (_c_111, 0))
     2457        if (!_vs_first.eq (_c_115, 0))
    21682458        {
    21692459          break _block1__branch3;
    21702460        }
    2171         _vs_type = _c_112;
     2461        _vs_type = _c_116;
    21722462        break _block1;
    21732463      }
     
    21762466        return false;
    21772467      }
    2178       if (!_vs_first.eq (_c_113, 0))
     2468      if (!_vs_first.eq (_c_117, 0))
    21792469      {
    21802470        return false;
    21812471      }
    2182       _vs_type = _c_114;
     2472      _vs_type = _c_118;
    21832473    }
    21842474    Next_m_Column ();
     
    21942484        }
    21952485        int _v_len__rest2 = (_v_len3 - _v_len4);
    2196         if (!_c_115.eq (_ve_rest, 0))
     2486        if (!_c_119.eq (_ve_rest, 0))
    21972487        {
    21982488          break _block2__branch1;
     
    22002490        Expr _ve_rest2 = new Expr (_ve_rest, (0 + 1), _v_len__rest2);
    22012491        Next_m_Column ();
    2202         Result _va_28 = new Result ();
    22032492        Result _va_29 = new Result ();
    2204         Scan_m_Identifier_m_Rest (_c_116, Expr.empty, _ve_rest2, _va_28, _va_29);
    2205         _ve_name = _va_28.getExpr ();
    2206         _ve_new_m_line = _va_29.getExpr ();
     2493        Result _va_30 = new Result ();
     2494        Scan_m_Identifier_m_Rest (_c_120, Expr.empty, _ve_rest2, _va_29, _va_30);
     2495        _ve_name = _va_29.getExpr ();
     2496        _ve_new_m_line = _va_30.getExpr ();
    22072497        break _block2;
    22082498      }
    2209       Result _va_30 = new Result ();
    22102499      Result _va_31 = new Result ();
    2211       Scan_m_Identifier_m_Rest (_c_116, Expr.empty, _ve_rest, _va_30, _va_31);
    2212       _ve_name = _va_30.getExpr ();
    2213       _ve_new_m_line = _va_31.getExpr ();
     2500      Result _va_32 = new Result ();
     2501      Scan_m_Identifier_m_Rest (_c_120, Expr.empty, _ve_rest, _va_31, _va_32);
     2502      _ve_name = _va_31.getExpr ();
     2503      _ve_new_m_line = _va_32.getExpr ();
    22142504    }
    22152505    _block3: {
     
    22382528        Source_m_File_m_Name (_ge_auxcall1);
    22392529        Result _ge_auxcall2 = new Result ();
    2240         Expr[] _va_32 = { _ge_auxcall1.getExpr () , _c_117 , _vs_r , _c_117 , _vs_c };
    2241         Convert.To_m_Chars (Expr.concat (_va_32), _ge_auxcall2);
    2242         Expr[] _va_33 = { _vs_type , _c_118 , _ge_auxcall2.getExpr () };
    2243         _v_res1.assign (Expr.concat (_va_33));
     2530        Expr[] _va_33 = { _ge_auxcall1.getExpr () , _c_121 , _vs_r , _c_121 , _vs_c };
     2531        Convert.To_m_Chars (Expr.concat (_va_33), _ge_auxcall2);
     2532        Expr[] _va_34 = { _vs_type , _c_122 , _ge_auxcall2.getExpr () };
     2533        _v_res1.assign (Expr.concat (_va_34));
    22442534        _v_res2.assign (_ve_new_m_line);
    22452535        break _block3;
     
    22802570            break _block3__branch1;
    22812571          }
    2282           if (!_vs_first.eq (_c_119, 0))
     2572          if (!_vs_first.eq (_c_123, 0))
    22832573          {
    22842574            break _block3__branch1;
     
    22902580          return false;
    22912581        }
    2292         if (!_vs_first.eq (_c_117, 0))
     2582        if (!_vs_first.eq (_c_121, 0))
    22932583        {
    22942584          return false;
     
    23052595      return false;
    23062596    }
    2307     _v_res1.assign (new Expr (_c_120, _gs_auxcall1.getExpr ()));
     2597    _v_res1.assign (new Expr (_c_124, _gs_auxcall1.getExpr ()));
    23082598    _v_res2.assign (_ge_rest__1.getExpr ());
    23092599    return true;
     
    23182608          break _block1__branch1;
    23192609        }
    2320         if (!_c_51.eq (_ve_line, 0))
     2610        if (!_c_53.eq (_ve_line, 0))
    23212611        {
    23222612          break _block1__branch1;
     
    24082698            break _block3__branch1;
    24092699          }
    2410           if (!_vs_first.eq (_c_52, 0))
     2700          if (!_vs_first.eq (_c_54, 0))
    24112701          {
    24122702            break _block3__branch1;
     
    24182708          return false;
    24192709        }
    2420         if (!_vs_first.eq (_c_54, 0))
     2710        if (!_vs_first.eq (_c_56, 0))
    24212711        {
    24222712          return false;
     
    24272717    Result _ve_word = new Result ();
    24282718    Result _ge_rest__1 = new Result ();
    2429     Scan_m_Identifier_m_Rest (_c_121, _vs_first, _ve_rest, _ve_word, _ge_rest__1);
     2719    Scan_m_Identifier_m_Rest (_c_125, _vs_first, _ve_rest, _ve_word, _ge_rest__1);
    24302720    _v_res1.assign (new Expr (_c_10, _ve_word.getExpr ()));
    24312721    _v_res2.assign (_ge_rest__1.getExpr ());
     
    24422732          break _block1__branch1;
    24432733        }
    2444         if (!_vs_obj.eq (_c_116, 0))
     2734        if (!_vs_obj.eq (_c_120, 0))
    24452735        {
    24462736          break _block1__branch1;
    24472737        }
    2448         _ve_extra = _c_122;
     2738        _ve_extra = _c_126;
    24492739        break _block1;
    24502740      }
     
    24532743        throw new RefalException ("rfp_lex", "Scan_m_Identifier_m_Rest", "Unexpected fail");
    24542744      }
    2455       if (!_vs_obj.eq (_c_121, 0))
     2745      if (!_vs_obj.eq (_c_125, 0))
    24562746      {
    24572747        throw new RefalException ("rfp_lex", "Scan_m_Identifier_m_Rest", "Unexpected fail");
    24582748      }
    2459       _ve_extra = _c_123;
     2749      _ve_extra = _c_127;
    24602750    }
    24612751    Expr _ve_w = _ve_start;
     
    25112801              break _block3__branch1;
    25122802            }
    2513             Expr.SplitIterator _va_34 = _ve_extra.leftSplit(0);
    2514             _exit1: _continue1: for ( ; ; _va_34.next ())
     2803            Expr.SplitIterator _va_35 = _ve_extra.leftSplit(0);
     2804            _exit1: _continue1: for ( ; ; _va_35.next ())
    25152805            {
    2516               Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_435_m_20 = _va_34.getLeft();
    2517               Expr _v_lsplit__extra = _va_34.getRight();
    2518               if (!_va_34.isValid ())
     2806              Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_469_m_20 = _va_35.getLeft();
     2807              Expr _v_lsplit__extra = _va_35.getRight();
     2808              if (!_va_35.isValid ())
    25192809              {
    25202810                break _block3__branch1;
     
    25262816                break _block3__branch1;
    25272817              }
    2528               int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_435_m_30 = (_v_len3 - _v_len4);
     2818              int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_469_m_30 = (_v_len3 - _v_len4);
    25292819              if (!_vs_first.eq (_v_lsplit__extra, 0))
    25302820              {
    25312821                continue _continue1;
    25322822              }
    2533               Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_435_m_30 = new Expr (_v_lsplit__extra, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_435_m_30);
     2823              Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_469_m_30 = new Expr (_v_lsplit__extra, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_469_m_30);
    25342824              break _exit1;
    25352825            }
     
    25552845    }
    25562846    int _v_len__rest = (_v_len1 - _v_len2);
    2557     if (!_c_124.eq (_ve_line, 0))
     2847    if (!_c_128.eq (_ve_line, 0))
    25582848    {
    25592849      return false;
     
    25632853    Result _ve_word = new Result ();
    25642854    Result _ge_rest__1 = new Result ();
    2565     Scan_m_String_m_Rest (Expr.empty, _ve_rest, _c_124, _ve_word, _ge_rest__1);
     2855    Scan_m_String_m_Rest (Expr.empty, _ve_rest, _c_128, _ve_word, _ge_rest__1);
    25662856    _v_res1.assign (new Expr (_c_11, _ve_word.getExpr ()));
    25672857    _v_res2.assign (_ge_rest__1.getExpr ());
     
    25782868    }
    25792869    int _v_len__rest = (_v_len1 - _v_len2);
    2580     if (!_c_125.eq (_ve_line, 0))
     2870    if (!_c_129.eq (_ve_line, 0))
    25812871    {
    25822872      return false;
     
    25862876    Result _ve_str = new Result ();
    25872877    Result _ge_rest__1 = new Result ();
    2588     Scan_m_String_m_Rest (Expr.empty, _ve_rest, _c_125, _ve_str, _ge_rest__1);
    2589     _v_res1.assign (new Expr (_c_126, _ve_str.getExpr ()));
     2878    Scan_m_String_m_Rest (Expr.empty, _ve_rest, _c_129, _ve_str, _ge_rest__1);
     2879    _v_res1.assign (new Expr (_c_130, _ve_str.getExpr ()));
    25902880    _v_res2.assign (_ge_rest__1.getExpr ());
    25912881    return true;
     
    26472937                break _block2__branch2;
    26482938              }
    2649               if (!_vs_first.eq (_c_51, 0))
     2939              if (!_vs_first.eq (_c_53, 0))
    26502940              {
    26512941                break _block2__branch2;
     
    26732963                        break _block4__branch1;
    26742964                      }
    2675                       if (!_vs_first2.eq (_c_113, 0))
     2965                      if (!_vs_first2.eq (_c_117, 0))
    26762966                      {
    26772967                        break _block4__branch1;
    26782968                      }
    2679                       _ve_s = new Expr (_ve_s, _c_127);
     2969                      _ve_s = new Expr (_ve_s, _c_131);
    26802970                      _ve_l = _ve_rest2;
    26812971                      _vs_cond = _c_17;
     
    26872977                        break _block4__branch2;
    26882978                      }
    2689                       if (!_vs_first2.eq (_c_128, 0))
     2979                      if (!_vs_first2.eq (_c_132, 0))
    26902980                      {
    26912981                        break _block4__branch2;
    26922982                      }
    2693                       _ve_s = new Expr (_ve_s, _c_129);
     2983                      _ve_s = new Expr (_ve_s, _c_133);
    26942984                      _ve_l = _ve_rest2;
    26952985                      _vs_cond = _c_17;
     
    27012991                        break _block4__branch3;
    27022992                      }
    2703                       if (!_vs_first2.eq (_c_130, 0))
     2993                      if (!_vs_first2.eq (_c_134, 0))
    27042994                      {
    27052995                        break _block4__branch3;
    27062996                      }
    2707                       _ve_s = new Expr (_ve_s, _c_131);
     2997                      _ve_s = new Expr (_ve_s, _c_135);
    27082998                      _ve_l = _ve_rest2;
    27092999                      _vs_cond = _c_17;
     
    27153005                        break _block4__branch4;
    27163006                      }
    2717                       if (!_vs_first2.eq (_c_51, 0))
     3007                      if (!_vs_first2.eq (_c_53, 0))
    27183008                      {
    27193009                        break _block4__branch4;
    27203010                      }
    2721                       _ve_s = new Expr (_ve_s, _c_51);
     3011                      _ve_s = new Expr (_ve_s, _c_53);
    27223012                      _ve_l = _ve_rest2;
    27233013                      _vs_cond = _c_17;
     
    27293019                        break _block4__branch5;
    27303020                      }
    2731                       if (!_vs_first2.eq (_c_125, 0))
     3021                      if (!_vs_first2.eq (_c_129, 0))
    27323022                      {
    27333023                        break _block4__branch5;
    27343024                      }
    2735                       _ve_s = new Expr (_ve_s, _c_125);
     3025                      _ve_s = new Expr (_ve_s, _c_129);
    27363026                      _ve_l = _ve_rest2;
    27373027                      _vs_cond = _c_17;
     
    27433033                        break _block4__branch6;
    27443034                      }
    2745                       if (!_vs_first2.eq (_c_124, 0))
     3035                      if (!_vs_first2.eq (_c_128, 0))
    27463036                      {
    27473037                        break _block4__branch6;
    27483038                      }
    2749                       _ve_s = new Expr (_ve_s, _c_124);
     3039                      _ve_s = new Expr (_ve_s, _c_128);
    27503040                      _ve_l = _ve_rest2;
    27513041                      _vs_cond = _c_17;
     
    27603050                      break _block3__branch1;
    27613051                    }
    2762                     Expr _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_479_m_16 = new Expr (_vs_first2, 0, 1);
     3052                    Expr _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_513_m_16 = new Expr (_vs_first2, 0, 1);
    27633053                    Result _ge_auxcall1 = new Result ();
    27643054                    Token_m_Position (_ge_auxcall1);
    2765                     Expr[] _va_35 = { _c_132 , _vs_first2 , _c_57 };
    2766                     rfp__err.RFP_m_Warning (_ge_auxcall1.getExpr (), Expr.concat (_va_35));
     3055                    Expr[] _va_36 = { _c_136 , _vs_first2 , _c_59 };
     3056                    rfp__err.RFP_m_Warning (_ge_auxcall1.getExpr (), Expr.concat (_va_36));
    27673057                    _ve_s = new Expr (_ve_s, _vs_first2);
    27683058                    _ve_l = _ve_rest2;
     
    27833073                Result _ge_auxcall3 = new Result ();
    27843074                Token_m_Position (_ge_auxcall3);
    2785                 rfp__err.RFP_m_Error (_ge_auxcall3.getExpr (), _c_133);
     3075                rfp__err.RFP_m_Error (_ge_auxcall3.getExpr (), _c_137);
    27863076                _ve_l = Expr.empty;
    27873077                _vs_cond = _c_18;
     
    27973087              throw new RefalException ("rfp_lex", "Scan_m_String_m_Rest", "Unexpected fail");
    27983088            }
    2799             Expr _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_487_m_10 = new Expr (_vs_first, 0, 1);
     3089            Expr _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_521_m_10 = new Expr (_vs_first, 0, 1);
    28003090            _ve_s = new Expr (_ve_s, _vs_first);
    28013091            _ve_l = _ve_rest;
     
    28103100            break _block1__branch2;
    28113101          }
    2812           _ve_s = new Expr (_ve_s, _c_129);
     3102          _ve_s = new Expr (_ve_s, _c_133);
    28133103          _ve_l = _ge_auxcall4.getExpr ();
    28143104          _vs_cond = _c_17;
     
    28173107        Result _ge_auxcall5 = new Result ();
    28183108        Token_m_Position (_ge_auxcall5);
    2819         rfp__err.RFP_m_Error (_ge_auxcall5.getExpr (), _c_134);
     3109        rfp__err.RFP_m_Error (_ge_auxcall5.getExpr (), _c_138);
    28203110        _ve_l = Expr.empty;
    28213111        _vs_cond = _c_18;
     
    28323122          break _block1__branch1;
    28333123        }
    2834         Expr.SplitIterator _va_36 = _ve_line.leftSplit(0);
    2835         _exit1: _continue1: for ( ; ; _va_36.next ())
    2836         {
    2837           Expr _ve_1 = _va_36.getLeft();
    2838           Expr _v_lsplit__line = _va_36.getRight();
    2839           if (!_va_36.isValid ())
     3124        Expr.SplitIterator _va_37 = _ve_line.leftSplit(0);
     3125        _exit1: _continue1: for ( ; ; _va_37.next ())
     3126        {
     3127          Expr _ve_1 = _va_37.getLeft();
     3128          Expr _v_lsplit__line = _va_37.getRight();
     3129          if (!_va_37.isValid ())
    28403130          {
    28413131            break _block1__branch1;
     
    28483138          }
    28493139          int _v_len__rest = (_v_len1 - _v_len2);
    2850           if (!_c_135.eq (_v_lsplit__line, 0))
     3140          if (!_c_139.eq (_v_lsplit__line, 0))
    28513141          {
    28523142            continue _continue1;
     
    28543144          Expr _ve_rest = new Expr (_v_lsplit__line, (0 + 1 + 1), _v_len__rest);
    28553145          Result _gs_auxcall1 = new Result ();
    2856           Access.Length (new Expr (_ve_1, _c_135), _gs_auxcall1);
     3146          Access.Length (new Expr (_ve_1, _c_139), _gs_auxcall1);
    28573147          Result _ge_auxcall2 = new Result ();
    2858           List.Replicate (_gs_auxcall1.getExpr (), _c_136, _ge_auxcall2);
     3148          List.Replicate (_gs_auxcall1.getExpr (), _c_140, _ge_auxcall2);
    28593149          Result _v_Map1 = new Result ();
    2860           if (!List.Map (_c_137, Expr.empty, _ge_auxcall2.getExpr (), _v_Map1))
     3150          if (!List.Map (_c_141, Expr.empty, _ge_auxcall2.getExpr (), _v_Map1))
    28613151          {
    28623152            return false;
     
    28683158            return false;
    28693159          }
    2870           int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_497_m_89 = (_v_len3 - _v_len4);
    2871           Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_497_m_89 = new Expr (_v_Map1.getExpr (), 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_497_m_89);
     3160          int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_531_m_89 = (_v_len3 - _v_len4);
     3161          Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_531_m_89 = new Expr (_v_Map1.getExpr (), 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_531_m_89);
    28723162          _v_res1.assign (_ve_rest);
    28733163          break _exit1;
     
    30143304          break _block1__branch1;
    30153305        }
    3016         int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_525_m_31 = (_v_len1 - _v_len2);
     3306        int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_559_m_31 = (_v_len1 - _v_len2);
    30173307        if (!_vs_dir_m_separator.eq (_ve_name, 0))
    30183308        {
    30193309          break _block1__branch1;
    30203310        }
    3021         Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_525_m_31 = new Expr (_ve_name, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_525_m_31);
    3022         _ve_path = _c_138;
     3311        Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_559_m_31 = new Expr (_ve_name, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_559_m_31);
     3312        _ve_path = _c_142;
    30233313        break _block1;
    30243314      }
     
    30303320          break _block1__branch2;
    30313321        }
    3032         int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_526_m_19 = (_v_len3 - _v_len4);
    3033         if (!_c_115.eq (_ve_name, 0))
     3322        int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_560_m_19 = (_v_len3 - _v_len4);
     3323        if (!_c_119.eq (_ve_name, 0))
    30343324        {
    30353325          break _block1__branch2;
    30363326        }
    3037         Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_526_m_19 = new Expr (_ve_name, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_526_m_19);
     3327        Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_560_m_19 = new Expr (_ve_name, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_560_m_19);
    30383328        Result _ge_auxcall1 = new Result ();
    30393329        Source_m_File_m_Name (_ge_auxcall1);
     
    30553345      return false;
    30563346    }
    3057     Expr.SplitIterator _va_37 = _ve_path.leftSplit(0);
    3058     _exit1: _continue1: for ( ; ; _va_37.next ())
    3059     {
    3060       Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_529_m_13 = _va_37.getLeft();
    3061       Expr _v_lsplit__path = _va_37.getRight();
    3062       if (!_va_37.isValid ())
     3347    Expr.SplitIterator _va_38 = _ve_path.leftSplit(0);
     3348    _exit1: _continue1: for ( ; ; _va_38.next ())
     3349    {
     3350      Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_563_m_13 = _va_38.getLeft();
     3351      Expr _v_lsplit__path = _va_38.getRight();
     3352      if (!_va_38.isValid ())
    30633353      {
    30643354        return false;
     
    30703360        return false;
    30713361      }
    3072       int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_529_m_27 = (_v_len5 - _v_len6);
     3362      int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_563_m_27 = (_v_len5 - _v_len6);
    30733363      if (_v_lsplit__path.symbolAt (0))
    30743364      {
     
    30833373      }
    30843374      int _v_len__dirname = (_v_len7 - _v_len8);
    3085       Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_529_m_27 = new Expr (_v_lsplit__path, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_529_m_27);
     3375      Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_563_m_27 = new Expr (_v_lsplit__path, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_563_m_27);
    30863376      Expr _ve_dirname = new Expr (_v_deref__lsplit__path, 0, _v_len__dirname);
    30873377      Expr _ve_dirn = Expr.empty;
     
    30943384            break _block2__branch1;
    30953385          }
    3096           int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_531_m_6 = (_v_len9 - _v_len10);
    3097           if (!_vs_dir_m_separator.eq (_ve_dirname, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_531_m_6)))
     3386          int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_565_m_6 = (_v_len9 - _v_len10);
     3387          if (!_vs_dir_m_separator.eq (_ve_dirname, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_565_m_6)))
    30983388          {
    30993389            break _block2__branch1;
    31003390          }
    3101           Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_531_m_6 = new Expr (_ve_dirname, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_531_m_6);
     3391          Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_565_m_6 = new Expr (_ve_dirname, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_565_m_6);
    31023392          _ve_dirn = _ve_dirname;
    31033393          break _block2;
     
    31103400            break _block2__branch2;
    31113401          }
    3112           int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_532_m_6 = (_v_len11 - _v_len12);
    3113           Expr _vv__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_532_m_6 = new Expr (_ve_dirname, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_532_m_6);
     3402          int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_566_m_6 = (_v_len11 - _v_len12);
     3403          Expr _vv__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_566_m_6 = new Expr (_ve_dirname, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_566_m_6);
    31143404          _ve_dirn = new Expr (_ve_dirname, _vs_dir_m_separator);
    31153405          break _block2;
     
    31213411          throw new RefalException ("rfp_lex", "Find_m_Include_q_", "Unexpected fail");
    31223412        }
    3123         int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_533_m_6 = (_v_len13 - _v_len14);
    3124         Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_533_m_6 = new Expr (_ve_dirname, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_533_m_6);
    3125         _ve_dirn = new Expr (_c_115, _vs_dir_m_separator);
     3413        int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_567_m_6 = (_v_len13 - _v_len14);
     3414        Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_567_m_6 = new Expr (_ve_dirname, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_567_m_6);
     3415        _ve_dirn = new Expr (_c_119, _vs_dir_m_separator);
     3416      }
     3417      Expr _ge_name__0 = Expr.empty;
     3418      Expr _ge_name__1 = _ve_name;
     3419      _exit__iter1: for ( ; ; )
     3420      {
     3421        _iter1: {
     3422          _negation1: {
     3423            if ((_ge_name__1.getLen () < 1))
     3424            {
     3425              break _negation1;
     3426            }
     3427            Expr.SplitIterator _va_39 = _ge_name__1.leftSplit(0);
     3428            _exit2: _continue2: for ( ; ; _va_39.next ())
     3429            {
     3430              Expr _ve_1 = _va_39.getLeft();
     3431              Expr _v_lsplit__name__1 = _va_39.getRight();
     3432              if (!_va_39.isValid ())
     3433              {
     3434                break _negation1;
     3435              }
     3436              int _v_len15 = _v_lsplit__name__1.getLen ();
     3437              int _v_len16 = 1;
     3438              if ((_v_len15 < _v_len16))
     3439              {
     3440                break _negation1;
     3441              }
     3442              int _v_len__2 = (_v_len15 - _v_len16);
     3443              if (!_c_119.eq (_v_lsplit__name__1, 0))
     3444              {
     3445                continue _continue2;
     3446              }
     3447              Expr _ve_2 = new Expr (_v_lsplit__name__1, (0 + 1), _v_len__2);
     3448              break _exit2;
     3449            }
     3450            break _iter1;
     3451          }
     3452          _ge_name__0 = _ge_name__1;
     3453          break _exit__iter1;
     3454        }
     3455        if ((_ge_name__1.getLen () < 1))
     3456        {
     3457          throw new RefalException ("rfp_lex", "Find_m_Include_q_", "Unexpected fail");
     3458        }
     3459        Expr.SplitIterator _va_40 = _ge_name__1.leftSplit(0);
     3460        _exit3: _continue3: for ( ; ; _va_40.next ())
     3461        {
     3462          Expr _ve_1 = _va_40.getLeft();
     3463          Expr _v_lsplit__name__12 = _va_40.getRight();
     3464          if (!_va_40.isValid ())
     3465          {
     3466            throw new RefalException ("rfp_lex", "Find_m_Include_q_", "Unexpected fail");
     3467          }
     3468          int _v_len17 = _v_lsplit__name__12.getLen ();
     3469          int _v_len18 = 1;
     3470          if ((_v_len17 < _v_len18))
     3471          {
     3472            throw new RefalException ("rfp_lex", "Find_m_Include_q_", "Unexpected fail");
     3473          }
     3474          int _v_len__22 = (_v_len17 - _v_len18);
     3475          if (!_c_119.eq (_v_lsplit__name__12, 0))
     3476          {
     3477            continue _continue3;
     3478          }
     3479          Expr _ve_2 = new Expr (_v_lsplit__name__12, (0 + 1), _v_len__22);
     3480          Expr[] _va_41 = { _ve_1 , _vs_dir_m_separator , _ve_2 };
     3481          _ge_name__1 = Expr.concat (_va_41);
     3482          break _exit3;
     3483        }
    31263484      }
    31273485      Expr _ve_source = Expr.empty;
    3128       _block3: {
    3129         _block3__branch1: {
    3130           if (!Table.In_m_Table_q_ (rfp__helper.RFP_m_Options, _c_64))
    3131           {
    3132             break _block3__branch1;
     3486      _block6: {
     3487        _block6__branch1: {
     3488          if (!Table.In_m_Table_q_ (rfp__helper.RFP_m_Options, _c_66))
     3489          {
     3490            break _block6__branch1;
    31333491          }
    31343492          Expr _gs_auxalt5 = Expr.empty;
     
    31373495            if (false)
    31383496              throw new RefalException ("rfp_lex", "Find_m_Include_q_", "This is for avoiding 'Unreachable code' errors");
    3139             Result _va_38 = new Result ();
    3140             Dir.Open_m_Dir (_ve_dirn, _va_38);
    3141             _gs_auxalt5 = _va_38.getExpr ();
     3497            Result _va_42 = new Result ();
     3498            Dir.Open_m_Dir (_ve_dirn, _va_42);
     3499            _gs_auxalt5 = _va_42.getExpr ();
    31423500          }
    31433501          catch (RefalException error) {
    31443502            Expr err = error.getExpr ();
    3145             int _v_len15 = err.getLen ();
    3146             int _v_len16 = 0;
    3147             if ((_v_len15 < _v_len16))
     3503            int _v_len19 = err.getLen ();
     3504            int _v_len20 = 0;
     3505            if ((_v_len19 < _v_len20))
    31483506            {
    31493507              throw new RefalException ("rfp_lex", "Find_m_Include_q_", "Unexpected fail");
    31503508            }
    3151             int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_543_m_12 = (_v_len15 - _v_len16);
    3152             Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_543_m_12 = new Expr (err, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_543_m_12);
     3509            int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_577_m_12 = (_v_len19 - _v_len20);
     3510            Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_577_m_12 = new Expr (err, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_577_m_12);
    31533511            continue _continue1;
    31543512          }
     
    31633521          Expr _vs_dir = new Expr (_gs_auxalt5, 0, 1);
    31643522          Expr _ve_res = Expr.empty;
    3165           _exit__iter1: for ( ; ; )
    3166           {
    3167             _iter1: {
     3523          _exit__iter2: for ( ; ; )
     3524          {
     3525            _iter2: {
    31683526              if ((_ve_res.getLen () != 1))
    31693527              {
    3170                 break _iter1;
     3528                break _iter2;
    31713529              }
    31723530              if (_ve_res.symbolAt (0))
    31733531              {
    3174                 break _iter1;
     3532                break _iter2;
    31753533              }
    31763534              Expr _v_deref__res = (Expr) _ve_res.at (0);
    3177               int _v_len17 = _v_deref__res.getLen ();
    3178               int _v_len18 = 0;
    3179               if ((_v_len17 < _v_len18))
    3180               {
    3181                 break _iter1;
    3182               }
    3183               int _v_len__source__1 = (_v_len17 - _v_len18);
     3535              int _v_len21 = _v_deref__res.getLen ();
     3536              int _v_len22 = 0;
     3537              if ((_v_len21 < _v_len22))
     3538              {
     3539                break _iter2;
     3540              }
     3541              int _v_len__source__1 = (_v_len21 - _v_len22);
    31843542              Expr _ge_source__1 = new Expr (_v_deref__res, 0, _v_len__source__1);
    31853543              _ve_source = _ge_source__1;
    3186               break _exit__iter1;
     3544              break _exit__iter2;
    31873545            }
    31883546            Result _ve_filename = new Result ();
     
    31913549              continue _continue1;
    31923550            }
    3193             _block7: {
    3194               _block7__branch1: {
    3195                 int _v_len19 = _ve_filename.getExpr ().getLen ();
    3196                 int _v_len20 = 4;
    3197                 if ((_v_len19 < _v_len20))
     3551            _block10: {
     3552              _block10__branch1: {
     3553                int _v_len23 = _ve_filename.getExpr ().getLen ();
     3554                int _v_len24 = 4;
     3555                if ((_v_len23 < _v_len24))
    31983556                {
    3199                   break _block7__branch1;
    3200                 }
    3201                 int _v_len__basename = (_v_len19 - _v_len20);
     3557                  break _block10__branch1;
     3558                }
     3559                int _v_len__basename = (_v_len23 - _v_len24);
    32023560                if (!_c_3.eq (_ve_filename.getExpr (), (0 + _v_len__basename)))
    32033561                {
    3204                   break _block7__branch1;
     3562                  break _block10__branch1;
    32053563                }
    32063564                Expr _ve_basename = new Expr (_ve_filename.getExpr (), 0, _v_len__basename);
    3207                 _block8: {
    3208                   _block8__branch1: {
    3209                     if ((_v_len__basename != _ve_name.getLen ()))
     3565                _block11: {
     3566                  _block11__branch1: {
     3567                    if ((_v_len__basename != _ge_name__0.getLen ()))
    32103568                    {
    3211                       break _block8__branch1;
     3569                      break _block11__branch1;
    32123570                    }
    3213                     if (!_ve_name.eq (_ve_basename, 0))
     3571                    if (!_ge_name__0.eq (_ve_basename, 0))
    32143572                    {
    3215                       break _block8__branch1;
     3573                      break _block11__branch1;
    32163574                    }
    3217                     break _block8;
     3575                    break _block11;
    32183576                  }
    32193577                  if ((1 != 1))
    32203578                  {
    3221                     break _block7__branch1;
     3579                    break _block10__branch1;
    32223580                  }
    32233581                  if (!_vs_ci_q_.eq (_c_19, 0))
    32243582                  {
    3225                     break _block7__branch1;
     3583                    break _block10__branch1;
    32263584                  }
    32273585                  Result _v_To_m_Upper1 = new Result ();
     
    32293587                  if ((_v_To_m_Upper1.getExpr ().getLen () != _ve_NAME.getExpr ().getLen ()))
    32303588                  {
    3231                     break _block7__branch1;
     3589                    break _block10__branch1;
    32323590                  }
    32333591                  if (!_ve_NAME.getExpr ().eq (_v_To_m_Upper1.getExpr (), 0))
    32343592                  {
    3235                     break _block7__branch1;
     3593                    break _block10__branch1;
    32363594                  }
    32373595                }
    32383596                Result _ge_auxcall6 = new Result ();
    3239                 Expr[] _va_39 = { _ve_dirn , _ve_basename , _c_3 };
    3240                 if (!Try_m_Open (Expr.concat (_va_39), _ge_auxcall6))
     3597                Expr[] _va_43 = { _ve_dirn , _ve_basename , _c_3 };
     3598                if (!Try_m_Open (Expr.concat (_va_43), _ge_auxcall6))
    32413599                {
    32423600                  continue _continue1;
    32433601                }
    32443602                _ve_res = new Expr(_ge_auxcall6.getExpr ());
    3245                 break _block7;
     3603                break _block10;
    32463604              }
    32473605              _ve_res = Expr.empty;
    32483606            }
    32493607          }
    3250           break _block3;
    3251         }
    3252         Expr[] _va_41 = { _ve_dirn , _ve_name , _c_3 };
    3253         Result _va_40 = new Result ();
    3254         if (!Try_m_Open (Expr.concat (_va_41), _va_40))
     3608          break _block6;
     3609        }
     3610        Expr[] _va_45 = { _ve_dirn , _ge_name__0 , _c_3 };
     3611        Result _va_44 = new Result ();
     3612        if (!Try_m_Open (Expr.concat (_va_45), _va_44))
    32553613        {
    32563614          continue _continue1;
    32573615        }
    3258         _ve_source = _va_40.getExpr ();
     3616        _ve_source = _va_44.getExpr ();
    32593617      }
    32603618      _v_res1.assign (_ve_source);
     
    32723630          break _block1__branch1;
    32733631        }
    3274         Expr[] _va_42 = { _c_139 , _ve_filename , _c_57 };
    3275         StdIO.PrintLN (Expr.concat (_va_42));
     3632        Expr[] _va_46 = { _c_143 , _ve_filename , _c_59 };
     3633        StdIO.PrintLN (Expr.concat (_va_46));
    32763634        break _block1;
    32773635      }
     
    32883646          break _block2__branch1;
    32893647        }
    3290         Expr[] _va_43 = { _c_57 , _ve_filename , _c_140 };
    3291         StdIO.PrintLN (Expr.concat (_va_43));
     3648        Expr[] _va_47 = { _c_59 , _ve_filename , _c_144 };
     3649        StdIO.PrintLN (Expr.concat (_va_47));
    32923650        break _block2;
    32933651      }
     
    33193677      return false;
    33203678    }
    3321     int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_572_m_35 = (_v_len1 - _v_len2);
     3679    int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_606_m_35 = (_v_len1 - _v_len2);
    33223680    int _v_len3 = _v_deref__arg1.getLen ();
    33233681    int _v_len4 = 0;
     
    33273685    }
    33283686    int _v_len__name = (_v_len3 - _v_len4);
    3329     if (!_c_141.eq (_ge_arg1, 0))
     3687    if (!_c_145.eq (_ge_arg1, 0))
    33303688    {
    33313689      return false;
     
    33353693      return false;
    33363694    }
    3337     Expr _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_572_m_23 = new Expr (_ge_arg1, (0 + 1), 1);
     3695    Expr _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_606_m_23 = new Expr (_ge_arg1, (0 + 1), 1);
    33383696    Expr _ve_name = new Expr (_v_deref__arg1, 0, _v_len__name);
    3339     Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_572_m_35 = new Expr (_v_deref__arg12, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_572_m_35);
     3697    Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_606_m_35 = new Expr (_v_deref__arg12, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__lexrf_m_606_m_35);
    33403698    int _v_len5 = _v_len__name;
    33413699    int _v_len6 = 3;
     
    33453703    }
    33463704    int _v_len__base = (_v_len5 - _v_len6);
    3347     if (!_c_142.eq (_ve_name, (0 + _v_len__base)))
     3705    if (!_c_146.eq (_ve_name, (0 + _v_len__base)))
    33483706    {
    33493707      return false;
     
    33603718    if ((_v_len1 < _v_len2))
    33613719    {
    3362       throw new RefalException (_c_143);
     3720      throw new RefalException (_c_147);
    33633721    }
    33643722    int _v_len__stub1 = (_v_len1 - _v_len2);
    33653723    if (!_ge_arg1.symbolAt (0))
    33663724    {
    3367       throw new RefalException (_c_143);
     3725      throw new RefalException (_c_147);
    33683726    }
    33693727    Expr _v_stub2 = new Expr (_ge_arg1, 0, 1);
     
    33793737    if ((_ge_arg1.getLen () != 0))
    33803738    {
    3381       throw new RefalException (_c_143);
     3739      throw new RefalException (_c_147);
    33823740    }
    33833741    Next_m_Column ();
Note: See TracChangeset for help on using the changeset viewer.