Changeset 2204


Ignore:
Timestamp:
Dec 26, 2006, 4:42:45 AM (14 years ago)
Author:
orlov
Message:
  • Fresh-generated compiler sources in Java.
File:
1 edited

Legend:

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

    r2187 r2204  
    11211121          break _block1;
    11221122        }
    1123         int _v_len77 = _ve_Snt.getLen ();
    1124         int _v_len78 = 1;
    1125         if ((_v_len77 < _v_len78))
     1123        _block1__branch8: {
     1124          int _v_len77 = _ve_Snt.getLen ();
     1125          int _v_len78 = 1;
     1126          if ((_v_len77 < _v_len78))
     1127          {
     1128            break _block1__branch8;
     1129          }
     1130          int _v_len__R5 = (_v_len77 - _v_len78);
     1131          if (_ve_Snt.symbolAt (0))
     1132          {
     1133            break _block1__branch8;
     1134          }
     1135          Expr _v_deref__Snt8 = (Expr) _ve_Snt.at (0);
     1136          if ((_v_deref__Snt8.getLen () != 2))
     1137          {
     1138            break _block1__branch8;
     1139          }
     1140          if (!_c_20.eq (_v_deref__Snt8, 0))
     1141          {
     1142            break _block1__branch8;
     1143          }
     1144          Expr _ve_R = new Expr (_ve_Snt, (0 + 1), _v_len__R5);
     1145          Expr _vt_Pragma = new Expr (_v_deref__Snt8, (0 + 1), 1);
     1146          Result _v_Unstick_m_Blocks10 = new Result ();
     1147          Result _va_36 = new Result ();
     1148          Unstick_m_Blocks (_ve_R, _va_36, _v_Unstick_m_Blocks10);
     1149          _ve_R = _va_36.getExpr ();
     1150          Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_141_m_32 = new Expr(_v_Unstick_m_Blocks10.getExpr ());
     1151          Expr[] _va_37 = { _ve_L , new Expr(new Expr (_c_20, _vt_Pragma)) , _ve_R };
     1152          _v_res1.assign (Expr.concat (_va_37));
     1153          _v_res2.assign (_c_19);
     1154          break _block1;
     1155        }
     1156        if ((_ve_Snt.getLen () != 0))
    11261157        {
    11271158          continue _continue1;
    11281159        }
    1129         int _v_len__R5 = (_v_len77 - _v_len78);
    1130         if (_ve_Snt.symbolAt (0))
    1131         {
    1132           continue _continue1;
    1133         }
    1134         Expr _v_deref__Snt8 = (Expr) _ve_Snt.at (0);
    1135         if ((_v_deref__Snt8.getLen () != 2))
    1136         {
    1137           continue _continue1;
    1138         }
    1139         if (!_c_20.eq (_v_deref__Snt8, 0))
    1140         {
    1141           continue _continue1;
    1142         }
    1143         Expr _ve_R = new Expr (_ve_Snt, (0 + 1), _v_len__R5);
    1144         Expr _vt_Pragma = new Expr (_v_deref__Snt8, (0 + 1), 1);
    1145         Result _v_Unstick_m_Blocks10 = new Result ();
    1146         Result _va_36 = new Result ();
    1147         Unstick_m_Blocks (_ve_R, _va_36, _v_Unstick_m_Blocks10);
    1148         _ve_R = _va_36.getExpr ();
    1149         Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_141_m_32 = new Expr(_v_Unstick_m_Blocks10.getExpr ());
    1150         Expr[] _va_37 = { _ve_L , new Expr(new Expr (_c_20, _vt_Pragma)) , _ve_R };
    1151         _v_res1.assign (Expr.concat (_va_37));
     1160        _v_res1.assign (_c_19);
    11521161        _v_res2.assign (_c_19);
    11531162      }
     
    11861195              break _block2__branch1;
    11871196            }
    1188             int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_146_m_30 = (_v_len3 - _v_len4);
     1197            int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_147_m_30 = (_v_len3 - _v_len4);
    11891198            if (!_c_7.eq (_v_deref__1, 0))
    11901199            {
    11911200              break _block2__branch1;
    11921201            }
    1193             Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_146_m_30 = new Expr (_v_deref__1, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_146_m_30);
     1202            Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_147_m_30 = new Expr (_v_deref__1, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_147_m_30);
    11941203            break _block2;
    11951204          }
     
    12091218            break _block1__branch1;
    12101219          }
    1211           int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_146_m_42 = (_v_len5 - _v_len6);
     1220          int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_147_m_42 = (_v_len5 - _v_len6);
    12121221          if (!_c_8.eq (_v_deref__12, 0))
    12131222          {
    12141223            break _block1__branch1;
    12151224          }
    1216           Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_146_m_42 = new Expr (_v_deref__12, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_146_m_42);
     1225          Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_147_m_42 = new Expr (_v_deref__12, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_147_m_42);
    12171226        }
    12181227        Result _ve_1 = new Result ();
     
    14241433            }
    14251434            Expr _ge_Snt__2 = new Expr (_ve_Sentence, (0 + 1), _v_len__Snt__2);
    1426             Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_191_m_12 = new Expr (_v_deref__Sentence, (0 + 1), 1);
     1435            Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_192_m_12 = new Expr (_v_deref__Sentence, (0 + 1), 1);
    14271436            Expr _ge_Pe__2 = new Expr (_v_deref__Sentence, (0 + 1 + 1), _v_len__Pe__2);
    14281437            _ve_Pe = _ge_Pe__2;
     
    14541463          }
    14551464          Expr _ge_Snt__2 = new Expr (_ve_Sentence, (0 + 1), _v_len__Snt__22);
    1456           Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_192_m_13 = new Expr (_v_deref__Sentence2, (0 + 1), 1);
     1465          Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_193_m_13 = new Expr (_v_deref__Sentence2, (0 + 1), 1);
    14571466          Expr _ge_Pe__2 = new Expr (_v_deref__Sentence2, (0 + 1 + 1), _v_len__Pe__22);
    14581467          _ve_Pe = _ge_Pe__2;
     
    14811490              _exit1: _continue1: for ( ; ; _va_45.next ())
    14821491              {
    1483                 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_197_m_24 = _va_45.getLeft();
     1492                Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_198_m_24 = _va_45.getLeft();
    14841493                Expr _v_lsplit__args = _va_45.getRight();
    14851494                if (!_va_45.isValid ())
     
    15021511                  continue _continue1;
    15031512                }
    1504                 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_197_m_27 = (_v_len9 - _v_len10);
    1505                 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_197_m_27 = new Expr (_v_deref__lsplit__args, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_197_m_27);
    1506                 Expr _vt_1 = new Expr (_v_deref__lsplit__args, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_197_m_27), 1);
     1513                int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_198_m_27 = (_v_len9 - _v_len10);
     1514                Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_198_m_27 = new Expr (_v_deref__lsplit__args, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_198_m_27);
     1515                Expr _vt_1 = new Expr (_v_deref__lsplit__args, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_198_m_27), 1);
    15071516                Expr _v_subexpr__lsplit__args = new Expr (_v_lsplit__args, (0 + 1), (_v_lsplit__args.getLen () - (0 + 1 + 0)));
    15081517                Expr.SplitIterator _va_46 = _v_subexpr__lsplit__args.leftSplit(0);
    15091518                _exit2: _continue2: for ( ; ; _va_46.next ())
    15101519                {
    1511                   Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_197_m_33 = _va_46.getLeft();
     1520                  Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_198_m_33 = _va_46.getLeft();
    15121521                  Expr _v_lsplit__lsplit__args = _va_46.getRight();
    15131522                  if (!_va_46.isValid ())
     
    15211530                    continue _continue1;
    15221531                  }
    1523                   int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_197_m_42 = (_v_len11 - _v_len12);
     1532                  int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_198_m_42 = (_v_len11 - _v_len12);
    15241533                  if (_v_lsplit__lsplit__args.symbolAt (0))
    15251534                  {
     
    15331542                    continue _continue2;
    15341543                  }
    1535                   int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_197_m_36 = (_v_len13 - _v_len14);
    1536                   if (!_vt_1.eq (_v_deref__lsplit__lsplit__args, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_197_m_36)))
     1544                  int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_198_m_36 = (_v_len13 - _v_len14);
     1545                  if (!_vt_1.eq (_v_deref__lsplit__lsplit__args, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_198_m_36)))
    15371546                  {
    15381547                    continue _continue2;
    15391548                  }
    1540                   Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_197_m_42 = new Expr (_v_lsplit__lsplit__args, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_197_m_42);
    1541                   Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_197_m_36 = new Expr (_v_deref__lsplit__lsplit__args, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_197_m_36);
     1549                  Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_198_m_42 = new Expr (_v_lsplit__lsplit__args, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_198_m_42);
     1550                  Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_198_m_36 = new Expr (_v_deref__lsplit__lsplit__args, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_198_m_36);
    15421551                  break _exit2;
    15431552                }
     
    15511560          }
    15521561          Result _ve_in_m_expr = new Result ();
    1553           Result _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_199_m_56 = new Result ();
    1554           rfp__vars.Gener_m_Var_m_Indices (_c_4, _ve_in, _c_26, _ve_in_m_expr, _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_199_m_56);
     1562          Result _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_200_m_56 = new Result ();
     1563          rfp__vars.Gener_m_Var_m_Indices (_c_4, _ve_in, _c_26, _ve_in_m_expr, _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_200_m_56);
    15551564          _ge_in__0 = _ve_in_m_expr.getExpr ();
    15561565          _ge_Sentence__0 = new Expr (new Expr(new Expr (_c_13, _ve_in_m_expr.getExpr ())), _ve_Sentence);
     
    15861595      Expr _ve_branches = new Expr (_v_deref__Sentence3, (0 + 1 + 1), _v_len__branches);
    15871596      Result _ve_in_m_expr = new Result ();
    1588       Result _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_210_m_54 = new Result ();
    1589       rfp__vars.Gener_m_Var_m_Indices (_c_4, _ve_in, _c_26, _ve_in_m_expr, _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_210_m_54);
     1597      Result _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_211_m_54 = new Result ();
     1598      rfp__vars.Gener_m_Var_m_Indices (_c_4, _ve_in, _c_26, _ve_in_m_expr, _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_211_m_54);
    15901599      Result _ve_in_m_vars = new Result ();
    15911600      rfp__vars.Vars (_ve_in_m_expr.getExpr (), _ve_in_m_vars);
     
    16701679              _exit3: _continue3: for ( ; ; _va_48.next ())
    16711680              {
    1672                 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_216_m_26 = _va_48.getLeft();
     1681                Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_217_m_26 = _va_48.getLeft();
    16731682                Expr _v_lsplit__vars = _va_48.getRight();
    16741683                if (!_va_48.isValid ())
     
    16911700                  continue _continue3;
    16921701                }
    1693                 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_216_m_29 = (_v_len25 - _v_len26);
    1694                 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_216_m_29 = new Expr (_v_deref__lsplit__vars, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_216_m_29);
    1695                 Expr _vt_1 = new Expr (_v_deref__lsplit__vars, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_216_m_29), 1);
     1702                int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_217_m_29 = (_v_len25 - _v_len26);
     1703                Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_217_m_29 = new Expr (_v_deref__lsplit__vars, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_217_m_29);
     1704                Expr _vt_1 = new Expr (_v_deref__lsplit__vars, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_217_m_29), 1);
    16961705                Expr _v_subexpr__lsplit__vars = new Expr (_v_lsplit__vars, (0 + 1), (_v_lsplit__vars.getLen () - (0 + 1 + 0)));
    16971706                Expr.SplitIterator _va_49 = _v_subexpr__lsplit__vars.leftSplit(0);
    16981707                _exit4: _continue4: for ( ; ; _va_49.next ())
    16991708                {
    1700                   Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_216_m_35 = _va_49.getLeft();
     1709                  Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_217_m_35 = _va_49.getLeft();
    17011710                  Expr _v_lsplit__lsplit__vars = _va_49.getRight();
    17021711                  if (!_va_49.isValid ())
     
    17101719                    continue _continue3;
    17111720                  }
    1712                   int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_216_m_44 = (_v_len27 - _v_len28);
     1721                  int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_217_m_44 = (_v_len27 - _v_len28);
    17131722                  if (_v_lsplit__lsplit__vars.symbolAt (0))
    17141723                  {
     
    17221731                    continue _continue4;
    17231732                  }
    1724                   int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_216_m_38 = (_v_len29 - _v_len30);
    1725                   if (!_vt_1.eq (_v_deref__lsplit__lsplit__vars, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_216_m_38)))
     1733                  int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_217_m_38 = (_v_len29 - _v_len30);
     1734                  if (!_vt_1.eq (_v_deref__lsplit__lsplit__vars, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_217_m_38)))
    17261735                  {
    17271736                    continue _continue4;
    17281737                  }
    1729                   Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_216_m_44 = new Expr (_v_lsplit__lsplit__vars, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_216_m_44);
    1730                   Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_216_m_38 = new Expr (_v_deref__lsplit__lsplit__vars, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_216_m_38);
     1738                  Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_217_m_44 = new Expr (_v_lsplit__lsplit__vars, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_217_m_44);
     1739                  Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_217_m_38 = new Expr (_v_deref__lsplit__lsplit__vars, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_217_m_38);
    17311740                  break _exit4;
    17321741                }
     
    18431852                break _block3__branch1;
    18441853              }
    1845               Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_249_m_16 = new Expr (_v_deref__Statement, (0 + 1), 1);
     1854              Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_250_m_16 = new Expr (_v_deref__Statement, (0 + 1), 1);
    18461855              Expr _ge_Pe__3 = new Expr (_v_deref__Statement, (0 + 1 + 1), _v_len__Pe__3);
    18471856              _ve_Pe = _ge_Pe__3;
     
    18681877              break _block2__branch1;
    18691878            }
    1870             Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_250_m_17 = new Expr (_v_deref__Statement2, (0 + 1), 1);
     1879            Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_251_m_17 = new Expr (_v_deref__Statement2, (0 + 1), 1);
    18711880            Expr _ge_Pe__3 = new Expr (_v_deref__Statement2, (0 + 1 + 1), _v_len__Pe__32);
    18721881            _ve_Pe = _ge_Pe__3;
     
    19451954            break _block2__branch2;
    19461955          }
    1947           Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_261_m_30 = new Expr (_v_deref__Statement3, (0 + 1), 1);
     1956          Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_262_m_30 = new Expr (_v_deref__Statement3, (0 + 1), 1);
    19481957          Expr _ve_He = new Expr (_v_deref__Statement3, (0 + 1 + 1), _v_len__He);
    19491958          Result _ge_auxcall4 = new Result ();
     
    20522061                break _block5__branch1;
    20532062              }
    2054               int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_280_m_26 = (_v_len25 - _v_len26);
     2063              int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_281_m_26 = (_v_len25 - _v_len26);
    20552064              if (_ve_rest.symbolAt (0))
    20562065              {
     
    20692078                break _block5__branch1;
    20702079              }
    2071               Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_280_m_26 = new Expr (_ve_rest, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_280_m_26);
    2072               Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_280_m_18 = new Expr (_v_deref__rest, (0 + 1), 1);
     2080              Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_281_m_26 = new Expr (_ve_rest, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_281_m_26);
     2081              Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_281_m_18 = new Expr (_v_deref__rest, (0 + 1), 1);
    20732082              Expr _ve_Pe = new Expr (_v_deref__rest, (0 + 1 + 1), _v_len__Pe);
    20742083              Result _va_55 = new Result ();
     
    20842093                break _block5__branch2;
    20852094              }
    2086               int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_281_m_27 = (_v_len29 - _v_len30);
     2095              int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_282_m_27 = (_v_len29 - _v_len30);
    20872096              if (_ve_rest.symbolAt (0))
    20882097              {
     
    21012110                break _block5__branch2;
    21022111              }
    2103               Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_281_m_27 = new Expr (_ve_rest, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_281_m_27);
    2104               Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_281_m_19 = new Expr (_v_deref__rest2, (0 + 1), 1);
     2112              Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_282_m_27 = new Expr (_ve_rest, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_282_m_27);
     2113              Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_282_m_19 = new Expr (_v_deref__rest2, (0 + 1), 1);
    21052114              Expr _ve_Pe = new Expr (_v_deref__rest2, (0 + 1 + 1), _v_len__Pe2);
    21062115              Result _va_56 = new Result ();
     
    21162125                break _block5__branch3;
    21172126              }
    2118               int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_282_m_28 = (_v_len33 - _v_len34);
     2127              int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_283_m_28 = (_v_len33 - _v_len34);
    21192128              if (_ve_rest.symbolAt (0))
    21202129              {
     
    21332142                break _block5__branch3;
    21342143              }
    2135               Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_282_m_28 = new Expr (_ve_rest, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_282_m_28);
    2136               Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_282_m_20 = new Expr (_v_deref__rest3, (0 + 1), 1);
     2144              Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_283_m_28 = new Expr (_ve_rest, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_283_m_28);
     2145              Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_283_m_20 = new Expr (_v_deref__rest3, (0 + 1), 1);
    21372146              Expr _ve_He = new Expr (_v_deref__rest3, (0 + 1 + 1), _v_len__He2);
    21382147              Result _va_57 = new Result ();
     
    21552164              throw new RefalException ("rfp_as2as", "Rename_m_Vars", "Unexpected fail");
    21562165            }
    2157             int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_284_m_12 = (_v_len37 - _v_len38);
    2158             Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_284_m_12 = new Expr (_ve_rest, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_284_m_12);
     2166            int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_285_m_12 = (_v_len37 - _v_len38);
     2167            Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_285_m_12 = new Expr (_ve_rest, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_285_m_12);
    21592168            _ve_bl_m_res_m_vars = Expr.empty;
    21602169          }
     
    22182227                    continue _continue1;
    22192228                  }
    2220                   int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_292_m_32 = (_v_len41 - _v_len42);
     2229                  int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_293_m_32 = (_v_len41 - _v_len42);
    22212230                  Expr _ve_2 = new Expr (_v_lsplit__bl_m_res_m_vars, (0 + 1), _v_len__2);
    2222                   Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_292_m_32 = new Expr (_v_deref__lsplit__bl_m_res_m_vars, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_292_m_32);
    2223                   Expr _vt_name = new Expr (_v_deref__lsplit__bl_m_res_m_vars, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_292_m_32), 1);
     2231                  Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_293_m_32 = new Expr (_v_deref__lsplit__bl_m_res_m_vars, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_293_m_32);
     2232                  Expr _vt_name = new Expr (_v_deref__lsplit__bl_m_res_m_vars, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_293_m_32), 1);
    22242233                  Expr.SplitIterator _va_62 = _ve_vars.leftSplit(0);
    22252234                  _exit2: _continue2: for ( ; ; _va_62.next ())
    22262235                  {
    2227                     Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_292_m_55 = _va_62.getLeft();
     2236                    Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_293_m_55 = _va_62.getLeft();
    22282237                    Expr _v_lsplit__vars = _va_62.getRight();
    22292238                    if (!_va_62.isValid ())
     
    22372246                      continue _continue1;
    22382247                    }
    2239                     int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_292_m_68 = (_v_len43 - _v_len44);
     2248                    int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_293_m_68 = (_v_len43 - _v_len44);
    22402249                    if (_v_lsplit__vars.symbolAt (0))
    22412250                    {
     
    22492258                      continue _continue2;
    22502259                    }
    2251                     int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_292_m_58 = (_v_len45 - _v_len46);
    2252                     if (!_vt_name.eq (_v_deref__lsplit__vars, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_292_m_58)))
     2260                    int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_293_m_58 = (_v_len45 - _v_len46);
     2261                    if (!_vt_name.eq (_v_deref__lsplit__vars, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_293_m_58)))
    22532262                    {
    22542263                      continue _continue2;
    22552264                    }
    2256                     Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_292_m_68 = new Expr (_v_lsplit__vars, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_292_m_68);
    2257                     Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_292_m_58 = new Expr (_v_deref__lsplit__vars, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_292_m_58);
     2265                    Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_293_m_68 = new Expr (_v_lsplit__vars, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_293_m_68);
     2266                    Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_293_m_58 = new Expr (_v_deref__lsplit__vars, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_293_m_58);
    22582267                    _ve_brv = new Expr (_ve_brv, _ve_1);
    22592268                    _ve_bl_m_res_m_vars = _ve_2;
     
    23302339            throw new RefalException ("rfp_as2as", "Rename_m_Vars", "Unexpected fail");
    23312340          }
    2332           Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_306_m_14 = new Expr (_v_Rename_m_Vars1.getExpr (), 0, 1);
     2341          Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_307_m_14 = new Expr (_v_Rename_m_Vars1.getExpr (), 0, 1);
    23332342          Expr _vt_NewBody = new Expr (_v_Rename_m_Vars1.getExpr (), (0 + 1), 1);
    23342343          Result _ve_IterCondition = new Result ();
     
    24032412      return false;
    24042413    }
    2405     int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_325_m_19 = (_v_len3 - _v_len4);
     2414    int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_326_m_19 = (_v_len3 - _v_len4);
    24062415    Expr _ve_vars = new Expr (_ge_arg1, 0, _v_len__vars);
    2407     Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_325_m_19 = new Expr (_v_deref__arg1, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_325_m_19);
    2408     Expr _vt_name = new Expr (_v_deref__arg1, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_325_m_19), 1);
     2416    Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_326_m_19 = new Expr (_v_deref__arg1, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_326_m_19);
     2417    Expr _vt_name = new Expr (_v_deref__arg1, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_326_m_19), 1);
    24092418    if ((_v_len__vars < 1))
    24102419    {
     
    24142423    _exit1: _continue1: for ( ; ; _va_71.next ())
    24152424    {
    2416       Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_325_m_40 = _va_71.getLeft();
     2425      Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_326_m_40 = _va_71.getLeft();
    24172426      Expr _v_lsplit__vars = _va_71.getRight();
    24182427      if (!_va_71.isValid ())
     
    24262435        return false;
    24272436      }
    2428       int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_325_m_53 = (_v_len5 - _v_len6);
     2437      int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_326_m_53 = (_v_len5 - _v_len6);
    24292438      if (_v_lsplit__vars.symbolAt (0))
    24302439      {
     
    24382447        continue _continue1;
    24392448      }
    2440       int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_325_m_43 = (_v_len7 - _v_len8);
    2441       if (!_vt_name.eq (_v_deref__lsplit__vars, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_325_m_43)))
     2449      int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_326_m_43 = (_v_len7 - _v_len8);
     2450      if (!_vt_name.eq (_v_deref__lsplit__vars, (0 + _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_326_m_43)))
    24422451      {
    24432452        continue _continue1;
    24442453      }
    2445       Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_325_m_53 = new Expr (_v_lsplit__vars, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_325_m_53);
    2446       Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_325_m_43 = new Expr (_v_deref__lsplit__vars, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_325_m_43);
     2454      Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_326_m_53 = new Expr (_v_lsplit__vars, (0 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_326_m_53);
     2455      Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_326_m_43 = new Expr (_v_deref__lsplit__vars, 0, _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_326_m_43);
    24472456      _v_res1.assign (Expr.empty);
    24482457      break _exit1;
     
    25622571        Expr _ve_substs = new Expr (_v_deref__compose12, (0 + 1), _v_len__substs);
    25632572        Expr _vs_tag = new Expr (_v_deref__deref__compose1, 0, 1);
    2564         Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_334_m_12 = new Expr (_v_deref__deref__compose1, (0 + 1), 1);
     2573        Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_335_m_12 = new Expr (_v_deref__deref__compose1, (0 + 1), 1);
    25652574        Expr _vt_name = new Expr (_v_deref__deref__compose1, (0 + 1 + 1), 1);
    2566         Expr _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_334_m_32 = new Expr (_v_deref__deref__compose12, 0, 1);
    2567         Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_334_m_34 = new Expr (_v_deref__deref__compose12, (0 + 1), 1);
     2575        Expr _vs__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_335_m_32 = new Expr (_v_deref__deref__compose12, 0, 1);
     2576        Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_335_m_34 = new Expr (_v_deref__deref__compose12, (0 + 1), 1);
    25682577        Expr _vt_s = new Expr (_v_deref__deref__compose12, (0 + 1 + 1), 1);
    25692578        Result _ve_var_m_pats = new Result ();
     
    25832592        throw new RefalException ("rfp_as2as", "Build_m_Subst", "Unexpected fail");
    25842593      }
    2585       int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_338_m_10 = (_v_len7 - _v_len8);
     2594      int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_339_m_10 = (_v_len7 - _v_len8);
    25862595      Expr[] _va_75 = { new Expr(_ge_arg1) , new Expr(_ge_arg2) , _ge_arg3 };
    25872596      Expr _v_compose2 = Expr.concat (_va_75);
     
    25902599        throw new RefalException ("rfp_as2as", "Build_m_Subst", "Unexpected fail");
    25912600      }
    2592       Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_338_m_10 = new Expr (_v_compose2, (0 + 1 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_338_m_10);
     2601      Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_339_m_10 = new Expr (_v_compose2, (0 + 1 + 1), _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_339_m_10);
    25932602      _v_res1.assign (Expr.empty);
    25942603      _v_res2.assign (Expr.empty);
Note: See TracChangeset for help on using the changeset viewer.