Changeset 2203


Ignore:
Timestamp:
Dec 26, 2006, 4:38:49 AM (14 years ago)
Author:
orlov
Message:
  • Fresh-generated compiler sources in C++.
Location:
to-imperative/trunk/c++/compiler
Files:
13 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/c++/compiler/rfp_as2as.cc

    r2187 r2203  
    44#include <refal/Box.hh>
    55#include <refal/StdIO.hh>
     6#include <refal/List.hh>
     7#include "rfp_debug.hh"
    68#include "rfp_compile.hh"
    7 #include "rfp_debug.hh"
    8 #include <refal/Table.hh>
    9 #include <refal/List.hh>
    109#include "rfp_helper.hh"
     10#include "rfp_format.hh"
    1111#include "rfpc.hh"
    1212#include "rfp_vars.hh"
    13 #include "rfp_format.hh"
     13#include <refal/Table.hh>
    1414
    1515namespace refal
     
    11621162        }
    11631163      _block1__branch7: {}
    1164         uintptr_t _v_len77 = _ve_Snt.get_len ();
    1165         uintptr_t _v_len78 = 1;
    1166         if ((_v_len77 < _v_len78))
     1164        {
     1165          uintptr_t _v_len77 = _ve_Snt.get_len ();
     1166          uintptr_t _v_len78 = 1;
     1167          if ((_v_len77 < _v_len78))
     1168          {
     1169            goto _block1__branch8;
     1170          }
     1171          uintptr_t _v_len__R5 = (_v_len77 - _v_len78);
     1172          if (_ve_Snt.symbol_at (0))
     1173          {
     1174            goto _block1__branch8;
     1175          }
     1176          Expr _v_deref__Snt8 (_ve_Snt, 0);
     1177          if ((_v_deref__Snt8.get_len () != 2))
     1178          {
     1179            goto _block1__branch8;
     1180          }
     1181          if (!_c_20.term_eq (_v_deref__Snt8, 0))
     1182          {
     1183            goto _block1__branch8;
     1184          }
     1185          Expr _ve_R (_ve_Snt, (0 + 1), _v_len__R5);
     1186          Expr _vt_Pragma (_v_deref__Snt8, (0 + 1), 1);
     1187          Expr _v_Unstick_m_Blocks10;
     1188          RF_CALL (Unstick_m_Blocks, _ve_R, (_ve_R, _v_Unstick_m_Blocks10));
     1189          Expr _vt__e__e_tmp_m_rfp__as2asrf_m_141_m_32 (_v_Unstick_m_Blocks10 ());
     1190          _v_res1 = (_ve_L + (_c_20 + _vt_Pragma) () + _ve_R);
     1191          _v_res2 = _c_19;
     1192          goto _block1;
     1193        }
     1194      _block1__branch8: {}
     1195        if ((_ve_Snt.get_len () != 0))
    11671196        {
    11681197          goto _continue1;
    11691198        }
    1170         uintptr_t _v_len__R5 = (_v_len77 - _v_len78);
    1171         if (_ve_Snt.symbol_at (0))
    1172         {
    1173           goto _continue1;
    1174         }
    1175         Expr _v_deref__Snt8 (_ve_Snt, 0);
    1176         if ((_v_deref__Snt8.get_len () != 2))
    1177         {
    1178           goto _continue1;
    1179         }
    1180         if (!_c_20.term_eq (_v_deref__Snt8, 0))
    1181         {
    1182           goto _continue1;
    1183         }
    1184         Expr _ve_R (_ve_Snt, (0 + 1), _v_len__R5);
    1185         Expr _vt_Pragma (_v_deref__Snt8, (0 + 1), 1);
    1186         Expr _v_Unstick_m_Blocks10;
    1187         RF_CALL (Unstick_m_Blocks, _ve_R, (_ve_R, _v_Unstick_m_Blocks10));
    1188         Expr _vt__e__e_tmp_m_rfp__as2asrf_m_141_m_32 (_v_Unstick_m_Blocks10 ());
    1189         _v_res1 = (_ve_L + (_c_20 + _vt_Pragma) () + _ve_R);
     1199        _v_res1 = _c_19;
    11901200        _v_res2 = _c_19;
    11911201      }
     
    12271237            goto _block2__branch1;
    12281238          }
    1229           uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_146_m_30 = (_v_len3 - _v_len4);
     1239          uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_147_m_30 = (_v_len3 - _v_len4);
    12301240          if (!_c_7.term_eq (_v_deref__1, 0))
    12311241          {
    12321242            goto _block2__branch1;
    12331243          }
    1234           Expr _ve__e__e_tmp_m_rfp__as2asrf_m_146_m_30 (_v_deref__1, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_146_m_30);
     1244          Expr _ve__e__e_tmp_m_rfp__as2asrf_m_147_m_30 (_v_deref__1, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_147_m_30);
    12351245          goto _block2;
    12361246        }
     
    12511261          goto _block1__branch1;
    12521262        }
    1253         uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_146_m_42 = (_v_len5 - _v_len6);
     1263        uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_147_m_42 = (_v_len5 - _v_len6);
    12541264        if (!_c_8.term_eq (_v_deref__12, 0))
    12551265        {
    12561266          goto _block1__branch1;
    12571267        }
    1258         Expr _ve__e__e_tmp_m_rfp__as2asrf_m_146_m_42 (_v_deref__12, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_146_m_42);
     1268        Expr _ve__e__e_tmp_m_rfp__as2asrf_m_147_m_42 (_v_deref__12, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_147_m_42);
    12591269      }
    12601270    _block2: {}
     
    14641474          }
    14651475          Expr _ge_Snt__2 (_ve_Sentence, (0 + 1), _v_len__Snt__2);
    1466           Expr _vt__e__e_tmp_m_rfp__as2asrf_m_191_m_12 (_v_deref__Sentence, (0 + 1), 1);
     1476          Expr _vt__e__e_tmp_m_rfp__as2asrf_m_192_m_12 (_v_deref__Sentence, (0 + 1), 1);
    14671477          Expr _ge_Pe__2 (_v_deref__Sentence, (0 + 1 + 1), _v_len__Pe__2);
    14681478          _ve_Pe = _ge_Pe__2;
     
    14951505        }
    14961506        Expr _ge_Snt__2 (_ve_Sentence, (0 + 1), _v_len__Snt__22);
    1497         Expr _vt__e__e_tmp_m_rfp__as2asrf_m_192_m_13 (_v_deref__Sentence2, (0 + 1), 1);
     1507        Expr _vt__e__e_tmp_m_rfp__as2asrf_m_193_m_13 (_v_deref__Sentence2, (0 + 1), 1);
    14981508        Expr _ge_Pe__2 (_v_deref__Sentence2, (0 + 1 + 1), _v_len__Pe__22);
    14991509        _ve_Pe = _ge_Pe__2;
     
    15201530              goto _negation1;
    15211531            }
    1522             RF_lsplit (_ve_args, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_197_m_24, _v_lsplit__args);
     1532            RF_lsplit (_ve_args, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_198_m_24, _v_lsplit__args);
    15231533            for ( ; ; RF_iter(_ve_args)++)
    15241534            {
     
    15431553                  goto _continue1;
    15441554                }
    1545                 uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_197_m_27 = (_v_len9 - _v_len10);
    1546                 Expr _ve__e__e_tmp_m_rfp__as2asrf_m_197_m_27 (_v_deref__lsplit__args, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_197_m_27);
    1547                 Expr _vt_1 (_v_deref__lsplit__args, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_197_m_27), 1);
     1555                uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_198_m_27 = (_v_len9 - _v_len10);
     1556                Expr _ve__e__e_tmp_m_rfp__as2asrf_m_198_m_27 (_v_deref__lsplit__args, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_198_m_27);
     1557                Expr _vt_1 (_v_deref__lsplit__args, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_198_m_27), 1);
    15481558                Expr _v_subexpr__lsplit__args (_v_lsplit__args, (0 + 1), (_v_lsplit__args.get_len () - (0 + 1 + 0)));
    1549                 RF_lsplit (_v_subexpr__lsplit__args, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_197_m_33, _v_lsplit__lsplit__args);
     1559                RF_lsplit (_v_subexpr__lsplit__args, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_198_m_33, _v_lsplit__lsplit__args);
    15501560                for ( ; ; RF_iter(_v_subexpr__lsplit__args)++)
    15511561                {
     
    15611571                      goto _continue1;
    15621572                    }
    1563                     uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_197_m_42 = (_v_len11 - _v_len12);
     1573                    uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_198_m_42 = (_v_len11 - _v_len12);
    15641574                    if (_v_lsplit__lsplit__args.symbol_at (0))
    15651575                    {
     
    15731583                      goto _continue2;
    15741584                    }
    1575                     uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_197_m_36 = (_v_len13 - _v_len14);
    1576                     if (!_vt_1.term_eq (_v_deref__lsplit__lsplit__args, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_197_m_36)))
     1585                    uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_198_m_36 = (_v_len13 - _v_len14);
     1586                    if (!_vt_1.term_eq (_v_deref__lsplit__lsplit__args, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_198_m_36)))
    15771587                    {
    15781588                      goto _continue2;
    15791589                    }
    1580                     Expr _ve__e__e_tmp_m_rfp__as2asrf_m_197_m_42 (_v_lsplit__lsplit__args, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_197_m_42);
    1581                     Expr _ve__e__e_tmp_m_rfp__as2asrf_m_197_m_36 (_v_deref__lsplit__lsplit__args, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_197_m_36);
     1590                    Expr _ve__e__e_tmp_m_rfp__as2asrf_m_198_m_42 (_v_lsplit__lsplit__args, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_198_m_42);
     1591                    Expr _ve__e__e_tmp_m_rfp__as2asrf_m_198_m_36 (_v_deref__lsplit__lsplit__args, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_198_m_36);
    15821592                    goto _exit2;
    15831593                  }
     
    15991609      _block3__branch1: {}
    16001610        Expr _ve_in_m_expr;
    1601         Expr _vs__e__e_tmp_m_rfp__as2asrf_m_199_m_56;
    1602         RF_CALL (rfp__vars::Gener_m_Var_m_Indices, (_c_4, _ve_in, _c_26), (_ve_in_m_expr, _vs__e__e_tmp_m_rfp__as2asrf_m_199_m_56));
     1611        Expr _vs__e__e_tmp_m_rfp__as2asrf_m_200_m_56;
     1612        RF_CALL (rfp__vars::Gener_m_Var_m_Indices, (_c_4, _ve_in, _c_26), (_ve_in_m_expr, _vs__e__e_tmp_m_rfp__as2asrf_m_200_m_56));
    16031613        _ge_in__0 = _ve_in_m_expr;
    16041614        _ge_Sentence__0 = ((_c_13 + _ve_in_m_expr) () + _ve_Sentence);
     
    16361646    Expr _ve_branches (_v_deref__Sentence3, (0 + 1 + 1), _v_len__branches);
    16371647    Expr _ve_in_m_expr;
    1638     Expr _vs__e__e_tmp_m_rfp__as2asrf_m_210_m_54;
    1639     RF_CALL (rfp__vars::Gener_m_Var_m_Indices, (_c_4, _ve_in, _c_26), (_ve_in_m_expr, _vs__e__e_tmp_m_rfp__as2asrf_m_210_m_54));
     1648    Expr _vs__e__e_tmp_m_rfp__as2asrf_m_211_m_54;
     1649    RF_CALL (rfp__vars::Gener_m_Var_m_Indices, (_c_4, _ve_in, _c_26), (_ve_in_m_expr, _vs__e__e_tmp_m_rfp__as2asrf_m_211_m_54));
    16401650    Expr _ve_in_m_vars;
    16411651    RF_CALL (rfp__vars::Vars, _ve_in_m_expr, _ve_in_m_vars);
     
    17171727              goto _negation2;
    17181728            }
    1719             RF_lsplit (_ve_vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_216_m_26, _v_lsplit__vars);
     1729            RF_lsplit (_ve_vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_217_m_26, _v_lsplit__vars);
    17201730            for ( ; ; RF_iter(_ve_vars)++)
    17211731            {
     
    17401750                  goto _continue3;
    17411751                }
    1742                 uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_216_m_29 = (_v_len25 - _v_len26);
    1743                 Expr _ve__e__e_tmp_m_rfp__as2asrf_m_216_m_29 (_v_deref__lsplit__vars, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_216_m_29);
    1744                 Expr _vt_1 (_v_deref__lsplit__vars, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_216_m_29), 1);
     1752                uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_217_m_29 = (_v_len25 - _v_len26);
     1753                Expr _ve__e__e_tmp_m_rfp__as2asrf_m_217_m_29 (_v_deref__lsplit__vars, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_217_m_29);
     1754                Expr _vt_1 (_v_deref__lsplit__vars, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_217_m_29), 1);
    17451755                Expr _v_subexpr__lsplit__vars (_v_lsplit__vars, (0 + 1), (_v_lsplit__vars.get_len () - (0 + 1 + 0)));
    1746                 RF_lsplit (_v_subexpr__lsplit__vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_216_m_35, _v_lsplit__lsplit__vars);
     1756                RF_lsplit (_v_subexpr__lsplit__vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_217_m_35, _v_lsplit__lsplit__vars);
    17471757                for ( ; ; RF_iter(_v_subexpr__lsplit__vars)++)
    17481758                {
     
    17581768                      goto _continue3;
    17591769                    }
    1760                     uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_216_m_44 = (_v_len27 - _v_len28);
     1770                    uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_217_m_44 = (_v_len27 - _v_len28);
    17611771                    if (_v_lsplit__lsplit__vars.symbol_at (0))
    17621772                    {
     
    17701780                      goto _continue4;
    17711781                    }
    1772                     uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_216_m_38 = (_v_len29 - _v_len30);
    1773                     if (!_vt_1.term_eq (_v_deref__lsplit__lsplit__vars, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_216_m_38)))
     1782                    uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_217_m_38 = (_v_len29 - _v_len30);
     1783                    if (!_vt_1.term_eq (_v_deref__lsplit__lsplit__vars, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_217_m_38)))
    17741784                    {
    17751785                      goto _continue4;
    17761786                    }
    1777                     Expr _ve__e__e_tmp_m_rfp__as2asrf_m_216_m_44 (_v_lsplit__lsplit__vars, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_216_m_44);
    1778                     Expr _ve__e__e_tmp_m_rfp__as2asrf_m_216_m_38 (_v_deref__lsplit__lsplit__vars, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_216_m_38);
     1787                    Expr _ve__e__e_tmp_m_rfp__as2asrf_m_217_m_44 (_v_lsplit__lsplit__vars, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_217_m_44);
     1788                    Expr _ve__e__e_tmp_m_rfp__as2asrf_m_217_m_38 (_v_deref__lsplit__lsplit__vars, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_217_m_38);
    17791789                    goto _exit4;
    17801790                  }
     
    18991909              goto _block3__branch1;
    19001910            }
    1901             Expr _vt__e__e_tmp_m_rfp__as2asrf_m_249_m_16 (_v_deref__Statement, (0 + 1), 1);
     1911            Expr _vt__e__e_tmp_m_rfp__as2asrf_m_250_m_16 (_v_deref__Statement, (0 + 1), 1);
    19021912            Expr _ge_Pe__3 (_v_deref__Statement, (0 + 1 + 1), _v_len__Pe__3);
    19031913            _ve_Pe = _ge_Pe__3;
     
    19251935            goto _block2__branch1;
    19261936          }
    1927           Expr _vt__e__e_tmp_m_rfp__as2asrf_m_250_m_17 (_v_deref__Statement2, (0 + 1), 1);
     1937          Expr _vt__e__e_tmp_m_rfp__as2asrf_m_251_m_17 (_v_deref__Statement2, (0 + 1), 1);
    19281938          Expr _ge_Pe__3 (_v_deref__Statement2, (0 + 1 + 1), _v_len__Pe__32);
    19291939          _ve_Pe = _ge_Pe__3;
     
    20032013          goto _block2__branch2;
    20042014        }
    2005         Expr _vt__e__e_tmp_m_rfp__as2asrf_m_261_m_30 (_v_deref__Statement3, (0 + 1), 1);
     2015        Expr _vt__e__e_tmp_m_rfp__as2asrf_m_262_m_30 (_v_deref__Statement3, (0 + 1), 1);
    20062016        Expr _ve_He (_v_deref__Statement3, (0 + 1 + 1), _v_len__He);
    20072017        Expr _ge_auxcall4;
     
    21122122              goto _block5__branch1;
    21132123            }
    2114             uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_280_m_26 = (_v_len25 - _v_len26);
     2124            uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_281_m_26 = (_v_len25 - _v_len26);
    21152125            if (_ve_rest.symbol_at (0))
    21162126            {
     
    21292139              goto _block5__branch1;
    21302140            }
    2131             Expr _ve__e__e_tmp_m_rfp__as2asrf_m_280_m_26 (_ve_rest, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_280_m_26);
    2132             Expr _vt__e__e_tmp_m_rfp__as2asrf_m_280_m_18 (_v_deref__rest, (0 + 1), 1);
     2141            Expr _ve__e__e_tmp_m_rfp__as2asrf_m_281_m_26 (_ve_rest, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_281_m_26);
     2142            Expr _vt__e__e_tmp_m_rfp__as2asrf_m_281_m_18 (_v_deref__rest, (0 + 1), 1);
    21332143            Expr _ve_Pe (_v_deref__rest, (0 + 1 + 1), _v_len__Pe);
    21342144            RF_CALL (rfp__vars::Vars, _ve_Pe, _ve_bl_m_res_m_vars);
     
    21432153              goto _block5__branch2;
    21442154            }
    2145             uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_281_m_27 = (_v_len29 - _v_len30);
     2155            uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_282_m_27 = (_v_len29 - _v_len30);
    21462156            if (_ve_rest.symbol_at (0))
    21472157            {
     
    21602170              goto _block5__branch2;
    21612171            }
    2162             Expr _ve__e__e_tmp_m_rfp__as2asrf_m_281_m_27 (_ve_rest, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_281_m_27);
    2163             Expr _vt__e__e_tmp_m_rfp__as2asrf_m_281_m_19 (_v_deref__rest2, (0 + 1), 1);
     2172            Expr _ve__e__e_tmp_m_rfp__as2asrf_m_282_m_27 (_ve_rest, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_282_m_27);
     2173            Expr _vt__e__e_tmp_m_rfp__as2asrf_m_282_m_19 (_v_deref__rest2, (0 + 1), 1);
    21642174            Expr _ve_Pe (_v_deref__rest2, (0 + 1 + 1), _v_len__Pe2);
    21652175            RF_CALL (rfp__vars::Vars, _ve_Pe, _ve_bl_m_res_m_vars);
     
    21742184              goto _block5__branch3;
    21752185            }
    2176             uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_282_m_28 = (_v_len33 - _v_len34);
     2186            uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_283_m_28 = (_v_len33 - _v_len34);
    21772187            if (_ve_rest.symbol_at (0))
    21782188            {
     
    21912201              goto _block5__branch3;
    21922202            }
    2193             Expr _ve__e__e_tmp_m_rfp__as2asrf_m_282_m_28 (_ve_rest, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_282_m_28);
    2194             Expr _vt__e__e_tmp_m_rfp__as2asrf_m_282_m_20 (_v_deref__rest3, (0 + 1), 1);
     2203            Expr _ve__e__e_tmp_m_rfp__as2asrf_m_283_m_28 (_ve_rest, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_283_m_28);
     2204            Expr _vt__e__e_tmp_m_rfp__as2asrf_m_283_m_20 (_v_deref__rest3, (0 + 1), 1);
    21952205            Expr _ve_He (_v_deref__rest3, (0 + 1 + 1), _v_len__He2);
    21962206            RF_CALL (rfp__vars::Vars, _ve_He, _ve_bl_m_res_m_vars);
     
    22132223            RF_FUNC_ERROR (unexpected_fail);
    22142224          }
    2215           uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_284_m_12 = (_v_len37 - _v_len38);
    2216           Expr _ve__e__e_tmp_m_rfp__as2asrf_m_284_m_12 (_ve_rest, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_284_m_12);
     2225          uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_285_m_12 = (_v_len37 - _v_len38);
     2226          Expr _ve__e__e_tmp_m_rfp__as2asrf_m_285_m_12 (_ve_rest, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_285_m_12);
    22172227          _ve_bl_m_res_m_vars = empty;
    22182228        }
     
    22732283                    goto _continue1;
    22742284                  }
    2275                   uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_292_m_32 = (_v_len41 - _v_len42);
     2285                  uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_293_m_32 = (_v_len41 - _v_len42);
    22762286                  Expr _ve_2 (_v_lsplit__bl_m_res_m_vars, (0 + 1), _v_len__2);
    2277                   Expr _ve__e__e_tmp_m_rfp__as2asrf_m_292_m_32 (_v_deref__lsplit__bl_m_res_m_vars, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_292_m_32);
    2278                   Expr _vt_name (_v_deref__lsplit__bl_m_res_m_vars, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_292_m_32), 1);
    2279                   RF_lsplit (_ve_vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_292_m_55, _v_lsplit__vars);
     2287                  Expr _ve__e__e_tmp_m_rfp__as2asrf_m_293_m_32 (_v_deref__lsplit__bl_m_res_m_vars, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_293_m_32);
     2288                  Expr _vt_name (_v_deref__lsplit__bl_m_res_m_vars, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_293_m_32), 1);
     2289                  RF_lsplit (_ve_vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_293_m_55, _v_lsplit__vars);
    22802290                  for ( ; ; RF_iter(_ve_vars)++)
    22812291                  {
     
    22912301                        goto _continue1;
    22922302                      }
    2293                       uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_292_m_68 = (_v_len43 - _v_len44);
     2303                      uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_293_m_68 = (_v_len43 - _v_len44);
    22942304                      if (_v_lsplit__vars.symbol_at (0))
    22952305                      {
     
    23032313                        goto _continue2;
    23042314                      }
    2305                       uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_292_m_58 = (_v_len45 - _v_len46);
    2306                       if (!_vt_name.term_eq (_v_deref__lsplit__vars, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_292_m_58)))
     2315                      uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_293_m_58 = (_v_len45 - _v_len46);
     2316                      if (!_vt_name.term_eq (_v_deref__lsplit__vars, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_293_m_58)))
    23072317                      {
    23082318                        goto _continue2;
    23092319                      }
    2310                       Expr _ve__e__e_tmp_m_rfp__as2asrf_m_292_m_68 (_v_lsplit__vars, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_292_m_68);
    2311                       Expr _ve__e__e_tmp_m_rfp__as2asrf_m_292_m_58 (_v_deref__lsplit__vars, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_292_m_58);
     2320                      Expr _ve__e__e_tmp_m_rfp__as2asrf_m_293_m_68 (_v_lsplit__vars, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_293_m_68);
     2321                      Expr _ve__e__e_tmp_m_rfp__as2asrf_m_293_m_58 (_v_deref__lsplit__vars, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_293_m_58);
    23122322                      _ve_brv = (_ve_brv + _ve_1);
    23132323                      _ve_bl_m_res_m_vars = _ve_2;
     
    23922402          RF_FUNC_ERROR (unexpected_fail);
    23932403        }
    2394         Expr _vt__e__e_tmp_m_rfp__as2asrf_m_306_m_14 (_v_Rename_m_Vars1, 0, 1);
     2404        Expr _vt__e__e_tmp_m_rfp__as2asrf_m_307_m_14 (_v_Rename_m_Vars1, 0, 1);
    23952405        Expr _vt_NewBody (_v_Rename_m_Vars1, (0 + 1), 1);
    23962406        Expr _ve_IterCondition;
     
    24632473    RF_RETFAIL;
    24642474  }
    2465   uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_325_m_19 = (_v_len3 - _v_len4);
     2475  uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_326_m_19 = (_v_len3 - _v_len4);
    24662476  Expr _ve_vars (_ge_arg1, 0, _v_len__vars);
    2467   Expr _ve__e__e_tmp_m_rfp__as2asrf_m_325_m_19 (_v_deref__arg1, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_325_m_19);
    2468   Expr _vt_name (_v_deref__arg1, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_325_m_19), 1);
     2477  Expr _ve__e__e_tmp_m_rfp__as2asrf_m_326_m_19 (_v_deref__arg1, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_326_m_19);
     2478  Expr _vt_name (_v_deref__arg1, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_326_m_19), 1);
    24692479  if ((_v_len__vars < 1))
    24702480  {
    24712481    RF_RETFAIL;
    24722482  }
    2473   RF_lsplit (_ve_vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_325_m_40, _v_lsplit__vars);
     2483  RF_lsplit (_ve_vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_326_m_40, _v_lsplit__vars);
    24742484  for ( ; ; RF_iter(_ve_vars)++)
    24752485  {
     
    24852495        RF_RETFAIL;
    24862496      }
    2487       uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_325_m_53 = (_v_len5 - _v_len6);
     2497      uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_326_m_53 = (_v_len5 - _v_len6);
    24882498      if (_v_lsplit__vars.symbol_at (0))
    24892499      {
     
    24972507        goto _continue1;
    24982508      }
    2499       uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_325_m_43 = (_v_len7 - _v_len8);
    2500       if (!_vt_name.term_eq (_v_deref__lsplit__vars, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_325_m_43)))
     2509      uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_326_m_43 = (_v_len7 - _v_len8);
     2510      if (!_vt_name.term_eq (_v_deref__lsplit__vars, (0 + _v_len___e__e_tmp_m_rfp__as2asrf_m_326_m_43)))
    25012511      {
    25022512        goto _continue1;
    25032513      }
    2504       Expr _ve__e__e_tmp_m_rfp__as2asrf_m_325_m_53 (_v_lsplit__vars, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_325_m_53);
    2505       Expr _ve__e__e_tmp_m_rfp__as2asrf_m_325_m_43 (_v_deref__lsplit__vars, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_325_m_43);
     2514      Expr _ve__e__e_tmp_m_rfp__as2asrf_m_326_m_53 (_v_lsplit__vars, (0 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_326_m_53);
     2515      Expr _ve__e__e_tmp_m_rfp__as2asrf_m_326_m_43 (_v_deref__lsplit__vars, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_326_m_43);
    25062516      _v_res1 = empty;
    25072517      goto _exit1;
     
    26182628      Expr _ve_substs (_v_deref__compose12, (0 + 1), _v_len__substs);
    26192629      Expr _vs_tag (_v_deref__deref__compose1, 0, 1);
    2620       Expr _vt__e__e_tmp_m_rfp__as2asrf_m_334_m_12 (_v_deref__deref__compose1, (0 + 1), 1);
     2630      Expr _vt__e__e_tmp_m_rfp__as2asrf_m_335_m_12 (_v_deref__deref__compose1, (0 + 1), 1);
    26212631      Expr _vt_name (_v_deref__deref__compose1, (0 + 1 + 1), 1);
    2622       Expr _vs__e__e_tmp_m_rfp__as2asrf_m_334_m_32 (_v_deref__deref__compose12, 0, 1);
    2623       Expr _vt__e__e_tmp_m_rfp__as2asrf_m_334_m_34 (_v_deref__deref__compose12, (0 + 1), 1);
     2632      Expr _vs__e__e_tmp_m_rfp__as2asrf_m_335_m_32 (_v_deref__deref__compose12, 0, 1);
     2633      Expr _vt__e__e_tmp_m_rfp__as2asrf_m_335_m_34 (_v_deref__deref__compose12, (0 + 1), 1);
    26242634      Expr _vt_s (_v_deref__deref__compose12, (0 + 1 + 1), 1);
    26252635      Expr _ve_var_m_pats;
     
    26402650      RF_FUNC_ERROR (unexpected_fail);
    26412651    }
    2642     uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_338_m_10 = (_v_len7 - _v_len8);
     2652    uintptr_t _v_len___e__e_tmp_m_rfp__as2asrf_m_339_m_10 = (_v_len7 - _v_len8);
    26432653    Expr _v_compose2 ((_ge_arg1 () + _ge_arg2 () + _ge_arg3));
    26442654    if (!_c_32.eq (_v_compose2, 0))
     
    26462656      RF_FUNC_ERROR (unexpected_fail);
    26472657    }
    2648     Expr _ve__e__e_tmp_m_rfp__as2asrf_m_338_m_10 (_v_compose2, (0 + 1 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_338_m_10);
     2658    Expr _ve__e__e_tmp_m_rfp__as2asrf_m_339_m_10 (_v_compose2, (0 + 1 + 1), _v_len___e__e_tmp_m_rfp__as2asrf_m_339_m_10);
    26492659    _v_res1 = empty;
    26502660    _v_res2 = empty;
  • to-imperative/trunk/c++/compiler/rfp_asail_cpp.cc

    r2187 r2203  
    11#include <rf_core.hh>
     2#include <refal/Arithm.hh>
    23#include <refal/Apply.hh>
     4#include <refal/Class.hh>
    35#include <refal/Box.hh>
    4 #include <refal/Arithm.hh>
    56#include <refal/Convert.hh>
    6 #include <refal/Compare.hh>
    7 #include <refal/List.hh>
    87#include <refal/CppMangle.hh>
    9 #include <refal/Class.hh>
     8#include <refal/StdIO.hh>
    109#include <refal/Table.hh>
    1110#include "rfpc.hh"
    1211#include "rfp_helper.hh"
    13 #include <refal/StdIO.hh>
     12#include <refal/List.hh>
     13#include <refal/Compare.hh>
    1414
    1515namespace refal
  • to-imperative/trunk/c++/compiler/rfp_asail_java.cc

    r2187 r2203  
    11#include <rf_core.hh>
    22#include <refal/Access.hh>
     3#include <refal/Arithm.hh>
    34#include <refal/Apply.hh>
     5#include <refal/Compare.hh>
     6#include <refal/Class.hh>
     7#include <refal/JavaMangle.hh>
     8#include <refal/Convert.hh>
    49#include <refal/Box.hh>
    5 #include <refal/Arithm.hh>
    6 #include <refal/Compare.hh>
    7 #include <refal/Convert.hh>
    8 #include <refal/List.hh>
    9 #include <refal/JavaMangle.hh>
    10 #include <refal/Class.hh>
     10#include <refal/StdIO.hh>
    1111#include <refal/Table.hh>
    1212#include "rfpc.hh"
    1313#include "rfp_helper.hh"
    14 #include <refal/StdIO.hh>
     14#include <refal/List.hh>
    1515
    1616namespace refal
  • to-imperative/trunk/c++/compiler/rfp_asail_tpp.cc

    r2187 r2203  
    11#include <rf_core.hh>
     2#include <refal/Arithm.hh>
    23#include <refal/Apply.hh>
     4#include <refal/Class.hh>
     5#include <refal/Convert.hh>
     6#include <refal/CppMangle.hh>
     7#include <refal/Compare.hh>
    38#include <refal/Box.hh>
    4 #include <refal/Arithm.hh>
    5 #include <refal/Compare.hh>
    6 #include <refal/CppMangle.hh>
    7 #include <refal/Convert.hh>
    8 #include <refal/Class.hh>
    99#include <refal/StdIO.hh>
    1010#include "rfp_compile.hh"
  • to-imperative/trunk/c++/compiler/rfp_clashes.cc

    r2187 r2203  
    33#include <refal/Arithm.hh>
    44#include <refal/Apply.hh>
     5#include <refal/Compare.hh>
     6#include <refal/Box.hh>
     7#include <refal/StdIO.hh>
     8#include "rfp_compile.hh"
     9#include <refal/Table.hh>
     10#include "rfp_helper.hh"
     11#include "rfp_vars.hh"
     12#include "rfp_const.hh"
    513#include <refal/List.hh>
    6 #include <refal/Compare.hh>
    7 #include <refal/Table.hh>
    8 #include <refal/StdIO.hh>
    9 #include <refal/Box.hh>
    10 #include "rfp_const.hh"
    11 #include "rfp_vars.hh"
    12 #include "rfp_helper.hh"
    13 #include "rfp_compile.hh"
    1414
    1515namespace refal
  • to-imperative/trunk/c++/compiler/rfp_compile.cc

    r2187 r2203  
    11#include <rf_core.hh>
    22#include <refal/Access.hh>
     3#include <refal/Arithm.hh>
    34#include <refal/Apply.hh>
     5#include <refal/Class.hh>
     6#include <refal/Convert.hh>
     7#include <refal/Compare.hh>
    48#include <refal/Box.hh>
    5 #include <refal/Arithm.hh>
    6 #include <refal/Compare.hh>
    7 #include <refal/Dos.hh>
    8 #include <refal/Convert.hh>
     9#include <refal/List.hh>
     10#include <refal/Table.hh>
    911#include <refal/StdIO.hh>
     12#include "rfp_check.hh"
     13#include "rfp_clashes.hh"
    1014#include "rfp_as2as.hh"
    11 #include <refal/Table.hh>
    12 #include <refal/List.hh>
    13 #include <refal/Class.hh>
    14 #include "rfp_clashes.hh"
    1515#include "rfp_format.hh"
    1616#include "rfp_helper.hh"
    17 #include "rfp_const.hh"
    1817#include "rfpc.hh"
    1918#include "rfp_vars.hh"
    20 #include "rfp_check.hh"
     19#include "rfp_const.hh"
     20#include <refal/Dos.hh>
    2121
    2222namespace refal
  • to-imperative/trunk/c++/compiler/rfp_const.cc

    r2187 r2203  
    11#include <rf_core.hh>
    22#include <refal/Access.hh>
     3#include <refal/Arithm.hh>
     4#include <refal/List.hh>
    35#include <refal/Box.hh>
    4 #include <refal/Arithm.hh>
     6#include <refal/Table.hh>
     7#include "rfp_helper.hh"
    58#include <refal/StdIO.hh>
    6 #include <refal/List.hh>
    7 #include "rfp_helper.hh"
    8 #include <refal/Table.hh>
    99
    1010namespace refal
  • to-imperative/trunk/c++/compiler/rfp_format.cc

    r2187 r2203  
    22#include <refal/Access.hh>
    33#include <refal/StdIO.hh>
     4#include <refal/List.hh>
     5#include "rfp_compile.hh"
     6#include "rfp_vars.hh"
    47#include <refal/Table.hh>
    5 #include <refal/List.hh>
    6 #include "rfp_vars.hh"
    7 #include "rfp_compile.hh"
    88
    99namespace refal
  • to-imperative/trunk/c++/compiler/rfp_lex.cc

    r2187 r2203  
    11#include <rf_core.hh>
    22#include <refal/Access.hh>
    3 #include <refal/Box.hh>
    43#include <refal/Arithm.hh>
    54#include <refal/Apply.hh>
     5#include <refal/Class.hh>
     6#include <refal/Dir.hh>
     7#include <refal/Convert.hh>
    68#include <refal/Compare.hh>
    7 #include <refal/Convert.hh>
     9#include <refal/Box.hh>
     10#include <refal/File.hh>
     11#include <refal/StdIO.hh>
     12#include <refal/Table.hh>
     13#include <refal/List.hh>
     14#include "rfp_helper.hh"
     15#include "rfpc.hh"
     16#include "rfp_src.hh"
     17#include "rfp_err.hh"
    818#include <refal/Dos.hh>
    9 #include <refal/Dir.hh>
    10 #include <refal/Class.hh>
    11 #include <refal/StdIO.hh>
    12 #include <refal/List.hh>
    13 #include "rfp_err.hh"
    14 #include <refal/Table.hh>
    15 #include "rfp_src.hh"
    16 #include "rfpc.hh"
    17 #include "rfp_helper.hh"
    18 #include <refal/File.hh>
    1919
    2020namespace refal
  • to-imperative/trunk/c++/compiler/rfp_parse.cc

    r2187 r2203  
    66#include <refal/Arithm.hh>
    77#include <refal/Table.hh>
     8#include "rfp_helper.hh"
     9#include "rfpc.hh"
     10#include "rfp_src.hh"
    811#include "rfp_err.hh"
    9 #include "rfp_src.hh"
    10 #include "rfpc.hh"
    11 #include "rfp_helper.hh"
    1212#include <refal/StdIO.hh>
    1313
  • to-imperative/trunk/c++/compiler/rfp_vars.cc

    r2187 r2203  
    22#include <refal/Arithm.hh>
    33#include <refal/Class.hh>
     4#include <refal/Box.hh>
     5#include <refal/Dos.hh>
    46#include <refal/Convert.hh>
    5 #include <refal/Box.hh>
    6 #include <refal/List.hh>
    77#include <refal/Table.hh>
    88#include <refal/StdIO.hh>
    99#include "rfpc.hh"
    1010#include "rfp_helper.hh"
    11 #include <refal/Dos.hh>
     11#include <refal/List.hh>
    1212
    1313namespace refal
  • to-imperative/trunk/c++/compiler/rfpc.cc

    r2197 r2203  
    11#include <rf_core.hh>
     2#include <refal/Arithm.hh>
    23#include <refal/Access.hh>
    3 #include <refal/Arithm.hh>
     4#include <refal/Class.hh>
     5#include <refal/CppMangle.hh>
     6#include <refal/Convert.hh>
    47#include <refal/Compare.hh>
    5 #include <refal/Class.hh>
    68#include <refal/Box.hh>
    7 #include <refal/CppMangle.hh>
     9#include <refal/JavaMangle.hh>
    810#include <refal/File.hh>
     11#include <refal/StdIO.hh>
    912#include <refal/List.hh>
    10 #include <refal/JavaMangle.hh>
    1113#include <refal/Dos.hh>
    12 #include <refal/Convert.hh>
    13 #include <refal/Table.hh>
     14#include "rfp_as2as.hh"
     15#include "rfp_asail_cpp.hh"
     16#include "rfp_asail_java.hh"
    1417#include "rfp_asail2asail.hh"
    15 #include "rfp_as2as.hh"
    16 #include <refal/StdIO.hh>
    17 #include "rfp_asail_java.hh"
    1818#include "rfp_asail_tpp.hh"
    1919#include "rfp_asail_optim.hh"
    2020#include "rfp_compile.hh"
    21 #include "rfp_check.hh"
    2221#include "rfp_helper.hh"
    2322#include "rfp_format.hh"
     23#include "rfp_err.hh"
    2424#include "rfp_parse.hh"
    2525#include "rfp_src.hh"
    2626#include "rfp_lex.hh"
    27 #include "rfp_err.hh"
    28 #include "rfp_asail_cpp.hh"
     27#include "rfp_check.hh"
     28#include <refal/Table.hh>
    2929
    3030namespace refal
     
    43244324  RFP_m_Token_m_Stack = Expr::create_sym< rftype::NamedObject<rftype::BoxContents> >(L"RFP-Token-Stack");
    43254325  RFP_m_Trace = new rftype::StaticObject<rftype::Table>(L"RFP-Trace");
    4326   RevDate = (Char::create_expr (L"$Revision: 1.60 $")) () + (Char::create_expr (L"$Date: 2006/09/21 17:51:18 $")) ();
     4326  RevDate = (Char::create_expr (L"$Revision: 2096 $")) () + (Char::create_expr (L"$Date: 2006-09-21 21:51:18 +0400 (Thu, 21 Sep 2006) $")) ();
    43274327  Options = Expr::create_sym< rftype::NamedObject<rftype::BoxContents> >(L"Options");
    43284328  Includes = new rftype::StaticObject<rftype::Table>(L"Includes");
  • to-imperative/trunk/c++/compiler/rfpc.hh

    r2187 r2203  
    1111namespace rfpc
    1212{
    13 
    14 extern Expr RFP_m_Dir_m_Separator;
    1513
    1614extern Expr RFP_m_Root;
Note: See TracChangeset for help on using the changeset viewer.