Changeset 2046


Ignore:
Timestamp:
Aug 1, 2006, 9:40:33 PM (14 years ago)
Author:
orlov
Message:
  • ASAIL variables now are (s.tag e.ns (e.name)), where e.ns is arbitrary namespace introduced by ASAIL-processors.
Location:
to-imperative/trunk/library
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/library/CppMangle/CppMangle.cc

    r1991 r2046  
    22#include <refal/Apply.hh>
    33#include <refal/Convert.hh>
     4#include <refal/Class.hh>
    45#include "cpp_specific.hh"
    56#include <refal/List.hh>
    6 #include <refal/Class.hh>
    7 #include "CppMangle.hh"
    87
    98namespace refal
     
    1716static Expr Conv_m_Table;
    1817
     18RF_DECL (Rfp2Cpp);
     19
    1920RF_DECL (Qualifier2Cpp);
    2021
     
    2526RF_DECL (Char_m_To_m_Unicode);
    2627
     28RF_DECL (Cpp2Rfp);
     29
    2730RF_DECL (Qualifiers2Rfp);
    2831
     
    3134RF_DECL (Codes2Rfp);
    3235
     36RF_DECL (Reserved_m_Word_q___0);
     37
    3338static Expr _c_0;
    3439
     40static Expr _c_32;
     41
     42static Expr _c_4;
     43
     44static Expr _c_2;
     45
    3546static Expr _c_1;
    3647
    37 static Expr _c_2;
    38 
    3948static Expr _c_3;
    4049
    41 static Expr _c_4;
    42 
    4350static Expr _c_5;
    4451
     52static Expr _c_33;
     53
    4554static Expr _c_6;
    4655
    4756static Expr _c_7;
    4857
     58static Expr _c_34;
     59
    4960static Expr _c_8;
    5061
    5162static Expr _c_9;
    5263
     64static Expr _c_35;
     65
    5366static Expr _c_10;
    5467
     
    95108static Expr _c_31;
    96109
    97 static Expr _c_32;
    98 
    99 static Expr _c_33;
     110static Expr _c_36;
     111
     112static Expr _c_37;
    100113
    101114RF_FUNC (Rfp2Cpp, (RF_ARG _ve_rfp_m_obj;;), (RF_RES _v_res1;;))
     
    116129          }
    117130          Expr _v_deref__rfp_m_obj (_ve_rfp_m_obj, 0);
    118           if ((_v_deref__rfp_m_obj.get_len () != 2))
     131          uintptr_t _v_len1 = _v_deref__rfp_m_obj.get_len ();
     132          uintptr_t _v_len2 = 2;
     133          if ((_v_len1 < _v_len2))
    119134          {
    120135            goto _block2__branch1;
    121136          }
    122           if (_v_deref__rfp_m_obj.symbol_at (1))
     137          uintptr_t _v_len__ns = (_v_len1 - _v_len2);
     138          if (_v_deref__rfp_m_obj.symbol_at ((_v_len__ns + 1)))
    123139          {
    124140            goto _block2__branch1;
    125141          }
    126           Expr _v_deref__deref__rfp_m_obj (_v_deref__rfp_m_obj, 1);
    127           uintptr_t _v_len1 = _v_deref__deref__rfp_m_obj.get_len ();
    128           uintptr_t _v_len2 = 0;
    129           if ((_v_len1 < _v_len2))
     142          Expr _v_deref__deref__rfp_m_obj (_v_deref__rfp_m_obj, (_v_len__ns + 1));
     143          uintptr_t _v_len3 = _v_deref__deref__rfp_m_obj.get_len ();
     144          uintptr_t _v_len4 = 0;
     145          if ((_v_len3 < _v_len4))
    130146          {
    131147            goto _block2__branch1;
    132148          }
    133           uintptr_t _v_len__name__1 = (_v_len1 - _v_len2);
     149          uintptr_t _v_len__name__1 = (_v_len3 - _v_len4);
    134150          if (!_c_0.term_eq (_v_deref__rfp_m_obj, 0))
    135151          {
    136152            goto _block2__branch1;
    137153          }
     154          Expr _ve_ns (_v_deref__rfp_m_obj, 1, _v_len__ns);
    138155          Expr _v_name__1 (_v_deref__deref__rfp_m_obj, 0, _v_len__name__1);
    139           _ve_prefix = _c_1;
     156          _ve_prefix = (_c_2 + _ve_ns + _c_1);
    140157          _ve_name = _v_name__1;
    141158          goto _block2;
     
    152169          }
    153170          Expr _v_deref__rfp_m_obj2 (_ve_rfp_m_obj, 0);
    154           if ((_v_deref__rfp_m_obj2.get_len () != 2))
     171          uintptr_t _v_len5 = _v_deref__rfp_m_obj2.get_len ();
     172          uintptr_t _v_len6 = 2;
     173          if ((_v_len5 < _v_len6))
    155174          {
    156175            goto _block2__branch2;
    157176          }
    158           if (_v_deref__rfp_m_obj2.symbol_at (1))
     177          uintptr_t _v_len__ns2 = (_v_len5 - _v_len6);
     178          if (_v_deref__rfp_m_obj2.symbol_at ((_v_len__ns2 + 1)))
    159179          {
    160180            goto _block2__branch2;
    161181          }
    162           Expr _v_deref__deref__rfp_m_obj2 (_v_deref__rfp_m_obj2, 1);
    163           uintptr_t _v_len3 = _v_deref__deref__rfp_m_obj2.get_len ();
    164           uintptr_t _v_len4 = 0;
    165           if ((_v_len3 < _v_len4))
     182          Expr _v_deref__deref__rfp_m_obj2 (_v_deref__rfp_m_obj2, (_v_len__ns2 + 1));
     183          uintptr_t _v_len7 = _v_deref__deref__rfp_m_obj2.get_len ();
     184          uintptr_t _v_len8 = 0;
     185          if ((_v_len7 < _v_len8))
    166186          {
    167187            goto _block2__branch2;
    168188          }
    169           uintptr_t _v_len__name__12 = (_v_len3 - _v_len4);
    170           if (!_c_2.term_eq (_v_deref__rfp_m_obj2, 0))
     189          uintptr_t _v_len__name__12 = (_v_len7 - _v_len8);
     190          if (!_c_3.term_eq (_v_deref__rfp_m_obj2, 0))
    171191          {
    172192            goto _block2__branch2;
    173193          }
     194          Expr _ve_ns (_v_deref__rfp_m_obj2, 1, _v_len__ns2);
    174195          Expr _v_name__1 (_v_deref__deref__rfp_m_obj2, 0, _v_len__name__12);
    175           _ve_prefix = _c_3;
     196          _ve_prefix = (_c_4 + _ve_ns + _c_1);
    176197          _ve_name = _v_name__1;
    177198          goto _block2;
     
    188209          }
    189210          Expr _v_deref__rfp_m_obj3 (_ve_rfp_m_obj, 0);
    190           if ((_v_deref__rfp_m_obj3.get_len () != 2))
     211          uintptr_t _v_len9 = _v_deref__rfp_m_obj3.get_len ();
     212          uintptr_t _v_len10 = 2;
     213          if ((_v_len9 < _v_len10))
    191214          {
    192215            goto _block2__branch3;
    193216          }
    194           if (_v_deref__rfp_m_obj3.symbol_at (1))
     217          uintptr_t _v_len__ns3 = (_v_len9 - _v_len10);
     218          if (_v_deref__rfp_m_obj3.symbol_at ((_v_len__ns3 + 1)))
    195219          {
    196220            goto _block2__branch3;
    197221          }
    198           Expr _v_deref__deref__rfp_m_obj3 (_v_deref__rfp_m_obj3, 1);
    199           uintptr_t _v_len5 = _v_deref__deref__rfp_m_obj3.get_len ();
    200           uintptr_t _v_len6 = 0;
    201           if ((_v_len5 < _v_len6))
     222          Expr _v_deref__deref__rfp_m_obj3 (_v_deref__rfp_m_obj3, (_v_len__ns3 + 1));
     223          uintptr_t _v_len11 = _v_deref__deref__rfp_m_obj3.get_len ();
     224          uintptr_t _v_len12 = 0;
     225          if ((_v_len11 < _v_len12))
    202226          {
    203227            goto _block2__branch3;
    204228          }
    205           uintptr_t _v_len__name__13 = (_v_len5 - _v_len6);
    206           if (!_c_4.term_eq (_v_deref__rfp_m_obj3, 0))
     229          uintptr_t _v_len__name__13 = (_v_len11 - _v_len12);
     230          if (!_c_5.term_eq (_v_deref__rfp_m_obj3, 0))
    207231          {
    208232            goto _block2__branch3;
    209233          }
     234          Expr _ve_ns (_v_deref__rfp_m_obj3, 1, _v_len__ns3);
    210235          Expr _v_name__1 (_v_deref__deref__rfp_m_obj3, 0, _v_len__name__13);
    211           _ve_prefix = _c_5;
     236          _ve_prefix = (_c_6 + _ve_ns + _c_1);
    212237          _ve_name = _v_name__1;
    213238          goto _block2;
     
    224249          }
    225250          Expr _v_deref__rfp_m_obj4 (_ve_rfp_m_obj, 0);
    226           if ((_v_deref__rfp_m_obj4.get_len () != 2))
     251          uintptr_t _v_len13 = _v_deref__rfp_m_obj4.get_len ();
     252          uintptr_t _v_len14 = 2;
     253          if ((_v_len13 < _v_len14))
    227254          {
    228255            goto _block2__branch4;
    229256          }
    230           if (_v_deref__rfp_m_obj4.symbol_at (1))
     257          uintptr_t _v_len__ns4 = (_v_len13 - _v_len14);
     258          if (_v_deref__rfp_m_obj4.symbol_at ((_v_len__ns4 + 1)))
    231259          {
    232260            goto _block2__branch4;
    233261          }
    234           Expr _v_deref__deref__rfp_m_obj4 (_v_deref__rfp_m_obj4, 1);
    235           uintptr_t _v_len7 = _v_deref__deref__rfp_m_obj4.get_len ();
    236           uintptr_t _v_len8 = 0;
    237           if ((_v_len7 < _v_len8))
     262          Expr _v_deref__deref__rfp_m_obj4 (_v_deref__rfp_m_obj4, (_v_len__ns4 + 1));
     263          uintptr_t _v_len15 = _v_deref__deref__rfp_m_obj4.get_len ();
     264          uintptr_t _v_len16 = 0;
     265          if ((_v_len15 < _v_len16))
    238266          {
    239267            goto _block2__branch4;
    240268          }
    241           uintptr_t _v_len__name__14 = (_v_len7 - _v_len8);
    242           if (!_c_6.term_eq (_v_deref__rfp_m_obj4, 0))
     269          uintptr_t _v_len__name__14 = (_v_len15 - _v_len16);
     270          if (!_c_7.term_eq (_v_deref__rfp_m_obj4, 0))
    243271          {
    244272            goto _block2__branch4;
    245273          }
     274          Expr _ve_ns (_v_deref__rfp_m_obj4, 1, _v_len__ns4);
    246275          Expr _v_name__1 (_v_deref__deref__rfp_m_obj4, 0, _v_len__name__14);
    247           _ve_prefix = _c_7;
     276          _ve_prefix = (_c_8 + _ve_ns + _c_1);
    248277          _ve_name = _v_name__1;
    249278          goto _block2;
     
    260289          }
    261290          Expr _v_deref__rfp_m_obj5 (_ve_rfp_m_obj, 0);
    262           if ((_v_deref__rfp_m_obj5.get_len () != 2))
     291          uintptr_t _v_len17 = _v_deref__rfp_m_obj5.get_len ();
     292          uintptr_t _v_len18 = 2;
     293          if ((_v_len17 < _v_len18))
    263294          {
    264295            goto _block2__branch5;
    265296          }
    266           if (_v_deref__rfp_m_obj5.symbol_at (1))
     297          uintptr_t _v_len__ns5 = (_v_len17 - _v_len18);
     298          if (_v_deref__rfp_m_obj5.symbol_at ((_v_len__ns5 + 1)))
    267299          {
    268300            goto _block2__branch5;
    269301          }
    270           Expr _v_deref__deref__rfp_m_obj5 (_v_deref__rfp_m_obj5, 1);
    271           uintptr_t _v_len9 = _v_deref__deref__rfp_m_obj5.get_len ();
    272           uintptr_t _v_len10 = 0;
    273           if ((_v_len9 < _v_len10))
     302          Expr _v_deref__deref__rfp_m_obj5 (_v_deref__rfp_m_obj5, (_v_len__ns5 + 1));
     303          uintptr_t _v_len19 = _v_deref__deref__rfp_m_obj5.get_len ();
     304          uintptr_t _v_len20 = 0;
     305          if ((_v_len19 < _v_len20))
    274306          {
    275307            goto _block2__branch5;
    276308          }
    277           uintptr_t _v_len__name__15 = (_v_len9 - _v_len10);
    278           if (!_c_8.term_eq (_v_deref__rfp_m_obj5, 0))
     309          uintptr_t _v_len__name__15 = (_v_len19 - _v_len20);
     310          if (!_c_9.term_eq (_v_deref__rfp_m_obj5, 0))
    279311          {
    280312            goto _block2__branch5;
    281313          }
     314          Expr _ve_ns (_v_deref__rfp_m_obj5, 1, _v_len__ns5);
    282315          Expr _v_name__1 (_v_deref__deref__rfp_m_obj5, 0, _v_len__name__15);
    283           _ve_prefix = _c_9;
     316          _ve_prefix = (_c_10 + _ve_ns + _c_1);
    284317          _ve_name = _v_name__1;
    285318          goto _block2;
     
    305338          }
    306339          Expr _v_deref__deref__rfp_m_obj6 (_v_deref__rfp_m_obj6, 1);
    307           uintptr_t _v_len11 = _v_deref__deref__rfp_m_obj6.get_len ();
    308           uintptr_t _v_len12 = 0;
    309           if ((_v_len11 < _v_len12))
     340          uintptr_t _v_len21 = _v_deref__deref__rfp_m_obj6.get_len ();
     341          uintptr_t _v_len22 = 0;
     342          if ((_v_len21 < _v_len22))
    310343          {
    311344            goto _block2__branch6;
    312345          }
    313           uintptr_t _v_len__name__16 = (_v_len11 - _v_len12);
    314           if (!_c_10.term_eq (_v_deref__rfp_m_obj6, 0))
     346          uintptr_t _v_len__name__16 = (_v_len21 - _v_len22);
     347          if (!_c_11.term_eq (_v_deref__rfp_m_obj6, 0))
    315348          {
    316349            goto _block2__branch6;
    317350          }
    318351          Expr _v_name__1 (_v_deref__deref__rfp_m_obj6, 0, _v_len__name__16);
    319           _ve_prefix = _c_11;
     352          _ve_prefix = _c_12;
    320353          _ve_name = _v_name__1;
    321354          goto _block2;
     
    340373        }
    341374        Expr _v_deref__deref__rfp_m_obj7 (_v_deref__rfp_m_obj7, 1);
    342         uintptr_t _v_len13 = _v_deref__deref__rfp_m_obj7.get_len ();
    343         uintptr_t _v_len14 = 0;
    344         if ((_v_len13 < _v_len14))
     375        uintptr_t _v_len23 = _v_deref__deref__rfp_m_obj7.get_len ();
     376        uintptr_t _v_len24 = 0;
     377        if ((_v_len23 < _v_len24))
    345378        {
    346379          goto _block1__branch1;
    347380        }
    348         uintptr_t _v_len__name__17 = (_v_len13 - _v_len14);
    349         if (!_c_12.term_eq (_v_deref__rfp_m_obj7, 0))
     381        uintptr_t _v_len__name__17 = (_v_len23 - _v_len24);
     382        if (!_c_13.term_eq (_v_deref__rfp_m_obj7, 0))
    350383        {
    351384          goto _block1__branch1;
    352385        }
    353386        Expr _v_name__1 (_v_deref__deref__rfp_m_obj7, 0, _v_len__name__17);
    354         _ve_prefix = _c_13;
     387        _ve_prefix = _c_1;
    355388        _ve_name = _v_name__1;
    356389      }
     
    375408          }
    376409          Expr _v_deref__rfp_m_obj8 (_ve_rfp_m_obj, 0);
    377           uintptr_t _v_len15 = _v_deref__rfp_m_obj8.get_len ();
    378           uintptr_t _v_len16 = 1;
    379           if ((_v_len15 < _v_len16))
     410          uintptr_t _v_len25 = _v_deref__rfp_m_obj8.get_len ();
     411          uintptr_t _v_len26 = 1;
     412          if ((_v_len25 < _v_len26))
    380413          {
    381414            goto _block3__branch1;
    382415          }
    383           uintptr_t _v_len__names = (_v_len15 - _v_len16);
     416          uintptr_t _v_len__names = (_v_len25 - _v_len26);
    384417          if (!_c_14.term_eq (_v_deref__rfp_m_obj8, 0))
    385418          {
     
    401434          }
    402435          Expr _v_deref__rfp_m_obj9 (_ve_rfp_m_obj, 0);
    403           uintptr_t _v_len17 = _v_deref__rfp_m_obj9.get_len ();
    404           uintptr_t _v_len18 = 0;
    405           if ((_v_len17 < _v_len18))
     436          uintptr_t _v_len27 = _v_deref__rfp_m_obj9.get_len ();
     437          uintptr_t _v_len28 = 0;
     438          if ((_v_len27 < _v_len28))
    406439          {
    407440            goto _block3__branch2;
    408441          }
    409           uintptr_t _v_len__names2 = (_v_len17 - _v_len18);
     442          uintptr_t _v_len__names2 = (_v_len27 - _v_len28);
    410443          Expr _ve_names (_v_deref__rfp_m_obj9, 0, _v_len__names2);
    411444          _v_auxblock1 = _ve_names;
     
    413446        }
    414447      _block3__branch2: {}
    415         uintptr_t _v_len19 = _ve_rfp_m_obj.get_len ();
    416         uintptr_t _v_len20 = 0;
    417         if ((_v_len19 < _v_len20))
     448        uintptr_t _v_len29 = _ve_rfp_m_obj.get_len ();
     449        uintptr_t _v_len30 = 0;
     450        if ((_v_len29 < _v_len30))
    418451        {
    419452          RF_FUNC_ERROR (unexpected_fail);
    420453        }
    421         uintptr_t _v_len__names3 = (_v_len19 - _v_len20);
     454        uintptr_t _v_len__names3 = (_v_len29 - _v_len30);
    422455        Expr _ve_names (_ve_rfp_m_obj, 0, _v_len__names3);
    423456        _v_auxblock1 = _ve_names;
    424457      }
    425458    _block3: {}
    426       uintptr_t _v_len21 = _v_auxblock1.get_len ();
    427       uintptr_t _v_len22 = 1;
    428       if ((_v_len21 < _v_len22))
     459      uintptr_t _v_len31 = _v_auxblock1.get_len ();
     460      uintptr_t _v_len32 = 1;
     461      if ((_v_len31 < _v_len32))
    429462      {
    430463        goto _block1__branch2;
    431464      }
    432       uintptr_t _v_len__qualifiers = (_v_len21 - _v_len22);
     465      uintptr_t _v_len__qualifiers = (_v_len31 - _v_len32);
    433466      if (!_v_auxblock1.symbol_at (_v_len__qualifiers))
    434467      {
     
    455488        goto _block4__branch1;
    456489      }
    457       uintptr_t _v_len23 = _v_Apply1.get_len ();
    458       uintptr_t _v_len24 = 0;
    459       if ((_v_len23 < _v_len24))
     490      uintptr_t _v_len33 = _v_Apply1.get_len ();
     491      uintptr_t _v_len34 = 0;
     492      if ((_v_len33 < _v_len34))
    460493      {
    461494        goto _block4__branch1;
    462495      }
    463       uintptr_t _v_len___e__e_tmp_m_CppManglerf_m_78_m_40 = (_v_len23 - _v_len24);
     496      uintptr_t _v_len___e__e_tmp_m_CppManglerf_m_78_m_40 = (_v_len33 - _v_len34);
    464497      Expr _ve__e__e_tmp_m_CppManglerf_m_78_m_40 (_v_Apply1, 0, _v_len___e__e_tmp_m_CppManglerf_m_78_m_40);
    465498      _v_res1 = (_c_17 + _ve_ident);
     
    585618          Expr _ve__e__e_tmp_m_CppManglerf_m_89_m_36 (_v_lsplit__Conv_m_Table, 1, _v_len___e__e_tmp_m_CppManglerf_m_89_m_36);
    586619          Expr _ve_code (_v_deref__lsplit__Conv_m_Table, 1, _v_len__code);
    587           _v_res1 = (_c_13 + _ve_code + _c_13);
     620          _v_res1 = (_c_1 + _ve_code + _c_1);
    588621          goto _exit2;
    589622        }
     
    596629    Expr _v_Char_m_To_m_Unicode1;
    597630    RF_CALL (Char_m_To_m_Unicode, _vs_char, _v_Char_m_To_m_Unicode1);
    598     _v_res1 = (_c_13 + _v_Char_m_To_m_Unicode1 + _c_13);
     631    _v_res1 = (_c_1 + _v_Char_m_To_m_Unicode1 + _c_1);
    599632  }
    600633_block1: {}
     
    664697    {
    665698      uintptr_t _v_len1 = _v_To_m_Chars1.get_len ();
    666       uintptr_t _v_len2 = 3;
    667       if ((_v_len1 < _v_len2))
     699      uintptr_t _v_len2 = (1 + 1 + 1);
     700      if (((_v_len1 < (_v_len2 + (0 * 1)))))
    668701      {
    669702        goto _block1__branch1;
    670703      }
    671       uintptr_t _v_len__name = (_v_len1 - _v_len2);
     704      if (((_v_len1 - _v_len2) % 1))
     705      {
     706        goto _block1__branch1;
     707      }
     708      uintptr_t _v_len__name = ((_v_len1 - _v_len2) / 1);
    672709      if (!_c_17.eq (_v_To_m_Chars1, 0))
    673710      {
    674711        goto _block1__branch1;
    675712      }
    676       Expr _ve_name (_v_To_m_Chars1, 3, _v_len__name);
     713      Expr _ve_name (_v_To_m_Chars1, (0 + 1 + 1 + 1), _v_len__name);
    677714      _v_auxblock1 = _ve_name;
    678715      goto _block1;
     
    681718    uintptr_t _v_len3 = _v_To_m_Chars1.get_len ();
    682719    uintptr_t _v_len4 = 0;
    683     if ((_v_len3 < _v_len4))
     720    if (((_v_len3 < (_v_len4 + (0 * 1)))))
    684721    {
    685722      RF_FUNC_ERROR (unexpected_fail);
    686723    }
    687     uintptr_t _v_len__name2 = (_v_len3 - _v_len4);
     724    if (((_v_len3 - _v_len4) % 1))
     725    {
     726      RF_FUNC_ERROR (unexpected_fail);
     727    }
     728    uintptr_t _v_len__name2 = ((_v_len3 - _v_len4) / 1);
    688729    Expr _ve_name (_v_To_m_Chars1, 0, _v_len__name2);
    689730    _v_auxblock1 = _ve_name;
     
    693734    {
    694735      uintptr_t _v_len5 = _v_auxblock1.get_len ();
    695       uintptr_t _v_len6 = 4;
    696       if ((_v_len5 < _v_len6))
     736      uintptr_t _v_len6 = (1 + 1 + 1 + 1);
     737      if (((_v_len5 < (_v_len6 + (0 * 1)))))
    697738      {
    698739        goto _block2__branch1;
    699740      }
    700       uintptr_t _v_len__name3 = (_v_len5 - _v_len6);
    701       if (!_c_3.eq (_v_auxblock1, 0))
     741      if (((_v_len5 - _v_len6) % 1))
    702742      {
    703743        goto _block2__branch1;
    704744      }
    705       Expr _ve_name (_v_auxblock1, 4, _v_len__name3);
     745      uintptr_t _v_len__name3 = ((_v_len5 - _v_len6) / 1);
     746      if (!_c_32.eq (_v_auxblock1, 0))
     747      {
     748        goto _block2__branch1;
     749      }
     750      Expr _ve_name (_v_auxblock1, (0 + 1 + 1 + 1 + 1), _v_len__name3);
    706751      Expr _v_Chars2Rfp1;
    707752      if (!RF_CALL (Chars2Rfp, _ve_name, _v_Chars2Rfp1))
     
    709754        RF_RETFAIL;
    710755      }
    711       _v_res1 = (_c_2 + _v_Chars2Rfp1 ()) ();
     756      _v_res1 = (_c_3 + _v_Chars2Rfp1 ()) ();
    712757      goto _block2;
    713758    }
     
    715760    {
    716761      uintptr_t _v_len7 = _v_auxblock1.get_len ();
    717       uintptr_t _v_len8 = 4;
    718       if ((_v_len7 < _v_len8))
     762      uintptr_t _v_len8 = (1 + 1 + 1 + 1);
     763      if (((_v_len7 < (_v_len8 + (0 * 1)))))
    719764      {
    720765        goto _block2__branch2;
    721766      }
    722       uintptr_t _v_len__name4 = (_v_len7 - _v_len8);
    723       if (!_c_5.eq (_v_auxblock1, 0))
     767      if (((_v_len7 - _v_len8) % 1))
    724768      {
    725769        goto _block2__branch2;
    726770      }
    727       Expr _ve_name (_v_auxblock1, 4, _v_len__name4);
     771      uintptr_t _v_len__name4 = ((_v_len7 - _v_len8) / 1);
     772      if (!_c_33.eq (_v_auxblock1, 0))
     773      {
     774        goto _block2__branch2;
     775      }
     776      Expr _ve_name (_v_auxblock1, (0 + 1 + 1 + 1 + 1), _v_len__name4);
    728777      Expr _v_Chars2Rfp2;
    729778      if (!RF_CALL (Chars2Rfp, _ve_name, _v_Chars2Rfp2))
     
    731780        RF_RETFAIL;
    732781      }
    733       _v_res1 = (_c_4 + _v_Chars2Rfp2 ()) ();
     782      _v_res1 = (_c_5 + _v_Chars2Rfp2 ()) ();
    734783      goto _block2;
    735784    }
     
    737786    {
    738787      uintptr_t _v_len9 = _v_auxblock1.get_len ();
    739       uintptr_t _v_len10 = 4;
    740       if ((_v_len9 < _v_len10))
     788      uintptr_t _v_len10 = (1 + 1 + 1 + 1);
     789      if (((_v_len9 < (_v_len10 + (0 * 1)))))
    741790      {
    742791        goto _block2__branch3;
    743792      }
    744       uintptr_t _v_len__name5 = (_v_len9 - _v_len10);
    745       if (!_c_7.eq (_v_auxblock1, 0))
     793      if (((_v_len9 - _v_len10) % 1))
    746794      {
    747795        goto _block2__branch3;
    748796      }
    749       Expr _ve_name (_v_auxblock1, 4, _v_len__name5);
     797      uintptr_t _v_len__name5 = ((_v_len9 - _v_len10) / 1);
     798      if (!_c_34.eq (_v_auxblock1, 0))
     799      {
     800        goto _block2__branch3;
     801      }
     802      Expr _ve_name (_v_auxblock1, (0 + 1 + 1 + 1 + 1), _v_len__name5);
    750803      Expr _v_Chars2Rfp3;
    751804      if (!RF_CALL (Chars2Rfp, _ve_name, _v_Chars2Rfp3))
     
    753806        RF_RETFAIL;
    754807      }
    755       _v_res1 = (_c_6 + _v_Chars2Rfp3 ()) ();
     808      _v_res1 = (_c_7 + _v_Chars2Rfp3 ()) ();
    756809      goto _block2;
    757810    }
     
    759812    {
    760813      uintptr_t _v_len11 = _v_auxblock1.get_len ();
    761       uintptr_t _v_len12 = 4;
    762       if ((_v_len11 < _v_len12))
     814      uintptr_t _v_len12 = (1 + 1 + 1 + 1);
     815      if (((_v_len11 < (_v_len12 + (0 * 1)))))
    763816      {
    764817        goto _block2__branch4;
    765818      }
    766       uintptr_t _v_len__name6 = (_v_len11 - _v_len12);
    767       if (!_c_9.eq (_v_auxblock1, 0))
     819      if (((_v_len11 - _v_len12) % 1))
    768820      {
    769821        goto _block2__branch4;
    770822      }
    771       Expr _ve_name (_v_auxblock1, 4, _v_len__name6);
     823      uintptr_t _v_len__name6 = ((_v_len11 - _v_len12) / 1);
     824      if (!_c_35.eq (_v_auxblock1, 0))
     825      {
     826        goto _block2__branch4;
     827      }
     828      Expr _ve_name (_v_auxblock1, (0 + 1 + 1 + 1 + 1), _v_len__name6);
    772829      Expr _v_Chars2Rfp4;
    773830      if (!RF_CALL (Chars2Rfp, _ve_name, _v_Chars2Rfp4))
     
    775832        RF_RETFAIL;
    776833      }
    777       _v_res1 = (_c_8 + _v_Chars2Rfp4 ()) ();
     834      _v_res1 = (_c_9 + _v_Chars2Rfp4 ()) ();
    778835      goto _block2;
    779836    }
     
    781838    uintptr_t _v_len13 = _v_auxblock1.get_len ();
    782839    uintptr_t _v_len14 = 0;
    783     if ((_v_len13 < _v_len14))
     840    if (((_v_len13 < (_v_len14 + (0 * 1)))))
    784841    {
    785842      RF_RETFAIL;
    786843    }
    787     uintptr_t _v_len__name7 = (_v_len13 - _v_len14);
     844    if (((_v_len13 - _v_len14) % 1))
     845    {
     846      RF_RETFAIL;
     847    }
     848    uintptr_t _v_len__name7 = ((_v_len13 - _v_len14) / 1);
    788849    Expr _ve_name (_v_auxblock1, 0, _v_len__name7);
    789850    RF_TAILCALL (Qualifiers2Rfp, _ve_name, _v_res1);
     
    795856  {
    796857    {
    797       if ((_v_arg1.get_len () < 2))
     858      if (((_v_arg1.get_len () < (1 + 1 + 0 + 0))))
    798859      {
    799860        goto _block1__branch1;
     
    808869          }
    809870          uintptr_t _v_len1 = _v_lsplit__arg1.get_len ();
    810           uintptr_t _v_len2 = 2;
    811           if ((_v_len1 < _v_len2))
     871          uintptr_t _v_len2 = (1 + 1);
     872          if (((_v_len1 < (_v_len2 + (0 * 1)))))
    812873          {
    813874            goto _block1__branch1;
    814875          }
    815           uintptr_t _v_len__rest = (_v_len1 - _v_len2);
     876          if (((_v_len1 - _v_len2) % 1))
     877          {
     878            goto _continue1;
     879          }
     880          uintptr_t _v_len__rest = ((_v_len1 - _v_len2) / 1);
    816881          if (!cpp__specific::Namespace_m_Delimeter.eq (_v_lsplit__arg1, 0))
    817882          {
    818883            goto _continue1;
    819884          }
    820           Expr _ve_rest (_v_lsplit__arg1, 2, _v_len__rest);
     885          Expr _ve_rest (_v_lsplit__arg1, (0 + 1 + 1), _v_len__rest);
    821886          Expr _v_Chars2Rfp1;
    822887          if (!RF_CALL (Chars2Rfp, _ve_qualifier, _v_Chars2Rfp1))
     
    858923  {
    859924    {
    860       if ((_v_arg1.get_len () < 2))
     925      if (((_v_arg1.get_len () < (1 + 1 + 0 + 0))))
    861926      {
    862927        goto _block1__branch1;
    863928      }
    864       if (!_c_13.term_eq (_v_arg1, 0))
     929      if (!_c_1.term_eq (_v_arg1, 0))
    865930      {
    866931        goto _block1__branch1;
    867932      }
    868       Expr _v_subexpr__arg1 (_v_arg1, 1, (_v_arg1.get_len () - 1));
     933      Expr _v_subexpr__arg1 (_v_arg1, (0 + 1), (_v_arg1.get_len () - (0 + 1 + 0)));
    869934      RF_lsplit (_v_subexpr__arg1, 0, _ve_code, _v_lsplit__arg1);
    870935      for ( ; ; RF_iter(_v_subexpr__arg1)++)
     
    877942          uintptr_t _v_len1 = _v_lsplit__arg1.get_len ();
    878943          uintptr_t _v_len2 = 1;
    879           if ((_v_len1 < _v_len2))
     944          if (((_v_len1 < (_v_len2 + (0 * 1)))))
    880945          {
    881946            goto _block1__branch1;
    882947          }
    883           uintptr_t _v_len__rest = (_v_len1 - _v_len2);
    884           if (!_c_13.term_eq (_v_lsplit__arg1, 0))
     948          if (((_v_len1 - _v_len2) % 1))
    885949          {
    886950            goto _continue1;
    887951          }
    888           Expr _ve_rest (_v_lsplit__arg1, 1, _v_len__rest);
     952          uintptr_t _v_len__rest = ((_v_len1 - _v_len2) / 1);
     953          if (!_c_1.term_eq (_v_lsplit__arg1, 0))
     954          {
     955            goto _continue1;
     956          }
     957          Expr _ve_rest (_v_lsplit__arg1, (0 + 1), _v_len__rest);
     958          if ((((1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1) < (1 + 0 + 0))))
     959          {
     960            RF_RETFAIL;
     961          }
    889962          RF_lsplit (Conv_m_Table, 0, _ve__e__e_tmp_m_CppManglerf_m_132_m_20, _v_lsplit__Conv_m_Table);
    890963          for ( ; ; RF_iter(Conv_m_Table)++)
     
    897970              uintptr_t _v_len3 = _v_lsplit__Conv_m_Table.get_len ();
    898971              uintptr_t _v_len4 = 1;
    899               if ((_v_len3 < _v_len4))
     972              if (((_v_len3 < (_v_len4 + (0 * 1)))))
    900973              {
    901974                RF_RETFAIL;
    902975              }
    903               uintptr_t _v_len___e__e_tmp_m_CppManglerf_m_132_m_38 = (_v_len3 - _v_len4);
     976              if (((_v_len3 - _v_len4) % 1))
     977              {
     978                goto _continue2;
     979              }
     980              uintptr_t _v_len___e__e_tmp_m_CppManglerf_m_132_m_38 = ((_v_len3 - _v_len4) / 1);
    904981              if (_v_lsplit__Conv_m_Table.symbol_at (0))
    905982              {
     
    907984              }
    908985              Expr _v_deref__lsplit__Conv_m_Table (_v_lsplit__Conv_m_Table, 0);
    909               if ((_v_deref__lsplit__Conv_m_Table.get_len () != (_ve_code.get_len () + 1)))
     986              if ((_v_deref__lsplit__Conv_m_Table.get_len () != (1 + _ve_code.get_len ())))
    910987              {
    911988                goto _continue2;
     
    915992                goto _continue2;
    916993              }
    917               if (!_ve_code.eq (_v_deref__lsplit__Conv_m_Table, 1))
     994              if (!_ve_code.eq (_v_deref__lsplit__Conv_m_Table, (0 + 1)))
    918995              {
    919996                goto _continue2;
    920997              }
    921               Expr _ve__e__e_tmp_m_CppManglerf_m_132_m_38 (_v_lsplit__Conv_m_Table, 1, _v_len___e__e_tmp_m_CppManglerf_m_132_m_38);
     998              Expr _ve__e__e_tmp_m_CppManglerf_m_132_m_38 (_v_lsplit__Conv_m_Table, (0 + 1), _v_len___e__e_tmp_m_CppManglerf_m_132_m_38);
    922999              Expr _vs_char (_v_deref__lsplit__Conv_m_Table, 0, 1);
    9231000              Expr _v_Codes2Rfp1;
     
    9431020      uintptr_t _v_len5 = _v_arg1.get_len ();
    9441021      uintptr_t _v_len6 = 1;
    945       if ((_v_len5 < _v_len6))
     1022      if (((_v_len5 < (_v_len6 + (0 * 1)))))
    9461023      {
    9471024        goto _block1__branch2;
    9481025      }
    949       uintptr_t _v_len__rest2 = (_v_len5 - _v_len6);
     1026      if (((_v_len5 - _v_len6) % 1))
     1027      {
     1028        goto _block1__branch2;
     1029      }
     1030      uintptr_t _v_len__rest2 = ((_v_len5 - _v_len6) / 1);
    9501031      if (!_v_arg1.symbol_at (0))
    9511032      {
     
    9531034      }
    9541035      Expr _vs_char (_v_arg1, 0, 1);
    955       Expr _ve_rest (_v_arg1, 1, _v_len__rest2);
     1036      Expr _ve_rest (_v_arg1, (0 + 1), _v_len__rest2);
    9561037      {
    9571038        {
     
    9681049        }
    9691050        {
    970           if (!_vs_char.term_eq (_c_32, 0))
    971           {
    972             goto _negation1;
    973           }
     1051          {
     1052            if ((1 != 1))
     1053            {
     1054              goto _negation1;
     1055            }
     1056            if (!_vs_char.term_eq (_c_36, 0))
     1057            {
     1058              goto _negation1;
     1059            }
     1060          }
     1061        _block3: {}
    9741062          RF_RETFAIL;
    9751063        }
     
    9981086  uintptr_t _v_len1 = _v_arg1.get_len ();
    9991087  uintptr_t _v_len2 = 0;
    1000   if ((_v_len1 < _v_len2))
    1001   {
    1002     RF_ERROR (_c_33);
    1003   }
    1004   uintptr_t _v_len__stub1 = (_v_len1 - _v_len2);
     1088  if (((_v_len1 < (_v_len2 + (0 * 1)))))
     1089  {
     1090    RF_ERROR (_c_37);
     1091  }
     1092  if (((_v_len1 - _v_len2) % 1))
     1093  {
     1094    RF_ERROR (_c_37);
     1095  }
     1096  uintptr_t _v_len__stub1 = ((_v_len1 - _v_len2) / 1);
    10051097  Expr _v_stub1 (_v_arg1, 0, _v_len__stub1);
    10061098  if (!RF_CALL (cpp__specific::Reserved_m_Word_q_, _v_stub1, /*void*/))
     
    10181110static void init_ ()
    10191111{
    1020   Conv_m_Table = (Char::create_expr ("!e")) () + (Char::create_expr ("?q")) () + (Char::create_expr ("_")) () + (Char::create_expr ("-m")) () + (Char::create_expr ("+p")) () + (Char::create_expr ("<lt")) () + (Char::create_expr (">gt")) () + (Char::create_expr ("=eq")) () + (Char::create_expr ("*a")) () + (Char::create_expr ("/s")) () + (Char::create_expr (" sp")) () + (Char::create_expr ("\\bs")) () + (Char::create_expr ("|bar")) () + (Char::create_expr ("~tilde")) () + (Char::create_expr ("@at")) () + (Char::create_expr ("#num")) () + (Char::create_expr ("$dollar")) () + (Char::create_expr ("%percnt")) () + (Char::create_expr ("^circ")) () + (Char::create_expr ("&amp")) () + (Char::create_expr ("(lpar")) () + (Char::create_expr (")rpar")) () + (Char::create_expr ("[lsqb")) () + (Char::create_expr ("]rsqb")) () + (Char::create_expr ("{lcub")) () + (Char::create_expr ("}rcub")) () + (Char::create_expr ("`grave")) () + (Char::create_expr ("'apos")) () + (Char::create_expr ("\"quot")) () + (Char::create_expr (",comma")) () + (Char::create_expr (".period")) () + (Char::create_expr (":colon")) () + (Char::create_expr (";semi")) ();
     1112  Conv_m_Table = (Char::create_expr (L"!e")) () + (Char::create_expr (L"?q")) () + (Char::create_expr (L"_")) () + (Char::create_expr (L"-m")) () + (Char::create_expr (L"+p")) () + (Char::create_expr (L"<lt")) () + (Char::create_expr (L">gt")) () + (Char::create_expr (L"=eq")) () + (Char::create_expr (L"*a")) () + (Char::create_expr (L"/s")) () + (Char::create_expr (L" sp")) () + (Char::create_expr (L"\\bs")) () + (Char::create_expr (L"|bar")) () + (Char::create_expr (L"~tilde")) () + (Char::create_expr (L"@at")) () + (Char::create_expr (L"#num")) () + (Char::create_expr (L"$dollar")) () + (Char::create_expr (L"%percnt")) () + (Char::create_expr (L"^circ")) () + (Char::create_expr (L"&amp")) () + (Char::create_expr (L"(lpar")) () + (Char::create_expr (L")rpar")) () + (Char::create_expr (L"[lsqb")) () + (Char::create_expr (L"]rsqb")) () + (Char::create_expr (L"{lcub")) () + (Char::create_expr (L"}rcub")) () + (Char::create_expr (L"`grave")) () + (Char::create_expr (L"'apos")) () + (Char::create_expr (L"\"quot")) () + (Char::create_expr (L",comma")) () + (Char::create_expr (L".period")) () + (Char::create_expr (L":colon")) () + (Char::create_expr (L";semi")) ();
    10211113  _c_0 = Expr::create<Word>("VAR");
    1022   _c_1 = Char::create_expr ("_v_");
    1023   _c_2 = Expr::create<Word>("EVAR");
    1024   _c_3 = Char::create_expr ("_ve_");
    1025   _c_4 = Expr::create<Word>("VVAR");
    1026   _c_5 = Char::create_expr ("_vv_");
    1027   _c_6 = Expr::create<Word>("TVAR");
    1028   _c_7 = Char::create_expr ("_vt_");
    1029   _c_8 = Expr::create<Word>("SVAR");
    1030   _c_9 = Char::create_expr ("_vs_");
    1031   _c_10 = Expr::create<Word>("STATIC");
    1032   _c_11 = Char::create_expr ("_c_");
    1033   _c_12 = Expr::create<Word>("LABEL");
    1034   _c_13 = Expr (_c_11, 0, 1);
     1114  _c_32 = Char::create_expr (L"_ve_");
     1115  _c_4 = Expr (_c_32, 0, 3);
     1116  _c_2 = Expr (_c_4, 0, 2);
     1117  _c_1 = Expr (_c_2, 0, 1);
     1118  _c_3 = Expr::create<Word>("EVAR");
     1119  _c_5 = Expr::create<Word>("VVAR");
     1120  _c_33 = Char::create_expr (L"_vv_");
     1121  _c_6 = Expr (_c_33, 0, 3);
     1122  _c_7 = Expr::create<Word>("TVAR");
     1123  _c_34 = Char::create_expr (L"_vt_");
     1124  _c_8 = Expr (_c_34, 0, 3);
     1125  _c_9 = Expr::create<Word>("SVAR");
     1126  _c_35 = Char::create_expr (L"_vs_");
     1127  _c_10 = Expr (_c_35, 0, 3);
     1128  _c_11 = Expr::create<Word>("STATIC");
     1129  _c_12 = Char::create_expr (L"_c_");
     1130  _c_13 = Expr::create<Word>("LABEL");
    10351131  _c_14 = Expr::create<Word>("OBJ");
    10361132  _c_15 = Expr::create_sym<Func> (Qualifier2Cpp);
    10371133  _c_16 = Expr::create_sym<Func> (Reserved_m_Word_q___0);
    1038   _c_17 = Char::create_expr ("_r_");
     1134  _c_17 = Char::create_expr (L"_r_");
    10391135  _c_18 = Expr::create_sym<Func> (A_m_Char2Cpp);
    1040   _c_19 = Char::create_expr ("?!");
    1041   _c_20 = Char::create_expr ("b");
    1042   _c_21 = Char::create_expr ("08");
    1043   _c_22 = Char::create_expr ("\t");
    1044   _c_23 = Char::create_expr ("09");
    1045   _c_24 = Char::create_expr ("\n");
    1046   _c_25 = Char::create_expr ("0A");
    1047   _c_26 = Expr (_c_9, 1, 1);
    1048   _c_27 = Char::create_expr ("0B");
    1049   _c_28 = Char::create_expr ("f");
    1050   _c_29 = Char::create_expr ("0C");
    1051   _c_30 = Char::create_expr ("\r");
    1052   _c_31 = Char::create_expr ("0D");
    1053   _c_32 = Expr (_c_19, 0, 1);
    1054   _c_33 = Expr::create<Word>("Apply") + Expr::create<Word>("Apply") + Expr::create<Word>("Unexpected fail");
     1136  _c_19 = Char::create_expr (L"?!");
     1137  _c_20 = Char::create_expr (L"b");
     1138  _c_21 = Char::create_expr (L"08");
     1139  _c_22 = Char::create_expr (L"\t");
     1140  _c_23 = Char::create_expr (L"09");
     1141  _c_24 = Char::create_expr (L"\n");
     1142  _c_25 = Char::create_expr (L"0A");
     1143  _c_26 = Expr (_c_2, 1, 1);
     1144  _c_27 = Char::create_expr (L"0B");
     1145  _c_28 = Char::create_expr (L"f");
     1146  _c_29 = Char::create_expr (L"0C");
     1147  _c_30 = Char::create_expr (L"\r");
     1148  _c_31 = Char::create_expr (L"0D");
     1149  _c_36 = Expr (_c_19, 0, 1);
     1150  _c_37 = Expr::create<Word>("Apply") + Expr::create<Word>("Apply") + Expr::create<Word>("Unexpected fail");
    10551151}
    10561152
  • to-imperative/trunk/library/CppMangle/CppMangle.hh

    r1816 r2046  
    1414RF_DECL (Rfp2Cpp);
    1515
    16 RF_DECL (Rfp2Cpp_m_With);
    17 
    1816RF_DECL (Cpp2Rfp);
    1917
  • to-imperative/trunk/library/CppMangle/refal/CppMangle.rf

    r1818 r2046  
    5858Rfp2Cpp e.rfp-obj, {
    5959  e.rfp-obj : \{
    60     (VAR (e.name)) = ('_v_') e.name;
    61     (EVAR (e.name)) = ('_ve_') e.name;
    62     (VVAR (e.name)) = ('_vv_') e.name;
    63     (TVAR (e.name)) = ('_vt_') e.name;
    64     (SVAR (e.name)) = ('_vs_') e.name;
     60    (VAR  e.ns (e.name)) = ('_v'e.ns'_') e.name;
     61    (EVAR e.ns (e.name)) = ('_ve'e.ns'_') e.name;
     62    (VVAR e.ns (e.name)) = ('_vv'e.ns'_') e.name;
     63    (TVAR e.ns (e.name)) = ('_vt'e.ns'_') e.name;
     64    (SVAR e.ns (e.name)) = ('_vs'e.ns'_') e.name;
    6565    (STATIC (e.name)) = ('_c_') e.name;
    6666    (LABEL (e.name)) = ('_') e.name;
  • to-imperative/trunk/library/JavaMangle/JavaMangle.cc

    r1991 r2046  
    22#include <refal/Apply.hh>
    33#include <refal/Convert.hh>
     4#include <refal/Class.hh>
    45#include "java_specific.hh"
    56#include <refal/List.hh>
    6 #include <refal/Class.hh>
    7 #include "JavaMangle.hh"
    87
    98namespace refal
     
    1716static Expr Conv_m_Table;
    1817
    19 RF_DECL (Qualifier2Cpp);
    20 
    21 RF_DECL (Chars2Cpp);
    22 
    23 RF_DECL (A_m_Char2Cpp);
     18RF_DECL (Rfp2Java);
     19
     20RF_DECL (Qualifier2Java);
     21
     22RF_DECL (Chars2Java);
     23
     24RF_DECL (A_m_Char2Java);
    2425
    2526RF_DECL (Char_m_To_m_Unicode);
    2627
     28RF_DECL (Java2Rfp);
     29
    2730RF_DECL (Qualifiers2Rfp);
    2831
     
    3134RF_DECL (Codes2Rfp);
    3235
     36RF_DECL (Reserved_m_Word_q___0);
     37
    3338static Expr _c_0;
    3439
     40static Expr _c_32;
     41
     42static Expr _c_4;
     43
     44static Expr _c_2;
     45
    3546static Expr _c_1;
    3647
    37 static Expr _c_2;
    38 
    3948static Expr _c_3;
    4049
    41 static Expr _c_4;
    42 
    4350static Expr _c_5;
    4451
     52static Expr _c_33;
     53
    4554static Expr _c_6;
    4655
    4756static Expr _c_7;
    4857
     58static Expr _c_34;
     59
    4960static Expr _c_8;
    5061
    5162static Expr _c_9;
    5263
     64static Expr _c_35;
     65
    5366static Expr _c_10;
    5467
     
    95108static Expr _c_31;
    96109
    97 static Expr _c_32;
    98 
    99 static Expr _c_33;
     110static Expr _c_36;
     111
     112static Expr _c_37;
    100113
    101114RF_FUNC (Rfp2Java, (RF_ARG _ve_rfp_m_obj;;), (RF_RES _v_res1;;))
     
    116129          }
    117130          Expr _v_deref__rfp_m_obj (_ve_rfp_m_obj, 0);
    118           if ((_v_deref__rfp_m_obj.get_len () != 2))
     131          uintptr_t _v_len1 = _v_deref__rfp_m_obj.get_len ();
     132          uintptr_t _v_len2 = 2;
     133          if ((_v_len1 < _v_len2))
    119134          {
    120135            goto _block2__branch1;
    121136          }
    122           if (_v_deref__rfp_m_obj.symbol_at (1))
     137          uintptr_t _v_len__ns = (_v_len1 - _v_len2);
     138          if (_v_deref__rfp_m_obj.symbol_at ((_v_len__ns + 1)))
    123139          {
    124140            goto _block2__branch1;
    125141          }
    126           Expr _v_deref__deref__rfp_m_obj (_v_deref__rfp_m_obj, 1);
    127           uintptr_t _v_len1 = _v_deref__deref__rfp_m_obj.get_len ();
    128           uintptr_t _v_len2 = 0;
    129           if ((_v_len1 < _v_len2))
     142          Expr _v_deref__deref__rfp_m_obj (_v_deref__rfp_m_obj, (_v_len__ns + 1));
     143          uintptr_t _v_len3 = _v_deref__deref__rfp_m_obj.get_len ();
     144          uintptr_t _v_len4 = 0;
     145          if ((_v_len3 < _v_len4))
    130146          {
    131147            goto _block2__branch1;
    132148          }
    133           uintptr_t _v_len__name__1 = (_v_len1 - _v_len2);
     149          uintptr_t _v_len__name__1 = (_v_len3 - _v_len4);
    134150          if (!_c_0.term_eq (_v_deref__rfp_m_obj, 0))
    135151          {
    136152            goto _block2__branch1;
    137153          }
     154          Expr _ve_ns (_v_deref__rfp_m_obj, 1, _v_len__ns);
    138155          Expr _v_name__1 (_v_deref__deref__rfp_m_obj, 0, _v_len__name__1);
    139           _ve_prefix = _c_1;
     156          _ve_prefix = (_c_2 + _ve_ns + _c_1);
    140157          _ve_name = _v_name__1;
    141158          goto _block2;
     
    152169          }
    153170          Expr _v_deref__rfp_m_obj2 (_ve_rfp_m_obj, 0);
    154           if ((_v_deref__rfp_m_obj2.get_len () != 2))
     171          uintptr_t _v_len5 = _v_deref__rfp_m_obj2.get_len ();
     172          uintptr_t _v_len6 = 2;
     173          if ((_v_len5 < _v_len6))
    155174          {
    156175            goto _block2__branch2;
    157176          }
    158           if (_v_deref__rfp_m_obj2.symbol_at (1))
     177          uintptr_t _v_len__ns2 = (_v_len5 - _v_len6);
     178          if (_v_deref__rfp_m_obj2.symbol_at ((_v_len__ns2 + 1)))
    159179          {
    160180            goto _block2__branch2;
    161181          }
    162           Expr _v_deref__deref__rfp_m_obj2 (_v_deref__rfp_m_obj2, 1);
    163           uintptr_t _v_len3 = _v_deref__deref__rfp_m_obj2.get_len ();
    164           uintptr_t _v_len4 = 0;
    165           if ((_v_len3 < _v_len4))
     182          Expr _v_deref__deref__rfp_m_obj2 (_v_deref__rfp_m_obj2, (_v_len__ns2 + 1));
     183          uintptr_t _v_len7 = _v_deref__deref__rfp_m_obj2.get_len ();
     184          uintptr_t _v_len8 = 0;
     185          if ((_v_len7 < _v_len8))
    166186          {
    167187            goto _block2__branch2;
    168188          }
    169           uintptr_t _v_len__name__12 = (_v_len3 - _v_len4);
    170           if (!_c_2.term_eq (_v_deref__rfp_m_obj2, 0))
     189          uintptr_t _v_len__name__12 = (_v_len7 - _v_len8);
     190          if (!_c_3.term_eq (_v_deref__rfp_m_obj2, 0))
    171191          {
    172192            goto _block2__branch2;
    173193          }
     194          Expr _ve_ns (_v_deref__rfp_m_obj2, 1, _v_len__ns2);
    174195          Expr _v_name__1 (_v_deref__deref__rfp_m_obj2, 0, _v_len__name__12);
    175           _ve_prefix = _c_3;
     196          _ve_prefix = (_c_4 + _ve_ns + _c_1);
    176197          _ve_name = _v_name__1;
    177198          goto _block2;
     
    188209          }
    189210          Expr _v_deref__rfp_m_obj3 (_ve_rfp_m_obj, 0);
    190           if ((_v_deref__rfp_m_obj3.get_len () != 2))
     211          uintptr_t _v_len9 = _v_deref__rfp_m_obj3.get_len ();
     212          uintptr_t _v_len10 = 2;
     213          if ((_v_len9 < _v_len10))
    191214          {
    192215            goto _block2__branch3;
    193216          }
    194           if (_v_deref__rfp_m_obj3.symbol_at (1))
     217          uintptr_t _v_len__ns3 = (_v_len9 - _v_len10);
     218          if (_v_deref__rfp_m_obj3.symbol_at ((_v_len__ns3 + 1)))
    195219          {
    196220            goto _block2__branch3;
    197221          }
    198           Expr _v_deref__deref__rfp_m_obj3 (_v_deref__rfp_m_obj3, 1);
    199           uintptr_t _v_len5 = _v_deref__deref__rfp_m_obj3.get_len ();
    200           uintptr_t _v_len6 = 0;
    201           if ((_v_len5 < _v_len6))
     222          Expr _v_deref__deref__rfp_m_obj3 (_v_deref__rfp_m_obj3, (_v_len__ns3 + 1));
     223          uintptr_t _v_len11 = _v_deref__deref__rfp_m_obj3.get_len ();
     224          uintptr_t _v_len12 = 0;
     225          if ((_v_len11 < _v_len12))
    202226          {
    203227            goto _block2__branch3;
    204228          }
    205           uintptr_t _v_len__name__13 = (_v_len5 - _v_len6);
    206           if (!_c_4.term_eq (_v_deref__rfp_m_obj3, 0))
     229          uintptr_t _v_len__name__13 = (_v_len11 - _v_len12);
     230          if (!_c_5.term_eq (_v_deref__rfp_m_obj3, 0))
    207231          {
    208232            goto _block2__branch3;
    209233          }
     234          Expr _ve_ns (_v_deref__rfp_m_obj3, 1, _v_len__ns3);
    210235          Expr _v_name__1 (_v_deref__deref__rfp_m_obj3, 0, _v_len__name__13);
    211           _ve_prefix = _c_5;
     236          _ve_prefix = (_c_6 + _ve_ns + _c_1);
    212237          _ve_name = _v_name__1;
    213238          goto _block2;
     
    224249          }
    225250          Expr _v_deref__rfp_m_obj4 (_ve_rfp_m_obj, 0);
    226           if ((_v_deref__rfp_m_obj4.get_len () != 2))
     251          uintptr_t _v_len13 = _v_deref__rfp_m_obj4.get_len ();
     252          uintptr_t _v_len14 = 2;
     253          if ((_v_len13 < _v_len14))
    227254          {
    228255            goto _block2__branch4;
    229256          }
    230           if (_v_deref__rfp_m_obj4.symbol_at (1))
     257          uintptr_t _v_len__ns4 = (_v_len13 - _v_len14);
     258          if (_v_deref__rfp_m_obj4.symbol_at ((_v_len__ns4 + 1)))
    231259          {
    232260            goto _block2__branch4;
    233261          }
    234           Expr _v_deref__deref__rfp_m_obj4 (_v_deref__rfp_m_obj4, 1);
    235           uintptr_t _v_len7 = _v_deref__deref__rfp_m_obj4.get_len ();
    236           uintptr_t _v_len8 = 0;
    237           if ((_v_len7 < _v_len8))
     262          Expr _v_deref__deref__rfp_m_obj4 (_v_deref__rfp_m_obj4, (_v_len__ns4 + 1));
     263          uintptr_t _v_len15 = _v_deref__deref__rfp_m_obj4.get_len ();
     264          uintptr_t _v_len16 = 0;
     265          if ((_v_len15 < _v_len16))
    238266          {
    239267            goto _block2__branch4;
    240268          }
    241           uintptr_t _v_len__name__14 = (_v_len7 - _v_len8);
    242           if (!_c_6.term_eq (_v_deref__rfp_m_obj4, 0))
     269          uintptr_t _v_len__name__14 = (_v_len15 - _v_len16);
     270          if (!_c_7.term_eq (_v_deref__rfp_m_obj4, 0))
    243271          {
    244272            goto _block2__branch4;
    245273          }
     274          Expr _ve_ns (_v_deref__rfp_m_obj4, 1, _v_len__ns4);
    246275          Expr _v_name__1 (_v_deref__deref__rfp_m_obj4, 0, _v_len__name__14);
    247           _ve_prefix = _c_7;
     276          _ve_prefix = (_c_8 + _ve_ns + _c_1);
    248277          _ve_name = _v_name__1;
    249278          goto _block2;
     
    260289          }
    261290          Expr _v_deref__rfp_m_obj5 (_ve_rfp_m_obj, 0);
    262           if ((_v_deref__rfp_m_obj5.get_len () != 2))
     291          uintptr_t _v_len17 = _v_deref__rfp_m_obj5.get_len ();
     292          uintptr_t _v_len18 = 2;
     293          if ((_v_len17 < _v_len18))
    263294          {
    264295            goto _block2__branch5;
    265296          }
    266           if (_v_deref__rfp_m_obj5.symbol_at (1))
     297          uintptr_t _v_len__ns5 = (_v_len17 - _v_len18);
     298          if (_v_deref__rfp_m_obj5.symbol_at ((_v_len__ns5 + 1)))
    267299          {
    268300            goto _block2__branch5;
    269301          }
    270           Expr _v_deref__deref__rfp_m_obj5 (_v_deref__rfp_m_obj5, 1);
    271           uintptr_t _v_len9 = _v_deref__deref__rfp_m_obj5.get_len ();
    272           uintptr_t _v_len10 = 0;
    273           if ((_v_len9 < _v_len10))
     302          Expr _v_deref__deref__rfp_m_obj5 (_v_deref__rfp_m_obj5, (_v_len__ns5 + 1));
     303          uintptr_t _v_len19 = _v_deref__deref__rfp_m_obj5.get_len ();
     304          uintptr_t _v_len20 = 0;
     305          if ((_v_len19 < _v_len20))
    274306          {
    275307            goto _block2__branch5;
    276308          }
    277           uintptr_t _v_len__name__15 = (_v_len9 - _v_len10);
    278           if (!_c_8.term_eq (_v_deref__rfp_m_obj5, 0))
     309          uintptr_t _v_len__name__15 = (_v_len19 - _v_len20);
     310          if (!_c_9.term_eq (_v_deref__rfp_m_obj5, 0))
    279311          {
    280312            goto _block2__branch5;
    281313          }
     314          Expr _ve_ns (_v_deref__rfp_m_obj5, 1, _v_len__ns5);
    282315          Expr _v_name__1 (_v_deref__deref__rfp_m_obj5, 0, _v_len__name__15);
    283           _ve_prefix = _c_9;
     316          _ve_prefix = (_c_10 + _ve_ns + _c_1);
    284317          _ve_name = _v_name__1;
    285318          goto _block2;
     
    305338          }
    306339          Expr _v_deref__deref__rfp_m_obj6 (_v_deref__rfp_m_obj6, 1);
    307           uintptr_t _v_len11 = _v_deref__deref__rfp_m_obj6.get_len ();
    308           uintptr_t _v_len12 = 0;
    309           if ((_v_len11 < _v_len12))
     340          uintptr_t _v_len21 = _v_deref__deref__rfp_m_obj6.get_len ();
     341          uintptr_t _v_len22 = 0;
     342          if ((_v_len21 < _v_len22))
    310343          {
    311344            goto _block2__branch6;
    312345          }
    313           uintptr_t _v_len__name__16 = (_v_len11 - _v_len12);
    314           if (!_c_10.term_eq (_v_deref__rfp_m_obj6, 0))
     346          uintptr_t _v_len__name__16 = (_v_len21 - _v_len22);
     347          if (!_c_11.term_eq (_v_deref__rfp_m_obj6, 0))
    315348          {
    316349            goto _block2__branch6;
    317350          }
    318351          Expr _v_name__1 (_v_deref__deref__rfp_m_obj6, 0, _v_len__name__16);
    319           _ve_prefix = _c_11;
     352          _ve_prefix = _c_12;
    320353          _ve_name = _v_name__1;
    321354          goto _block2;
     
    340373        }
    341374        Expr _v_deref__deref__rfp_m_obj7 (_v_deref__rfp_m_obj7, 1);
    342         uintptr_t _v_len13 = _v_deref__deref__rfp_m_obj7.get_len ();
    343         uintptr_t _v_len14 = 0;
    344         if ((_v_len13 < _v_len14))
     375        uintptr_t _v_len23 = _v_deref__deref__rfp_m_obj7.get_len ();
     376        uintptr_t _v_len24 = 0;
     377        if ((_v_len23 < _v_len24))
    345378        {
    346379          goto _block1__branch1;
    347380        }
    348         uintptr_t _v_len__name__17 = (_v_len13 - _v_len14);
    349         if (!_c_12.term_eq (_v_deref__rfp_m_obj7, 0))
     381        uintptr_t _v_len__name__17 = (_v_len23 - _v_len24);
     382        if (!_c_13.term_eq (_v_deref__rfp_m_obj7, 0))
    350383        {
    351384          goto _block1__branch1;
    352385        }
    353386        Expr _v_name__1 (_v_deref__deref__rfp_m_obj7, 0, _v_len__name__17);
    354         _ve_prefix = _c_13;
     387        _ve_prefix = _c_1;
    355388        _ve_name = _v_name__1;
    356389      }
    357390    _block2: {}
    358       Expr _v_Chars2Cpp1;
    359       RF_CALL (Chars2Cpp, _ve_name, _v_Chars2Cpp1);
    360       _ve_ident = (_ve_prefix + _v_Chars2Cpp1);
     391      Expr _v_Chars2Java1;
     392      RF_CALL (Chars2Java, _ve_name, _v_Chars2Java1);
     393      _ve_ident = (_ve_prefix + _v_Chars2Java1);
    361394      goto _block1;
    362395    }
     
    375408          }
    376409          Expr _v_deref__rfp_m_obj8 (_ve_rfp_m_obj, 0);
    377           uintptr_t _v_len15 = _v_deref__rfp_m_obj8.get_len ();
    378           uintptr_t _v_len16 = 1;
    379           if ((_v_len15 < _v_len16))
     410          uintptr_t _v_len25 = _v_deref__rfp_m_obj8.get_len ();
     411          uintptr_t _v_len26 = 1;
     412          if ((_v_len25 < _v_len26))
    380413          {
    381414            goto _block3__branch1;
    382415          }
    383           uintptr_t _v_len__names = (_v_len15 - _v_len16);
     416          uintptr_t _v_len__names = (_v_len25 - _v_len26);
    384417          if (!_c_14.term_eq (_v_deref__rfp_m_obj8, 0))
    385418          {
     
    401434          }
    402435          Expr _v_deref__rfp_m_obj9 (_ve_rfp_m_obj, 0);
    403           uintptr_t _v_len17 = _v_deref__rfp_m_obj9.get_len ();
    404           uintptr_t _v_len18 = 0;
    405           if ((_v_len17 < _v_len18))
     436          uintptr_t _v_len27 = _v_deref__rfp_m_obj9.get_len ();
     437          uintptr_t _v_len28 = 0;
     438          if ((_v_len27 < _v_len28))
    406439          {
    407440            goto _block3__branch2;
    408441          }
    409           uintptr_t _v_len__names2 = (_v_len17 - _v_len18);
     442          uintptr_t _v_len__names2 = (_v_len27 - _v_len28);
    410443          Expr _ve_names (_v_deref__rfp_m_obj9, 0, _v_len__names2);
    411444          _v_auxblock1 = _ve_names;
     
    413446        }
    414447      _block3__branch2: {}
    415         uintptr_t _v_len19 = _ve_rfp_m_obj.get_len ();
    416         uintptr_t _v_len20 = 0;
    417         if ((_v_len19 < _v_len20))
     448        uintptr_t _v_len29 = _ve_rfp_m_obj.get_len ();
     449        uintptr_t _v_len30 = 0;
     450        if ((_v_len29 < _v_len30))
    418451        {
    419452          RF_FUNC_ERROR (unexpected_fail);
    420453        }
    421         uintptr_t _v_len__names3 = (_v_len19 - _v_len20);
     454        uintptr_t _v_len__names3 = (_v_len29 - _v_len30);
    422455        Expr _ve_names (_ve_rfp_m_obj, 0, _v_len__names3);
    423456        _v_auxblock1 = _ve_names;
    424457      }
    425458    _block3: {}
    426       uintptr_t _v_len21 = _v_auxblock1.get_len ();
    427       uintptr_t _v_len22 = 1;
    428       if ((_v_len21 < _v_len22))
     459      uintptr_t _v_len31 = _v_auxblock1.get_len ();
     460      uintptr_t _v_len32 = 1;
     461      if ((_v_len31 < _v_len32))
    429462      {
    430463        goto _block1__branch2;
    431464      }
    432       uintptr_t _v_len__qualifiers = (_v_len21 - _v_len22);
     465      uintptr_t _v_len__qualifiers = (_v_len31 - _v_len32);
    433466      if (!_v_auxblock1.symbol_at (_v_len__qualifiers))
    434467      {
     
    439472      Expr _v_Map1;
    440473      RF_CALL (List::Map, (_c_15, empty, _ve_qualifiers), _v_Map1);
    441       Expr _v_Chars2Cpp2;
    442       RF_CALL (Chars2Cpp, _vs_name, _v_Chars2Cpp2);
    443       _ve_ident = (_v_Map1 + _v_Chars2Cpp2);
     474      Expr _v_Chars2Java2;
     475      RF_CALL (Chars2Java, _vs_name, _v_Chars2Java2);
     476      _ve_ident = (_v_Map1 + _v_Chars2Java2);
    444477      goto _block1;
    445478    }
     
    455488        goto _block4__branch1;
    456489      }
    457       uintptr_t _v_len23 = _v_Apply1.get_len ();
    458       uintptr_t _v_len24 = 0;
    459       if ((_v_len23 < _v_len24))
     490      uintptr_t _v_len33 = _v_Apply1.get_len ();
     491      uintptr_t _v_len34 = 0;
     492      if ((_v_len33 < _v_len34))
    460493      {
    461494        goto _block4__branch1;
    462495      }
    463       uintptr_t _v_len___e__e_tmp_m__s__s_JavaMangle_s_refal_s_JavaManglerf_m_78_m_40 = (_v_len23 - _v_len24);
     496      uintptr_t _v_len___e__e_tmp_m__s__s_JavaMangle_s_refal_s_JavaManglerf_m_78_m_40 = (_v_len33 - _v_len34);
    464497      Expr _ve__e__e_tmp_m__s__s_JavaMangle_s_refal_s_JavaManglerf_m_78_m_40 (_v_Apply1, 0, _v_len___e__e_tmp_m__s__s_JavaMangle_s_refal_s_JavaManglerf_m_78_m_40);
    465498      _v_res1 = (_c_17 + _ve_ident);
     
    472505RF_END
    473506
    474 RF_FUNC (Qualifier2Cpp, (RF_ARG _v_arg1;;), (RF_RES _v_res1;;))
     507RF_FUNC (Qualifier2Java, (RF_ARG _v_arg1;;), (RF_RES _v_res1;;))
    475508  if ((_v_arg1.get_len () != 1))
    476509  {
     
    482515  }
    483516  Expr _vs_qualifier (_v_arg1, 0, 1);
    484   Expr _v_Chars2Cpp1;
    485   RF_CALL (Chars2Cpp, _vs_qualifier, _v_Chars2Cpp1);
    486   _v_res1 = (_v_Chars2Cpp1 + java__specific::Namespace_m_Delimeter);
     517  Expr _v_Chars2Java1;
     518  RF_CALL (Chars2Java, _vs_qualifier, _v_Chars2Java1);
     519  _v_res1 = (_v_Chars2Java1 + java__specific::Namespace_m_Delimeter);
    487520RF_END
    488521
    489 RF_FUNC (Chars2Cpp, (RF_ARG _ve_name;;), (RF_RES _v_res1;;))
     522RF_FUNC (Chars2Java, (RF_ARG _ve_name;;), (RF_RES _v_res1;;))
    490523  Expr _v_To_m_Chars1;
    491524  RF_CALL (Convert::To_m_Chars, _ve_name, _v_To_m_Chars1);
     
    493526RF_END
    494527
    495 RF_FUNC (A_m_Char2Cpp, (RF_ARG _v_arg1;;), (RF_RES _v_res1;;))
     528RF_FUNC (A_m_Char2Java, (RF_ARG _v_arg1;;), (RF_RES _v_res1;;))
    496529  if ((_v_arg1.get_len () != 1))
    497530  {
     
    585618          Expr _ve__e__e_tmp_m__s__s_JavaMangle_s_refal_s_JavaManglerf_m_89_m_36 (_v_lsplit__Conv_m_Table, 1, _v_len___e__e_tmp_m__s__s_JavaMangle_s_refal_s_JavaManglerf_m_89_m_36);
    586619          Expr _ve_code (_v_deref__lsplit__Conv_m_Table, 1, _v_len__code);
    587           _v_res1 = (_c_13 + _ve_code + _c_13);
     620          _v_res1 = (_c_1 + _ve_code + _c_1);
    588621          goto _exit2;
    589622        }
     
    596629    Expr _v_Char_m_To_m_Unicode1;
    597630    RF_CALL (Char_m_To_m_Unicode, _vs_char, _v_Char_m_To_m_Unicode1);
    598     _v_res1 = (_c_13 + _v_Char_m_To_m_Unicode1 + _c_13);
     631    _v_res1 = (_c_1 + _v_Char_m_To_m_Unicode1 + _c_1);
    599632  }
    600633_block1: {}
     
    664697    {
    665698      uintptr_t _v_len1 = _v_To_m_Chars1.get_len ();
    666       uintptr_t _v_len2 = 3;
    667       if ((_v_len1 < _v_len2))
     699      uintptr_t _v_len2 = (1 + 1 + 1);
     700      if (((_v_len1 < (_v_len2 + (0 * 1)))))
    668701      {
    669702        goto _block1__branch1;
    670703      }
    671       uintptr_t _v_len__name = (_v_len1 - _v_len2);
     704      if (((_v_len1 - _v_len2) % 1))
     705      {
     706        goto _block1__branch1;
     707      }
     708      uintptr_t _v_len__name = ((_v_len1 - _v_len2) / 1);
    672709      if (!_c_17.eq (_v_To_m_Chars1, 0))
    673710      {
    674711        goto _block1__branch1;
    675712      }
    676       Expr _ve_name (_v_To_m_Chars1, 3, _v_len__name);
     713      Expr _ve_name (_v_To_m_Chars1, (0 + 1 + 1 + 1), _v_len__name);
    677714      _v_auxblock1 = _ve_name;
    678715      goto _block1;
     
    681718    uintptr_t _v_len3 = _v_To_m_Chars1.get_len ();
    682719    uintptr_t _v_len4 = 0;
    683     if ((_v_len3 < _v_len4))
     720    if (((_v_len3 < (_v_len4 + (0 * 1)))))
    684721    {
    685722      RF_FUNC_ERROR (unexpected_fail);
    686723    }
    687     uintptr_t _v_len__name2 = (_v_len3 - _v_len4);
     724    if (((_v_len3 - _v_len4) % 1))
     725    {
     726      RF_FUNC_ERROR (unexpected_fail);
     727    }
     728    uintptr_t _v_len__name2 = ((_v_len3 - _v_len4) / 1);
    688729    Expr _ve_name (_v_To_m_Chars1, 0, _v_len__name2);
    689730    _v_auxblock1 = _ve_name;
     
    693734    {
    694735      uintptr_t _v_len5 = _v_auxblock1.get_len ();
    695       uintptr_t _v_len6 = 4;
    696       if ((_v_len5 < _v_len6))
     736      uintptr_t _v_len6 = (1 + 1 + 1 + 1);
     737      if (((_v_len5 < (_v_len6 + (0 * 1)))))
    697738      {
    698739        goto _block2__branch1;
    699740      }
    700       uintptr_t _v_len__name3 = (_v_len5 - _v_len6);
    701       if (!_c_3.eq (_v_auxblock1, 0))
     741      if (((_v_len5 - _v_len6) % 1))
    702742      {
    703743        goto _block2__branch1;
    704744      }
    705       Expr _ve_name (_v_auxblock1, 4, _v_len__name3);
     745      uintptr_t _v_len__name3 = ((_v_len5 - _v_len6) / 1);
     746      if (!_c_32.eq (_v_auxblock1, 0))
     747      {
     748        goto _block2__branch1;
     749      }
     750      Expr _ve_name (_v_auxblock1, (0 + 1 + 1 + 1 + 1), _v_len__name3);
    706751      Expr _v_Chars2Rfp1;
    707752      if (!RF_CALL (Chars2Rfp, _ve_name, _v_Chars2Rfp1))
     
    709754        RF_RETFAIL;
    710755      }
    711       _v_res1 = (_c_2 + _v_Chars2Rfp1 ()) ();
     756      _v_res1 = (_c_3 + _v_Chars2Rfp1 ()) ();
    712757      goto _block2;
    713758    }
     
    715760    {
    716761      uintptr_t _v_len7 = _v_auxblock1.get_len ();
    717       uintptr_t _v_len8 = 4;
    718       if ((_v_len7 < _v_len8))
     762      uintptr_t _v_len8 = (1 + 1 + 1 + 1);
     763      if (((_v_len7 < (_v_len8 + (0 * 1)))))
    719764      {
    720765        goto _block2__branch2;
    721766      }
    722       uintptr_t _v_len__name4 = (_v_len7 - _v_len8);
    723       if (!_c_5.eq (_v_auxblock1, 0))
     767      if (((_v_len7 - _v_len8) % 1))
    724768      {
    725769        goto _block2__branch2;
    726770      }
    727       Expr _ve_name (_v_auxblock1, 4, _v_len__name4);
     771      uintptr_t _v_len__name4 = ((_v_len7 - _v_len8) / 1);
     772      if (!_c_33.eq (_v_auxblock1, 0))
     773      {
     774        goto _block2__branch2;
     775      }
     776      Expr _ve_name (_v_auxblock1, (0 + 1 + 1 + 1 + 1), _v_len__name4);
    728777      Expr _v_Chars2Rfp2;
    729778      if (!RF_CALL (Chars2Rfp, _ve_name, _v_Chars2Rfp2))
     
    731780        RF_RETFAIL;
    732781      }
    733       _v_res1 = (_c_4 + _v_Chars2Rfp2 ()) ();
     782      _v_res1 = (_c_5 + _v_Chars2Rfp2 ()) ();
    734783      goto _block2;
    735784    }
     
    737786    {
    738787      uintptr_t _v_len9 = _v_auxblock1.get_len ();
    739       uintptr_t _v_len10 = 4;
    740       if ((_v_len9 < _v_len10))
     788      uintptr_t _v_len10 = (1 + 1 + 1 + 1);
     789      if (((_v_len9 < (_v_len10 + (0 * 1)))))
    741790      {
    742791        goto _block2__branch3;
    743792      }
    744       uintptr_t _v_len__name5 = (_v_len9 - _v_len10);
    745       if (!_c_7.eq (_v_auxblock1, 0))
     793      if (((_v_len9 - _v_len10) % 1))
    746794      {
    747795        goto _block2__branch3;
    748796      }
    749       Expr _ve_name (_v_auxblock1, 4, _v_len__name5);
     797      uintptr_t _v_len__name5 = ((_v_len9 - _v_len10) / 1);
     798      if (!_c_34.eq (_v_auxblock1, 0))
     799      {
     800        goto _block2__branch3;
     801      }
     802      Expr _ve_name (_v_auxblock1, (0 + 1 + 1 + 1 + 1), _v_len__name5);
    750803      Expr _v_Chars2Rfp3;
    751804      if (!RF_CALL (Chars2Rfp, _ve_name, _v_Chars2Rfp3))
     
    753806        RF_RETFAIL;
    754807      }
    755       _v_res1 = (_c_6 + _v_Chars2Rfp3 ()) ();
     808      _v_res1 = (_c_7 + _v_Chars2Rfp3 ()) ();
    756809      goto _block2;
    757810    }
     
    759812    {
    760813      uintptr_t _v_len11 = _v_auxblock1.get_len ();
    761       uintptr_t _v_len12 = 4;
    762       if ((_v_len11 < _v_len12))
     814      uintptr_t _v_len12 = (1 + 1 + 1 + 1);
     815      if (((_v_len11 < (_v_len12 + (0 * 1)))))
    763816      {
    764817        goto _block2__branch4;
    765818      }
    766       uintptr_t _v_len__name6 = (_v_len11 - _v_len12);
    767       if (!_c_9.eq (_v_auxblock1, 0))
     819      if (((_v_len11 - _v_len12) % 1))
    768820      {
    769821        goto _block2__branch4;
    770822      }
    771       Expr _ve_name (_v_auxblock1, 4, _v_len__name6);
     823      uintptr_t _v_len__name6 = ((_v_len11 - _v_len12) / 1);
     824      if (!_c_35.eq (_v_auxblock1, 0))
     825      {
     826        goto _block2__branch4;
     827      }
     828      Expr _ve_name (_v_auxblock1, (0 + 1 + 1 + 1 + 1), _v_len__name6);
    772829      Expr _v_Chars2Rfp4;
    773830      if (!RF_CALL (Chars2Rfp, _ve_name, _v_Chars2Rfp4))
     
    775832        RF_RETFAIL;
    776833      }
    777       _v_res1 = (_c_8 + _v_Chars2Rfp4 ()) ();
     834      _v_res1 = (_c_9 + _v_Chars2Rfp4 ()) ();
    778835      goto _block2;
    779836    }
     
    781838    uintptr_t _v_len13 = _v_auxblock1.get_len ();
    782839    uintptr_t _v_len14 = 0;
    783     if ((_v_len13 < _v_len14))
     840    if (((_v_len13 < (_v_len14 + (0 * 1)))))
    784841    {
    785842      RF_RETFAIL;
    786843    }
    787     uintptr_t _v_len__name7 = (_v_len13 - _v_len14);
     844    if (((_v_len13 - _v_len14) % 1))
     845    {
     846      RF_RETFAIL;
     847    }
     848    uintptr_t _v_len__name7 = ((_v_len13 - _v_len14) / 1);
    788849    Expr _ve_name (_v_auxblock1, 0, _v_len__name7);
    789850    RF_TAILCALL (Qualifiers2Rfp, _ve_name, _v_res1);
     
    795856  {
    796857    {
    797       if ((_v_arg1.get_len () < 1))
     858      if (((_v_arg1.get_len () < (1 + 1 + 0 + 0))))
    798859      {
    799860        goto _block1__branch1;
     
    808869          }
    809870          uintptr_t _v_len1 = _v_lsplit__arg1.get_len ();
    810           uintptr_t _v_len2 = 1;
    811           if ((_v_len1 < _v_len2))
     871          uintptr_t _v_len2 = (1 + 1);
     872          if (((_v_len1 < (_v_len2 + (0 * 1)))))
    812873          {
    813874            goto _block1__branch1;
    814875          }
    815           uintptr_t _v_len__rest = (_v_len1 - _v_len2);
    816           if (!java__specific::Namespace_m_Delimeter.term_eq (_v_lsplit__arg1, 0))
     876          if (((_v_len1 - _v_len2) % 1))
    817877          {
    818878            goto _continue1;
    819879          }
    820           Expr _ve_rest (_v_lsplit__arg1, 1, _v_len__rest);
     880          uintptr_t _v_len__rest = ((_v_len1 - _v_len2) / 1);
     881          if (!java__specific::Namespace_m_Delimeter.eq (_v_lsplit__arg1, 0))
     882          {
     883            goto _continue1;
     884          }
     885          Expr _ve_rest (_v_lsplit__arg1, (0 + 1 + 1), _v_len__rest);
    821886          Expr _v_Chars2Rfp1;
    822887          if (!RF_CALL (Chars2Rfp, _ve_qualifier, _v_Chars2Rfp1))
     
    858923  {
    859924    {
    860       if ((_v_arg1.get_len () < 2))
     925      if (((_v_arg1.get_len () < (1 + 1 + 0 + 0))))
    861926      {
    862927        goto _block1__branch1;
    863928      }
    864       if (!_c_13.term_eq (_v_arg1, 0))
     929      if (!_c_1.term_eq (_v_arg1, 0))
    865930      {
    866931        goto _block1__branch1;
    867932      }
    868       Expr _v_subexpr__arg1 (_v_arg1, 1, (_v_arg1.get_len () - 1));
     933      Expr _v_subexpr__arg1 (_v_arg1, (0 + 1), (_v_arg1.get_len () - (0 + 1 + 0)));
    869934      RF_lsplit (_v_subexpr__arg1, 0, _ve_code, _v_lsplit__arg1);
    870935      for ( ; ; RF_iter(_v_subexpr__arg1)++)
     
    877942          uintptr_t _v_len1 = _v_lsplit__arg1.get_len ();
    878943          uintptr_t _v_len2 = 1;
    879           if ((_v_len1 < _v_len2))
     944          if (((_v_len1 < (_v_len2 + (0 * 1)))))
    880945          {
    881946            goto _block1__branch1;
    882947          }
    883           uintptr_t _v_len__rest = (_v_len1 - _v_len2);
    884           if (!_c_13.term_eq (_v_lsplit__arg1, 0))
     948          if (((_v_len1 - _v_len2) % 1))
    885949          {
    886950            goto _continue1;
    887951          }
    888           Expr _ve_rest (_v_lsplit__arg1, 1, _v_len__rest);
     952          uintptr_t _v_len__rest = ((_v_len1 - _v_len2) / 1);
     953          if (!_c_1.term_eq (_v_lsplit__arg1, 0))
     954          {
     955            goto _continue1;
     956          }
     957          Expr _ve_rest (_v_lsplit__arg1, (0 + 1), _v_len__rest);
     958          if ((((1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1) < (1 + 0 + 0))))
     959          {
     960            RF_RETFAIL;
     961          }
    889962          RF_lsplit (Conv_m_Table, 0, _ve__e__e_tmp_m__s__s_JavaMangle_s_refal_s_JavaManglerf_m_132_m_20, _v_lsplit__Conv_m_Table);
    890963          for ( ; ; RF_iter(Conv_m_Table)++)
     
    897970              uintptr_t _v_len3 = _v_lsplit__Conv_m_Table.get_len ();
    898971              uintptr_t _v_len4 = 1;
    899               if ((_v_len3 < _v_len4))
     972              if (((_v_len3 < (_v_len4 + (0 * 1)))))
    900973              {
    901974                RF_RETFAIL;
    902975              }
    903               uintptr_t _v_len___e__e_tmp_m__s__s_JavaMangle_s_refal_s_JavaManglerf_m_132_m_38 = (_v_len3 - _v_len4);
     976              if (((_v_len3 - _v_len4) % 1))
     977              {
     978                goto _continue2;
     979              }
     980              uintptr_t _v_len___e__e_tmp_m__s__s_JavaMangle_s_refal_s_JavaManglerf_m_132_m_38 = ((_v_len3 - _v_len4) / 1);
    904981              if (_v_lsplit__Conv_m_Table.symbol_at (0))
    905982              {
     
    907984              }
    908985              Expr _v_deref__lsplit__Conv_m_Table (_v_lsplit__Conv_m_Table, 0);
    909               if ((_v_deref__lsplit__Conv_m_Table.get_len () != (_ve_code.get_len () + 1)))
     986              if ((_v_deref__lsplit__Conv_m_Table.get_len () != (1 + _ve_code.get_len ())))
    910987              {
    911988                goto _continue2;
     
    915992                goto _continue2;
    916993              }
    917               if (!_ve_code.eq (_v_deref__lsplit__Conv_m_Table, 1))
     994              if (!_ve_code.eq (_v_deref__lsplit__Conv_m_Table, (0 + 1)))
    918995              {
    919996                goto _continue2;
    920997              }
    921               Expr _ve__e__e_tmp_m__s__s_JavaMangle_s_refal_s_JavaManglerf_m_132_m_38 (_v_lsplit__Conv_m_Table, 1, _v_len___e__e_tmp_m__s__s_JavaMangle_s_refal_s_JavaManglerf_m_132_m_38);
     998              Expr _ve__e__e_tmp_m__s__s_JavaMangle_s_refal_s_JavaManglerf_m_132_m_38 (_v_lsplit__Conv_m_Table, (0 + 1), _v_len___e__e_tmp_m__s__s_JavaMangle_s_refal_s_JavaManglerf_m_132_m_38);
    922999              Expr _vs_char (_v_deref__lsplit__Conv_m_Table, 0, 1);
    9231000              Expr _v_Codes2Rfp1;
     
    9431020      uintptr_t _v_len5 = _v_arg1.get_len ();
    9441021      uintptr_t _v_len6 = 1;
    945       if ((_v_len5 < _v_len6))
     1022      if (((_v_len5 < (_v_len6 + (0 * 1)))))
    9461023      {
    9471024        goto _block1__branch2;
    9481025      }
    949       uintptr_t _v_len__rest2 = (_v_len5 - _v_len6);
     1026      if (((_v_len5 - _v_len6) % 1))
     1027      {
     1028        goto _block1__branch2;
     1029      }
     1030      uintptr_t _v_len__rest2 = ((_v_len5 - _v_len6) / 1);
    9501031      if (!_v_arg1.symbol_at (0))
    9511032      {
     
    9531034      }
    9541035      Expr _vs_char (_v_arg1, 0, 1);
    955       Expr _ve_rest (_v_arg1, 1, _v_len__rest2);
     1036      Expr _ve_rest (_v_arg1, (0 + 1), _v_len__rest2);
    9561037      {
    9571038        {
     
    9681049        }
    9691050        {
    970           if (!_vs_char.term_eq (_c_32, 0))
    971           {
    972             goto _negation1;
    973           }
     1051          {
     1052            if ((1 != 1))
     1053            {
     1054              goto _negation1;
     1055            }
     1056            if (!_vs_char.term_eq (_c_36, 0))
     1057            {
     1058              goto _negation1;
     1059            }
     1060          }
     1061        _block3: {}
    9741062          RF_RETFAIL;
    9751063        }
     
    9981086  uintptr_t _v_len1 = _v_arg1.get_len ();
    9991087  uintptr_t _v_len2 = 0;
    1000   if ((_v_len1 < _v_len2))
    1001   {
    1002     RF_ERROR (_c_33);
    1003   }
    1004   uintptr_t _v_len__stub1 = (_v_len1 - _v_len2);
     1088  if (((_v_len1 < (_v_len2 + (0 * 1)))))
     1089  {
     1090    RF_ERROR (_c_37);
     1091  }
     1092  if (((_v_len1 - _v_len2) % 1))
     1093  {
     1094    RF_ERROR (_c_37);
     1095  }
     1096  uintptr_t _v_len__stub1 = ((_v_len1 - _v_len2) / 1);
    10051097  Expr _v_stub1 (_v_arg1, 0, _v_len__stub1);
    10061098  if (!RF_CALL (java__specific::Reserved_m_Word_q_, _v_stub1, /*void*/))
     
    10181110static void init_ ()
    10191111{
    1020   Conv_m_Table = (Char::create_expr ("!e")) () + (Char::create_expr ("?q")) () + (Char::create_expr ("_")) () + (Char::create_expr ("-m")) () + (Char::create_expr ("+p")) () + (Char::create_expr ("<lt")) () + (Char::create_expr (">gt")) () + (Char::create_expr ("=eq")) () + (Char::create_expr ("*a")) () + (Char::create_expr ("/s")) () + (Char::create_expr (" sp")) () + (Char::create_expr ("\\bs")) () + (Char::create_expr ("|bar")) () + (Char::create_expr ("~tilde")) () + (Char::create_expr ("@at")) () + (Char::create_expr ("#num")) () + (Char::create_expr ("$dollar")) () + (Char::create_expr ("%percnt")) () + (Char::create_expr ("^circ")) () + (Char::create_expr ("&amp")) () + (Char::create_expr ("(lpar")) () + (Char::create_expr (")rpar")) () + (Char::create_expr ("[lsqb")) () + (Char::create_expr ("]rsqb")) () + (Char::create_expr ("{lcub")) () + (Char::create_expr ("}rcub")) () + (Char::create_expr ("`grave")) () + (Char::create_expr ("'apos")) () + (Char::create_expr ("\"quot")) () + (Char::create_expr (",comma")) () + (Char::create_expr (".period")) () + (Char::create_expr (":colon")) () + (Char::create_expr (";semi")) ();
     1112  Conv_m_Table = (Char::create_expr (L"!e")) () + (Char::create_expr (L"?q")) () + (Char::create_expr (L"_")) () + (Char::create_expr (L"-m")) () + (Char::create_expr (L"+p")) () + (Char::create_expr (L"<lt")) () + (Char::create_expr (L">gt")) () + (Char::create_expr (L"=eq")) () + (Char::create_expr (L"*a")) () + (Char::create_expr (L"/s")) () + (Char::create_expr (L" sp")) () + (Char::create_expr (L"\\bs")) () + (Char::create_expr (L"|bar")) () + (Char::create_expr (L"~tilde")) () + (Char::create_expr (L"@at")) () + (Char::create_expr (L"#num")) () + (Char::create_expr (L"$dollar")) () + (Char::create_expr (L"%percnt")) () + (Char::create_expr (L"^circ")) () + (Char::create_expr (L"&amp")) () + (Char::create_expr (L"(lpar")) () + (Char::create_expr (L")rpar")) () + (Char::create_expr (L"[lsqb")) () + (Char::create_expr (L"]rsqb")) () + (Char::create_expr (L"{lcub")) () + (Char::create_expr (L"}rcub")) () + (Char::create_expr (L"`grave")) () + (Char::create_expr (L"'apos")) () + (Char::create_expr (L"\"quot")) () + (Char::create_expr (L",comma")) () + (Char::create_expr (L".period")) () + (Char::create_expr (L":colon")) () + (Char::create_expr (L";semi")) ();
    10211113  _c_0 = Expr::create<Word>("VAR");
    1022   _c_1 = Char::create_expr ("_v_");
    1023   _c_2 = Expr::create<Word>("EVAR");
    1024   _c_3 = Char::create_expr ("_ve_");
    1025   _c_4 = Expr::create<Word>("VVAR");
    1026   _c_5 = Char::create_expr ("_vv_");
    1027   _c_6 = Expr::create<Word>("TVAR");
    1028   _c_7 = Char::create_expr ("_vt_");
    1029   _c_8 = Expr::create<Word>("SVAR");
    1030   _c_9 = Char::create_expr ("_vs_");
    1031   _c_10 = Expr::create<Word>("STATIC");
    1032   _c_11 = Char::create_expr ("_c_");
    1033   _c_12 = Expr::create<Word>("LABEL");
    1034   _c_13 = Expr (_c_11, 0, 1);
     1114  _c_32 = Char::create_expr (L"_ve_");
     1115  _c_4 = Expr (_c_32, 0, 3);
     1116  _c_2 = Expr (_c_4, 0, 2);
     1117  _c_1 = Expr (_c_2, 0, 1);
     1118  _c_3 = Expr::create<Word>("EVAR");
     1119  _c_5 = Expr::create<Word>("VVAR");
     1120  _c_33 = Char::create_expr (L"_vv_");
     1121  _c_6 = Expr (_c_33, 0, 3);
     1122  _c_7 = Expr::create<Word>("TVAR");
     1123  _c_34 = Char::create_expr (L"_vt_");
     1124  _c_8 = Expr (_c_34, 0, 3);
     1125  _c_9 = Expr::create<Word>("SVAR");
     1126  _c_35 = Char::create_expr (L"_vs_");
     1127  _c_10 = Expr (_c_35, 0, 3);
     1128  _c_11 = Expr::create<Word>("STATIC");
     1129  _c_12 = Char::create_expr (L"_c_");
     1130  _c_13 = Expr::create<Word>("LABEL");
    10351131  _c_14 = Expr::create<Word>("OBJ");
    1036   _c_15 = Expr::create_sym<Func> (Qualifier2Cpp);
     1132  _c_15 = Expr::create_sym<Func> (Qualifier2Java);
    10371133  _c_16 = Expr::create_sym<Func> (Reserved_m_Word_q___0);
    1038   _c_17 = Char::create_expr ("_r_");
    1039   _c_18 = Expr::create_sym<Func> (A_m_Char2Cpp);
    1040   _c_19 = Char::create_expr ("?!");
    1041   _c_20 = Char::create_expr ("b");
    1042   _c_21 = Char::create_expr ("08");
    1043   _c_22 = Char::create_expr ("\t");
    1044   _c_23 = Char::create_expr ("09");
    1045   _c_24 = Char::create_expr ("\n");
    1046   _c_25 = Char::create_expr ("0A");
    1047   _c_26 = Expr (_c_9, 1, 1);
    1048   _c_27 = Char::create_expr ("0B");
    1049   _c_28 = Char::create_expr ("f");
    1050   _c_29 = Char::create_expr ("0C");
    1051   _c_30 = Char::create_expr ("\r");
    1052   _c_31 = Char::create_expr ("0D");
    1053   _c_32 = Expr (_c_19, 0, 1);
    1054   _c_33 = Expr::create<Word>("Apply") + Expr::create<Word>("Apply") + Expr::create<Word>("Unexpected fail");
     1134  _c_17 = Char::create_expr (L"_r_");
     1135  _c_18 = Expr::create_sym<Func> (A_m_Char2Java);
     1136  _c_19 = Char::create_expr (L"?!");
     1137  _c_20 = Char::create_expr (L"b");
     1138  _c_21 = Char::create_expr (L"08");
     1139  _c_22 = Char::create_expr (L"\t");
     1140  _c_23 = Char::create_expr (L"09");
     1141  _c_24 = Char::create_expr (L"\n");
     1142  _c_25 = Char::create_expr (L"0A");
     1143  _c_26 = Expr (_c_2, 1, 1);
     1144  _c_27 = Char::create_expr (L"0B");
     1145  _c_28 = Char::create_expr (L"f");
     1146  _c_29 = Char::create_expr (L"0C");
     1147  _c_30 = Char::create_expr (L"\r");
     1148  _c_31 = Char::create_expr (L"0D");
     1149  _c_36 = Expr (_c_19, 0, 1);
     1150  _c_37 = Expr::create<Word>("Apply") + Expr::create<Word>("Apply") + Expr::create<Word>("Unexpected fail");
    10551151}
    10561152
Note: See TracChangeset for help on using the changeset viewer.