Changeset 3452


Ignore:
Timestamp:
Feb 29, 2008, 6:25:35 PM (13 years ago)
Author:
yura
Message:
Location:
to-imperative/trunk/java/compiler/org/refal/plus
Files:
2 deleted
2 edited

Legend:

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

    r3428 r3452  
    942942  }
    943943
    944   @RefalFormat("$func RFP_Src_InitFromEnv s = ;")
    945   static public void RFP_Src_InitFromEnv (Expr _vs_env) throws RefalException
    946   {
    947     refal.plus.Box.Store (Env, _vs_env);
    948   }
    949 
    950944  @RefalFormat("$func Env_GetImplementationReader t = (e) (e) (e);")
    951   static  void Env_GetImplementationReader (Expr _vt__dollar_tmp_m_159_m_30, Result _v_res1, Result _v_res2, Result _v_res3) throws RefalException
     945  static  void Env_GetImplementationReader (Expr _vt__dollar_tmp_m_160_m_30, Result _v_res1, Result _v_res2, Result _v_res3) throws RefalException
    952946  {
    953947    Result _v_Get1 = new Result (Expr.empty);
  • to-imperative/trunk/java/compiler/org/refal/plus/compiler/rfpc.java

    r3426 r3452  
    180180  static  final Expr _c_121 = Expr.getConcatenator (3).toRight (Symbol.newWord ("Apply")).toRight (Symbol.newWord ("Apply")).toRight (Symbol.newWord ("Unexpected fail")).yield ();
    181181
    182   @RefalFormat("$func CompileModule s = ;")
    183   static public void CompileModule (Expr _vs_env) throws RefalException
    184   {
    185     rfp_src.RFP_Src_InitFromEnv (_vs_env);
    186     Expr _gt_auxalt2 = Expr.empty;
    187     _block1: {
    188       _block1__branch1: {
    189         Result _gs_auxcall1 = new Result (Expr.empty);
    190         org.refal.plus.wrappers.org.refal.plus.comp.CompilerEnvironment.GetModuleName (_vs_env, _gs_auxcall1);
    191         Result _va_1 = new Result ();
    192         if (!rfp_parse.RFP_Parser (_gs_auxcall1.getExpr (), _va_1))
    193         {
    194           break _block1__branch1;
    195         }
    196         _gt_auxalt2 = _va_1.getExpr ();
    197         break _block1;
    198       }
    199       Result _v_RFP__Parser__Errors1 = new Result (Expr.empty);
    200       rfp_parse.RFP_Parser_Errors (_v_RFP__Parser__Errors1);
    201       throw new RefalException (_v_RFP__Parser__Errors1.getExpr ());
    202     }
    203     if (_gt_auxalt2.isSymbolAt (0))
    204     {
    205       throw new RefalException ("org.refal.plus.compiler.rfpc", "CompileModule", "Unexpected fail");
    206     }
    207     Expr _v_deref__auxalt2 = (Expr) _gt_auxalt2.at (0);
    208     int _v_len1 = _v_deref__auxalt2.length ();
    209     int _v_len2 = 2;
    210     if (_v_len1 < _v_len2)
    211     {
    212       throw new RefalException ("org.refal.plus.compiler.rfpc", "CompileModule", "Unexpected fail");
    213     }
    214     int _v_len__Items = (_v_len1 - _v_len2);
    215     if (!_v_deref__auxalt2.isSymbolAt (0))
    216     {
    217       throw new RefalException ("org.refal.plus.compiler.rfpc", "CompileModule", "Unexpected fail");
    218     }
    219     Expr _vs__dollar_tmp_m_75_m_9 = Expr.empty;
    220     _vs__dollar_tmp_m_75_m_9 = _v_deref__auxalt2.subexpr (0, 1);
    221     Expr _vt_ModuleName = Expr.empty;
    222     _vt_ModuleName = _v_deref__auxalt2.subexpr ((0 + 1), 1);
    223     Expr _ve_Items = Expr.empty;
    224     _ve_Items = _v_deref__auxalt2.subexpr ((0 + 1 + 1), _v_len__Items);
    225     Get_Ready_For_Compilation (_ve_Items);
    226     rfp_check.RFP_Check (_ve_Items);
    227     Result _va_2 = new Result ();
    228     rfp_as2as.RFP_As2As_Transform (_ve_Items, _va_2);
    229     _ve_Items = _va_2.getExpr ();
    230     Result _vt_module = new Result (Expr.empty);
    231     rfp_compile.RFP_Compile (_vt_ModuleName, _ve_Items, _vt_module);
    232     Expr _gt_module__2 = Expr.empty;
    233     _block2: {
    234       _block2__branch1: {
    235         if (!refal.plus.Table.IsInTable (rfp_helper.RFP_Options, _c_0))
    236         {
    237           break _block2__branch1;
    238         }
    239         _gt_module__2 = _vt_module.getExpr ();
    240         break _block2;
    241       }
    242       Result _va_3 = new Result ();
    243       rfp_asail2asail.Simplify_ASAIL (_vt_module.getExpr (), _va_3);
    244       _gt_module__2 = _va_3.getExpr ();
    245     }
    246     _block3__branch1: {
    247       Result _v_RFP__ASAIL__To__JBC1 = new Result (Expr.empty);
    248       rfp_asail_jbc.RFP_ASAIL_To_JBC (_gt_module__2, _v_RFP__ASAIL__To__JBC1);
    249       if (_v_RFP__ASAIL__To__JBC1.getExpr ().length () < 1)
    250       {
    251         break _block3__branch1;
    252       }
    253       Expr.SplitIterator _va_4 = _v_RFP__ASAIL__To__JBC1.getExpr ().leftSplit(0);
    254       _exit1: _continue1: for ( ; ; _va_4.next ())
    255       {
    256         Expr _ve__dollar_tmp_m_85_m_36 = _va_4.getLeft();
    257         Expr _v_lsplit__RFP__ASAIL__To__JBC1 = _va_4.getRight();
    258         if (!_va_4.isValid ())
    259         {
    260           break _block3__branch1;
    261         }
    262         int _v_len3 = _v_lsplit__RFP__ASAIL__To__JBC1.length ();
    263         int _v_len4 = 1;
    264         if (_v_len3 < _v_len4)
    265         {
    266           break _block3__branch1;
    267         }
    268         int _v_len___dollar_tmp_m_85_m_70 = (_v_len3 - _v_len4);
    269         if (_v_lsplit__RFP__ASAIL__To__JBC1.isSymbolAt (0))
    270         {
    271           continue _continue1;
    272         }
    273         Expr _v_deref__lsplit__RFP__ASAIL__To__JBC1 = (Expr) _v_lsplit__RFP__ASAIL__To__JBC1.at (0);
    274         int _v_len5 = _v_deref__lsplit__RFP__ASAIL__To__JBC1.length ();
    275         int _v_len6 = 1;
    276         if (_v_len5 < _v_len6)
    277         {
    278           continue _continue1;
    279         }
    280         int _v_len__java__module__name = (_v_len5 - _v_len6);
    281         if (!_v_deref__lsplit__RFP__ASAIL__To__JBC1.isSymbolAt (0))
    282         {
    283           continue _continue1;
    284         }
    285         Expr _ve__dollar_tmp_m_85_m_70 = Expr.empty;
    286         _ve__dollar_tmp_m_85_m_70 = _v_lsplit__RFP__ASAIL__To__JBC1.subexpr ((0 + 1), _v_len___dollar_tmp_m_85_m_70);
    287         Expr _vs_bytecode = Expr.empty;
    288         _vs_bytecode = _v_deref__lsplit__RFP__ASAIL__To__JBC1.subexpr (0, 1);
    289         Expr _ve_java__module__name = Expr.empty;
    290         _ve_java__module__name = _v_deref__lsplit__RFP__ASAIL__To__JBC1.subexpr ((0 + 1), _v_len__java__module__name);
    291         Result _ge_auxcall3 = new Result (Expr.empty);
    292         refal.plus.List.Intersperse (_c_1, _ve_java__module__name, _ge_auxcall3);
    293         Result _gs_auxcall4 = new Result (Expr.empty);
    294         refal.plus.Convert.ToWord (_ge_auxcall3.getExpr (), _gs_auxcall4);
    295         org.refal.plus.wrappers.org.refal.plus.comp.CompilerEnvironment.MakeClass (_vs_env, _gs_auxcall4.getExpr (), _vs_bytecode);
    296       }
    297     }
    298   }
    299 
    300   @RefalFormat("$func CompileASToJBC s t = ;")
    301   static public void CompileASToJBC (Expr _vs_env, Expr _vt_as) throws RefalException
     182  @RefalFormat("$func CompileASToJBC t = e;")
     183  static public void CompileASToJBC (Expr _vt_as, Result _v_res1) throws RefalException
    302184  {
    303185    if (_vt_as.isSymbolAt (0))
     
    317199      throw new RefalException ("org.refal.plus.compiler.rfpc", "CompileASToJBC", "Unexpected fail");
    318200    }
    319     Expr _vs__dollar_tmp_m_92_m_12 = Expr.empty;
    320     _vs__dollar_tmp_m_92_m_12 = _v_deref__as.subexpr (0, 1);
     201    Expr _vs__dollar_tmp_m_70_m_12 = Expr.empty;
     202    _vs__dollar_tmp_m_70_m_12 = _v_deref__as.subexpr (0, 1);
    321203    Expr _vt_ModuleName = Expr.empty;
    322204    _vt_ModuleName = _v_deref__as.subexpr ((0 + 1), 1);
     
    324206    _ve_Items = _v_deref__as.subexpr ((0 + 1 + 1), _v_len__Items);
    325207    Get_Ready_For_Compilation (_ve_Items);
    326     Result _va_5 = new Result ();
    327     rfp_as2as.RFP_As2As_Transform (_ve_Items, _va_5);
    328     _ve_Items = _va_5.getExpr ();
     208    Result _va_1 = new Result ();
     209    rfp_as2as.RFP_As2As_Transform (_ve_Items, _va_1);
     210    _ve_Items = _va_1.getExpr ();
    329211    Result _vt_module = new Result (Expr.empty);
    330212    rfp_compile.RFP_Compile (_vt_ModuleName, _ve_Items, _vt_module);
     
    339221        break _block1;
    340222      }
    341       Result _va_6 = new Result ();
    342       rfp_asail2asail.Simplify_ASAIL (_vt_module.getExpr (), _va_6);
    343       _gt_module__1 = _va_6.getExpr ();
     223      Result _va_2 = new Result ();
     224      rfp_asail2asail.Simplify_ASAIL (_vt_module.getExpr (), _va_2);
     225      _gt_module__1 = _va_2.getExpr ();
    344226    }
    345     _block2__branch1: {
    346       Result _v_RFP__ASAIL__To__JBC1 = new Result (Expr.empty);
    347       rfp_asail_jbc.RFP_ASAIL_To_JBC (_gt_module__1, _v_RFP__ASAIL__To__JBC1);
    348       if (_v_RFP__ASAIL__To__JBC1.getExpr ().length () < 1)
     227    Result _ge_auxcall1 = new Result (Expr.empty);
     228    rfp_asail_jbc.RFP_ASAIL_To_JBC (_gt_module__1, _ge_auxcall1);
     229    Expr _ve_jbcs = Expr.empty;
     230    Expr _ve_out = _ge_auxcall1.getExpr ();
     231    _exit__iter1: for ( ; ; )
     232    {
     233      _iter1: {
     234        if (_ve_out.length () != 0)
     235        {
     236          break _iter1;
     237        }
     238        _v_res1.assign (_ve_jbcs);
     239        break _exit__iter1;
     240      }
     241      int _v_len3 = _ve_out.length ();
     242      int _v_len4 = 1;
     243      if (_v_len3 < _v_len4)
    349244      {
    350         break _block2__branch1;
     245        throw new RefalException ("org.refal.plus.compiler.rfpc", "CompileASToJBC", "Unexpected fail");
    351246      }
    352       Expr.SplitIterator _va_7 = _v_RFP__ASAIL__To__JBC1.getExpr ().leftSplit(0);
    353       _exit1: _continue1: for ( ; ; _va_7.next ())
     247      int _v_len__outtail = (_v_len3 - _v_len4);
     248      if (_ve_out.isSymbolAt (0))
    354249      {
    355         Expr _ve__dollar_tmp_m_101_m_36 = _va_7.getLeft();
    356         Expr _v_lsplit__RFP__ASAIL__To__JBC1 = _va_7.getRight();
    357         if (!_va_7.isValid ())
    358         {
    359           break _block2__branch1;
    360         }
    361         int _v_len3 = _v_lsplit__RFP__ASAIL__To__JBC1.length ();
    362         int _v_len4 = 1;
    363         if (_v_len3 < _v_len4)
    364         {
    365           break _block2__branch1;
    366         }
    367         int _v_len___dollar_tmp_m_101_m_70 = (_v_len3 - _v_len4);
    368         if (_v_lsplit__RFP__ASAIL__To__JBC1.isSymbolAt (0))
    369         {
    370           continue _continue1;
    371         }
    372         Expr _v_deref__lsplit__RFP__ASAIL__To__JBC1 = (Expr) _v_lsplit__RFP__ASAIL__To__JBC1.at (0);
    373         int _v_len5 = _v_deref__lsplit__RFP__ASAIL__To__JBC1.length ();
    374         int _v_len6 = 1;
    375         if (_v_len5 < _v_len6)
    376         {
    377           continue _continue1;
    378         }
    379         int _v_len__java__module__name = (_v_len5 - _v_len6);
    380         if (!_v_deref__lsplit__RFP__ASAIL__To__JBC1.isSymbolAt (0))
    381         {
    382           continue _continue1;
    383         }
    384         Expr _ve__dollar_tmp_m_101_m_70 = Expr.empty;
    385         _ve__dollar_tmp_m_101_m_70 = _v_lsplit__RFP__ASAIL__To__JBC1.subexpr ((0 + 1), _v_len___dollar_tmp_m_101_m_70);
    386         Expr _vs_bytecode = Expr.empty;
    387         _vs_bytecode = _v_deref__lsplit__RFP__ASAIL__To__JBC1.subexpr (0, 1);
    388         Expr _ve_java__module__name = Expr.empty;
    389         _ve_java__module__name = _v_deref__lsplit__RFP__ASAIL__To__JBC1.subexpr ((0 + 1), _v_len__java__module__name);
    390         Result _ge_auxcall1 = new Result (Expr.empty);
    391         refal.plus.List.Intersperse (_c_1, _ve_java__module__name, _ge_auxcall1);
    392         Result _gs_auxcall2 = new Result (Expr.empty);
    393         refal.plus.Convert.ToWord (_ge_auxcall1.getExpr (), _gs_auxcall2);
    394         org.refal.plus.wrappers.org.refal.plus.comp.CompilerEnvironment.MakeClass (_vs_env, _gs_auxcall2.getExpr (), _vs_bytecode);
     250        throw new RefalException ("org.refal.plus.compiler.rfpc", "CompileASToJBC", "Unexpected fail");
    395251      }
     252      Expr _v_deref__out = (Expr) _ve_out.at (0);
     253      int _v_len5 = _v_deref__out.length ();
     254      int _v_len6 = 1;
     255      if (_v_len5 < _v_len6)
     256      {
     257        throw new RefalException ("org.refal.plus.compiler.rfpc", "CompileASToJBC", "Unexpected fail");
     258      }
     259      int _v_len__java__module__name = (_v_len5 - _v_len6);
     260      if (!_v_deref__out.isSymbolAt (0))
     261      {
     262        throw new RefalException ("org.refal.plus.compiler.rfpc", "CompileASToJBC", "Unexpected fail");
     263      }
     264      Expr _ve_outtail = Expr.empty;
     265      _ve_outtail = _ve_out.subexpr ((0 + 1), _v_len__outtail);
     266      Expr _vs_bytecode = Expr.empty;
     267      _vs_bytecode = _v_deref__out.subexpr (0, 1);
     268      Expr _ve_java__module__name = Expr.empty;
     269      _ve_java__module__name = _v_deref__out.subexpr ((0 + 1), _v_len__java__module__name);
     270      Result _ge_auxcall2 = new Result (Expr.empty);
     271      refal.plus.List.Intersperse (_c_1, _ve_java__module__name, _ge_auxcall2);
     272      Result _gs_auxcall3 = new Result (Expr.empty);
     273      refal.plus.Convert.ToWord (_ge_auxcall2.getExpr (), _gs_auxcall3);
     274      _ve_jbcs = Expr.concat (_ve_jbcs, (Comparable<?>) Expr.concat (_gs_auxcall3.getExpr (), _vs_bytecode));
     275      _ve_out = _ve_outtail;
    396276    }
    397277  }
    398278
    399   @RefalFormat("$func CompileASToJBC2 s t t = ;")
    400   static public void CompileASToJBC2 (Expr _gs_arg1, Expr _gt_arg2, Expr _gt_arg3) throws RefalException
     279  @RefalFormat("$func CompileASToJBC2 t t = e;")
     280  static public void CompileASToJBC2 (Expr _gt_arg1, Expr _gt_arg2, Result _v_res1) throws RefalException
    401281  {
    402     Expr _v_compose1 = Expr.getConcatenator ().toRight (_gs_arg1).toRight (_gt_arg2).toRight (_gt_arg3).yield ();
    403     if (_v_compose1.isSymbolAt ((0 + 1 + 1)))
     282    Expr _v_compose1 = Expr.concat (_gt_arg1, _gt_arg2);
     283    if (_v_compose1.isSymbolAt ((0 + 1)))
    404284    {
    405285      throw new RefalException ("org.refal.plus.compiler.rfpc", "CompileASToJBC2", "Unexpected fail");
    406286    }
    407     Expr _v_deref__compose1 = (Expr) _v_compose1.at ((0 + 1 + 1));
     287    Expr _v_deref__compose1 = (Expr) _v_compose1.at ((0 + 1));
    408288    int _v_len1 = _v_deref__compose1.length ();
    409289    int _v_len2 = 0;
     
    413293    }
    414294    int _v_len__callList = (_v_len1 - _v_len2);
    415     if (!_v_compose1.isSymbolAt (0))
    416     {
    417       throw new RefalException ("org.refal.plus.compiler.rfpc", "CompileASToJBC2", "Unexpected fail");
    418     }
    419     Expr _vs_env = Expr.empty;
    420     _vs_env = _v_compose1.subexpr (0, 1);
    421295    Expr _vt_as = Expr.empty;
    422     _vt_as = _v_compose1.subexpr ((0 + 1), 1);
     296    _vt_as = _v_compose1.subexpr (0, 1);
    423297    Expr _ve_callList = Expr.empty;
    424298    _ve_callList = _v_deref__compose1.subexpr (0, _v_len__callList);
    425299    refal.plus.Box.Store (CallList, _ve_callList);
    426     CompileASToJBC (_vs_env, _vt_as);
     300    CompileASToJBC (_vt_as, _v_res1);
    427301  }
    428302
     
    479353              break _block3__branch1;
    480354            }
    481             Expr.SplitIterator _va_8 = _v_Get2.getExpr ().leftSplit(0);
    482             _exit1: _continue1: for ( ; ; _va_8.next ())
     355            Expr.SplitIterator _va_3 = _v_Get2.getExpr ().leftSplit(0);
     356            _exit1: _continue1: for ( ; ; _va_3.next ())
    483357            {
    484               Expr _ve__dollar_tmp_m_127_m_31 = _va_8.getLeft();
    485               Expr _v_lsplit__Get2 = _va_8.getRight();
    486               if (!_va_8.isValid ())
     358              Expr _ve__dollar_tmp_m_104_m_31 = _va_3.getLeft();
     359              Expr _v_lsplit__Get2 = _va_3.getRight();
     360              if (!_va_3.isValid ())
    487361              {
    488362                break _block3__branch1;
     
    494368                break _block3__branch1;
    495369              }
    496               int _v_len___dollar_tmp_m_127_m_58 = (_v_len1 - _v_len2);
     370              int _v_len___dollar_tmp_m_104_m_58 = (_v_len1 - _v_len2);
    497371              if (_v_lsplit__Get2.isSymbolAt (0))
    498372              {
     
    518392                continue _continue1;
    519393              }
    520               int _v_len___dollar_tmp_m_127_m_44 = (_v_len5 - _v_len6);
     394              int _v_len___dollar_tmp_m_104_m_44 = (_v_len5 - _v_len6);
    521395              if (_v_deref__deref__lsplit__Get2.isSymbolAt (0))
    522396              {
     
    531405              }
    532406              int _v_len__next = (_v_len7 - _v_len8);
    533               Expr _ve__dollar_tmp_m_127_m_58 = Expr.empty;
    534               _ve__dollar_tmp_m_127_m_58 = _v_lsplit__Get2.subexpr ((0 + 1), _v_len___dollar_tmp_m_127_m_58);
    535               Expr _vt__dollar_tmp_m_127_m_47 = Expr.empty;
    536               _vt__dollar_tmp_m_127_m_47 = _v_deref__lsplit__Get2.subexpr ((0 + 1), 1);
     407              Expr _ve__dollar_tmp_m_104_m_58 = Expr.empty;
     408              _ve__dollar_tmp_m_104_m_58 = _v_lsplit__Get2.subexpr ((0 + 1), _v_len___dollar_tmp_m_104_m_58);
     409              Expr _vt__dollar_tmp_m_104_m_47 = Expr.empty;
     410              _vt__dollar_tmp_m_104_m_47 = _v_deref__lsplit__Get2.subexpr ((0 + 1), 1);
    537411              Expr _ve_descr = Expr.empty;
    538412              _ve_descr = _v_deref__lsplit__Get2.subexpr ((0 + 1 + 1), _v_len__descr);
    539               Expr _ve__dollar_tmp_m_127_m_44 = Expr.empty;
    540               _ve__dollar_tmp_m_127_m_44 = _v_deref__deref__lsplit__Get2.subexpr ((0 + 1), _v_len___dollar_tmp_m_127_m_44);
     413              Expr _ve__dollar_tmp_m_104_m_44 = Expr.empty;
     414              _ve__dollar_tmp_m_104_m_44 = _v_deref__deref__lsplit__Get2.subexpr ((0 + 1), _v_len___dollar_tmp_m_104_m_44);
    541415              Expr _ve_next = Expr.empty;
    542416              _ve_next = _v_deref__deref__deref__lsplit__Get2.subexpr (0, _v_len__next);
     
    556430                    break _block4__branch1;
    557431                  }
    558                   int _v_len___dollar_tmp_m_130_m_36 = (_v_len9 - _v_len10);
     432                  int _v_len___dollar_tmp_m_107_m_36 = (_v_len9 - _v_len10);
    559433                  if (_ve_descr.isSymbolAt (0))
    560434                  {
     
    569443                  }
    570444                  int _v_len__arg = (_v_len11 - _v_len12);
    571                   Expr _ve__dollar_tmp_m_130_m_36 = Expr.empty;
    572                   _ve__dollar_tmp_m_130_m_36 = _ve_descr.subexpr ((0 + 1), _v_len___dollar_tmp_m_130_m_36);
     445                  Expr _ve__dollar_tmp_m_107_m_36 = Expr.empty;
     446                  _ve__dollar_tmp_m_107_m_36 = _ve_descr.subexpr ((0 + 1), _v_len___dollar_tmp_m_107_m_36);
    573447                  Expr _ve_arg = Expr.empty;
    574448                  _ve_arg = _v_deref__descr.subexpr (0, _v_len__arg);
     
    621495          break _block1__branch2;
    622496        }
    623         Expr.SplitIterator _va_9 = _ve_files.getExpr ().leftSplit(0);
    624         _exit2: _continue2: for ( ; ; _va_9.next ())
    625         {
    626           Expr _ve_01 = _va_9.getLeft();
    627           Expr _v_lsplit__files = _va_9.getRight();
    628           if (!_va_9.isValid ())
     497        Expr.SplitIterator _va_4 = _ve_files.getExpr ().leftSplit(0);
     498        _exit2: _continue2: for ( ; ; _va_4.next ())
     499        {
     500          Expr _ve_01 = _va_4.getLeft();
     501          Expr _v_lsplit__files = _va_4.getRight();
     502          if (!_va_4.isValid ())
    629503          {
    630504            break _block1__branch2;
     
    661535                break _block6__branch1;
    662536              }
    663               Expr.SplitIterator _va_10 = _ve_file.rightSplit(0);
    664               _exit3: _continue3: for ( ; ; _va_10.prev ())
    665               {
    666                 Expr _v_rsplit__file = _va_10.getLeft();
    667                 Expr _ge_ext__4 = _va_10.getRight();
    668                 if (!_va_10.isValid ())
     537              Expr.SplitIterator _va_5 = _ve_file.rightSplit(0);
     538              _exit3: _continue3: for ( ; ; _va_5.prev ())
     539              {
     540                Expr _v_rsplit__file = _va_5.getLeft();
     541                Expr _ge_ext__4 = _va_5.getRight();
     542                if (!_va_5.isValid ())
    669543                {
    670544                  break _block6__branch1;
     
    699573                break _block7__branch1;
    700574              }
    701               Result _va_11 = new Result ();
    702               if (!refal.plus.Table.Lookup (rfp_helper.RFP_Options, _c_17, _va_11))
     575              Result _va_6 = new Result ();
     576              if (!refal.plus.Table.Lookup (rfp_helper.RFP_Options, _c_17, _va_6))
    703577              {
    704578                break _block7__branch1;
    705579              }
    706               _ve_basename = _va_11.getExpr ();
     580              _ve_basename = _va_6.getExpr ();
    707581              break _block7;
    708582            }
     
    729603                break _block9__branch1;
    730604              }
    731               Expr.SplitIterator _va_12 = _ve_headname.rightSplit(0);
    732               _exit4: _continue4: for ( ; ; _va_12.prev ())
    733               {
    734                 Expr _v_rsplit__headname = _va_12.getLeft();
    735                 Expr _ge_filename__7 = _va_12.getRight();
    736                 if (!_va_12.isValid ())
     605              Expr.SplitIterator _va_7 = _ve_headname.rightSplit(0);
     606              _exit4: _continue4: for ( ; ; _va_7.prev ())
     607              {
     608                Expr _v_rsplit__headname = _va_7.getLeft();
     609                Expr _ge_filename__7 = _va_7.getRight();
     610                if (!_va_7.isValid ())
    737611                {
    738612                  break _block9__branch1;
     
    788662              _block12: {
    789663                _block12__branch1: {
    790                   Result _va_13 = new Result ();
    791                   if (!rfp_parse.RFP_Parser (new Expr ((Comparable<?>) _ve_file), _va_13))
     664                  Result _va_8 = new Result ();
     665                  if (!rfp_parse.RFP_Parser (new Expr ((Comparable<?>) _ve_file), _va_8))
    792666                  {
    793667                    break _block12__branch1;
    794668                  }
    795                   _vt_as = _va_13.getExpr ();
     669                  _vt_as = _va_8.getExpr ();
    796670                  break _block12;
    797671                }
     
    806680                    break _block13__branch1;
    807681                  }
    808                   Expr.SplitIterator _va_14 = _v_RFP__Parser__Errors1.getExpr ().leftSplit(0);
    809                   _exit5: _continue5: for ( ; ; _va_14.next ())
     682                  Expr.SplitIterator _va_9 = _v_RFP__Parser__Errors1.getExpr ().leftSplit(0);
     683                  _exit5: _continue5: for ( ; ; _va_9.next ())
    810684                  {
    811                     Expr _ve__dollar_tmp_m_175_m_36 = _va_14.getLeft();
    812                     Expr _v_lsplit__RFP__Parser__Errors1 = _va_14.getRight();
    813                     if (!_va_14.isValid ())
     685                    Expr _ve__dollar_tmp_m_152_m_36 = _va_9.getLeft();
     686                    Expr _v_lsplit__RFP__Parser__Errors1 = _va_9.getRight();
     687                    if (!_va_9.isValid ())
    814688                    {
    815689                      break _block13__branch1;
     
    821695                      break _block13__branch1;
    822696                    }
    823                     int _v_len___dollar_tmp_m_175_m_48 = (_v_len21 - _v_len22);
     697                    int _v_len___dollar_tmp_m_152_m_48 = (_v_len21 - _v_len22);
    824698                    if (_v_lsplit__RFP__Parser__Errors1.isSymbolAt (0))
    825699                    {
     
    834708                    }
    835709                    int _v_len__error = (_v_len23 - _v_len24);
    836                     Expr _ve__dollar_tmp_m_175_m_48 = Expr.empty;
    837                     _ve__dollar_tmp_m_175_m_48 = _v_lsplit__RFP__Parser__Errors1.subexpr ((0 + 1), _v_len___dollar_tmp_m_175_m_48);
     710                    Expr _ve__dollar_tmp_m_152_m_48 = Expr.empty;
     711                    _ve__dollar_tmp_m_152_m_48 = _v_lsplit__RFP__Parser__Errors1.subexpr ((0 + 1), _v_len___dollar_tmp_m_152_m_48);
    838712                    Expr _ve_error = Expr.empty;
    839713                    _ve_error = _v_deref__lsplit__RFP__Parser__Errors1.subexpr (0, _v_len__error);
     
    911785                        Expr _ve_efile = Expr.empty;
    912786                        _ve_efile = _v_deref__deref__error.subexpr (0, _v_len__efile);
    913                         Expr _vt__dollar_tmp_m_177_m_53 = Expr.empty;
    914                         _vt__dollar_tmp_m_177_m_53 = _v_deref__deref__error2.subexpr ((0 + 1), 1);
     787                        Expr _vt__dollar_tmp_m_154_m_53 = Expr.empty;
     788                        _vt__dollar_tmp_m_154_m_53 = _v_deref__deref__error2.subexpr ((0 + 1), 1);
    915789                        Expr _vs_row = Expr.empty;
    916790                        _vs_row = _v_deref__deref__deref__error2.subexpr (0, 1);
     
    1008882                      Expr _ve_efile = Expr.empty;
    1009883                      _ve_efile = _v_deref__deref__error3.subexpr (0, _v_len__efile2);
    1010                       Expr _vt__dollar_tmp_m_180_m_55 = Expr.empty;
    1011                       _vt__dollar_tmp_m_180_m_55 = _v_deref__deref__error32.subexpr ((0 + 1), 1);
     884                      Expr _vt__dollar_tmp_m_157_m_55 = Expr.empty;
     885                      _vt__dollar_tmp_m_157_m_55 = _v_deref__deref__error32.subexpr ((0 + 1), 1);
    1012886                      Expr _vs_row = Expr.empty;
    1013887                      _vs_row = _v_deref__deref__deref__error32.subexpr (0, 1);
     
    14021276                      break _block30__branch1;
    14031277                    }
    1404                     Result _va_15 = new Result ();
    1405                     Result _va_16 = new Result ();
    1406                     Open_Channel (_ve_basename, _c_63, _va_15, _va_16);
    1407                     _vs_channel = _va_15.getExpr ();
    1408                     _vs_Isneed__close = _va_16.getExpr ();
     1278                    Result _va_10 = new Result ();
     1279                    Result _va_11 = new Result ();
     1280                    Open_Channel (_ve_basename, _c_63, _va_10, _va_11);
     1281                    _vs_channel = _va_10.getExpr ();
     1282                    _vs_Isneed__close = _va_11.getExpr ();
    14091283                    break _block30;
    14101284                  }
     
    14141288                    throw new RefalException ("org.refal.plus.compiler.rfpc", "Main", "Unexpected fail");
    14151289                  }
    1416                   Result _va_17 = new Result ();
    1417                   Result _va_18 = new Result ();
    1418                   Open_Channel (Expr.getConcatenator ().toRight (_ve_dirname).toRight (_vs_dir__separator).toRight (_gt_auxcall12.getExpr ()).yield (), _c_63, _va_17, _va_18);
    1419                   _vs_channel = _va_17.getExpr ();
    1420                   _vs_Isneed__close = _va_18.getExpr ();
     1290                  Result _va_12 = new Result ();
     1291                  Result _va_13 = new Result ();
     1292                  Open_Channel (Expr.getConcatenator ().toRight (_ve_dirname).toRight (_vs_dir__separator).toRight (_gt_auxcall12.getExpr ()).yield (), _c_63, _va_12, _va_13);
     1293                  _vs_channel = _va_12.getExpr ();
     1294                  _vs_Isneed__close = _va_13.getExpr ();
    14211295                }
    14221296                CPP_Pretty_Print (_c_60, _vs_channel, Expr.empty, _ge_module__12.getExpr ());
     
    14451319                  break _block32__branch1;
    14461320                }
    1447                 Expr.SplitIterator _va_19 = _v_RFP__ASAIL__To__JBC1.getExpr ().leftSplit(0);
    1448                 _exit6: _continue6: for ( ; ; _va_19.next ())
    1449                 {
    1450                   Expr _ve__dollar_tmp_m_312_m_48 = _va_19.getLeft();
    1451                   Expr _v_lsplit__RFP__ASAIL__To__JBC1 = _va_19.getRight();
    1452                   if (!_va_19.isValid ())
     1321                Expr.SplitIterator _va_14 = _v_RFP__ASAIL__To__JBC1.getExpr ().leftSplit(0);
     1322                _exit6: _continue6: for ( ; ; _va_14.next ())
     1323                {
     1324                  Expr _ve__dollar_tmp_m_289_m_48 = _va_14.getLeft();
     1325                  Expr _v_lsplit__RFP__ASAIL__To__JBC1 = _va_14.getRight();
     1326                  if (!_va_14.isValid ())
    14531327                  {
    14541328                    break _block32__branch1;
     
    14601334                    break _block32__branch1;
    14611335                  }
    1462                   int _v_len___dollar_tmp_m_312_m_80 = (_v_len39 - _v_len40);
     1336                  int _v_len___dollar_tmp_m_289_m_80 = (_v_len39 - _v_len40);
    14631337                  if (_v_lsplit__RFP__ASAIL__To__JBC1.isSymbolAt (0))
    14641338                  {
     
    14771351                    continue _continue6;
    14781352                  }
    1479                   Expr _ve__dollar_tmp_m_312_m_80 = Expr.empty;
    1480                   _ve__dollar_tmp_m_312_m_80 = _v_lsplit__RFP__ASAIL__To__JBC1.subexpr ((0 + 1), _v_len___dollar_tmp_m_312_m_80);
     1353                  Expr _ve__dollar_tmp_m_289_m_80 = Expr.empty;
     1354                  _ve__dollar_tmp_m_289_m_80 = _v_lsplit__RFP__ASAIL__To__JBC1.subexpr ((0 + 1), _v_len___dollar_tmp_m_289_m_80);
    14811355                  Expr _vs_bytecode = Expr.empty;
    14821356                  _vs_bytecode = _v_deref__lsplit__RFP__ASAIL__To__JBC1.subexpr (0, 1);
     
    15441418        break _block1__branch1;
    15451419      }
    1546       Expr.SplitIterator _va_20 = _v_Get1.getExpr ().leftSplit(0);
    1547       _exit1: _continue1: for ( ; ; _va_20.next ())
     1420      Expr.SplitIterator _va_15 = _v_Get1.getExpr ().leftSplit(0);
     1421      _exit1: _continue1: for ( ; ; _va_15.next ())
    15481422      {
    1549         Expr _ve__dollar_tmp_m_391_m_23 = _va_20.getLeft();
    1550         Expr _v_lsplit__Get1 = _va_20.getRight();
    1551         if (!_va_20.isValid ())
     1423        Expr _ve__dollar_tmp_m_368_m_23 = _va_15.getLeft();
     1424        Expr _v_lsplit__Get1 = _va_15.getRight();
     1425        if (!_va_15.isValid ())
    15521426        {
    15531427          break _block1__branch1;
     
    15591433          break _block1__branch1;
    15601434        }
    1561         int _v_len___dollar_tmp_m_391_m_53 = (_v_len1 - _v_len2);
     1435        int _v_len___dollar_tmp_m_368_m_53 = (_v_len1 - _v_len2);
    15621436        if (_v_lsplit__Get1.isSymbolAt (0))
    15631437        {
     
    15961470        }
    15971471        int _v_len__op = (_v_len7 - _v_len8);
    1598         Expr _ve__dollar_tmp_m_391_m_53 = Expr.empty;
    1599         _ve__dollar_tmp_m_391_m_53 = _v_lsplit__Get1.subexpr ((0 + 1), _v_len___dollar_tmp_m_391_m_53);
    1600         Expr _vt__dollar_tmp_m_391_m_42 = Expr.empty;
    1601         _vt__dollar_tmp_m_391_m_42 = _v_deref__lsplit__Get1.subexpr ((0 + 1), 1);
     1472        Expr _ve__dollar_tmp_m_368_m_53 = Expr.empty;
     1473        _ve__dollar_tmp_m_368_m_53 = _v_lsplit__Get1.subexpr ((0 + 1), _v_len___dollar_tmp_m_368_m_53);
     1474        Expr _vt__dollar_tmp_m_368_m_42 = Expr.empty;
     1475        _vt__dollar_tmp_m_368_m_42 = _v_deref__lsplit__Get1.subexpr ((0 + 1), 1);
    16021476        Expr _ve_descr = Expr.empty;
    16031477        _ve_descr = _v_deref__lsplit__Get1.subexpr ((0 + 1 + 1), _v_len__descr);
     
    16121486            break _block2__branch1;
    16131487          }
    1614           Expr.SplitIterator _va_21 = _ve_opts.leftSplit(0);
    1615           _exit2: _continue2: for ( ; ; _va_21.next ())
    1616           {
    1617             Expr _ve__dollar_tmp_m_394_m_19 = _va_21.getLeft();
    1618             Expr _v_lsplit__opts = _va_21.getRight();
    1619             if (!_va_21.isValid ())
     1488          Expr.SplitIterator _va_16 = _ve_opts.leftSplit(0);
     1489          _exit2: _continue2: for ( ; ; _va_16.next ())
     1490          {
     1491            Expr _ve__dollar_tmp_m_371_m_19 = _va_16.getLeft();
     1492            Expr _v_lsplit__opts = _va_16.getRight();
     1493            if (!_va_16.isValid ())
    16201494            {
    16211495              break _block2__branch1;
     
    16271501              break _block2__branch1;
    16281502            }
    1629             int _v_len___dollar_tmp_m_394_m_30 = (_v_len9 - _v_len10);
     1503            int _v_len___dollar_tmp_m_371_m_30 = (_v_len9 - _v_len10);
    16301504            if (_v_lsplit__opts.isSymbolAt (0))
    16311505            {
     
    16401514            }
    16411515            int _v_len__next = (_v_len11 - _v_len12);
    1642             Expr _ve__dollar_tmp_m_394_m_30 = Expr.empty;
    1643             _ve__dollar_tmp_m_394_m_30 = _v_lsplit__opts.subexpr ((0 + 1), _v_len___dollar_tmp_m_394_m_30);
     1516            Expr _ve__dollar_tmp_m_371_m_30 = Expr.empty;
     1517            _ve__dollar_tmp_m_371_m_30 = _v_lsplit__opts.subexpr ((0 + 1), _v_len___dollar_tmp_m_371_m_30);
    16441518            Expr _ve_next = Expr.empty;
    16451519            _ve_next = _v_deref__lsplit__opts.subexpr (0, _v_len__next);
     
    16781552                break _block4__branch1;
    16791553              }
    1680               Expr.SplitIterator _va_22 = _ve_params.leftSplit(0);
    1681               _exit3: _continue3: for ( ; ; _va_22.next ())
    1682               {
    1683                 Expr _ve__dollar_tmp_m_401_m_25 = _va_22.getLeft();
    1684                 Expr _v_lsplit__params = _va_22.getRight();
    1685                 if (!_va_22.isValid ())
     1554              Expr.SplitIterator _va_17 = _ve_params.leftSplit(0);
     1555              _exit3: _continue3: for ( ; ; _va_17.next ())
     1556              {
     1557                Expr _ve__dollar_tmp_m_378_m_25 = _va_17.getLeft();
     1558                Expr _v_lsplit__params = _va_17.getRight();
     1559                if (!_va_17.isValid ())
    16861560                {
    16871561                  break _block4__branch1;
     
    16931567                  break _block4__branch1;
    16941568                }
    1695                 int _v_len___dollar_tmp_m_401_m_33 = (_v_len17 - _v_len18);
     1569                int _v_len___dollar_tmp_m_378_m_33 = (_v_len17 - _v_len18);
    16961570                if (!_v_lsplit__params.isSymbolAt (0))
    16971571                {
     
    17001574                Expr _vs_par = Expr.empty;
    17011575                _vs_par = _v_lsplit__params.subexpr (0, 1);
    1702                 Expr _ve__dollar_tmp_m_401_m_33 = Expr.empty;
    1703                 _ve__dollar_tmp_m_401_m_33 = _v_lsplit__params.subexpr ((0 + 1), _v_len___dollar_tmp_m_401_m_33);
     1576                Expr _ve__dollar_tmp_m_378_m_33 = Expr.empty;
     1577                _ve__dollar_tmp_m_378_m_33 = _v_lsplit__params.subexpr ((0 + 1), _v_len___dollar_tmp_m_378_m_33);
    17041578                Result _ge_auxcall2 = new Result (Expr.empty);
    17051579                refal.plus.Convert.ToChars (_vs_par, _ge_auxcall2);
     
    17191593            break _block5__branch1;
    17201594          }
    1721           int _v_len___dollar_tmp_m_408_m_19 = (_v_len19 - _v_len20);
     1595          int _v_len___dollar_tmp_m_385_m_19 = (_v_len19 - _v_len20);
    17221596          if (!_ge_auxalt3.isSymbolAt (0))
    17231597          {
     
    17261600          Expr _vs_phrase = Expr.empty;
    17271601          _vs_phrase = _ge_auxalt3.subexpr (0, 1);
    1728           Expr _ve__dollar_tmp_m_408_m_19 = Expr.empty;
    1729           _ve__dollar_tmp_m_408_m_19 = _ge_auxalt3.subexpr ((0 + 1), _v_len___dollar_tmp_m_408_m_19);
     1602          Expr _ve__dollar_tmp_m_385_m_19 = Expr.empty;
     1603          _ve__dollar_tmp_m_385_m_19 = _ge_auxalt3.subexpr ((0 + 1), _v_len___dollar_tmp_m_385_m_19);
    17301604          Result _ge_auxcall4 = new Result (Expr.empty);
    17311605          refal.plus.Box.Get (_vs_line.getExpr (), _ge_auxcall4);
     
    17441618          continue _continue1;
    17451619        }
    1746         Expr.SplitIterator _va_23 = _ge_auxalt3.leftSplit(0);
    1747         _exit4: _continue4: for ( ; ; _va_23.next ())
    1748         {
    1749           Expr _ve__dollar_tmp_m_415_m_10 = _va_23.getLeft();
    1750           Expr _v_lsplit__auxalt3 = _va_23.getRight();
    1751           if (!_va_23.isValid ())
     1620        Expr.SplitIterator _va_18 = _ge_auxalt3.leftSplit(0);
     1621        _exit4: _continue4: for ( ; ; _va_18.next ())
     1622        {
     1623          Expr _ve__dollar_tmp_m_392_m_10 = _va_18.getLeft();
     1624          Expr _v_lsplit__auxalt3 = _va_18.getRight();
     1625          if (!_va_18.isValid ())
    17521626          {
    17531627            continue _continue1;
     
    17591633            continue _continue1;
    17601634          }
    1761           int _v_len___dollar_tmp_m_415_m_23 = (_v_len21 - _v_len22);
     1635          int _v_len___dollar_tmp_m_392_m_23 = (_v_len21 - _v_len22);
    17621636          if (!_v_lsplit__auxalt3.isSymbolAt (0))
    17631637          {
     
    17681642            continue _continue4;
    17691643          }
    1770           Expr _vs__dollar_tmp_m_415_m_12 = Expr.empty;
    1771           _vs__dollar_tmp_m_415_m_12 = _v_lsplit__auxalt3.subexpr (0, 1);
     1644          Expr _vs__dollar_tmp_m_392_m_12 = Expr.empty;
     1645          _vs__dollar_tmp_m_392_m_12 = _v_lsplit__auxalt3.subexpr (0, 1);
    17721646          Expr _vs_phrase = Expr.empty;
    17731647          _vs_phrase = _v_lsplit__auxalt3.subexpr ((0 + 1), 1);
    1774           Expr _ve__dollar_tmp_m_415_m_23 = Expr.empty;
    1775           _ve__dollar_tmp_m_415_m_23 = _v_lsplit__auxalt3.subexpr ((0 + 1 + 1), _v_len___dollar_tmp_m_415_m_23);
     1648          Expr _ve__dollar_tmp_m_392_m_23 = Expr.empty;
     1649          _ve__dollar_tmp_m_392_m_23 = _v_lsplit__auxalt3.subexpr ((0 + 1 + 1), _v_len___dollar_tmp_m_392_m_23);
    17761650          refal.plus.StdIO.PrintLn (Expr.concat (_ve_start2.getExpr (), _vs_phrase));
    17771651        }
     
    18061680              break _block2__branch1;
    18071681            }
    1808             int _v_len___dollar_tmp_m_425_m_20 = (_v_len3 - _v_len4);
    1809             Expr _vv__dollar_tmp_m_425_m_20 = Expr.empty;
    1810             _vv__dollar_tmp_m_425_m_20 = _ve_prevarg.subexpr (0, _v_len___dollar_tmp_m_425_m_20);
     1682            int _v_len___dollar_tmp_m_402_m_20 = (_v_len3 - _v_len4);
     1683            Expr _vv__dollar_tmp_m_402_m_20 = Expr.empty;
     1684            _vv__dollar_tmp_m_402_m_20 = _ve_prevarg.subexpr (0, _v_len___dollar_tmp_m_402_m_20);
    18111685            Expr _ge_prevarg__5 = Expr.empty;
    18121686            _block3: {
     
    18531727                _block4: {
    18541728                  _block4__branch1: {
    1855                     Result _va_24 = new Result ();
    1856                     if (!refal.plus.Table.Lookup (rfp_helper.RFP_Options, _c_81, _va_24))
     1729                    Result _va_19 = new Result ();
     1730                    if (!refal.plus.Table.Lookup (rfp_helper.RFP_Options, _c_81, _va_19))
    18571731                    {
    18581732                      break _block4__branch1;
    18591733                    }
    1860                     _ve_items = _va_24.getExpr ();
     1734                    _ve_items = _va_19.getExpr ();
    18611735                    break _block4;
    18621736                  }
     
    18811755                _block5: {
    18821756                  _block5__branch1: {
    1883                     Result _va_25 = new Result ();
    1884                     if (!refal.plus.Table.Lookup (rfp_helper.RFP_Options, _c_83, _va_25))
     1757                    Result _va_20 = new Result ();
     1758                    if (!refal.plus.Table.Lookup (rfp_helper.RFP_Options, _c_83, _va_20))
    18851759                    {
    18861760                      break _block5__branch1;
    18871761                    }
    1888                     _ve_entries = _va_25.getExpr ();
     1762                    _ve_entries = _va_20.getExpr ();
    18891763                    break _block5;
    18901764                  }
     
    20231897                      break _block8__branch1;
    20241898                    }
    2025                     Expr.SplitIterator _va_26 = _v_Get1.getExpr ().leftSplit(0);
    2026                     _exit1: _continue1: for ( ; ; _va_26.next ())
     1899                    Expr.SplitIterator _va_21 = _v_Get1.getExpr ().leftSplit(0);
     1900                    _exit1: _continue1: for ( ; ; _va_21.next ())
    20271901                    {
    2028                       Expr _ve__dollar_tmp_m_463_m_31 = _va_26.getLeft();
    2029                       Expr _v_lsplit__Get1 = _va_26.getRight();
    2030                       if (!_va_26.isValid ())
     1902                      Expr _ve__dollar_tmp_m_440_m_31 = _va_21.getLeft();
     1903                      Expr _v_lsplit__Get1 = _va_21.getRight();
     1904                      if (!_va_21.isValid ())
    20311905                      {
    20321906                        break _block8__branch1;
     
    20381912                        break _block8__branch1;
    20391913                      }
    2040                       int _v_len___dollar_tmp_m_463_m_60 = (_v_len9 - _v_len10);
     1914                      int _v_len___dollar_tmp_m_440_m_60 = (_v_len9 - _v_len10);
    20411915                      if (_v_lsplit__Get1.isSymbolAt (0))
    20421916                      {
     
    20501924                        continue _continue1;
    20511925                      }
    2052                       int _v_len___dollar_tmp_m_463_m_57 = (_v_len11 - _v_len12);
     1926                      int _v_len___dollar_tmp_m_440_m_57 = (_v_len11 - _v_len12);
    20531927                      if (_v_deref__lsplit__Get1.isSymbolAt (0))
    20541928                      {
     
    20601934                        continue _continue1;
    20611935                      }
    2062                       Expr _ve__dollar_tmp_m_463_m_60 = Expr.empty;
    2063                       _ve__dollar_tmp_m_463_m_60 = _v_lsplit__Get1.subexpr ((0 + 1), _v_len___dollar_tmp_m_463_m_60);
     1936                      Expr _ve__dollar_tmp_m_440_m_60 = Expr.empty;
     1937                      _ve__dollar_tmp_m_440_m_60 = _v_lsplit__Get1.subexpr ((0 + 1), _v_len___dollar_tmp_m_440_m_60);
    20641938                      Expr _vt_action = Expr.empty;
    20651939                      _vt_action = _v_deref__lsplit__Get1.subexpr ((0 + 1), 1);
    2066                       Expr _ve__dollar_tmp_m_463_m_57 = Expr.empty;
    2067                       _ve__dollar_tmp_m_463_m_57 = _v_deref__lsplit__Get1.subexpr ((0 + 1 + 1), _v_len___dollar_tmp_m_463_m_57);
    2068                       Expr.SplitIterator _va_27 = _v_deref__deref__lsplit__Get1.leftSplit(0);
    2069                       _exit2: _continue2: for ( ; ; _va_27.next ())
     1940                      Expr _ve__dollar_tmp_m_440_m_57 = Expr.empty;
     1941                      _ve__dollar_tmp_m_440_m_57 = _v_deref__lsplit__Get1.subexpr ((0 + 1 + 1), _v_len___dollar_tmp_m_440_m_57);
     1942                      Expr.SplitIterator _va_22 = _v_deref__deref__lsplit__Get1.leftSplit(0);
     1943                      _exit2: _continue2: for ( ; ; _va_22.next ())
    20701944                      {
    2071                         Expr _ve__dollar_tmp_m_463_m_35 = _va_27.getLeft();
    2072                         Expr _v_lsplit__deref__deref__lsplit__Get1 = _va_27.getRight();
    2073                         if (!_va_27.isValid ())
     1945                        Expr _ve__dollar_tmp_m_440_m_35 = _va_22.getLeft();
     1946                        Expr _v_lsplit__deref__deref__lsplit__Get1 = _va_22.getRight();
     1947                        if (!_va_22.isValid ())
    20741948                        {
    20751949                          continue _continue1;
     
    20811955                          continue _continue1;
    20821956                        }
    2083                         int _v_len___dollar_tmp_m_463_m_45 = (_v_len13 - _v_len14);
     1957                        int _v_len___dollar_tmp_m_440_m_45 = (_v_len13 - _v_len14);
    20841958                        if (_v_lsplit__deref__deref__lsplit__Get1.isSymbolAt (0))
    20851959                        {
     
    20951969                          continue _continue2;
    20961970                        }
    2097                         Expr _ve__dollar_tmp_m_463_m_45 = Expr.empty;
    2098                         _ve__dollar_tmp_m_463_m_45 = _v_lsplit__deref__deref__lsplit__Get1.subexpr ((0 + 1), _v_len___dollar_tmp_m_463_m_45);
     1971                        Expr _ve__dollar_tmp_m_440_m_45 = Expr.empty;
     1972                        _ve__dollar_tmp_m_440_m_45 = _v_lsplit__deref__deref__lsplit__Get1.subexpr ((0 + 1), _v_len___dollar_tmp_m_440_m_45);
    20991973                        _gt_auxalt6 = _vt_action;
    21001974                        break _exit2;
     
    21231997                    break _block7__branch1;
    21241998                  }
    2125                   Expr.SplitIterator _va_28 = _v_Get2.getExpr ().leftSplit(0);
    2126                   _exit3: _continue3: for ( ; ; _va_28.next ())
     1999                  Expr.SplitIterator _va_23 = _v_Get2.getExpr ().leftSplit(0);
     2000                  _exit3: _continue3: for ( ; ; _va_23.next ())
    21272001                  {
    2128                     Expr _ve__dollar_tmp_m_465_m_33 = _va_28.getLeft();
    2129                     Expr _v_lsplit__Get2 = _va_28.getRight();
    2130                     if (!_va_28.isValid ())
     2002                    Expr _ve__dollar_tmp_m_442_m_33 = _va_23.getLeft();
     2003                    Expr _v_lsplit__Get2 = _va_23.getRight();
     2004                    if (!_va_23.isValid ())
    21312005                    {
    21322006                      break _block7__branch1;
     
    21382012                      break _block7__branch1;
    21392013                    }
    2140                     int _v_len___dollar_tmp_m_465_m_60 = (_v_len17 - _v_len18);
     2014                    int _v_len___dollar_tmp_m_442_m_60 = (_v_len17 - _v_len18);
    21412015                    if (_v_lsplit__Get2.isSymbolAt (0))
    21422016                    {
     
    21502024                      continue _continue3;
    21512025                    }
    2152                     int _v_len___dollar_tmp_m_465_m_57 = (_v_len19 - _v_len20);
     2026                    int _v_len___dollar_tmp_m_442_m_57 = (_v_len19 - _v_len20);
    21532027                    if (_v_deref__lsplit__Get2.isSymbolAt (0))
    21542028                    {
     
    21602034                      continue _continue3;
    21612035                    }
    2162                     Expr _ve__dollar_tmp_m_465_m_60 = Expr.empty;
    2163                     _ve__dollar_tmp_m_465_m_60 = _v_lsplit__Get2.subexpr ((0 + 1), _v_len___dollar_tmp_m_465_m_60);
     2036                    Expr _ve__dollar_tmp_m_442_m_60 = Expr.empty;
     2037                    _ve__dollar_tmp_m_442_m_60 = _v_lsplit__Get2.subexpr ((0 + 1), _v_len___dollar_tmp_m_442_m_60);
    21642038                    Expr _vt_action = Expr.empty;
    21652039                    _vt_action = _v_deref__lsplit__Get2.subexpr ((0 + 1), 1);
    2166                     Expr _ve__dollar_tmp_m_465_m_57 = Expr.empty;
    2167                     _ve__dollar_tmp_m_465_m_57 = _v_deref__lsplit__Get2.subexpr ((0 + 1 + 1), _v_len___dollar_tmp_m_465_m_57);
    2168                     Expr.SplitIterator _va_29 = _v_deref__deref__lsplit__Get2.leftSplit(0);
    2169                     _exit4: _continue4: for ( ; ; _va_29.next ())
     2040                    Expr _ve__dollar_tmp_m_442_m_57 = Expr.empty;
     2041                    _ve__dollar_tmp_m_442_m_57 = _v_deref__lsplit__Get2.subexpr ((0 + 1 + 1), _v_len___dollar_tmp_m_442_m_57);
     2042                    Expr.SplitIterator _va_24 = _v_deref__deref__lsplit__Get2.leftSplit(0);
     2043                    _exit4: _continue4: for ( ; ; _va_24.next ())
    21702044                    {
    2171                       Expr _ve__dollar_tmp_m_465_m_37 = _va_29.getLeft();
    2172                       Expr _v_lsplit__deref__deref__lsplit__Get2 = _va_29.getRight();
    2173                       if (!_va_29.isValid ())
     2045                      Expr _ve__dollar_tmp_m_442_m_37 = _va_24.getLeft();
     2046                      Expr _v_lsplit__deref__deref__lsplit__Get2 = _va_24.getRight();
     2047                      if (!_va_24.isValid ())
    21742048                      {
    21752049                        continue _continue3;
     
    21812055                        continue _continue3;
    21822056                      }
    2183                       int _v_len___dollar_tmp_m_465_m_45 = (_v_len21 - _v_len22);
     2057                      int _v_len___dollar_tmp_m_442_m_45 = (_v_len21 - _v_len22);
    21842058                      if (_v_lsplit__deref__deref__lsplit__Get2.isSymbolAt (0))
    21852059                      {
     
    21952069                        continue _continue4;
    21962070                      }
    2197                       Expr _ve__dollar_tmp_m_465_m_45 = Expr.empty;
    2198                       _ve__dollar_tmp_m_465_m_45 = _v_lsplit__deref__deref__lsplit__Get2.subexpr ((0 + 1), _v_len___dollar_tmp_m_465_m_45);
     2071                      Expr _ve__dollar_tmp_m_442_m_45 = Expr.empty;
     2072                      _ve__dollar_tmp_m_442_m_45 = _v_lsplit__deref__deref__lsplit__Get2.subexpr ((0 + 1), _v_len___dollar_tmp_m_442_m_45);
    21992073                      _gt_auxalt6 = _vt_action;
    22002074                      break _exit4;
     
    22662140          break _block1__branch2;
    22672141        }
    2268         int _v_len___dollar_tmp_m_477_m_16 = (_v_len23 - _v_len24);
    2269         Expr _vv__dollar_tmp_m_477_m_16 = Expr.empty;
    2270         _vv__dollar_tmp_m_477_m_16 = _ve_prevarg.subexpr (0, _v_len___dollar_tmp_m_477_m_16);
     2142        int _v_len___dollar_tmp_m_454_m_16 = (_v_len23 - _v_len24);
     2143        Expr _vv__dollar_tmp_m_454_m_16 = Expr.empty;
     2144        _vv__dollar_tmp_m_454_m_16 = _ve_prevarg.subexpr (0, _v_len___dollar_tmp_m_454_m_16);
    22712145        refal.plus.StdIO.PrintLnCh (refal.plus.StdIO.StdErr, _c_92);
    22722146        refal.plus.Dos.Exit (_c_2);
     
    23262200        break _block1__branch1;
    23272201      }
    2328       Expr.SplitIterator _va_30 = _ve_Items.leftSplit(0);
    2329       _exit1: _continue1: for ( ; ; _va_30.next ())
     2202      Expr.SplitIterator _va_25 = _ve_Items.leftSplit(0);
     2203      _exit1: _continue1: for ( ; ; _va_25.next ())
    23302204      {
    2331         Expr _ve__dollar_tmp_m_497_m_16 = _va_30.getLeft();
    2332         Expr _v_lsplit__Items = _va_30.getRight();
    2333         if (!_va_30.isValid ())
     2205        Expr _ve__dollar_tmp_m_474_m_16 = _va_25.getLeft();
     2206        Expr _v_lsplit__Items = _va_25.getRight();
     2207        if (!_va_25.isValid ())
    23342208        {
    23352209          break _block1__branch1;
     
    23412215          break _block1__branch1;
    23422216        }
    2343         int _v_len___dollar_tmp_m_497_m_25 = (_v_len1 - _v_len2);
     2217        int _v_len___dollar_tmp_m_474_m_25 = (_v_len1 - _v_len2);
    23442218        Expr _vt_Item = Expr.empty;
    23452219        _vt_Item = _v_lsplit__Items.subexpr (0, 1);
    2346         Expr _ve__dollar_tmp_m_497_m_25 = Expr.empty;
    2347         _ve__dollar_tmp_m_497_m_25 = _v_lsplit__Items.subexpr ((0 + 1), _v_len___dollar_tmp_m_497_m_25);
     2220        Expr _ve__dollar_tmp_m_474_m_25 = Expr.empty;
     2221        _ve__dollar_tmp_m_474_m_25 = _v_lsplit__Items.subexpr ((0 + 1), _v_len___dollar_tmp_m_474_m_25);
    23482222        _block2: {
    23492223          _block2__branch1: {
     
    23742248                  break _block3__branch1;
    23752249                }
    2376                 int _v_len___dollar_tmp_m_499_m_51 = (_v_len5 - _v_len6);
     2250                int _v_len___dollar_tmp_m_476_m_51 = (_v_len5 - _v_len6);
    23772251                if (_v_deref__deref__Item.isSymbolAt ((0 + 1)))
    23782252                {
     
    23862260                  break _block3__branch1;
    23872261                }
    2388                 int _v_len___dollar_tmp_m_499_m_48 = (_v_len7 - _v_len8);
     2262                int _v_len___dollar_tmp_m_476_m_48 = (_v_len7 - _v_len8);
    23892263                if (!_c_97.termEquals (_v_deref__Item, 0))
    23902264                {
     
    24112285                Expr _ve_ItemBody = Expr.empty;
    24122286                _ve_ItemBody = _v_deref__Item.subexpr ((0 + 1 + 1 + 1 + 1 + 1), _v_len__ItemBody);
    2413                 Expr _ve__dollar_tmp_m_499_m_51 = Expr.empty;
    2414                 _ve__dollar_tmp_m_499_m_51 = _v_deref__deref__Item.subexpr ((0 + 1 + 1), _v_len___dollar_tmp_m_499_m_51);
    2415                 Expr _ve__dollar_tmp_m_499_m_48 = Expr.empty;
    2416                 _ve__dollar_tmp_m_499_m_48 = _v_deref__deref__deref__Item.subexpr (0, _v_len___dollar_tmp_m_499_m_48);
     2287                Expr _ve__dollar_tmp_m_476_m_51 = Expr.empty;
     2288                _ve__dollar_tmp_m_476_m_51 = _v_deref__deref__Item.subexpr ((0 + 1 + 1), _v_len___dollar_tmp_m_476_m_51);
     2289                Expr _ve__dollar_tmp_m_476_m_48 = Expr.empty;
     2290                _ve__dollar_tmp_m_476_m_48 = _v_deref__deref__deref__Item.subexpr (0, _v_len___dollar_tmp_m_476_m_48);
    24172291                _gt_auxalt1 = new Expr ((Comparable<?>) Expr.getConcatenator ().toRight (_vs_Linkage).toRight (_vs_ItemType).toRight (_vt_ItemName).toRight (_ve_ItemBody).yield ());
    24182292                break _block3;
     
    24782352                  break _block3__branch3;
    24792353                }
    2480                 int _v_len___dollar_tmp_m_503_m_44 = (_v_len13 - _v_len14);
     2354                int _v_len___dollar_tmp_m_480_m_44 = (_v_len13 - _v_len14);
    24812355                if (_v_deref__deref__Item3.isSymbolAt ((0 + 1)))
    24822356                {
     
    24902364                  break _block3__branch3;
    24912365                }
    2492                 int _v_len___dollar_tmp_m_503_m_41 = (_v_len15 - _v_len16);
     2366                int _v_len___dollar_tmp_m_480_m_41 = (_v_len15 - _v_len16);
    24932367                if (!_v_deref__Item3.isSymbolAt (0))
    24942368                {
     
    25112385                Expr _ve_ItemBody = Expr.empty;
    25122386                _ve_ItemBody = _v_deref__Item3.subexpr ((0 + 1 + 1 + 1 + 1), _v_len__ItemBody3);
    2513                 Expr _ve__dollar_tmp_m_503_m_44 = Expr.empty;
    2514                 _ve__dollar_tmp_m_503_m_44 = _v_deref__deref__Item3.subexpr ((0 + 1 + 1), _v_len___dollar_tmp_m_503_m_44);
    2515                 Expr _ve__dollar_tmp_m_503_m_41 = Expr.empty;
    2516                 _ve__dollar_tmp_m_503_m_41 = _v_deref__deref__deref__Item3.subexpr (0, _v_len___dollar_tmp_m_503_m_41);
     2387                Expr _ve__dollar_tmp_m_480_m_44 = Expr.empty;
     2388                _ve__dollar_tmp_m_480_m_44 = _v_deref__deref__Item3.subexpr ((0 + 1 + 1), _v_len___dollar_tmp_m_480_m_44);
     2389                Expr _ve__dollar_tmp_m_480_m_41 = Expr.empty;
     2390                _ve__dollar_tmp_m_480_m_41 = _v_deref__deref__deref__Item3.subexpr (0, _v_len___dollar_tmp_m_480_m_41);
    25172391                _gt_auxalt1 = new Expr ((Comparable<?>) Expr.getConcatenator ().toRight (_vs_Linkage).toRight (_vs_ItemType).toRight (_vt_ItemName).toRight (_ve_ItemBody).yield ());
    25182392                break _block3;
    25192393              }
    2520               Expr _vt__dollar_tmp_m_505_m_10 = Expr.empty;
    2521               _vt__dollar_tmp_m_505_m_10 = _vt_Item.subexpr (0, 1);
     2394              Expr _vt__dollar_tmp_m_482_m_10 = Expr.empty;
     2395              _vt__dollar_tmp_m_482_m_10 = _vt_Item.subexpr (0, 1);
    25222396              _gt_auxalt1 = _vt_Item;
    25232397            }
     
    27162590                throw new RefalException ("org.refal.plus.compiler.rfpc", "Get_Ready_For_Compilation", "Unexpected fail");
    27172591              }
    2718               Expr _vs__dollar_tmp_m_518_m_12 = Expr.empty;
    2719               _vs__dollar_tmp_m_518_m_12 = _vs_ItemType.subexpr (0, 1);
     2592              Expr _vs__dollar_tmp_m_495_m_12 = Expr.empty;
     2593              _vs__dollar_tmp_m_495_m_12 = _vs_ItemType.subexpr (0, 1);
    27202594              _vs_tab = rfp_helper.Object;
    27212595              _ve_ItemDef = _ve_ItemBody;
     
    27702644          break _block1__branch1;
    27712645        }
    2772         Expr.SplitIterator _va_31 = _ve_expr.leftSplit(0);
    2773         _exit1: _continue1: for ( ; ; _va_31.next ())
    2774         {
    2775           Expr _ve_0 = _va_31.getLeft();
    2776           Expr _v_lsplit__expr = _va_31.getRight();
    2777           if (!_va_31.isValid ())
     2646        Expr.SplitIterator _va_26 = _ve_expr.leftSplit(0);
     2647        _exit1: _continue1: for ( ; ; _va_26.next ())
     2648        {
     2649          Expr _ve_0 = _va_26.getLeft();
     2650          Expr _v_lsplit__expr = _va_26.getRight();
     2651          if (!_va_26.isValid ())
    27782652          {
    27792653            break _block1__branch1;
     
    28112685                break _block2__branch1;
    28122686              }
    2813               int _v_len___dollar_tmp_m_536_m_21 = (_v_len5 - _v_len6);
    2814               Expr _vv__dollar_tmp_m_536_m_21 = Expr.empty;
    2815               _vv__dollar_tmp_m_536_m_21 = _ve_indent.subexpr (0, _v_len___dollar_tmp_m_536_m_21);
     2687              int _v_len___dollar_tmp_m_513_m_21 = (_v_len5 - _v_len6);
     2688              Expr _vv__dollar_tmp_m_513_m_21 = Expr.empty;
     2689              _vv__dollar_tmp_m_513_m_21 = _ve_indent.subexpr (0, _v_len___dollar_tmp_m_513_m_21);
    28162690              refal.plus.StdIO.PrintLnCh (_vs_channel, Expr.empty);
    28172691              break _block2;
     
    28262700                break _block3__branch1;
    28272701              }
    2828               Expr.SplitIterator _va_32 = _ve_1.leftSplit(0);
    2829               _exit2: _continue2: for ( ; ; _va_32.next ())
    2830               {
    2831                 Expr _ve__dollar_tmp_m_540_m_15 = _va_32.getLeft();
    2832                 Expr _v_lsplit__1 = _va_32.getRight();
    2833                 if (!_va_32.isValid ())
     2702              Expr.SplitIterator _va_27 = _ve_1.leftSplit(0);
     2703              _exit2: _continue2: for ( ; ; _va_27.next ())
     2704              {
     2705                Expr _ve__dollar_tmp_m_517_m_15 = _va_27.getLeft();
     2706                Expr _v_lsplit__1 = _va_27.getRight();
     2707                if (!_va_27.isValid ())
    28342708                {
    28352709                  break _block3__branch1;
     
    28412715                  break _block3__branch1;
    28422716                }
    2843                 int _v_len___dollar_tmp_m_540_m_21 = (_v_len7 - _v_len8);
     2717                int _v_len___dollar_tmp_m_517_m_21 = (_v_len7 - _v_len8);
    28442718                if (_v_lsplit__1.isSymbolAt (0))
    28452719                {
     
    28532727                  continue _continue2;
    28542728                }
    2855                 int _v_len___dollar_tmp_m_540_m_18 = (_v_len9 - _v_len10);
    2856                 Expr _ve__dollar_tmp_m_540_m_21 = Expr.empty;
    2857                 _ve__dollar_tmp_m_540_m_21 = _v_lsplit__1.subexpr ((0 + 1), _v_len___dollar_tmp_m_540_m_21);
    2858                 Expr _ve__dollar_tmp_m_540_m_18 = Expr.empty;
    2859                 _ve__dollar_tmp_m_540_m_18 = _v_deref__lsplit__1.subexpr (0, _v_len___dollar_tmp_m_540_m_18);
     2729                int _v_len___dollar_tmp_m_517_m_18 = (_v_len9 - _v_len10);
     2730                Expr _ve__dollar_tmp_m_517_m_21 = Expr.empty;
     2731                _ve__dollar_tmp_m_517_m_21 = _v_lsplit__1.subexpr ((0 + 1), _v_len___dollar_tmp_m_517_m_21);
     2732                Expr _ve__dollar_tmp_m_517_m_18 = Expr.empty;
     2733                _ve__dollar_tmp_m_517_m_18 = _v_deref__lsplit__1.subexpr (0, _v_len___dollar_tmp_m_517_m_18);
    28602734                refal.plus.StdIO.PrintLnCh (_vs_channel, Expr.empty);
    28612735                refal.plus.StdIO.PrintCh (_vs_channel, Expr.concat (_ve_indent, _c_112));
     
    28742748                break _block4__branch1;
    28752749              }
    2876               int _v_len___dollar_tmp_m_546_m_19 = (_v_len11 - _v_len12);
     2750              int _v_len___dollar_tmp_m_523_m_19 = (_v_len11 - _v_len12);
    28772751              if (_ve_2.isSymbolAt (0))
    28782752              {
     
    28862760                break _block4__branch1;
    28872761              }
    2888               int _v_len___dollar_tmp_m_546_m_16 = (_v_len13 - _v_len14);
    2889               Expr _ve__dollar_tmp_m_546_m_19 = Expr.empty;
    2890               _ve__dollar_tmp_m_546_m_19 = _ve_2.subexpr ((0 + 1), _v_len___dollar_tmp_m_546_m_19);
    2891               Expr _ve__dollar_tmp_m_546_m_16 = Expr.empty;
    2892               _ve__dollar_tmp_m_546_m_16 = _v_deref__2.subexpr (0, _v_len___dollar_tmp_m_546_m_16);
     2762              int _v_len___dollar_tmp_m_523_m_16 = (_v_len13 - _v_len14);
     2763              Expr _ve__dollar_tmp_m_523_m_19 = Expr.empty;
     2764              _ve__dollar_tmp_m_523_m_19 = _ve_2.subexpr ((0 + 1), _v_len___dollar_tmp_m_523_m_19);
     2765              Expr _ve__dollar_tmp_m_523_m_16 = Expr.empty;
     2766              _ve__dollar_tmp_m_523_m_16 = _v_deref__2.subexpr (0, _v_len___dollar_tmp_m_523_m_16);
    28932767              break _block4;
    28942768            }
     
    29042778                break _block4__branch2;
    29052779              }
    2906               int _v_len___dollar_tmp_m_547_m_28 = (_v_len15 - _v_len16);
    2907               Expr _vv__dollar_tmp_m_547_m_28 = Expr.empty;
    2908               _vv__dollar_tmp_m_547_m_28 = _ve_indent.subexpr (0, _v_len___dollar_tmp_m_547_m_28);
     2780              int _v_len___dollar_tmp_m_524_m_28 = (_v_len15 - _v_len16);
     2781              Expr _vv__dollar_tmp_m_524_m_28 = Expr.empty;
     2782              _vv__dollar_tmp_m_524_m_28 = _ve_indent.subexpr (0, _v_len___dollar_tmp_m_524_m_28);
    29092783              break _block4;
    29102784            }
     
    29462820          break _block1__branch1;
    29472821        }
    2948         Expr.SplitIterator _va_33 = _ve_expr.leftSplit(0);
    2949         _exit1: _continue1: for ( ; ; _va_33.next ())
    2950         {
    2951           Expr _ve_0 = _va_33.getLeft();
    2952           Expr _v_lsplit__expr = _va_33.getRight();
    2953           if (!_va_33.isValid ())
     2822        Expr.SplitIterator _va_28 = _ve_expr.leftSplit(0);
     2823        _exit1: _continue1: for ( ; ; _va_28.next ())
     2824        {
     2825          Expr _ve_0 = _va_28.getLeft();
     2826          Expr _v_lsplit__expr = _va_28.getRight();
     2827          if (!_va_28.isValid ())
    29542828          {
    29552829            break _block1__branch1;
     
    31032977          break _block1__branch1;
    31042978        }
    3105         int _v_len___dollar_tmp_m_584_m_12 = (_v_len1 - _v_len2);
     2979        int _v_len___dollar_tmp_m_561_m_12 = (_v_len1 - _v_len2);
    31062980        if (!_v_compose1.isSymbolAt (0))
    31072981        {
     
    31102984        Expr _vs_ymbol = Expr.empty;
    31112985        _vs_ymbol = _v_compose1.subexpr (0, 1);
    3112         Expr _ve__dollar_tmp_m_584_m_12 = Expr.empty;
    3113         _ve__dollar_tmp_m_584_m_12 = _v_deref__compose1.subexpr (0, _v_len___dollar_tmp_m_584_m_12);
     2986        Expr _ve__dollar_tmp_m_561_m_12 = Expr.empty;
     2987        _ve__dollar_tmp_m_561_m_12 = _v_deref__compose1.subexpr (0, _v_len___dollar_tmp_m_561_m_12);
    31142988        if (!refal.plus.Class.IsChannel (_vs_ymbol))
    31152989        {
     
    31773051          break _block1__branch1;
    31783052        }
    3179         Expr.SplitIterator _va_34 = _v_deref__RevDate.leftSplit(0);
    3180         _exit1: _continue1: for ( ; ; _va_34.next ())
    3181         {
    3182           Expr _ve__dollar_tmp_m_598_m_16 = _va_34.getLeft();
    3183           Expr _v_lsplit__deref__RevDate = _va_34.getRight();
    3184           if (!_va_34.isValid ())
     3053        Expr.SplitIterator _va_29 = _v_deref__RevDate.leftSplit(0);
     3054        _exit1: _continue1: for ( ; ; _va_29.next ())
     3055        {
     3056          Expr _ve__dollar_tmp_m_575_m_16 = _va_29.getLeft();
     3057          Expr _v_lsplit__deref__RevDate = _va_29.getRight();
     3058          if (!_va_29.isValid ())
    31853059          {
    31863060            break _block1__branch1;
     
    31953069          }
    31963070          Expr _v_subexpr__lsplit__deref__RevDate = _v_lsplit__deref__RevDate.subexpr ((0 + 1), (_v_lsplit__deref__RevDate.length () - (0 + 1 + 0)));
    3197           Expr.SplitIterator _va_35 = _v_subexpr__lsplit__deref__RevDate.leftSplit(1);
    3198           _exit2: _continue2: for ( ; ; _va_35.next ())
    3199           {
    3200             Expr _vv_rev = _va_35.getLeft();
    3201             Expr _v_lsplit__lsplit__deref__RevDate = _va_35.getRight();
    3202             if (!_va_35.isValid ())
     3071          Expr.SplitIterator _va_30 = _v_subexpr__lsplit__deref__RevDate.leftSplit(1);
     3072          _exit2: _continue2: for ( ; ; _va_30.next ())
     3073          {
     3074            Expr _vv_rev = _va_30.getLeft();
     3075            Expr _v_lsplit__lsplit__deref__RevDate = _va_30.getRight();
     3076            if (!_va_30.isValid ())
    32033077            {
    32043078              continue _continue1;
     
    32103084              continue _continue1;
    32113085            }
    3212             int _v_len___dollar_tmp_m_598_m_32 = (_v_len1 - _v_len2);
     3086            int _v_len___dollar_tmp_m_575_m_32 = (_v_len1 - _v_len2);
    32133087            if (!_c_12.termEquals (_v_lsplit__lsplit__deref__RevDate, 0))
    32143088            {
    32153089              continue _continue2;
    32163090            }
    3217             Expr _ve__dollar_tmp_m_598_m_32 = Expr.empty;
    3218             _ve__dollar_tmp_m_598_m_32 = _v_lsplit__lsplit__deref__RevDate.subexpr ((0 + 1), _v_len___dollar_tmp_m_598_m_32);
    3219             Expr.SplitIterator _va_36 = _v_deref__RevDate2.leftSplit(0);
    3220             _exit3: _continue3: for ( ; ; _va_36.next ())
     3091            Expr _ve__dollar_tmp_m_575_m_32 = Expr.empty;
     3092            _ve__dollar_tmp_m_575_m_32 = _v_lsplit__lsplit__deref__RevDate.subexpr ((0 + 1), _v_len___dollar_tmp_m_575_m_32);
     3093            Expr.SplitIterator _va_31 = _v_deref__RevDate2.leftSplit(0);
     3094            _exit3: _continue3: for ( ; ; _va_31.next ())
    32213095            {
    3222               Expr _ve__dollar_tmp_m_598_m_36 = _va_36.getLeft();
    3223               Expr _v_lsplit__deref__RevDate2 = _va_36.getRight();
    3224               if (!_va_36.isValid ())
     3096              Expr _ve__dollar_tmp_m_575_m_36 = _va_31.getLeft();
     3097              Expr _v_lsplit__deref__RevDate2 = _va_31.getRight();
     3098              if (!_va_31.isValid ())
    32253099              {
    32263100                continue _continue2;
     
    32353109              }
    32363110              Expr _v_subexpr__lsplit__deref__RevDate2 = _v_lsplit__deref__RevDate2.subexpr ((0 + 1), (_v_lsplit__deref__RevDate2.length () - (0 + 1 + 0)));
    3237               Expr.SplitIterator _va_37 = _v_subexpr__lsplit__deref__RevDate2.leftSplit(1);
    3238               _exit4: _continue4: for ( ; ; _va_37.next ())
    3239               {
    3240                 Expr _vv_date = _va_37.getLeft();
    3241                 Expr _v_lsplit__lsplit__deref__RevDate2 = _va_37.getRight();
    3242                 if (!_va_37.isValid ())
     3111              Expr.SplitIterator _va_32 = _v_subexpr__lsplit__deref__RevDate2.leftSplit(1);
     3112              _exit4: _continue4: for ( ; ; _va_32.next ())
     3113              {
     3114                Expr _vv_date = _va_32.getLeft();
     3115                Expr _v_lsplit__lsplit__deref__RevDate2 = _va_32.getRight();
     3116                if (!_va_32.isValid ())
    32433117                {
    32443118                  continue _continue3;
     
    32503124                  continue _continue3;
    32513125                }
    3252                 int _v_len___dollar_tmp_m_598_m_53 = (_v_len3 - _v_len4);
     3126                int _v_len___dollar_tmp_m_575_m_53 = (_v_len3 - _v_len4);
    32533127                if (!_c_12.termEquals (_v_lsplit__lsplit__deref__RevDate2, 0))
    32543128                {
    32553129                  continue _continue4;
    32563130                }
    3257                 Expr _ve__dollar_tmp_m_598_m_53 = Expr.empty;
    3258                 _ve__dollar_tmp_m_598_m_53 = _v_lsplit__lsplit__deref__RevDate2.subexpr ((0 + 1), _v_len___dollar_tmp_m_598_m_53);
     3131                Expr _ve__dollar_tmp_m_575_m_53 = Expr.empty;
     3132                _ve__dollar_tmp_m_575_m_53 = _v_lsplit__lsplit__deref__RevDate2.subexpr ((0 + 1), _v_len___dollar_tmp_m_575_m_53);
    32593133                _v_res1.assign (Expr.getConcatenator ().toRight (_c_119).toRight (_vv_rev).toRight (_c_118).toRight (_vv_date).yield ());
    32603134                break _exit4;
Note: See TracChangeset for help on using the changeset viewer.