Changeset 2326


Ignore:
Timestamp:
Feb 3, 2007, 2:14:52 AM (14 years ago)
Author:
orlov
Message:
  • Updated generated parts of libraries.
Location:
to-imperative/trunk/java/org/refal/plus/library
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/java/org/refal/plus/library/CppMangle.java

    r2187 r2326  
    105105              break _block2__branch1;
    106106            }
    107             int _v_len__name__2 = (_v_len3 - _v_len4);
     107            int _v_len__name__4 = (_v_len3 - _v_len4);
    108108            if (!_v_deref__rfp_m_obj.symbolAt (0))
    109109            {
    110110              break _block2__branch1;
    111111            }
    112             if (!_v_deref__deref__rfp_m_obj.symbolAt ((0 + _v_len__name__2)))
     112            if (!_v_deref__deref__rfp_m_obj.symbolAt ((0 + _v_len__name__4)))
    113113            {
    114114              break _block2__branch1;
     
    116116            Expr _vs_tag = new Expr (_v_deref__rfp_m_obj, 0, 1);
    117117            Expr _ve_ns = new Expr (_v_deref__rfp_m_obj, (0 + 1), _v_len__ns);
    118             Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj, 0, _v_len__name__2);
    119             Expr _vs_last = new Expr (_v_deref__deref__rfp_m_obj, (0 + _v_len__name__2), 1);
     118            Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj, 0, _v_len__name__4);
     119            Expr _vs_last = new Expr (_v_deref__deref__rfp_m_obj, (0 + _v_len__name__4), 1);
    120120            if (!Class.Int_q_ (_vs_last))
    121121            {
     
    172172            Expr[] _va_3 = { _c_9 , _vs_t , _ve_ns , _c_8 };
    173173            _ve_prefix = Expr.concat (_va_3);
    174             _ve_name = new Expr (_ge_name__2, _vs_last);
     174            _ve_name = new Expr (_ge_name__4, _vs_last);
    175175            break _block2;
    176176          }
     
    203203              break _block2__branch2;
    204204            }
    205             int _v_len__name__22 = (_v_len7 - _v_len8);
     205            int _v_len__name__42 = (_v_len7 - _v_len8);
    206206            if (!_c_10.eq (_v_deref__rfp_m_obj2, 0))
    207207            {
     
    209209            }
    210210            Expr _ve_ns = new Expr (_v_deref__rfp_m_obj2, (0 + 1), _v_len__ns2);
    211             Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj2, 0, _v_len__name__22);
     211            Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj2, 0, _v_len__name__42);
    212212            Expr[] _va_4 = { _c_11 , _ve_ns , _c_8 };
    213213            _ve_prefix = Expr.concat (_va_4);
    214             _ve_name = _ge_name__2;
     214            _ve_name = _ge_name__4;
    215215            break _block2;
    216216          }
     
    243243              break _block2__branch3;
    244244            }
    245             int _v_len__name__23 = (_v_len11 - _v_len12);
     245            int _v_len__name__43 = (_v_len11 - _v_len12);
    246246            if (!_c_0.eq (_v_deref__rfp_m_obj3, 0))
    247247            {
     
    249249            }
    250250            Expr _ve_ns = new Expr (_v_deref__rfp_m_obj3, (0 + 1), _v_len__ns3);
    251             Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj3, 0, _v_len__name__23);
     251            Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj3, 0, _v_len__name__43);
    252252            Expr[] _va_5 = { _c_12 , _ve_ns , _c_8 };
    253253            _ve_prefix = Expr.concat (_va_5);
    254             _ve_name = _ge_name__2;
     254            _ve_name = _ge_name__4;
    255255            break _block2;
    256256          }
     
    283283              break _block2__branch4;
    284284            }
    285             int _v_len__name__24 = (_v_len15 - _v_len16);
     285            int _v_len__name__44 = (_v_len15 - _v_len16);
    286286            if (!_c_2.eq (_v_deref__rfp_m_obj4, 0))
    287287            {
     
    289289            }
    290290            Expr _ve_ns = new Expr (_v_deref__rfp_m_obj4, (0 + 1), _v_len__ns4);
    291             Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj4, 0, _v_len__name__24);
     291            Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj4, 0, _v_len__name__44);
    292292            Expr[] _va_6 = { _c_13 , _ve_ns , _c_8 };
    293293            _ve_prefix = Expr.concat (_va_6);
    294             _ve_name = _ge_name__2;
     294            _ve_name = _ge_name__4;
    295295            break _block2;
    296296          }
     
    323323              break _block2__branch5;
    324324            }
    325             int _v_len__name__25 = (_v_len19 - _v_len20);
     325            int _v_len__name__45 = (_v_len19 - _v_len20);
    326326            if (!_c_4.eq (_v_deref__rfp_m_obj5, 0))
    327327            {
     
    329329            }
    330330            Expr _ve_ns = new Expr (_v_deref__rfp_m_obj5, (0 + 1), _v_len__ns5);
    331             Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj5, 0, _v_len__name__25);
     331            Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj5, 0, _v_len__name__45);
    332332            Expr[] _va_7 = { _c_14 , _ve_ns , _c_8 };
    333333            _ve_prefix = Expr.concat (_va_7);
    334             _ve_name = _ge_name__2;
     334            _ve_name = _ge_name__4;
    335335            break _block2;
    336336          }
     
    363363              break _block2__branch6;
    364364            }
    365             int _v_len__name__26 = (_v_len23 - _v_len24);
     365            int _v_len__name__46 = (_v_len23 - _v_len24);
    366366            if (!_c_6.eq (_v_deref__rfp_m_obj6, 0))
    367367            {
     
    369369            }
    370370            Expr _ve_ns = new Expr (_v_deref__rfp_m_obj6, (0 + 1), _v_len__ns6);
    371             Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj6, 0, _v_len__name__26);
     371            Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj6, 0, _v_len__name__46);
    372372            Expr[] _va_8 = { _c_15 , _ve_ns , _c_8 };
    373373            _ve_prefix = Expr.concat (_va_8);
    374             _ve_name = _ge_name__2;
     374            _ve_name = _ge_name__4;
    375375            break _block2;
    376376          }
     
    400400              break _block2__branch7;
    401401            }
    402             int _v_len__name__27 = (_v_len25 - _v_len26);
     402            int _v_len__name__47 = (_v_len25 - _v_len26);
    403403            if (!_c_16.eq (_v_deref__rfp_m_obj7, 0))
    404404            {
    405405              break _block2__branch7;
    406406            }
    407             Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj7, 0, _v_len__name__27);
     407            Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj7, 0, _v_len__name__47);
    408408            _ve_prefix = _c_17;
    409             _ve_name = _ge_name__2;
     409            _ve_name = _ge_name__4;
    410410            break _block2;
    411411          }
     
    434434            break _block1__branch1;
    435435          }
    436           int _v_len__name__28 = (_v_len27 - _v_len28);
     436          int _v_len__name__48 = (_v_len27 - _v_len28);
    437437          if (!_c_18.eq (_v_deref__rfp_m_obj8, 0))
    438438          {
    439439            break _block1__branch1;
    440440          }
    441           Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj8, 0, _v_len__name__28);
     441          Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj8, 0, _v_len__name__48);
    442442          _ve_prefix = _c_8;
    443           _ve_name = _ge_name__2;
     443          _ve_name = _ge_name__4;
    444444        }
    445445        Result _v_Chars2Cpp1 = new Result ();
  • to-imperative/trunk/java/org/refal/plus/library/Error.java

    r1965 r2326  
    22
    33import org.refal.plus.*;
     4import org.refal.plus.library.Convert;
     5import org.refal.plus.library.List;
    46
    57public class Error
    68{
     9  static private final Expr _c_0 = Expr.fromSequence (".");
     10  static private final Expr _c_1 = new Expr (new Word ("Not available"));
    711
    812  static public void Lib_m_Error (Expr _ve_fname, Expr _ve_rror) throws RefalException
     
    1014    throw new RefalException (new Expr (_ve_fname, _ve_rror));
    1115  }
     16
     17  static public void Not_m_Available (Expr _ve_name) throws RefalException
     18  {
     19    Result _ge_auxcall1 = new Result ();
     20    List.Intersperse (_c_0, _ve_name, _ge_auxcall1);
     21    Result _gs_auxcall2 = new Result ();
     22    Convert.To_m_Word (_ge_auxcall1.getExpr (), _gs_auxcall2);
     23    throw new RefalException (new Expr (_gs_auxcall2.getExpr (), _c_1));
     24  }
    1225}
  • to-imperative/trunk/java/org/refal/plus/library/JavaMangle.java

    r2187 r2326  
    105105              break _block2__branch1;
    106106            }
    107             int _v_len__name__2 = (_v_len3 - _v_len4);
     107            int _v_len__name__4 = (_v_len3 - _v_len4);
    108108            if (!_v_deref__rfp_m_obj.symbolAt (0))
    109109            {
    110110              break _block2__branch1;
    111111            }
    112             if (!_v_deref__deref__rfp_m_obj.symbolAt ((0 + _v_len__name__2)))
     112            if (!_v_deref__deref__rfp_m_obj.symbolAt ((0 + _v_len__name__4)))
    113113            {
    114114              break _block2__branch1;
     
    116116            Expr _vs_tag = new Expr (_v_deref__rfp_m_obj, 0, 1);
    117117            Expr _ve_ns = new Expr (_v_deref__rfp_m_obj, (0 + 1), _v_len__ns);
    118             Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj, 0, _v_len__name__2);
    119             Expr _vs_last = new Expr (_v_deref__deref__rfp_m_obj, (0 + _v_len__name__2), 1);
     118            Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj, 0, _v_len__name__4);
     119            Expr _vs_last = new Expr (_v_deref__deref__rfp_m_obj, (0 + _v_len__name__4), 1);
    120120            if (!Class.Int_q_ (_vs_last))
    121121            {
     
    172172            Expr[] _va_3 = { _c_9 , _vs_t , _ve_ns , _c_8 };
    173173            _ve_prefix = Expr.concat (_va_3);
    174             _ve_name = new Expr (_ge_name__2, _vs_last);
     174            _ve_name = new Expr (_ge_name__4, _vs_last);
    175175            break _block2;
    176176          }
     
    203203              break _block2__branch2;
    204204            }
    205             int _v_len__name__22 = (_v_len7 - _v_len8);
     205            int _v_len__name__42 = (_v_len7 - _v_len8);
    206206            if (!_c_10.eq (_v_deref__rfp_m_obj2, 0))
    207207            {
     
    209209            }
    210210            Expr _ve_ns = new Expr (_v_deref__rfp_m_obj2, (0 + 1), _v_len__ns2);
    211             Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj2, 0, _v_len__name__22);
     211            Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj2, 0, _v_len__name__42);
    212212            Expr[] _va_4 = { _c_11 , _ve_ns , _c_8 };
    213213            _ve_prefix = Expr.concat (_va_4);
    214             _ve_name = _ge_name__2;
     214            _ve_name = _ge_name__4;
    215215            break _block2;
    216216          }
     
    243243              break _block2__branch3;
    244244            }
    245             int _v_len__name__23 = (_v_len11 - _v_len12);
     245            int _v_len__name__43 = (_v_len11 - _v_len12);
    246246            if (!_c_0.eq (_v_deref__rfp_m_obj3, 0))
    247247            {
     
    249249            }
    250250            Expr _ve_ns = new Expr (_v_deref__rfp_m_obj3, (0 + 1), _v_len__ns3);
    251             Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj3, 0, _v_len__name__23);
     251            Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj3, 0, _v_len__name__43);
    252252            Expr[] _va_5 = { _c_12 , _ve_ns , _c_8 };
    253253            _ve_prefix = Expr.concat (_va_5);
    254             _ve_name = _ge_name__2;
     254            _ve_name = _ge_name__4;
    255255            break _block2;
    256256          }
     
    283283              break _block2__branch4;
    284284            }
    285             int _v_len__name__24 = (_v_len15 - _v_len16);
     285            int _v_len__name__44 = (_v_len15 - _v_len16);
    286286            if (!_c_2.eq (_v_deref__rfp_m_obj4, 0))
    287287            {
     
    289289            }
    290290            Expr _ve_ns = new Expr (_v_deref__rfp_m_obj4, (0 + 1), _v_len__ns4);
    291             Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj4, 0, _v_len__name__24);
     291            Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj4, 0, _v_len__name__44);
    292292            Expr[] _va_6 = { _c_13 , _ve_ns , _c_8 };
    293293            _ve_prefix = Expr.concat (_va_6);
    294             _ve_name = _ge_name__2;
     294            _ve_name = _ge_name__4;
    295295            break _block2;
    296296          }
     
    323323              break _block2__branch5;
    324324            }
    325             int _v_len__name__25 = (_v_len19 - _v_len20);
     325            int _v_len__name__45 = (_v_len19 - _v_len20);
    326326            if (!_c_4.eq (_v_deref__rfp_m_obj5, 0))
    327327            {
     
    329329            }
    330330            Expr _ve_ns = new Expr (_v_deref__rfp_m_obj5, (0 + 1), _v_len__ns5);
    331             Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj5, 0, _v_len__name__25);
     331            Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj5, 0, _v_len__name__45);
    332332            Expr[] _va_7 = { _c_14 , _ve_ns , _c_8 };
    333333            _ve_prefix = Expr.concat (_va_7);
    334             _ve_name = _ge_name__2;
     334            _ve_name = _ge_name__4;
    335335            break _block2;
    336336          }
     
    363363              break _block2__branch6;
    364364            }
    365             int _v_len__name__26 = (_v_len23 - _v_len24);
     365            int _v_len__name__46 = (_v_len23 - _v_len24);
    366366            if (!_c_6.eq (_v_deref__rfp_m_obj6, 0))
    367367            {
     
    369369            }
    370370            Expr _ve_ns = new Expr (_v_deref__rfp_m_obj6, (0 + 1), _v_len__ns6);
    371             Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj6, 0, _v_len__name__26);
     371            Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj6, 0, _v_len__name__46);
    372372            Expr[] _va_8 = { _c_15 , _ve_ns , _c_8 };
    373373            _ve_prefix = Expr.concat (_va_8);
    374             _ve_name = _ge_name__2;
     374            _ve_name = _ge_name__4;
    375375            break _block2;
    376376          }
     
    400400              break _block2__branch7;
    401401            }
    402             int _v_len__name__27 = (_v_len25 - _v_len26);
     402            int _v_len__name__47 = (_v_len25 - _v_len26);
    403403            if (!_c_16.eq (_v_deref__rfp_m_obj7, 0))
    404404            {
    405405              break _block2__branch7;
    406406            }
    407             Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj7, 0, _v_len__name__27);
     407            Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj7, 0, _v_len__name__47);
    408408            _ve_prefix = _c_17;
    409             _ve_name = _ge_name__2;
     409            _ve_name = _ge_name__4;
    410410            break _block2;
    411411          }
     
    434434            break _block1__branch1;
    435435          }
    436           int _v_len__name__28 = (_v_len27 - _v_len28);
     436          int _v_len__name__48 = (_v_len27 - _v_len28);
    437437          if (!_c_18.eq (_v_deref__rfp_m_obj8, 0))
    438438          {
    439439            break _block1__branch1;
    440440          }
    441           Expr _ge_name__2 = new Expr (_v_deref__deref__rfp_m_obj8, 0, _v_len__name__28);
     441          Expr _ge_name__4 = new Expr (_v_deref__deref__rfp_m_obj8, 0, _v_len__name__48);
    442442          _ve_prefix = _c_8;
    443           _ve_name = _ge_name__2;
     443          _ve_name = _ge_name__4;
    444444        }
    445445        Result _v_Chars2Cpp1 = new Result ();
  • to-imperative/trunk/java/org/refal/plus/library/Stream.java

    r2187 r2326  
    696696        Expr _ve_args = new Expr (_v_deref___q_12, (0 + 1), _v_len__args);
    697697        _block2__branch1: {
    698           Expr _ge_buf__2 = _ve_buf;
     698          Expr _ge_buf__4 = _ve_buf;
    699699          _exit__iter1: for ( ; ; )
    700700          {
    701701            _iter1: {
    702               int _v_len5 = _ge_buf__2.getLen ();
     702              int _v_len5 = _ge_buf__4.getLen ();
    703703              int _v_len6 = 0;
    704704              if ((_v_len5 < (_v_len6 + 1)))
     
    707707              }
    708708              int _v_len___e__e_tmp_m__s_lib_s_Stream_s_Streamrf_m_155_m_18 = (_v_len5 - _v_len6);
    709               Expr _vv__e__e_tmp_m__s_lib_s_Stream_s_Streamrf_m_155_m_18 = new Expr (_ge_buf__2, 0, _v_len___e__e_tmp_m__s_lib_s_Stream_s_Streamrf_m_155_m_18);
    710               Box.Store (_vs_tream, new Expr (new Expr(_ge_buf__2), new Expr(new Expr (_vs_func, _ve_args))));
     709              Expr _vv__e__e_tmp_m__s_lib_s_Stream_s_Streamrf_m_155_m_18 = new Expr (_ge_buf__4, 0, _v_len___e__e_tmp_m__s_lib_s_Stream_s_Streamrf_m_155_m_18);
     710              Box.Store (_vs_tream, new Expr (new Expr(_ge_buf__4), new Expr(new Expr (_vs_func, _ve_args))));
    711711              return false;
    712712            }
     
    716716              break _block2__branch1;
    717717            }
    718             _ge_buf__2 = _va_5.getExpr ();
     718            _ge_buf__4 = _va_5.getExpr ();
    719719          }
    720720        }
  • to-imperative/trunk/java/org/refal/plus/library/cpp__specific.java

    r2187 r2326  
    9191        break _block1;
    9292      }
    93       Result _gs_word__1 = new Result ();
    94       Convert.To_m_Word (_ve_word, _gs_word__1);
     93      Result _gs_word__2 = new Result ();
     94      Convert.To_m_Word (_ve_word, _gs_word__2);
    9595      if ((73 < 1))
    9696      {
     
    113113        }
    114114        int _v_len___e__e_tmp_m__s_lib_s_NameMangling_s_cpp__specificrf_m_37_m_59 = (_v_len5 - _v_len6);
    115         if (!_gs_word__1.getExpr ().eq (_v_lsplit__Reserved_m_Words, 0))
     115        if (!_gs_word__2.getExpr ().eq (_v_lsplit__Reserved_m_Words, 0))
    116116        {
    117117          continue _continue2;
Note: See TracChangeset for help on using the changeset viewer.