Changeset 3452
 Timestamp:
 Feb 29, 2008, 6:25:35 PM (13 years ago)
 Location:
 toimperative/trunk/java/compiler/org/refal/plus
 Files:

 2 deleted
 2 edited
Legend:
 Unmodified
 Added
 Removed

toimperative/trunk/java/compiler/org/refal/plus/compiler/rfp_src.java
r3428 r3452 942 942 } 943 943 944 @RefalFormat("$func RFP_Src_InitFromEnv s = ;")945 static public void RFP_Src_InitFromEnv (Expr _vs_env) throws RefalException946 {947 refal.plus.Box.Store (Env, _vs_env);948 }949 950 944 @RefalFormat("$func Env_GetImplementationReader t = (e) (e) (e);") 951 static void Env_GetImplementationReader (Expr _vt__dollar_tmp_m_1 59_m_30, Result _v_res1, Result _v_res2, Result _v_res3) throws RefalException945 static void Env_GetImplementationReader (Expr _vt__dollar_tmp_m_160_m_30, Result _v_res1, Result _v_res2, Result _v_res3) throws RefalException 952 946 { 953 947 Result _v_Get1 = new Result (Expr.empty); 
toimperative/trunk/java/compiler/org/refal/plus/compiler/rfpc.java
r3426 r3452 180 180 static final Expr _c_121 = Expr.getConcatenator (3).toRight (Symbol.newWord ("Apply")).toRight (Symbol.newWord ("Apply")).toRight (Symbol.newWord ("Unexpected fail")).yield (); 181 181 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 302 184 { 303 185 if (_vt_as.isSymbolAt (0)) … … 317 199 throw new RefalException ("org.refal.plus.compiler.rfpc", "CompileASToJBC", "Unexpected fail"); 318 200 } 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); 321 203 Expr _vt_ModuleName = Expr.empty; 322 204 _vt_ModuleName = _v_deref__as.subexpr ((0 + 1), 1); … … 324 206 _ve_Items = _v_deref__as.subexpr ((0 + 1 + 1), _v_len__Items); 325 207 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 (); 329 211 Result _vt_module = new Result (Expr.empty); 330 212 rfp_compile.RFP_Compile (_vt_ModuleName, _ve_Items, _vt_module); … … 339 221 break _block1; 340 222 } 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 (); 344 226 } 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) 349 244 { 350 break _block2__branch1;245 throw new RefalException ("org.refal.plus.compiler.rfpc", "CompileASToJBC", "Unexpected fail"); 351 246 } 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)) 354 249 { 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"); 395 251 } 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; 396 276 } 397 277 } 398 278 399 @RefalFormat("$func CompileASToJBC2 s t t =;")400 static public void CompileASToJBC2 (Expr _g s_arg1, Expr _gt_arg2, Expr _gt_arg3) throws RefalException279 @RefalFormat("$func CompileASToJBC2 t t = e;") 280 static public void CompileASToJBC2 (Expr _gt_arg1, Expr _gt_arg2, Result _v_res1) throws RefalException 401 281 { 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))) 404 284 { 405 285 throw new RefalException ("org.refal.plus.compiler.rfpc", "CompileASToJBC2", "Unexpected fail"); 406 286 } 407 Expr _v_deref__compose1 = (Expr) _v_compose1.at ((0 + 1 + 1));287 Expr _v_deref__compose1 = (Expr) _v_compose1.at ((0 + 1)); 408 288 int _v_len1 = _v_deref__compose1.length (); 409 289 int _v_len2 = 0; … … 413 293 } 414 294 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);421 295 Expr _vt_as = Expr.empty; 422 _vt_as = _v_compose1.subexpr ( (0 + 1), 1);296 _vt_as = _v_compose1.subexpr (0, 1); 423 297 Expr _ve_callList = Expr.empty; 424 298 _ve_callList = _v_deref__compose1.subexpr (0, _v_len__callList); 425 299 refal.plus.Box.Store (CallList, _ve_callList); 426 CompileASToJBC (_v s_env, _vt_as);300 CompileASToJBC (_vt_as, _v_res1); 427 301 } 428 302 … … 479 353 break _block3__branch1; 480 354 } 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 ()) 483 357 { 484 Expr _ve__dollar_tmp_m_1 27_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 ()) 487 361 { 488 362 break _block3__branch1; … … 494 368 break _block3__branch1; 495 369 } 496 int _v_len___dollar_tmp_m_1 27_m_58 = (_v_len1  _v_len2);370 int _v_len___dollar_tmp_m_104_m_58 = (_v_len1  _v_len2); 497 371 if (_v_lsplit__Get2.isSymbolAt (0)) 498 372 { … … 518 392 continue _continue1; 519 393 } 520 int _v_len___dollar_tmp_m_1 27_m_44 = (_v_len5  _v_len6);394 int _v_len___dollar_tmp_m_104_m_44 = (_v_len5  _v_len6); 521 395 if (_v_deref__deref__lsplit__Get2.isSymbolAt (0)) 522 396 { … … 531 405 } 532 406 int _v_len__next = (_v_len7  _v_len8); 533 Expr _ve__dollar_tmp_m_1 27_m_58 = Expr.empty;534 _ve__dollar_tmp_m_1 27_m_58 = _v_lsplit__Get2.subexpr ((0 + 1), _v_len___dollar_tmp_m_127_m_58);535 Expr _vt__dollar_tmp_m_1 27_m_47 = Expr.empty;536 _vt__dollar_tmp_m_1 27_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); 537 411 Expr _ve_descr = Expr.empty; 538 412 _ve_descr = _v_deref__lsplit__Get2.subexpr ((0 + 1 + 1), _v_len__descr); 539 Expr _ve__dollar_tmp_m_1 27_m_44 = Expr.empty;540 _ve__dollar_tmp_m_1 27_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); 541 415 Expr _ve_next = Expr.empty; 542 416 _ve_next = _v_deref__deref__deref__lsplit__Get2.subexpr (0, _v_len__next); … … 556 430 break _block4__branch1; 557 431 } 558 int _v_len___dollar_tmp_m_1 30_m_36 = (_v_len9  _v_len10);432 int _v_len___dollar_tmp_m_107_m_36 = (_v_len9  _v_len10); 559 433 if (_ve_descr.isSymbolAt (0)) 560 434 { … … 569 443 } 570 444 int _v_len__arg = (_v_len11  _v_len12); 571 Expr _ve__dollar_tmp_m_1 30_m_36 = Expr.empty;572 _ve__dollar_tmp_m_1 30_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); 573 447 Expr _ve_arg = Expr.empty; 574 448 _ve_arg = _v_deref__descr.subexpr (0, _v_len__arg); … … 621 495 break _block1__branch2; 622 496 } 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 ()) 629 503 { 630 504 break _block1__branch2; … … 661 535 break _block6__branch1; 662 536 } 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 ()) 669 543 { 670 544 break _block6__branch1; … … 699 573 break _block7__branch1; 700 574 } 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)) 703 577 { 704 578 break _block7__branch1; 705 579 } 706 _ve_basename = _va_ 11.getExpr ();580 _ve_basename = _va_6.getExpr (); 707 581 break _block7; 708 582 } … … 729 603 break _block9__branch1; 730 604 } 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 ()) 737 611 { 738 612 break _block9__branch1; … … 788 662 _block12: { 789 663 _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)) 792 666 { 793 667 break _block12__branch1; 794 668 } 795 _vt_as = _va_ 13.getExpr ();669 _vt_as = _va_8.getExpr (); 796 670 break _block12; 797 671 } … … 806 680 break _block13__branch1; 807 681 } 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 ()) 810 684 { 811 Expr _ve__dollar_tmp_m_1 75_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 ()) 814 688 { 815 689 break _block13__branch1; … … 821 695 break _block13__branch1; 822 696 } 823 int _v_len___dollar_tmp_m_1 75_m_48 = (_v_len21  _v_len22);697 int _v_len___dollar_tmp_m_152_m_48 = (_v_len21  _v_len22); 824 698 if (_v_lsplit__RFP__Parser__Errors1.isSymbolAt (0)) 825 699 { … … 834 708 } 835 709 int _v_len__error = (_v_len23  _v_len24); 836 Expr _ve__dollar_tmp_m_1 75_m_48 = Expr.empty;837 _ve__dollar_tmp_m_1 75_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); 838 712 Expr _ve_error = Expr.empty; 839 713 _ve_error = _v_deref__lsplit__RFP__Parser__Errors1.subexpr (0, _v_len__error); … … 911 785 Expr _ve_efile = Expr.empty; 912 786 _ve_efile = _v_deref__deref__error.subexpr (0, _v_len__efile); 913 Expr _vt__dollar_tmp_m_1 77_m_53 = Expr.empty;914 _vt__dollar_tmp_m_1 77_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); 915 789 Expr _vs_row = Expr.empty; 916 790 _vs_row = _v_deref__deref__deref__error2.subexpr (0, 1); … … 1008 882 Expr _ve_efile = Expr.empty; 1009 883 _ve_efile = _v_deref__deref__error3.subexpr (0, _v_len__efile2); 1010 Expr _vt__dollar_tmp_m_1 80_m_55 = Expr.empty;1011 _vt__dollar_tmp_m_1 80_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); 1012 886 Expr _vs_row = Expr.empty; 1013 887 _vs_row = _v_deref__deref__deref__error32.subexpr (0, 1); … … 1402 1276 break _block30__branch1; 1403 1277 } 1404 Result _va_1 5= new Result ();1405 Result _va_1 6= new Result ();1406 Open_Channel (_ve_basename, _c_63, _va_1 5, _va_16);1407 _vs_channel = _va_1 5.getExpr ();1408 _vs_Isneed__close = _va_1 6.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 (); 1409 1283 break _block30; 1410 1284 } … … 1414 1288 throw new RefalException ("org.refal.plus.compiler.rfpc", "Main", "Unexpected fail"); 1415 1289 } 1416 Result _va_1 7= new Result ();1417 Result _va_1 8= new Result ();1418 Open_Channel (Expr.getConcatenator ().toRight (_ve_dirname).toRight (_vs_dir__separator).toRight (_gt_auxcall12.getExpr ()).yield (), _c_63, _va_1 7, _va_18);1419 _vs_channel = _va_1 7.getExpr ();1420 _vs_Isneed__close = _va_1 8.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 (); 1421 1295 } 1422 1296 CPP_Pretty_Print (_c_60, _vs_channel, Expr.empty, _ge_module__12.getExpr ()); … … 1445 1319 break _block32__branch1; 1446 1320 } 1447 Expr.SplitIterator _va_1 9= _v_RFP__ASAIL__To__JBC1.getExpr ().leftSplit(0);1448 _exit6: _continue6: for ( ; ; _va_1 9.next ())1449 { 1450 Expr _ve__dollar_tmp_m_ 312_m_48 = _va_19.getLeft();1451 Expr _v_lsplit__RFP__ASAIL__To__JBC1 = _va_1 9.getRight();1452 if (!_va_1 9.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 ()) 1453 1327 { 1454 1328 break _block32__branch1; … … 1460 1334 break _block32__branch1; 1461 1335 } 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); 1463 1337 if (_v_lsplit__RFP__ASAIL__To__JBC1.isSymbolAt (0)) 1464 1338 { … … 1477 1351 continue _continue6; 1478 1352 } 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); 1481 1355 Expr _vs_bytecode = Expr.empty; 1482 1356 _vs_bytecode = _v_deref__lsplit__RFP__ASAIL__To__JBC1.subexpr (0, 1); … … 1544 1418 break _block1__branch1; 1545 1419 } 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 ()) 1548 1422 { 1549 Expr _ve__dollar_tmp_m_3 91_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 ()) 1552 1426 { 1553 1427 break _block1__branch1; … … 1559 1433 break _block1__branch1; 1560 1434 } 1561 int _v_len___dollar_tmp_m_3 91_m_53 = (_v_len1  _v_len2);1435 int _v_len___dollar_tmp_m_368_m_53 = (_v_len1  _v_len2); 1562 1436 if (_v_lsplit__Get1.isSymbolAt (0)) 1563 1437 { … … 1596 1470 } 1597 1471 int _v_len__op = (_v_len7  _v_len8); 1598 Expr _ve__dollar_tmp_m_3 91_m_53 = Expr.empty;1599 _ve__dollar_tmp_m_3 91_m_53 = _v_lsplit__Get1.subexpr ((0 + 1), _v_len___dollar_tmp_m_391_m_53);1600 Expr _vt__dollar_tmp_m_3 91_m_42 = Expr.empty;1601 _vt__dollar_tmp_m_3 91_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); 1602 1476 Expr _ve_descr = Expr.empty; 1603 1477 _ve_descr = _v_deref__lsplit__Get1.subexpr ((0 + 1 + 1), _v_len__descr); … … 1612 1486 break _block2__branch1; 1613 1487 } 1614 Expr.SplitIterator _va_ 21= _ve_opts.leftSplit(0);1615 _exit2: _continue2: for ( ; ; _va_ 21.next ())1616 { 1617 Expr _ve__dollar_tmp_m_3 94_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 ()) 1620 1494 { 1621 1495 break _block2__branch1; … … 1627 1501 break _block2__branch1; 1628 1502 } 1629 int _v_len___dollar_tmp_m_3 94_m_30 = (_v_len9  _v_len10);1503 int _v_len___dollar_tmp_m_371_m_30 = (_v_len9  _v_len10); 1630 1504 if (_v_lsplit__opts.isSymbolAt (0)) 1631 1505 { … … 1640 1514 } 1641 1515 int _v_len__next = (_v_len11  _v_len12); 1642 Expr _ve__dollar_tmp_m_3 94_m_30 = Expr.empty;1643 _ve__dollar_tmp_m_3 94_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); 1644 1518 Expr _ve_next = Expr.empty; 1645 1519 _ve_next = _v_deref__lsplit__opts.subexpr (0, _v_len__next); … … 1678 1552 break _block4__branch1; 1679 1553 } 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 ()) 1686 1560 { 1687 1561 break _block4__branch1; … … 1693 1567 break _block4__branch1; 1694 1568 } 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); 1696 1570 if (!_v_lsplit__params.isSymbolAt (0)) 1697 1571 { … … 1700 1574 Expr _vs_par = Expr.empty; 1701 1575 _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); 1704 1578 Result _ge_auxcall2 = new Result (Expr.empty); 1705 1579 refal.plus.Convert.ToChars (_vs_par, _ge_auxcall2); … … 1719 1593 break _block5__branch1; 1720 1594 } 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); 1722 1596 if (!_ge_auxalt3.isSymbolAt (0)) 1723 1597 { … … 1726 1600 Expr _vs_phrase = Expr.empty; 1727 1601 _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); 1730 1604 Result _ge_auxcall4 = new Result (Expr.empty); 1731 1605 refal.plus.Box.Get (_vs_line.getExpr (), _ge_auxcall4); … … 1744 1618 continue _continue1; 1745 1619 } 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 ()) 1752 1626 { 1753 1627 continue _continue1; … … 1759 1633 continue _continue1; 1760 1634 } 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); 1762 1636 if (!_v_lsplit__auxalt3.isSymbolAt (0)) 1763 1637 { … … 1768 1642 continue _continue4; 1769 1643 } 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); 1772 1646 Expr _vs_phrase = Expr.empty; 1773 1647 _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); 1776 1650 refal.plus.StdIO.PrintLn (Expr.concat (_ve_start2.getExpr (), _vs_phrase)); 1777 1651 } … … 1806 1680 break _block2__branch1; 1807 1681 } 1808 int _v_len___dollar_tmp_m_4 25_m_20 = (_v_len3  _v_len4);1809 Expr _vv__dollar_tmp_m_4 25_m_20 = Expr.empty;1810 _vv__dollar_tmp_m_4 25_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); 1811 1685 Expr _ge_prevarg__5 = Expr.empty; 1812 1686 _block3: { … … 1853 1727 _block4: { 1854 1728 _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)) 1857 1731 { 1858 1732 break _block4__branch1; 1859 1733 } 1860 _ve_items = _va_ 24.getExpr ();1734 _ve_items = _va_19.getExpr (); 1861 1735 break _block4; 1862 1736 } … … 1881 1755 _block5: { 1882 1756 _block5__branch1: { 1883 Result _va_2 5= new Result ();1884 if (!refal.plus.Table.Lookup (rfp_helper.RFP_Options, _c_83, _va_2 5))1757 Result _va_20 = new Result (); 1758 if (!refal.plus.Table.Lookup (rfp_helper.RFP_Options, _c_83, _va_20)) 1885 1759 { 1886 1760 break _block5__branch1; 1887 1761 } 1888 _ve_entries = _va_2 5.getExpr ();1762 _ve_entries = _va_20.getExpr (); 1889 1763 break _block5; 1890 1764 } … … 2023 1897 break _block8__branch1; 2024 1898 } 2025 Expr.SplitIterator _va_2 6= _v_Get1.getExpr ().leftSplit(0);2026 _exit1: _continue1: for ( ; ; _va_2 6.next ())1899 Expr.SplitIterator _va_21 = _v_Get1.getExpr ().leftSplit(0); 1900 _exit1: _continue1: for ( ; ; _va_21.next ()) 2027 1901 { 2028 Expr _ve__dollar_tmp_m_4 63_m_31 = _va_26.getLeft();2029 Expr _v_lsplit__Get1 = _va_2 6.getRight();2030 if (!_va_2 6.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 ()) 2031 1905 { 2032 1906 break _block8__branch1; … … 2038 1912 break _block8__branch1; 2039 1913 } 2040 int _v_len___dollar_tmp_m_4 63_m_60 = (_v_len9  _v_len10);1914 int _v_len___dollar_tmp_m_440_m_60 = (_v_len9  _v_len10); 2041 1915 if (_v_lsplit__Get1.isSymbolAt (0)) 2042 1916 { … … 2050 1924 continue _continue1; 2051 1925 } 2052 int _v_len___dollar_tmp_m_4 63_m_57 = (_v_len11  _v_len12);1926 int _v_len___dollar_tmp_m_440_m_57 = (_v_len11  _v_len12); 2053 1927 if (_v_deref__lsplit__Get1.isSymbolAt (0)) 2054 1928 { … … 2060 1934 continue _continue1; 2061 1935 } 2062 Expr _ve__dollar_tmp_m_4 63_m_60 = Expr.empty;2063 _ve__dollar_tmp_m_4 63_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); 2064 1938 Expr _vt_action = Expr.empty; 2065 1939 _vt_action = _v_deref__lsplit__Get1.subexpr ((0 + 1), 1); 2066 Expr _ve__dollar_tmp_m_4 63_m_57 = Expr.empty;2067 _ve__dollar_tmp_m_4 63_m_57 = _v_deref__lsplit__Get1.subexpr ((0 + 1 + 1), _v_len___dollar_tmp_m_463_m_57);2068 Expr.SplitIterator _va_2 7= _v_deref__deref__lsplit__Get1.leftSplit(0);2069 _exit2: _continue2: for ( ; ; _va_2 7.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 ()) 2070 1944 { 2071 Expr _ve__dollar_tmp_m_4 63_m_35 = _va_27.getLeft();2072 Expr _v_lsplit__deref__deref__lsplit__Get1 = _va_2 7.getRight();2073 if (!_va_2 7.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 ()) 2074 1948 { 2075 1949 continue _continue1; … … 2081 1955 continue _continue1; 2082 1956 } 2083 int _v_len___dollar_tmp_m_4 63_m_45 = (_v_len13  _v_len14);1957 int _v_len___dollar_tmp_m_440_m_45 = (_v_len13  _v_len14); 2084 1958 if (_v_lsplit__deref__deref__lsplit__Get1.isSymbolAt (0)) 2085 1959 { … … 2095 1969 continue _continue2; 2096 1970 } 2097 Expr _ve__dollar_tmp_m_4 63_m_45 = Expr.empty;2098 _ve__dollar_tmp_m_4 63_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); 2099 1973 _gt_auxalt6 = _vt_action; 2100 1974 break _exit2; … … 2123 1997 break _block7__branch1; 2124 1998 } 2125 Expr.SplitIterator _va_2 8= _v_Get2.getExpr ().leftSplit(0);2126 _exit3: _continue3: for ( ; ; _va_2 8.next ())1999 Expr.SplitIterator _va_23 = _v_Get2.getExpr ().leftSplit(0); 2000 _exit3: _continue3: for ( ; ; _va_23.next ()) 2127 2001 { 2128 Expr _ve__dollar_tmp_m_4 65_m_33 = _va_28.getLeft();2129 Expr _v_lsplit__Get2 = _va_2 8.getRight();2130 if (!_va_2 8.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 ()) 2131 2005 { 2132 2006 break _block7__branch1; … … 2138 2012 break _block7__branch1; 2139 2013 } 2140 int _v_len___dollar_tmp_m_4 65_m_60 = (_v_len17  _v_len18);2014 int _v_len___dollar_tmp_m_442_m_60 = (_v_len17  _v_len18); 2141 2015 if (_v_lsplit__Get2.isSymbolAt (0)) 2142 2016 { … … 2150 2024 continue _continue3; 2151 2025 } 2152 int _v_len___dollar_tmp_m_4 65_m_57 = (_v_len19  _v_len20);2026 int _v_len___dollar_tmp_m_442_m_57 = (_v_len19  _v_len20); 2153 2027 if (_v_deref__lsplit__Get2.isSymbolAt (0)) 2154 2028 { … … 2160 2034 continue _continue3; 2161 2035 } 2162 Expr _ve__dollar_tmp_m_4 65_m_60 = Expr.empty;2163 _ve__dollar_tmp_m_4 65_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); 2164 2038 Expr _vt_action = Expr.empty; 2165 2039 _vt_action = _v_deref__lsplit__Get2.subexpr ((0 + 1), 1); 2166 Expr _ve__dollar_tmp_m_4 65_m_57 = Expr.empty;2167 _ve__dollar_tmp_m_4 65_m_57 = _v_deref__lsplit__Get2.subexpr ((0 + 1 + 1), _v_len___dollar_tmp_m_465_m_57);2168 Expr.SplitIterator _va_2 9= _v_deref__deref__lsplit__Get2.leftSplit(0);2169 _exit4: _continue4: for ( ; ; _va_2 9.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 ()) 2170 2044 { 2171 Expr _ve__dollar_tmp_m_4 65_m_37 = _va_29.getLeft();2172 Expr _v_lsplit__deref__deref__lsplit__Get2 = _va_2 9.getRight();2173 if (!_va_2 9.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 ()) 2174 2048 { 2175 2049 continue _continue3; … … 2181 2055 continue _continue3; 2182 2056 } 2183 int _v_len___dollar_tmp_m_4 65_m_45 = (_v_len21  _v_len22);2057 int _v_len___dollar_tmp_m_442_m_45 = (_v_len21  _v_len22); 2184 2058 if (_v_lsplit__deref__deref__lsplit__Get2.isSymbolAt (0)) 2185 2059 { … … 2195 2069 continue _continue4; 2196 2070 } 2197 Expr _ve__dollar_tmp_m_4 65_m_45 = Expr.empty;2198 _ve__dollar_tmp_m_4 65_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); 2199 2073 _gt_auxalt6 = _vt_action; 2200 2074 break _exit4; … … 2266 2140 break _block1__branch2; 2267 2141 } 2268 int _v_len___dollar_tmp_m_4 77_m_16 = (_v_len23  _v_len24);2269 Expr _vv__dollar_tmp_m_4 77_m_16 = Expr.empty;2270 _vv__dollar_tmp_m_4 77_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); 2271 2145 refal.plus.StdIO.PrintLnCh (refal.plus.StdIO.StdErr, _c_92); 2272 2146 refal.plus.Dos.Exit (_c_2); … … 2326 2200 break _block1__branch1; 2327 2201 } 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 ()) 2330 2204 { 2331 Expr _ve__dollar_tmp_m_4 97_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 ()) 2334 2208 { 2335 2209 break _block1__branch1; … … 2341 2215 break _block1__branch1; 2342 2216 } 2343 int _v_len___dollar_tmp_m_4 97_m_25 = (_v_len1  _v_len2);2217 int _v_len___dollar_tmp_m_474_m_25 = (_v_len1  _v_len2); 2344 2218 Expr _vt_Item = Expr.empty; 2345 2219 _vt_Item = _v_lsplit__Items.subexpr (0, 1); 2346 Expr _ve__dollar_tmp_m_4 97_m_25 = Expr.empty;2347 _ve__dollar_tmp_m_4 97_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); 2348 2222 _block2: { 2349 2223 _block2__branch1: { … … 2374 2248 break _block3__branch1; 2375 2249 } 2376 int _v_len___dollar_tmp_m_4 99_m_51 = (_v_len5  _v_len6);2250 int _v_len___dollar_tmp_m_476_m_51 = (_v_len5  _v_len6); 2377 2251 if (_v_deref__deref__Item.isSymbolAt ((0 + 1))) 2378 2252 { … … 2386 2260 break _block3__branch1; 2387 2261 } 2388 int _v_len___dollar_tmp_m_4 99_m_48 = (_v_len7  _v_len8);2262 int _v_len___dollar_tmp_m_476_m_48 = (_v_len7  _v_len8); 2389 2263 if (!_c_97.termEquals (_v_deref__Item, 0)) 2390 2264 { … … 2411 2285 Expr _ve_ItemBody = Expr.empty; 2412 2286 _ve_ItemBody = _v_deref__Item.subexpr ((0 + 1 + 1 + 1 + 1 + 1), _v_len__ItemBody); 2413 Expr _ve__dollar_tmp_m_4 99_m_51 = Expr.empty;2414 _ve__dollar_tmp_m_4 99_m_51 = _v_deref__deref__Item.subexpr ((0 + 1 + 1), _v_len___dollar_tmp_m_499_m_51);2415 Expr _ve__dollar_tmp_m_4 99_m_48 = Expr.empty;2416 _ve__dollar_tmp_m_4 99_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); 2417 2291 _gt_auxalt1 = new Expr ((Comparable<?>) Expr.getConcatenator ().toRight (_vs_Linkage).toRight (_vs_ItemType).toRight (_vt_ItemName).toRight (_ve_ItemBody).yield ()); 2418 2292 break _block3; … … 2478 2352 break _block3__branch3; 2479 2353 } 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); 2481 2355 if (_v_deref__deref__Item3.isSymbolAt ((0 + 1))) 2482 2356 { … … 2490 2364 break _block3__branch3; 2491 2365 } 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); 2493 2367 if (!_v_deref__Item3.isSymbolAt (0)) 2494 2368 { … … 2511 2385 Expr _ve_ItemBody = Expr.empty; 2512 2386 _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); 2517 2391 _gt_auxalt1 = new Expr ((Comparable<?>) Expr.getConcatenator ().toRight (_vs_Linkage).toRight (_vs_ItemType).toRight (_vt_ItemName).toRight (_ve_ItemBody).yield ()); 2518 2392 break _block3; 2519 2393 } 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); 2522 2396 _gt_auxalt1 = _vt_Item; 2523 2397 } … … 2716 2590 throw new RefalException ("org.refal.plus.compiler.rfpc", "Get_Ready_For_Compilation", "Unexpected fail"); 2717 2591 } 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); 2720 2594 _vs_tab = rfp_helper.Object; 2721 2595 _ve_ItemDef = _ve_ItemBody; … … 2770 2644 break _block1__branch1; 2771 2645 } 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 ()) 2778 2652 { 2779 2653 break _block1__branch1; … … 2811 2685 break _block2__branch1; 2812 2686 } 2813 int _v_len___dollar_tmp_m_5 36_m_21 = (_v_len5  _v_len6);2814 Expr _vv__dollar_tmp_m_5 36_m_21 = Expr.empty;2815 _vv__dollar_tmp_m_5 36_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); 2816 2690 refal.plus.StdIO.PrintLnCh (_vs_channel, Expr.empty); 2817 2691 break _block2; … … 2826 2700 break _block3__branch1; 2827 2701 } 2828 Expr.SplitIterator _va_ 32= _ve_1.leftSplit(0);2829 _exit2: _continue2: for ( ; ; _va_ 32.next ())2830 { 2831 Expr _ve__dollar_tmp_m_5 40_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 ()) 2834 2708 { 2835 2709 break _block3__branch1; … … 2841 2715 break _block3__branch1; 2842 2716 } 2843 int _v_len___dollar_tmp_m_5 40_m_21 = (_v_len7  _v_len8);2717 int _v_len___dollar_tmp_m_517_m_21 = (_v_len7  _v_len8); 2844 2718 if (_v_lsplit__1.isSymbolAt (0)) 2845 2719 { … … 2853 2727 continue _continue2; 2854 2728 } 2855 int _v_len___dollar_tmp_m_5 40_m_18 = (_v_len9  _v_len10);2856 Expr _ve__dollar_tmp_m_5 40_m_21 = Expr.empty;2857 _ve__dollar_tmp_m_5 40_m_21 = _v_lsplit__1.subexpr ((0 + 1), _v_len___dollar_tmp_m_540_m_21);2858 Expr _ve__dollar_tmp_m_5 40_m_18 = Expr.empty;2859 _ve__dollar_tmp_m_5 40_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); 2860 2734 refal.plus.StdIO.PrintLnCh (_vs_channel, Expr.empty); 2861 2735 refal.plus.StdIO.PrintCh (_vs_channel, Expr.concat (_ve_indent, _c_112)); … … 2874 2748 break _block4__branch1; 2875 2749 } 2876 int _v_len___dollar_tmp_m_5 46_m_19 = (_v_len11  _v_len12);2750 int _v_len___dollar_tmp_m_523_m_19 = (_v_len11  _v_len12); 2877 2751 if (_ve_2.isSymbolAt (0)) 2878 2752 { … … 2886 2760 break _block4__branch1; 2887 2761 } 2888 int _v_len___dollar_tmp_m_5 46_m_16 = (_v_len13  _v_len14);2889 Expr _ve__dollar_tmp_m_5 46_m_19 = Expr.empty;2890 _ve__dollar_tmp_m_5 46_m_19 = _ve_2.subexpr ((0 + 1), _v_len___dollar_tmp_m_546_m_19);2891 Expr _ve__dollar_tmp_m_5 46_m_16 = Expr.empty;2892 _ve__dollar_tmp_m_5 46_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); 2893 2767 break _block4; 2894 2768 } … … 2904 2778 break _block4__branch2; 2905 2779 } 2906 int _v_len___dollar_tmp_m_5 47_m_28 = (_v_len15  _v_len16);2907 Expr _vv__dollar_tmp_m_5 47_m_28 = Expr.empty;2908 _vv__dollar_tmp_m_5 47_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); 2909 2783 break _block4; 2910 2784 } … … 2946 2820 break _block1__branch1; 2947 2821 } 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 ()) 2954 2828 { 2955 2829 break _block1__branch1; … … 3103 2977 break _block1__branch1; 3104 2978 } 3105 int _v_len___dollar_tmp_m_5 84_m_12 = (_v_len1  _v_len2);2979 int _v_len___dollar_tmp_m_561_m_12 = (_v_len1  _v_len2); 3106 2980 if (!_v_compose1.isSymbolAt (0)) 3107 2981 { … … 3110 2984 Expr _vs_ymbol = Expr.empty; 3111 2985 _vs_ymbol = _v_compose1.subexpr (0, 1); 3112 Expr _ve__dollar_tmp_m_5 84_m_12 = Expr.empty;3113 _ve__dollar_tmp_m_5 84_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); 3114 2988 if (!refal.plus.Class.IsChannel (_vs_ymbol)) 3115 2989 { … … 3177 3051 break _block1__branch1; 3178 3052 } 3179 Expr.SplitIterator _va_ 34= _v_deref__RevDate.leftSplit(0);3180 _exit1: _continue1: for ( ; ; _va_ 34.next ())3181 { 3182 Expr _ve__dollar_tmp_m_5 98_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 ()) 3185 3059 { 3186 3060 break _block1__branch1; … … 3195 3069 } 3196 3070 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_3 5= _v_subexpr__lsplit__deref__RevDate.leftSplit(1);3198 _exit2: _continue2: for ( ; ; _va_3 5.next ())3199 { 3200 Expr _vv_rev = _va_3 5.getLeft();3201 Expr _v_lsplit__lsplit__deref__RevDate = _va_3 5.getRight();3202 if (!_va_3 5.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 ()) 3203 3077 { 3204 3078 continue _continue1; … … 3210 3084 continue _continue1; 3211 3085 } 3212 int _v_len___dollar_tmp_m_5 98_m_32 = (_v_len1  _v_len2);3086 int _v_len___dollar_tmp_m_575_m_32 = (_v_len1  _v_len2); 3213 3087 if (!_c_12.termEquals (_v_lsplit__lsplit__deref__RevDate, 0)) 3214 3088 { 3215 3089 continue _continue2; 3216 3090 } 3217 Expr _ve__dollar_tmp_m_5 98_m_32 = Expr.empty;3218 _ve__dollar_tmp_m_5 98_m_32 = _v_lsplit__lsplit__deref__RevDate.subexpr ((0 + 1), _v_len___dollar_tmp_m_598_m_32);3219 Expr.SplitIterator _va_3 6= _v_deref__RevDate2.leftSplit(0);3220 _exit3: _continue3: for ( ; ; _va_3 6.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 ()) 3221 3095 { 3222 Expr _ve__dollar_tmp_m_5 98_m_36 = _va_36.getLeft();3223 Expr _v_lsplit__deref__RevDate2 = _va_3 6.getRight();3224 if (!_va_3 6.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 ()) 3225 3099 { 3226 3100 continue _continue2; … … 3235 3109 } 3236 3110 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_3 7= _v_subexpr__lsplit__deref__RevDate2.leftSplit(1);3238 _exit4: _continue4: for ( ; ; _va_3 7.next ())3239 { 3240 Expr _vv_date = _va_3 7.getLeft();3241 Expr _v_lsplit__lsplit__deref__RevDate2 = _va_3 7.getRight();3242 if (!_va_3 7.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 ()) 3243 3117 { 3244 3118 continue _continue3; … … 3250 3124 continue _continue3; 3251 3125 } 3252 int _v_len___dollar_tmp_m_5 98_m_53 = (_v_len3  _v_len4);3126 int _v_len___dollar_tmp_m_575_m_53 = (_v_len3  _v_len4); 3253 3127 if (!_c_12.termEquals (_v_lsplit__lsplit__deref__RevDate2, 0)) 3254 3128 { 3255 3129 continue _continue4; 3256 3130 } 3257 Expr _ve__dollar_tmp_m_5 98_m_53 = Expr.empty;3258 _ve__dollar_tmp_m_5 98_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); 3259 3133 _v_res1.assign (Expr.getConcatenator ().toRight (_c_119).toRight (_vv_rev).toRight (_c_118).toRight (_vv_date).yield ()); 3260 3134 break _exit4;
Note: See TracChangeset
for help on using the changeset viewer.