Changeset 2204
- Timestamp:
- Dec 26, 2006, 4:42:45 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
to-imperative/trunk/java/org/refal/plus/compiler/rfp__as2as.java
r2187 r2204 1121 1121 break _block1; 1122 1122 } 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)) 1126 1157 { 1127 1158 continue _continue1; 1128 1159 } 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); 1152 1161 _v_res2.assign (_c_19); 1153 1162 } … … 1186 1195 break _block2__branch1; 1187 1196 } 1188 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_14 6_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); 1189 1198 if (!_c_7.eq (_v_deref__1, 0)) 1190 1199 { 1191 1200 break _block2__branch1; 1192 1201 } 1193 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_14 6_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); 1194 1203 break _block2; 1195 1204 } … … 1209 1218 break _block1__branch1; 1210 1219 } 1211 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_14 6_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); 1212 1221 if (!_c_8.eq (_v_deref__12, 0)) 1213 1222 { 1214 1223 break _block1__branch1; 1215 1224 } 1216 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_14 6_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); 1217 1226 } 1218 1227 Result _ve_1 = new Result (); … … 1424 1433 } 1425 1434 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_19 1_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); 1427 1436 Expr _ge_Pe__2 = new Expr (_v_deref__Sentence, (0 + 1 + 1), _v_len__Pe__2); 1428 1437 _ve_Pe = _ge_Pe__2; … … 1454 1463 } 1455 1464 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_19 2_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); 1457 1466 Expr _ge_Pe__2 = new Expr (_v_deref__Sentence2, (0 + 1 + 1), _v_len__Pe__22); 1458 1467 _ve_Pe = _ge_Pe__2; … … 1481 1490 _exit1: _continue1: for ( ; ; _va_45.next ()) 1482 1491 { 1483 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_19 7_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(); 1484 1493 Expr _v_lsplit__args = _va_45.getRight(); 1485 1494 if (!_va_45.isValid ()) … … 1502 1511 continue _continue1; 1503 1512 } 1504 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_19 7_m_27 = (_v_len9 - _v_len10);1505 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_19 7_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_19 7_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); 1507 1516 Expr _v_subexpr__lsplit__args = new Expr (_v_lsplit__args, (0 + 1), (_v_lsplit__args.getLen () - (0 + 1 + 0))); 1508 1517 Expr.SplitIterator _va_46 = _v_subexpr__lsplit__args.leftSplit(0); 1509 1518 _exit2: _continue2: for ( ; ; _va_46.next ()) 1510 1519 { 1511 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_19 7_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(); 1512 1521 Expr _v_lsplit__lsplit__args = _va_46.getRight(); 1513 1522 if (!_va_46.isValid ()) … … 1521 1530 continue _continue1; 1522 1531 } 1523 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_19 7_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); 1524 1533 if (_v_lsplit__lsplit__args.symbolAt (0)) 1525 1534 { … … 1533 1542 continue _continue2; 1534 1543 } 1535 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_19 7_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_19 7_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))) 1537 1546 { 1538 1547 continue _continue2; 1539 1548 } 1540 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_19 7_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_19 7_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); 1542 1551 break _exit2; 1543 1552 } … … 1551 1560 } 1552 1561 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); 1555 1564 _ge_in__0 = _ve_in_m_expr.getExpr (); 1556 1565 _ge_Sentence__0 = new Expr (new Expr(new Expr (_c_13, _ve_in_m_expr.getExpr ())), _ve_Sentence); … … 1586 1595 Expr _ve_branches = new Expr (_v_deref__Sentence3, (0 + 1 + 1), _v_len__branches); 1587 1596 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_21 0_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_21 0_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); 1590 1599 Result _ve_in_m_vars = new Result (); 1591 1600 rfp__vars.Vars (_ve_in_m_expr.getExpr (), _ve_in_m_vars); … … 1670 1679 _exit3: _continue3: for ( ; ; _va_48.next ()) 1671 1680 { 1672 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_21 6_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(); 1673 1682 Expr _v_lsplit__vars = _va_48.getRight(); 1674 1683 if (!_va_48.isValid ()) … … 1691 1700 continue _continue3; 1692 1701 } 1693 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_21 6_m_29 = (_v_len25 - _v_len26);1694 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_21 6_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_21 6_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); 1696 1705 Expr _v_subexpr__lsplit__vars = new Expr (_v_lsplit__vars, (0 + 1), (_v_lsplit__vars.getLen () - (0 + 1 + 0))); 1697 1706 Expr.SplitIterator _va_49 = _v_subexpr__lsplit__vars.leftSplit(0); 1698 1707 _exit4: _continue4: for ( ; ; _va_49.next ()) 1699 1708 { 1700 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_21 6_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(); 1701 1710 Expr _v_lsplit__lsplit__vars = _va_49.getRight(); 1702 1711 if (!_va_49.isValid ()) … … 1710 1719 continue _continue3; 1711 1720 } 1712 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_21 6_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); 1713 1722 if (_v_lsplit__lsplit__vars.symbolAt (0)) 1714 1723 { … … 1722 1731 continue _continue4; 1723 1732 } 1724 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_21 6_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_21 6_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))) 1726 1735 { 1727 1736 continue _continue4; 1728 1737 } 1729 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_21 6_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_21 6_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); 1731 1740 break _exit4; 1732 1741 } … … 1843 1852 break _block3__branch1; 1844 1853 } 1845 Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_2 49_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); 1846 1855 Expr _ge_Pe__3 = new Expr (_v_deref__Statement, (0 + 1 + 1), _v_len__Pe__3); 1847 1856 _ve_Pe = _ge_Pe__3; … … 1868 1877 break _block2__branch1; 1869 1878 } 1870 Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_25 0_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); 1871 1880 Expr _ge_Pe__3 = new Expr (_v_deref__Statement2, (0 + 1 + 1), _v_len__Pe__32); 1872 1881 _ve_Pe = _ge_Pe__3; … … 1945 1954 break _block2__branch2; 1946 1955 } 1947 Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_26 1_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); 1948 1957 Expr _ve_He = new Expr (_v_deref__Statement3, (0 + 1 + 1), _v_len__He); 1949 1958 Result _ge_auxcall4 = new Result (); … … 2052 2061 break _block5__branch1; 2053 2062 } 2054 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_28 0_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); 2055 2064 if (_ve_rest.symbolAt (0)) 2056 2065 { … … 2069 2078 break _block5__branch1; 2070 2079 } 2071 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_28 0_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_28 0_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); 2073 2082 Expr _ve_Pe = new Expr (_v_deref__rest, (0 + 1 + 1), _v_len__Pe); 2074 2083 Result _va_55 = new Result (); … … 2084 2093 break _block5__branch2; 2085 2094 } 2086 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_28 1_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); 2087 2096 if (_ve_rest.symbolAt (0)) 2088 2097 { … … 2101 2110 break _block5__branch2; 2102 2111 } 2103 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_28 1_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_28 1_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); 2105 2114 Expr _ve_Pe = new Expr (_v_deref__rest2, (0 + 1 + 1), _v_len__Pe2); 2106 2115 Result _va_56 = new Result (); … … 2116 2125 break _block5__branch3; 2117 2126 } 2118 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_28 2_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); 2119 2128 if (_ve_rest.symbolAt (0)) 2120 2129 { … … 2133 2142 break _block5__branch3; 2134 2143 } 2135 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_28 2_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_28 2_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); 2137 2146 Expr _ve_He = new Expr (_v_deref__rest3, (0 + 1 + 1), _v_len__He2); 2138 2147 Result _va_57 = new Result (); … … 2155 2164 throw new RefalException ("rfp_as2as", "Rename_m_Vars", "Unexpected fail"); 2156 2165 } 2157 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_28 4_m_12 = (_v_len37 - _v_len38);2158 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_28 4_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); 2159 2168 _ve_bl_m_res_m_vars = Expr.empty; 2160 2169 } … … 2218 2227 continue _continue1; 2219 2228 } 2220 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_29 2_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); 2221 2230 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_29 2_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_29 2_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); 2224 2233 Expr.SplitIterator _va_62 = _ve_vars.leftSplit(0); 2225 2234 _exit2: _continue2: for ( ; ; _va_62.next ()) 2226 2235 { 2227 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_29 2_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(); 2228 2237 Expr _v_lsplit__vars = _va_62.getRight(); 2229 2238 if (!_va_62.isValid ()) … … 2237 2246 continue _continue1; 2238 2247 } 2239 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_29 2_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); 2240 2249 if (_v_lsplit__vars.symbolAt (0)) 2241 2250 { … … 2249 2258 continue _continue2; 2250 2259 } 2251 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_29 2_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_29 2_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))) 2253 2262 { 2254 2263 continue _continue2; 2255 2264 } 2256 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_29 2_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_29 2_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); 2258 2267 _ve_brv = new Expr (_ve_brv, _ve_1); 2259 2268 _ve_bl_m_res_m_vars = _ve_2; … … 2330 2339 throw new RefalException ("rfp_as2as", "Rename_m_Vars", "Unexpected fail"); 2331 2340 } 2332 Expr _vt__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_30 6_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); 2333 2342 Expr _vt_NewBody = new Expr (_v_Rename_m_Vars1.getExpr (), (0 + 1), 1); 2334 2343 Result _ve_IterCondition = new Result (); … … 2403 2412 return false; 2404 2413 } 2405 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_32 5_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); 2406 2415 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_32 5_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_32 5_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); 2409 2418 if ((_v_len__vars < 1)) 2410 2419 { … … 2414 2423 _exit1: _continue1: for ( ; ; _va_71.next ()) 2415 2424 { 2416 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_32 5_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(); 2417 2426 Expr _v_lsplit__vars = _va_71.getRight(); 2418 2427 if (!_va_71.isValid ()) … … 2426 2435 return false; 2427 2436 } 2428 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_32 5_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); 2429 2438 if (_v_lsplit__vars.symbolAt (0)) 2430 2439 { … … 2438 2447 continue _continue1; 2439 2448 } 2440 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_32 5_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_32 5_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))) 2442 2451 { 2443 2452 continue _continue1; 2444 2453 } 2445 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_32 5_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_32 5_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); 2447 2456 _v_res1.assign (Expr.empty); 2448 2457 break _exit1; … … 2562 2571 Expr _ve_substs = new Expr (_v_deref__compose12, (0 + 1), _v_len__substs); 2563 2572 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_33 4_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); 2565 2574 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_33 4_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_33 4_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); 2568 2577 Expr _vt_s = new Expr (_v_deref__deref__compose12, (0 + 1 + 1), 1); 2569 2578 Result _ve_var_m_pats = new Result (); … … 2583 2592 throw new RefalException ("rfp_as2as", "Build_m_Subst", "Unexpected fail"); 2584 2593 } 2585 int _v_len___e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_33 8_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); 2586 2595 Expr[] _va_75 = { new Expr(_ge_arg1) , new Expr(_ge_arg2) , _ge_arg3 }; 2587 2596 Expr _v_compose2 = Expr.concat (_va_75); … … 2590 2599 throw new RefalException ("rfp_as2as", "Build_m_Subst", "Unexpected fail"); 2591 2600 } 2592 Expr _ve__e__e_tmp_m_org_s_refal_s_plus_s_compiler_s_rfp__as2asrf_m_33 8_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); 2593 2602 _v_res1.assign (Expr.empty); 2594 2603 _v_res2.assign (Expr.empty);
Note: See TracChangeset
for help on using the changeset viewer.